Gabriele Cosmo
11 lines
197 B
FortranFixed
11 lines
197 B
FortranFixed
INTEGER FUNCTION HISID(ID)
|
|
IMPLICIT NONE
|
|
INTEGER ID
|
|
LOGICAL HEXIST
|
|
IF(HEXIST(ID).EQV..TRUE.) THEN
|
|
HISID = 1
|
|
ELSE
|
|
HISID = 0
|
|
ENDIF
|
|
END
|