Technical data

Cray Standard C/C++ Reference Manual
C Fortran program (main.f):
PROGRAM MAIN
REAL CFCTN
COMMON /FLOAT1/FLOAT1
COMMON /FLOAT2/FLOAT2
REAL FLOAT1, FLOAT2
DATA FLOAT1/1.6/ ! FLOAT2 INITIALIZED IN cfctn
LOGICAL LOG
CHARACTER*24 STR
REAL RTNVAL
C INITIALIZE VARIABLES STR(ING) AND LOG(ICAL)
STR = ’Fortran Character String’
LOG = .TRUE.
C PRINT VALUES OF VARIABLES BEFORE CALL TO C FUNCTION
PRINT*, ’ IN MAIN: FLOAT1 = ’, FLOAT1,
1 ’; FLOAT2 = ’, FLOAT2
PRINT*, ’ CALLING CFCTN WITH ARGUMENTS: ’
PRINT*, ’ STR = "’, STR, ’"; LOG = ’, LOG
PRINT*
RTNVAL = CFCTN(STR, LOG)
C PRINT VALUES OF VARIABLES AFTER CALL TO C FUNCTION
PRINT*, ’ BACK IN MAIN: CFCTN RETURNED ’, RTNVAL
PRINT*, ’ AND CHANGED THE TWO ARGUMENTS: ’
PRINT*, ’ STR = "’, STR, ’"; LOG = ’, LOG
END
The following example illustrates the associated Cray Standard C function that
is being called:
138 S–2179–36