     1  C*************************************************************************
     2  C COPYRIGHT (C) 1999 - 2003  EDF R&D
     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_CREATION, cret)
    38        print *,cret
    39        print *,'- Creation du fichier'
    40
    41  C **  Fermeture du fichier
    42        call efferm (fid,cret)
    43        print *,'Fermeture du fichier', cret
    44
    45  C ** Quelle version de la bibliotheque est utilisee ? **
    46        call efvedo(maj,min,rel,cret)
    47        print *,cret
    48        print *,'Version MED utilisee : ',maj,'.',min,'.',rel
    49
    50  C ** Conformite du format HDF  **
    51        if (cret .eq. 0) then
    52           call effoco('test18.med',cret)
    53           print *,cret
    54           if (cret .eq. 0) then
    55              print *,'- Format HDF conforme'
    56           else
    57              print *,'- Format HDF non conforme'
    58           endif
    59        endif
    60
    61  C ** Conformite de la bibliotheque MED
    62        if (cret .eq. 0) then
    63           call efveco('test18.med',cret)
    64           print *,cret
    65           if (cret .eq. 0) then
    66              print *,'- Version MED du fichier conforme'
    67           else
    68              print *,'- Version MED du fichier non conforme'
    69           endif
    70        endif
    71
    72  C **  Ouverture du fichier test18.med en lecture seule
    73        call efouvr(fid,'test18.med',MED_LECTURE, cret)
    74        print *,'- Ouverture du fichier'
    75
    76  C **  Lecture de la version de MED utilisee pour creer le fichier ? **
    77        if (cret .eq. 0) then
    78           call efveli(fid,maj,min,rel,cret)
    79           print *,cret
    80           print *,'Fichier cree avec MED V',maj,'.',min,'.',rel
    81        endif
    82
    83  C **  Fermeture du fichier
    84        call efferm (fid,cret)
    85        print *,'- Fermeture du fichier'
    86        print *,cret
    87
    88        end
    89
    90