HP SunSoft Pascal 4.0 - Manual (Page 222)

198 Pascal 4.0 User’s Guide
8
Simple Types
With external fortran , the procedure name in the procedure statement
and in the call must be in lowercase, with no underscore ( _ ).
The FORTRAN subroutine,
SimVal.f
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