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