#if defined (DOC)
C
C     COMDECK COMINITRAD
C     ------------------
C     NLISTE        :
C     NLISTB        :
C     NIDAY         :
C     NJULIAN       :
C     NMONTH        :
C     NIYEAR        :
#endif
      INTEGER NIYEAR,NMONTH,NIDAY,NJULIAN
      INTEGER NLISTE(JPNB,JPNGAS),NLISTB(JPNB),NIDOWN(JPNB)
C
C
      COMMON / COMINITRAD / NLISTE,NLISTB,NIYEAR,NMONTH,NIDAY,NJULIAN