      SUBROUTINE GETICD (ICDP, ISSN0, ITIME0, ISN, ITIME)

*** DUMMY SUBROUTINE

      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      IMPLICIT INTEGER (I-N)

      ICDP = 1

      RETURN
      END
