hisid.f

Go to the documentation of this file.

      INTEGER FUNCTION hisid(ID)
      IMPLICIT NONE
      INTEGER id
      LOGICAL hexist
      IF(hexist(id).EQV..true.) THEN
        hisid = 1
      ELSE
        hisid = 0
      ENDIF
      END