8
The FORTRAN subroutine,
SimVal.f
Simple Types
With external fortran, the procedure name in the procedure statement and in the call must be in lowercase, with no underscore (_).
subroutine | SimVal( t, f, c, i, d, s, reply ) |
logical*1 | t, f |
character | c |
integer*4 | i |
double precision d | |
integer*2 | s |
integer*4 | reply |
reply = 0 |
|
if ( t | ) reply = reply + 1 |
if ( .not. f | ) reply = reply + 8 |
if ( c .eq. 'z' | ) reply = reply + 64 |
if ( i .eq. 9 | ) reply = reply + 512 |
if ( d .eq. 9.9 | ) reply = reply + 4096 |
if ( s .eq. 9 | ) reply = reply + 32768 |
return |
|
end |
|
198 | Pascal 4.0 User’s Guide |