00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025 program test18
00026
00027 implicit none
00028 include 'med.hf'
00029
00030
00031 integer fid
00032 integer cret
00033 integer maj,min,rel
00034
00035
00036 call efouvr(fid,'test18.med',MED_LECTURE_ECRITURE, cret)
00037 print *,cret
00038 if (cret .ne. 0 ) then
00039 print *,'Erreur creation du fichier'
00040 call efexit(-1)
00041 endif
00042 print *,'- Creation du fichier'
00043
00044
00045 call efferm (fid,cret)
00046 print *,cret
00047 if (cret .ne. 0 ) then
00048 print *,'Erreur fermeture du fichier'
00049 call efexit(-1)
00050 endif
00051 print *,'- Fermeture du fichier'
00052
00053
00054 call efvedo(maj,min,rel,cret)
00055 print *,cret
00056 if (cret .ne. 0 ) then
00057 print *,'Erreur lecture version med'
00058 call efexit(-1)
00059 endif
00060 print *,'- Version MED utilisee : ',maj,'.',min,'.',rel
00061
00062
00063 call effoco('test18.med',cret)
00064 print *,cret
00065 if (cret .eq. 0) then
00066 print *,'- Format HDF conforme'
00067 else
00068 print *,'- Format HDF non conforme'
00069 call efexit(-1)
00070 endif
00071
00072
00073 call efveco('test18.med',cret)
00074 print *,cret
00075 if (cret .eq. 0) then
00076 print *,'- Version MED du fichier conforme'
00077 else
00078 print *,'- Version MED du fichier non conforme'
00079 call efexit(-1)
00080 endif
00081
00082
00083 call efouvr(fid,'test18.med',MED_LECTURE, cret)
00084 if (cret .ne. 0 ) then
00085 print *,'Erreur ouverture du fichier'
00086 call efexit(-1)
00087 endif
00088 print *,'- Ouverture du fichier'
00089
00090
00091 call efveli(fid,maj,min,rel,cret)
00092 if (cret .ne. 0 ) then
00093 print *,'Erreur lecture version med du fichier'
00094 call efexit(-1)
00095 endif
00096 print *,cret
00097 print *,'- Fichier cree avec MED V',maj,'.',min,'.',rel
00098
00099
00100 call efferm (fid,cret)
00101 print *,cret
00102 if (cret .ne. 0 ) then
00103 print *,'Erreur fermeture du fichier'
00104 call efexit(-1)
00105 endif
00106 print *,'- Fermeture du fichier'
00107
00108 end
00109
00110