00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024 program test20
00025
00026 implicit none
00027 include 'med.hf'
00028
00029
00030 integer cret, fid, ncha, nmaa, mid, mid2
00031 integer i, ncomp, type
00032 character*16 comp(3), unit(3), dtunit
00033 character*64 nomcha,nommaa
00034 integer lmesh, ncst
00035
00036
00037 call mfiope(fid,'test2.med',MED_ACC_RDEXT, cret)
00038 print *,cret
00039 if (cret .ne. 0 ) then
00040 print *,'Erreur ouverture du fichier'
00041 call efexit(-1)
00042 endif
00043 print *,'On ouvre le fichier test2.med'
00044
00045
00046 call mfdnfd(fid,ncha,cret)
00047 print *,cret
00048 if (cret .ne. 0 ) then
00049 print *,'Erreur lecture du nombre de champ'
00050 call efexit(-1)
00051 endif
00052 print *,'Nombre de champs dans test2.med : ',ncha
00053
00054
00055 call mfiomn(fid, 'test10.med', MED_FIELD, mid, cret)
00056 print *,cret
00057 if (cret .ne. 0 ) then
00058 print *,'Erreur montage du fichier'
00059 call efexit(-1)
00060 endif
00061 print *,'On monte les champs du fichier test10.med'
00062
00063
00064 call mfdnfd(fid,ncha,cret)
00065 print *,cret
00066 if (cret .ne. 0 ) then
00067 print *,'Erreur lecture du nombre de champ'
00068 call efexit(-1)
00069 endif
00070 print *,'Nombre de champs dans test2.med apres montage : ',ncha
00071
00072
00073
00074
00075 do 10 i = 1,ncha
00076
00077
00078 call mfdnfc(fid,i,ncomp,cret)
00079 print *,cret
00080 if (cret .ne. 0 ) then
00081 print *,'Erreur lecture du nombre de composante'
00082 call efexit(-1)
00083 endif
00084
00085 10 continue
00086
00087
00088
00089 call mfioun(fid, mid, MED_FIELD, cret)
00090 print *,cret
00091 if (cret .ne. 0 ) then
00092 print *,'Erreur demontage du fichier'
00093 call efexit(-1)
00094 endif
00095 print *,'On demonte le fichier test10.med'
00096
00097
00098 call mfdnfd(fid,ncha,cret)
00099 print *,cret
00100 if (cret .ne. 0 ) then
00101 print *,'Erreur lecture du nombre de champ'
00102 call efexit(-1)
00103 endif
00104 print *,'Nombre de champs apres demontage : ',ncha
00105
00106
00107 call mficlo(fid,cret)
00108 print *, cret
00109 if (cret .ne. 0 ) then
00110 print *,'Erreur fermeture du fichier'
00111 call efexit(-1)
00112 endif
00113 print *,'On ferme le fichier test2.med'
00114
00115
00116 call mfiope(fid,'test20.med',MED_ACC_RDWR,cret)
00117 print *,cret
00118 if (cret .ne. 0 ) then
00119 print *,'Erreur creation du fichier'
00120 call efexit(-1)
00121 endif
00122 print *,'Creation du fichier test20.med'
00123
00124
00125 call mfiomn(fid, 'test2.med', MED_MESH, mid, cret)
00126 print *,cret
00127 if (cret .ne. 0 ) then
00128 print *,'Erreur montage du fichier'
00129 call efexit(-1)
00130 endif
00131 print *,'On monte le fichier test2.med'
00132
00133
00134 call mmhnmh(fid,nmaa,cret)
00135 print *,cret
00136 if (cret .ne. 0 ) then
00137 print *,'Erreur lecture du nombre de maillage'
00138 call efexit(-1)
00139 endif
00140 print *,'Nombre de maillage apres montage : ', nmaa
00141
00142
00143 call mfiomn(fid, 'test10.med', MED_FIELD, mid2, cret)
00144 print *,cret
00145 if (cret .ne. 0 ) then
00146 print *,'Erreur montage du fichier'
00147 call efexit(-1)
00148 endif
00149 print *,'On monte le fichier test10.med'
00150
00151
00152 call mfdnfd(fid,ncha,cret)
00153 print *,cret
00154 if (cret .ne. 0 ) then
00155 print *,'Erreur lecture du nombre de champ'
00156 call efexit(-1)
00157 endif
00158 print *,'Nombre de champ apres montage : ',ncha
00159
00160
00161 call mfioun(fid, mid2,MED_FIELD,cret)
00162 print *,cret
00163 if (cret .ne. 0 ) then
00164 print *,'Erreur demontage du fichier'
00165 call efexit(-1)
00166 endif
00167 print *,'On demonte test10.med'
00168
00169
00170 call mfioun(fid, mid,MED_MESH,cret)
00171 print *,cret
00172 if (cret .ne. 0 ) then
00173 print *,'Erreur demontage du fichier'
00174 call efexit(-1)
00175 endif
00176 print *,'On demonte test2.med'
00177
00178
00179 call mficlo(fid,cret)
00180 print *,cret
00181 if (cret .ne. 0 ) then
00182 print *,'Erreur fermeture du fichier'
00183 call efexit(-1)
00184 endif
00185 print *,'Fermeture du fichier test20.med'
00186
00187 end
00188