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 test2
00025 
00026       implicit none
00027       include 'med.hf'
00028 
00029 
00030       integer cret,ret
00031       integer fid
00032       character*200 des
00033 
00034 
00035       call effoco('test1.med',cret)
00036       print *,cret
00037       if (cret .ne. 0 ) then
00038          print *,'Erreur à la vérification du format'
00039          call efexit(-1)
00040       endif      
00041 
00042 
00043       call efouvr(fid,'test1.med',MED_LECTURE, cret)
00044       print *,cret
00045       if (cret .ne. 0 ) then
00046          print *,'Erreur ouverture du fichier en lecture'
00047          call efexit(-1)
00048       endif      
00049 
00050 
00051       call effien (fid, MED_FICH_DES,des,cret)
00052       print *,cret
00053       if (cret .ne. 0 ) then
00054          print *,'Erreur lecture en-tete du fichier'
00055          call efexit(-1)
00056       endif      
00057       print *,"DESCRIPTEUR DE FICHIER : ",des
00058 
00059  
00060 
00061       call efferm (fid,cret)
00062       print *,cret
00063       if (cret .ne. 0 ) then
00064          print *,'Erreur fermeture du fichier'
00065          call efexit(-1)
00066       endif      
00067 
00068       
00069 
00070       call efouvr(fid,'test2.med',MED_LECTURE_ECRITURE, cret)
00071       print *,cret
00072       if (cret .ne. 0 ) then
00073          print *,'Erreur creation du fichier'
00074          call efexit(-1)
00075       endif      
00076       
00077 
00078 
00079       call efmaac(fid,'maa1',3,
00080      &     MED_NON_STRUCTURE,
00081      &     'un premier maillage',ret)
00082       cret = cret + ret
00083 
00084       call efunvc(fid,'maa1',ret)
00085       cret = cret + ret
00086       print *,cret
00087       if (cret .ne. 0 ) then
00088          print *,'Erreur creation du maillage'
00089          call efexit(-1)
00090       endif      
00091       
00092 
00093 
00094       call efmaac(fid,'maa2',2,
00095      &     MED_NON_STRUCTURE,
00096      &     'un second maillage',ret)
00097       cret = cret + ret 
00098 
00099 
00100       call efespc(fid,'maa2',3,ret)
00101       cret = cret + ret
00102       print *,cret
00103       if (cret .ne. 0 ) then
00104          print *,'Erreur creation du maillage'
00105          call efexit(-1)
00106       endif      
00107 
00108 
00109 
00110       call efmaac(fid,'maa3',1,
00111      &     MED_STRUCTURE,
00112      &     'un troisieme  maillage',ret)
00113       cret = cret + ret
00114       print *,cret
00115       if (cret .ne. 0 ) then
00116          print *,'Erreur creation du maillage'
00117          call efexit(-1)
00118       endif      
00119 
00120 
00121       call efferm (fid,cret)
00122       print *,cret
00123       if (cret .ne. 0 ) then
00124          print *,'Erreur fermeture du fichier'
00125          call efexit(-1)
00126       endif      
00127 
00128       end 
00129 
00130 
00131 
00132 
00133