C OOOZZ1_F  SOURCE    PV090527  26/04/24    21:15:07     12524          
%IF UNIX32,WIN32,UNIX64,WIN64
      SUBROUTINE OOOZZ1_F(NN)
%ENDIF
%IF PORTABLE
      SUBROUTINE OOOZZ1 (NN)
%ENDIF
C---------------------------------------------------   SEP 85   --------
C                                            GEMAT TRANSPORTABLE + PRIME
C
C                      FOURNIT LA DATE ET L'HEURE
C
C   ->NN(6)   JOUR   MOIS   ANNEE   HEURE   MINUTE   SECONDE
C
C PROGRAMMEUR : MOUGIN
C       MODIF : 04/02/87    SUN    =>  CORRECTION POUR LA DATE
C       MODIF : 19/03/87    NOSVE  =>  INTRODUCTION
C       MODIF : 19/09/87    HP9000 =>  INTRODUCTION
C       MODIF : 29/06/88    IBM    =>  VS FORTRAN VERSION 2
C       MODIF : 26/10/88    CONVEX =>  INTRODUCTION
C       MODIF :  6/11/89    CFT77 =>  INTRODUCTION
C
      INTEGER   NN(6),NN1(3)
C
%IF WIN32,UNIX32
      INTEGER   NOW(8)
C
      CALL DATE_AND_TIME(VALUES = NOW)
      NN(1) = NOW(3)
      NN(2) = NOW(2)
      NN(3) = NOW(1)
      NN(3) = MOD(NN(3),1900)
      NN(4) = NOW(5)
      NN(5) = NOW(6)
      NN(6) = NOW(7)
%ENDIF
%IF WIN64,UNIX64
      CALL IDATE                            (NN1)
      NN(1) = NN1(1)
      NN(2) = NN1(2)
      NN(3) = MOD(NN1(3),1900)
      CALL ITIME                            (NN1)
      NN(4) = NN1(1)
      NN(5) = NN1(2)
      NN(6) = NN1(3)
%ENDIF
%IF XXX,SEL,FPS,PRIME,APOLLO
      NN(1)=0
      NN(2)=0
      NN(3)=0
      NN(4)=0
      NN(5)=0
      NN(6)=0
%ENDIF
%IF IBM
      INTEGER   NOW(8)
C
      CALL DATIM (NOW)
      NN(1) = NOW(6)
      NN(2) = NOW(7)
      NN(3) = NOW(8)
      NN(3) = MOD(NN(3),1900)
      NN(4) = NOW(5)
      NN(5) = NOW(4)
      NN(6) = NOW(3)
%ENDIF
**%IF UNIX32,UNIX64
**      CALL IDATE                            (NN(1))
**      NN(3) = MOD(NN(3),1900)
**      CALL ITIME                            (NN(4))
**%ENDIF
%IF VAX,CONVEX
      CHARACTER*8  CTIME
C
      CALL IDATE                            (NN(2),NN(1),NN(3))
      CALL TIME   (CTIME)
      READ (CTIME,FMT=   '(I2,1X,I2,1X,I2)') NN(4),NN(5),NN(6)
%ENDIF
%IF NOSVE
      CHARACTER*10 CDATE,DATE
      CHARACTER* 8 CTIME,TIME
C
      CDATE=DATE()
      CTIME=TIME()
      READ (CDATE,FMT='(I4,1X,I2,1X,I2)') NN(3),NN(2),NN(1)
      NN(3) = MOD(NN(3),1900)
      READ (CTIME,FMT='(I2,1X,I2,1X,I2)') NN(4),NN(5),NN(6)
%ENDIF
%IF CDC
      CHARACTER*10 CDATE,DATE
      CHARACTER*10 CTIME,TIME
C
      CDATE=DATE()
      CTIME=TIME()
      READ (CDATE,FMT='(1X,I2,1X,I2,1X,I2)') NN(1),NN(2),NN(3)
      READ (CTIME,FMT='(1X,I2,1X,I2,1X,I2)') NN(4),NN(5),NN(6)
%ENDIF
%IF CRAY,CFT77
      CHARACTER*8  CDATE
      CHARACTER*8  CTIME
C
      CALL DATE   (CDATE)
      CALL CLOCK  (CTIME)
      READ (CDATE,FMT=   '(I2,1X,I2,1X,I2)') NN(2),NN(1),NN(3)
      READ (CTIME,FMT=   '(I2,1X,I2,1X,I2)') NN(4),NN(5),NN(6)
%ENDIF
%IF UNIVAC
      CHARACTER*8  CDATE,CTIME
C
      CALL ADATE  (CDATE,CTIME)
      READ (CDATE,FMT=   '(I2,1X,I2,1X,I2)') NN(2),NN(1),NN(3)
      READ (CTIME,FMT=   '(I2,1X,I2,1X,I2)') NN(4),NN(5),NN(6)
%ENDIF
                                                       RETURN
      END