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