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