Newsgroups: comp.parallel.pvm,comp.unix.cray
From: glover@hikimi.cray.com (Roger Glover)
Subject: Re: String passing between Fortran & C on a Cray T3D
Organization: Cray Research, Inc.
Date: 21 Feb 95 11:10:05 CST
Message-ID: <1995Feb21.111005.7904@walter.cray.com>

My previous posting on this subject contains an error.

In article <1995Feb21.100047.5956@walter.cray.com>, I, glover@hikimi.cray.com (Roger Glover) incorrectly wrote:

> 	#include <fortran.h> /* defines the type _fcd and prototypes *
> 	                      * conversion functions                 */
> 	#define AROW 20
> 	#define ACOL 50
> 
> 	int lda = AROW, m = AROW, n = ACOL;
> 	double a[ACOL][AROW];
> 	double rdest, cdest; /* not used in the CRI implementation */
> 	char *scope = "R", *top = "H";
> 	.
> 	.
> 
> 	SGSUM2D(_cptofcd(scope), _cptofcd(top), &m, &n, a, &lda, &rdest, &cdest);
           WRONG^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

The WRONG portion should read:

	_cptofcd(scope, 1), _cptofcd(top, 1)

The second argument is the length of the character string.

Thanks to Jeff Drummond for letting me know about this.

----------------------------------------------- Roger Glover
XXXX\ \ / \ /XXX  \ / \ X   \ /\\\  X///X /\\\  Cray Research, Inc.
/ \ / \/ /\ / \ / \X /\ X  \  / \   X\  \ X     DISCLAIMER HAIKU:
//X/  X\\\X //X/  X \ X X\\   / \   X/X \ X \\\   CRI may not
/ \   X///X / \/  X//XX X  \  / \   X  \\ X   \   Share these opinions of mine
/ \   X   X /\\\/ X   X X///X /XXX/ X///X /XXX/   This is not my fault

