代码大全

18-72

Fortran

18-72 Fortran

SUBROUTINE READEE(MAXEE, INFILE, INERR)

SINTEGER SMAXEE

SCHARACTER INFILE* 8

SLOGICAL INERR

* local variables

INTEGER I

INTEGER J

INTEGER EMPID( MAXEE )

18.8

18-73

18-73 Basic

Function Max!( Arg! , Arg2! )

'find the arithmetic maxinmum of Argl and Arg2

if( Arg1! > Arg2! ) then

Max! = Arg1!

else

Max! = Arg2!