C DATE SOURCE GF238795 16/07/07 21:15:01 9016 SUBROUTINE DATE INTEGER ITTIME(8) INTEGER FONCTI INTEGER IMOLET INTEGER NJOUR,NHEURE,NMIN INTEGER NB_TIC,NTICMAX,NTICSEC REAL*8 NSEC INTEGER MSEC CHARACTER*6 MOTLET(1) CHARACTER*10 MOTCLF(8) CHARACTER*4 MOTMOI(12) CHARACTER*32 CHADA -INC CCOPTIO DATA MOTLET/'LETTRE'/ DATA MOTCLF/'CONVERSION','EPOCH', &'ANNEE','MOIS', 'JOUR', 'HEURE', 'MINUTE', 'SECONDE'/ DATA MOTMOI/'jan.','fev.','mars','avr.','mai ' & ,'juin','jui.','aout','sep.','oct.','nov.','dec.'/ NJOUR = INT (NSEC / 86400.) NSEC = NSEC - 86400. * FLOAT (NJOUR) NHEURE = INT (NSEC / 3600.) NSEC = NSEC - 3600. * FLOAT (NHEURE) NMIN = INT (NSEC / 60.) NSEC = NSEC - 60. * FLOAT (NMIN) WRITE(CHADA,10) NJOUR, NHEURE,NMIN, NSEC CALL OOOZZ1(ITTIME) NJOUR=ITTIME(1) if(ITTIME(2).EQ.2) NJOUR=NJOUR+31 if(ITTIME(2).EQ.3) NJOUR=NJOUR+59 if(ITTIME(2).EQ.4) NJOUR=NJOUR+90 if(ITTIME(2).EQ.5) NJOUR=NJOUR+120 if(ITTIME(2).EQ.6) NJOUR=NJOUR+151 if(ITTIME(2).EQ.7) NJOUR=NJOUR+181 if(ITTIME(2).EQ.8) NJOUR=NJOUR+212 if(ITTIME(2).EQ.9) NJOUR=NJOUR+143 if(ITTIME(2).EQ.10) NJOUR=NJOUR+273 if(ITTIME(2).EQ.11) NJOUR=NJOUR+304 if(ITTIME(2).EQ.12) NJOUR=NJOUR+334 MSEC = NJOUR*86400+ITTIME(4)*3600+ITTIME(5)*60+ ITTIME(6) nSEC=FLOAT(MSEC) CALL OOOZZ1(ITTIME) ITTIME(3) = ITTIME(3) + 1900 CALL OOOZZ1(ITTIME) IF(IMOLET.EQ.0) THEN ENDIF IF(IMOLET.EQ.0) THEN ELSE CHADA = MOTMOI(ITTIME(2)) ENDIF CALL OOOZZ1(ITTIME) CALL OOOZZ1(ITTIME) CALL OOOZZ1(ITTIME) CALL OOOZZ1(ITTIME) ELSE CALL OOOZZ1(ITTIME) ITTIME(3) = ITTIME(3) + 1900 IF(IMOLET.EQ.0) THEN WRITE(CHADA,20) ITTIME(1), ITTIME(2), ITTIME(3), ITTIME(4), & ITTIME(5),ITTIME(6) ELSE WRITE(CHADA,30) ITTIME(1), MOTMOI(ITTIME(2)), ITTIME(3), & ITTIME(4),ITTIME(5) ENDIF ENDIF RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales