INTEGER NSDAY, NCYCLE
PARAMETER ( NSDAY = 86400 )
NSEC = IDAY *NSDAY + SEC
NSEC0 = IDAY0*NSDAY + SEC0