Vax C90-EL SERIES Service Manual Page 155

  • Download
  • Add to my manuals
  • Print
  • Page
    / 216
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 154
Interlanguage Communication [9]
C Fortran subprogram (ftnfctn.f):
FUNCTION FTNFCTN(STR, LOG)
REAL FTNFCTN
CHARACTER*(*) STR
LOGICAL LOG
COMMON /FLOAT1/FLOAT1
COMMON /FLOAT2/FLOAT2
REAL FLOAT1, FLOAT2
DATA FLOAT2/2.4/ ! FLOAT1 INITIALIZED IN MAIN
C PRINT CURRENT STATE OF VARIABLES
PRINT*, IN FTNFCTN: FLOAT1 = , FLOAT1,
1 ;FLOAT2 = , FLOAT2
PRINT*, ARGUMENTS: STR = ", STR, "; LOG = , LOG
C CHANGE THE VALUES FOR STR(ING) AND LOG(ICAL)
STR = New Fortran String
LOG = .FALSE.
FTNFCTN = 123.4
PRINT*, RETURNING FROM FTNFCTN WITH , FTNFCTN
PRINT*
RETURN
END
The previous Cray Standard C function and Fortran subprogram are executed by
the following commands and produce the following output:
S217936 135
Page view 154
1 2 ... 150 151 152 153 154 155 156 157 158 159 160 ... 215 216

Comments to this Manuals

No comments