Télécharger la plaquette Cast3M


fr en

Télécharger date.eso

Retour à la liste

Numérotation des lignes : 

  1. C DATE      SOURCE    GF238795  16/07/07    21:15:01     9016           
  2.       SUBROUTINE DATE
  3.       INTEGER ITTIME(8)
  4.       INTEGER FONCTI
  5.       INTEGER IMOLET
  6.       INTEGER NJOUR,NHEURE,NMIN
  7.       INTEGER NB_TIC,NTICMAX,NTICSEC
  8.       REAL*8 NSEC
  9.       INTEGER MSEC
  10.       CHARACTER*6 MOTLET(1)
  11.       CHARACTER*10 MOTCLF(8)
  12.       CHARACTER*4 MOTMOI(12)
  13.       CHARACTER*32 CHADA
  14. -INC CCOPTIO      
  15.       DATA MOTLET/'LETTRE'/
  16.       DATA MOTCLF/'CONVERSION','EPOCH',
  17.      &'ANNEE','MOIS', 'JOUR', 'HEURE', 'MINUTE', 'SECONDE'/
  18.       DATA MOTMOI/'jan.','fev.','mars','avr.','mai '
  19.      & ,'juin','jui.','aout','sep.','oct.','nov.','dec.'/
  20.       CALL LIRMOT(MOTLET,1,IMOLET,0)
  21.       CALL LIRMOT(MOTCLF,8,FONCTI,0)
  22.       IF(FONCTI.EQ.1) THEN
  23.          CALL LIRREE(NSEC,1,IRETOU)
  24.          NJOUR = INT (NSEC / 86400.)
  25.          NSEC = NSEC - 86400. * FLOAT (NJOUR)
  26.          NHEURE = INT (NSEC / 3600.)
  27.          NSEC = NSEC - 3600. *  FLOAT (NHEURE)
  28.          NMIN = INT (NSEC / 60.)
  29.          NSEC = NSEC - 60. *  FLOAT (NMIN)
  30.          WRITE(CHADA,10)  NJOUR, NHEURE,NMIN, NSEC
  31.          CALL ECRCHA(CHADA)
  32.       ELSEIF(FONCTI.EQ.2) THEN
  33.          CALL OOOZZ1(ITTIME)
  34.         NJOUR=ITTIME(1)
  35.         if(ITTIME(2).EQ.2) NJOUR=NJOUR+31
  36.         if(ITTIME(2).EQ.3) NJOUR=NJOUR+59
  37.         if(ITTIME(2).EQ.4) NJOUR=NJOUR+90
  38.         if(ITTIME(2).EQ.5) NJOUR=NJOUR+120
  39.         if(ITTIME(2).EQ.6) NJOUR=NJOUR+151
  40.         if(ITTIME(2).EQ.7) NJOUR=NJOUR+181
  41.         if(ITTIME(2).EQ.8) NJOUR=NJOUR+212
  42.         if(ITTIME(2).EQ.9) NJOUR=NJOUR+143
  43.         if(ITTIME(2).EQ.10) NJOUR=NJOUR+273
  44.         if(ITTIME(2).EQ.11) NJOUR=NJOUR+304
  45.         if(ITTIME(2).EQ.12) NJOUR=NJOUR+334
  46.         MSEC = NJOUR*86400+ITTIME(4)*3600+ITTIME(5)*60+ ITTIME(6)
  47.         nSEC=FLOAT(MSEC)
  48.          CALL ECRREE(NSEC)
  49.       ELSEIF(FONCTI.EQ.3) THEN
  50.          CALL OOOZZ1(ITTIME)
  51.          ITTIME(3)  = ITTIME(3) + 1900
  52.          CALL ECRENT(ITTIME(3))
  53.       ELSEIF(FONCTI.EQ.4) THEN
  54.          CALL OOOZZ1(ITTIME)
  55.          IF(IMOLET.EQ.0) THEN
  56.             CALL LIRMOT(MOTLET,1,IMOLET,0)
  57.          ENDIF
  58.          IF(IMOLET.EQ.0) THEN
  59.             CALL ECRENT(ITTIME(2))
  60.          ELSE
  61.             CHADA = MOTMOI(ITTIME(2))
  62.             CALL ECRCHA(CHADA(1:4))
  63.          ENDIF
  64.       ELSEIF(FONCTI.EQ.5) THEN
  65.          CALL OOOZZ1(ITTIME)
  66.          CALL ECRENT(ITTIME(1))
  67.       ELSEIF(FONCTI.EQ.6) THEN
  68.          CALL OOOZZ1(ITTIME)
  69.          CALL ECRENT(ITTIME(4))
  70.       ELSEIF(FONCTI.EQ.7) THEN
  71.          CALL OOOZZ1(ITTIME)
  72.          CALL ECRENT(ITTIME(5))
  73.       ELSEIF(FONCTI.EQ.8) THEN
  74.          CALL OOOZZ1(ITTIME)
  75.          CALL ECRENT(ITTIME(6))
  76.       ELSE
  77.          CALL OOOZZ1(ITTIME)
  78.          ITTIME(3)  = ITTIME(3) + 1900
  79.          IF(IMOLET.EQ.0) THEN
  80.          WRITE(CHADA,20) ITTIME(1), ITTIME(2), ITTIME(3), ITTIME(4),
  81.      &            ITTIME(5),ITTIME(6)
  82.          ELSE
  83.             WRITE(CHADA,30) ITTIME(1), MOTMOI(ITTIME(2)), ITTIME(3),
  84.      &             ITTIME(4),ITTIME(5)
  85.          ENDIF
  86.          CALL ECRCHA(CHADA)
  87.       ENDIF
  88.       RETURN
  89. 10    FORMAT(I9,'J ',I2.2,'H ',I2.2,'min ',F6.3,'sec')
  90. 20    FORMAT(I2.2,'/',I2.2,'/',I4.4,' - ', I2.2,':',I2.2,':',I2.2)
  91. 30    FORMAT(I2.2,' ',A4,' ',I4.4,' - ', I2.2,'H',I2.2,'min')
  92.       END
  93.  
  94.  
  95.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales