Newsgroups: comp.parallel.pvm,comp.unix.cray
From: Nigel@nigelh.demon.co.uk (Nigel Healy)
Subject: Re: String passing between Fortran & C on a Cray T3D
Organization: home in Preston
Date: Tue, 21 Feb 1995 19:35:59 +0000
Message-ID: <793395359snz@nigelh.demon.co.uk>

Is it me or are you missing the obvious?

 Fortran:

	CALL FRED(C,LEN(C))

 C:
        #ifndef CRAY
         #ifdef MVS
          #pragma linkage (FRED,fortran)
         #endif
         #ifdef SGI
          #define FRED fred_
         #endif
         #ifdef RS6000
          #define FRED fred
         #endif
        #endif
	void FRED(char *c,int *l)
        {
          /* strings are not null terminated */
        }

Works for me on CRAYs,SGI,RS6000,MVS,etc.

-- 
Nigel Healy

