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