Télécharger la plaquette Cast3M


fr en

Télécharger ooozz1_f.eso

Retour à la liste

Numérotation des lignes : 

ooozz1_f

  1. C OOOZZ1_F  SOURCE    PV090527  26/04/24    21:15:07     12524          
  2. %IF UNIX32,WIN32,UNIX64,WIN64
  3.       SUBROUTINE OOOZZ1_F(NN)
  4. %ENDIF
  5. %IF PORTABLE
  6.       SUBROUTINE OOOZZ1 (NN)
  7. %ENDIF
  8. C---------------------------------------------------   SEP 85   --------
  9. C                                            GEMAT TRANSPORTABLE + PRIME
  10. C
  11. C                      FOURNIT LA DATE ET L'HEURE
  12. C
  13. C   ->NN(6)   JOUR   MOIS   ANNEE   HEURE   MINUTE   SECONDE
  14. C
  15. C PROGRAMMEUR : MOUGIN
  16. C       MODIF : 04/02/87    SUN    =>  CORRECTION POUR LA DATE
  17. C       MODIF : 19/03/87    NOSVE  =>  INTRODUCTION
  18. C       MODIF : 19/09/87    HP9000 =>  INTRODUCTION
  19. C       MODIF : 29/06/88    IBM    =>  VS FORTRAN VERSION 2
  20. C       MODIF : 26/10/88    CONVEX =>  INTRODUCTION
  21. C       MODIF :  6/11/89    CFT77 =>  INTRODUCTION
  22. C
  23.       INTEGER   NN(6),NN1(3)
  24. C
  25. %IF WIN32,UNIX32
  26.       INTEGER   NOW(8)
  27. C
  28.       CALL DATE_AND_TIME(VALUES = NOW)
  29.       NN(1) = NOW(3)
  30.       NN(2) = NOW(2)
  31.       NN(3) = NOW(1)
  32.       NN(3) = MOD(NN(3),1900)
  33.       NN(4) = NOW(5)
  34.       NN(5) = NOW(6)
  35.       NN(6) = NOW(7)
  36. %ENDIF
  37. %IF WIN64,UNIX64
  38.       CALL IDATE                            (NN1)
  39.       NN(1) = NN1(1)
  40.       NN(2) = NN1(2)
  41.       NN(3) = MOD(NN1(3),1900)
  42.       CALL ITIME                            (NN1)
  43.       NN(4) = NN1(1)
  44.       NN(5) = NN1(2)
  45.       NN(6) = NN1(3)
  46. %ENDIF
  47. %IF XXX,SEL,FPS,PRIME,APOLLO
  48.       NN(1)=0
  49.       NN(2)=0
  50.       NN(3)=0
  51.       NN(4)=0
  52.       NN(5)=0
  53.       NN(6)=0
  54. %ENDIF
  55. %IF IBM
  56.       INTEGER   NOW(8)
  57. C
  58.       CALL DATIM (NOW)
  59.       NN(1) = NOW(6)
  60.       NN(2) = NOW(7)
  61.       NN(3) = NOW(8)
  62.       NN(3) = MOD(NN(3),1900)
  63.       NN(4) = NOW(5)
  64.       NN(5) = NOW(4)
  65.       NN(6) = NOW(3)
  66. %ENDIF
  67. **%IF UNIX32,UNIX64
  68. **      CALL IDATE                            (NN(1))
  69. **      NN(3) = MOD(NN(3),1900)
  70. **      CALL ITIME                            (NN(4))
  71. **%ENDIF
  72. %IF VAX,CONVEX
  73.       CHARACTER*8  CTIME
  74. C
  75.       CALL IDATE                            (NN(2),NN(1),NN(3))
  76.       CALL TIME   (CTIME)
  77.       READ (CTIME,FMT=   '(I2,1X,I2,1X,I2)') NN(4),NN(5),NN(6)
  78. %ENDIF
  79. %IF NOSVE
  80.       CHARACTER*10 CDATE,DATE
  81.       CHARACTER* 8 CTIME,TIME
  82. C
  83.       CDATE=DATE()
  84.       CTIME=TIME()
  85.       READ (CDATE,FMT='(I4,1X,I2,1X,I2)') NN(3),NN(2),NN(1)
  86.       NN(3) = MOD(NN(3),1900)
  87.       READ (CTIME,FMT='(I2,1X,I2,1X,I2)') NN(4),NN(5),NN(6)
  88. %ENDIF
  89. %IF CDC
  90.       CHARACTER*10 CDATE,DATE
  91.       CHARACTER*10 CTIME,TIME
  92. C
  93.       CDATE=DATE()
  94.       CTIME=TIME()
  95.       READ (CDATE,FMT='(1X,I2,1X,I2,1X,I2)') NN(1),NN(2),NN(3)
  96.       READ (CTIME,FMT='(1X,I2,1X,I2,1X,I2)') NN(4),NN(5),NN(6)
  97. %ENDIF
  98. %IF CRAY,CFT77
  99.       CHARACTER*8  CDATE
  100.       CHARACTER*8  CTIME
  101. C
  102.       CALL DATE   (CDATE)
  103.       CALL CLOCK  (CTIME)
  104.       READ (CDATE,FMT=   '(I2,1X,I2,1X,I2)') NN(2),NN(1),NN(3)
  105.       READ (CTIME,FMT=   '(I2,1X,I2,1X,I2)') NN(4),NN(5),NN(6)
  106. %ENDIF
  107. %IF UNIVAC
  108.       CHARACTER*8  CDATE,CTIME
  109. C
  110.       CALL ADATE  (CDATE,CTIME)
  111.       READ (CDATE,FMT=   '(I2,1X,I2,1X,I2)') NN(2),NN(1),NN(3)
  112.       READ (CTIME,FMT=   '(I2,1X,I2,1X,I2)') NN(4),NN(5),NN(6)
  113. %ENDIF
  114.                                                        RETURN
  115.       END
  116.  
  117.  

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