src/tool/Utilitaire/utdhco.F

   1       subroutine utdhco ( numann, datheu )
   2 c ______________________________________________________________________
   3 c
   4 c                             H O M A R D
   5 c
   6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
   7 c
   8 c Version originale enregistree le 18 juin 1996 sous le numero 96036
   9 c aupres des huissiers de justice Simart et Lavoir a Clamart
  10 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
  11 c aupres des huissiers de justice
  12 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
  13 c
  14 c    HOMARD est une marque deposee d'Electricite de France
  15 c
  16 c Copyright EDF 1996
  17 c Copyright EDF 1998
  18 c Copyright EDF 2002
  19 c Copyright EDF 2020
  20 c ______________________________________________________________________
  21 c
  22 c  donne la date et l'heure sous forme courte
  23 c ______________________________________________________________________
  24 c .        .     .        .                                            .
  25 c .  nom   . e/s . taille .           description                      .
  26 c .____________________________________________________________________.
  27 c . numann .  s  .   1    . numero de l'annee                          .
  28 c . datheu .  s  .   1    . nombre de seconde depuis le debut de l'an  .
  29 c ______________________________________________________________________
  30 c
  31 c====
  32 c 0. declarations et dimensionnement
  33 c====
  34 c
  35 c 0.1. ==> generalites
  36 c
  37       implicit none
  38       save
  39 c
  40 c 0.2. ==> communs
  41 c
  42 c 0.3. ==> arguments
  43 c
  44       integer numann, datheu
  45 c
  46 c 0.4. ==> variables locales
  47 c
  48       integer nummoi, numjou, numjos
  49       integer numheu, nummin, numsec
  50       integer codret
  51 c
  52 c====
  53 c 1. acquisition de la date
  54 c====
  55 c
  56       call dmjohe ( numann, nummoi, numjou, numjos,
  57      >              numheu, nummin, numsec )
  58 c
  59 c====
  60 c 2. mise en forme courte
  61 c====
  62 c
  63       call utdhlc ( datheu, numann,
  64      >              nummoi, numjou, numheu, nummin, numsec,
  65      >              codret )
  66 c
  67       end