      1 C*************************************************************************
      2 C COPYRIGHT (C) 1999 - 2007  EDF R&D, CEA/DEN
      3 C THIS LIBRARY IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
      4 C IT UNDER THE TERMS OF THE GNU LESSER GENERAL PUBLIC LICENSE
      5 C AS PUBLISHED BY THE FREE SOFTWARE FOUNDATION;
      6 C EITHER VERSION 2.1 OF THE LICENSE, OR (AT YOUR OPTION) ANY LATER VERSION.
      7 C
      8 C THIS LIBRARY IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
      9 C WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
     10 C MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
     11 C LESSER GENERAL PUBLIC LICENSE FOR MORE DETAILS.
     12 C
     13 C YOU SHOULD HAVE RECEIVED A COPY OF THE GNU LESSER GENERAL PUBLIC LICENSE
     14 C ALONG WITH THIS LIBRARY; IF NOT, WRITE TO THE FREE SOFTWARE FOUNDATION,
     15 C INC., 59 TEMPLE PLACE, SUITE 330, BOSTON, MA 02111-1307 USA
     16 C
     17 C**************************************************************************
     18
     19
     20 C ******************************************************************************
     21 C * - Nom du fichier : test18.f
     22 C *
     23 C * - Description : routines de test de la conformite d'une fichier MED.
     24 C *
     25 C ******************************************************************************
     26       program test18
     27 C
     28       implicit none
     29       include 'med.hf'
     30 C
     31 C
     32       integer      fid
     33       integer      cret
     34       integer      maj,min,rel
     35
     36 C **  Creation du fichier test18.med
     37       call efouvr(fid,'test18.med',MED_LECTURE_ECRITURE, cret)
     38       print *,cret
     39       if (cret .ne. 0 ) then
     40          print *,'Erreur creation du fichier'
     41          call efexit(-1)
     42       endif
     43       print *,'- Creation du fichier'
     44
     45 C **  Fermeture du fichier
     46       call efferm (fid,cret)
     47       print *,cret
     48       if (cret .ne. 0 ) then
     49          print *,'Erreur fermeture du fichier'
     50          call efexit(-1)
     51       endif
     52       print *,'- Fermeture du fichier'
     53
     54 C ** Quelle version de la bibliotheque est utilisee ? **
     55       call efvedo(maj,min,rel,cret)
     56       print *,cret
     57       if (cret .ne. 0 ) then
     58          print *,'Erreur lecture version med'
     59          call efexit(-1)
     60       endif
     61       print *,'- Version MED utilisee : ',maj,'.',min,'.',rel
     62
     63 C ** Conformite du format HDF  **
     64       call effoco('test18.med',cret)
     65       print *,cret
     66       if (cret .eq. 0) then
     67          print *,'- Format HDF conforme'
     68       else
     69          print *,'- Format HDF non conforme'
     70          call efexit(-1)
     71       endif
     72
     73 C ** Conformite de la bibliotheque MED
     74       call efveco('test18.med',cret)
     75       print *,cret
     76       if (cret .eq. 0) then
     77          print *,'- Version MED du fichier conforme'
     78       else
     79          print *,'- Version MED du fichier non conforme'
     80          call efexit(-1)
     81       endif
     82
     83 C **  Ouverture du fichier test18.med en lecture seule
     84       call efouvr(fid,'test18.med',MED_LECTURE, cret)
     85       if (cret .ne. 0 ) then
     86          print *,'Erreur ouverture du fichier'
     87          call efexit(-1)
     88       endif
     89       print *,'- Ouverture du fichier'
     90
     91 C **  Lecture de la version de MED utilisee pour creer le fichier ? **
     92       call efveli(fid,maj,min,rel,cret)
     93       if (cret .ne. 0 ) then
     94          print *,'Erreur lecture version med du fichier'
     95          call efexit(-1)
     96       endif
     97       print *,cret
     98       print *,'- Fichier cree avec MED V',maj,'.',min,'.',rel
     99
    100 C **  Fermeture du fichier
    101       call efferm (fid,cret)
    102       print *,cret
    103       if (cret .ne. 0 ) then
    104          print *,'Erreur fermeture du fichier'
    105          call efexit(-1)
    106       endif
    107       print *,'- Fermeture du fichier'
    108 C
    109       end
    110
    111