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)
00033 character*32 nom
00034
00035
00036 call efouvr(fid,'test2.med',MED_LECTURE_AJOUT, cret)
00037 print *,cret
00038 if (cret .ne. 0 ) then
00039 print *,'Erreur ouverture du fichier'
00040 call efexit(-1)
00041 endif
00042 print *,'On ouvre le fichier test2.med'
00043
00044
00045 call efncha(fid,0,ncha,cret)
00046 print *,cret
00047 if (cret .ne. 0 ) then
00048 print *,'Erreur lecture du nombre de champ'
00049 call efexit(-1)
00050 endif
00051 print *,'Nombre de champs dans test2.med : ',ncha
00052
00053
00054 call efmont(fid,'test10.med',MED_CHAMP,mid,cret)
00055 print *,cret
00056 if (cret .ne. 0 ) then
00057 print *,'Erreur montage du fichier'
00058 call efexit(-1)
00059 endif
00060 print *,'On monte les champs du fichier test10.med'
00061
00062
00063 call efncha(fid,0,ncha,cret)
00064 print *,cret
00065 if (cret .ne. 0 ) then
00066 print *,'Erreur lecture du nombre de champ'
00067 call efexit(-1)
00068 endif
00069 print *,'Nombre de champs dans test2.med apres montage : ',ncha
00070
00071
00072
00073
00074 do 10 i = 1,ncha
00075
00076
00077 call efncha(fid,i,ncomp,cret)
00078 print *,cret
00079 if (cret .ne. 0 ) then
00080 print *,'Erreur lecture du nombre de composante'
00081 call efexit(-1)
00082 endif
00083
00084
00085 call efchai(fid,i,nom,type,comp,unit,ncomp,cret)
00086 print *,cret
00087 if (cret .ne. 0 ) then
00088 print *,'Erreur lecture des infos sur le champ'
00089 call efexit(-1)
00090 endif
00091 print *,'Champ de nom ',nom
00092 print *,' avec ', ncomp, ' composantes'
00093
00094 10 continue
00095
00096
00097
00098 call efdemo(fid,mid,MED_CHAMP,cret)
00099 print *,cret
00100 if (cret .ne. 0 ) then
00101 print *,'Erreur demontage du fichier'
00102 call efexit(-1)
00103 endif
00104 print *,'On demonte le fichier test10.med'
00105
00106
00107 call efncha(fid,0,ncha,cret)
00108 print *,cret
00109 if (cret .ne. 0 ) then
00110 print *,'Erreur lecture du nombre de champ'
00111 call efexit(-1)
00112 endif
00113 print *,'Nombre de champs apres demontage : ',ncha
00114
00115
00116 call efferm(fid,cret)
00117 print *, cret
00118 if (cret .ne. 0 ) then
00119 print *,'Erreur fermeture du fichier'
00120 call efexit(-1)
00121 endif
00122 print *,'On ferme le fichier test2.med'
00123
00124
00125 call efouvr(fid,'test20.med',MED_LECTURE_ECRITURE,cret)
00126 print *,cret
00127 if (cret .ne. 0 ) then
00128 print *,'Erreur creation du fichier'
00129 call efexit(-1)
00130 endif
00131 print *,'Creation du fichier test20.med'
00132
00133
00134 call efmont(fid,'test2.med',MED_MAILLAGE,mid,cret)
00135 print *,cret
00136 if (cret .ne. 0 ) then
00137 print *,'Erreur montage du fichier'
00138 call efexit(-1)
00139 endif
00140 print *,'On monte le fichier test2.med'
00141
00142
00143 call efnmaa(fid,nmaa,cret)
00144 print *,cret
00145 if (cret .ne. 0 ) then
00146 print *,'Erreur lecture du nombre de maillage'
00147 call efexit(-1)
00148 endif
00149 print *,'Nombre de maillage apres montage : ', nmaa
00150
00151
00152 call efmont(fid,'test10.med',MED_CHAMP,mid2,cret)
00153 print *,cret
00154 if (cret .ne. 0 ) then
00155 print *,'Erreur montage du fichier'
00156 call efexit(-1)
00157 endif
00158 print *,'On monte le fichier test10.med'
00159
00160
00161 call efncha(fid,0,ncha,cret)
00162 print *,cret
00163 if (cret .ne. 0 ) then
00164 print *,'Erreur lecture du nombre de champ'
00165 call efexit(-1)
00166 endif
00167 print *,'Nombre de champ apres montage : ',ncha
00168
00169
00170 call efdemo(fid,mid2,MED_CHAMP,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 test10.med'
00177
00178
00179 call efdemo(fid,mid,MED_MAILLAGE,cret)
00180 print *,cret
00181 if (cret .ne. 0 ) then
00182 print *,'Erreur demontage du fichier'
00183 call efexit(-1)
00184 endif
00185 print *,'On demonte test2.med'
00186
00187
00188 call efferm(fid,cret)
00189 print *,cret
00190 if (cret .ne. 0 ) then
00191 print *,'Erreur fermeture du fichier'
00192 call efexit(-1)
00193 endif
00194 print *,'Fermeture du fichier test20.med'
00195
00196 end
00197