8

The commands to compile and execute RetReal.f and RetRealmain.p

hostname% f77 -c RetReal.f RetReal.f

retreal:

hostname% pc RetReal.o RetRealmain.p -lpfc -lF77 hostname% a.out

2.0 3.0

Type shortreal

You can return a shortreal function value between Pascal and FORTRAN. Pass it exactly as in the previous example, with the Pascal shortreal type matching the FORTRAN real type (without -xl).

Routines as Parameters

If the passed procedure is a top-level procedure, write it as follows:

The FORTRAN subroutine,

subroutine PassProc ( r, s, prcdr )

PassProc.f

real r, s

 

external prcdr

 

call prcdr ( r, s )

 

return

 

end

 

 

202

Pascal 4.0 User’s Guide