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 integer hdfok, medok
00035
00036
00037 call mfiope(fid,'test18.med',MED_ACC_RDWR, cret)
00038 print *,cret
00039 if (cret .ne. 0 ) then
00040 print *,'Erreur creation du fichier'
00041 call efexit(-1)
00042 endif
00043 print *,'- Creation du fichier'
00044
00045
00046 call mficlo(fid,cret)
00047 print *,cret
00048 if (cret .ne. 0 ) then
00049 print *,'Erreur fermeture du fichier'
00050 call efexit(-1)
00051 endif
00052 print *,'- Fermeture du fichier'
00053
00054
00055 call mlbnuv(maj,min,rel,cret)
00056 print *,cret
00057 if (cret .ne. 0 ) then
00058 print *,'Erreur lecture version med'
00059 call efexit(-1)
00060 endif
00061 print *,'- Version MED utilisee : ',maj,'.',min,'.',rel
00062
00063
00064 call mficom('test18.med',hdfok, medok,cret)
00065 print *,cret
00066 if (hdfok .eq. 1) then
00067 print *,'- Format HDF conforme'
00068 else
00069 print *,'- Format HDF non conforme'
00070 call efexit(-1)
00071 endif
00072 if (medok .eq. 1) then
00073 print *,'- Version MED du fichier conforme'
00074 else
00075 print *,'- Version MED du fichier non conforme'
00076 call efexit(-1)
00077 endif
00078
00079
00080 call mfiope(fid,'test18.med',MED_ACC_RDONLY, cret)
00081 if (cret .ne. 0 ) then
00082 print *,'Erreur ouverture du fichier'
00083 call efexit(-1)
00084 endif
00085 print *,'- Ouverture du fichier'
00086
00087
00088 call mfinvr(fid,maj,min,rel,cret)
00089 if (cret .ne. 0 ) then
00090 print *,'Erreur lecture version med du fichier'
00091 call efexit(-1)
00092 endif
00093 print *,cret
00094 print *,'- Fichier cree avec MED V',maj,'.',min,'.',rel
00095
00096
00097 call mficlo(fid,cret)
00098 print *,cret
00099 if (cret .ne. 0 ) then
00100 print *,'Erreur fermeture du fichier'
00101 call efexit(-1)
00102 endif
00103 print *,'- Fermeture du fichier'
00104
00105 end
00106
00107