1      SUBROUTINE TEMPS(S,IH)
2C
3C Retourne le temps CPU (REAL*8) et l'heure (integer)
4C en milliemes de secondes
5C
6      REAL*4 TARRAY(2)
7      REAL*8 etimec,timeprecisc,S,h,SEC_INIT
8      INTEGER IH
9      COMMON / SHIFT_SECONDES / SEC_INIT
10C
11      S = etimec(TARRAY)
12      h = timeprecisc()-SEC_INIT
13      IH = NINT(1000.D0*h)
14      END
15C-----------------------------------------------------------------------
16      SUBROUTINE INIT_TEMPS
17      REAL*8 timeprecisc,SEC_INIT
18      COMMON / SHIFT_SECONDES / SEC_INIT
19      SEC_INIT = timeprecisc()
20      END
21C-----------------------------------------------------------------------
22Cfj      SUBROUTINE TEMPS(S,IH)
23CfjC
24CfjC Retourne le temps CPU (REAL*8) et l'heure (integer) en secondes
25CfjC
26Cfj      REAL*4 TARRAY(2)
27Cfj      REAL*8 etimec,S
28Cfj      INTEGER IH,timec
29CfjC
30Cfj      S = etimec(TARRAY)
31Cfj      IH = timec()
32CfjC
33Cfj      END
34CfjC-----------------------------------------------------------------------
35Cfj      SUBROUTINE TEMPS(S,H)
36CfjC
37CfjC Retourne le temps CPU (REAL*8) et l'heure (REAL*8) en secondes
38CfjC
39Cfj      REAL*4 TARRAY(2)
40Cfj      REAL*8 etimec,timeprecisc,S,H
41CfjC
42Cfj      S = etimec(TARRAY)
43Cfj      H = timeprecisc()
44CfjC
45Cfj      END
46