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       integer hdfok, medok
00034       character*16 nomcoo(2)
00035       character*16 unicoo(2)
00036       data  nomcoo /"x","y"/, unicoo /"cm","cm"/
00037 
00038 
00039       call mficom('test1.med',hdfok,medok,cret)
00040       print *,hdfok, medok, cret
00041       if (cret .ne. 0 ) then
00042          print *,'Erreur à la vérification du format'
00043          call efexit(-1)
00044       endif      
00045 
00046 
00047       call mfiope(fid,'test1.med',MED_ACC_RDONLY, cret)
00048       print *,cret
00049       if (cret .ne. 0 ) then
00050          print *,'Erreur ouverture du fichier en lecture'
00051          call efexit(-1)
00052       endif      
00053 
00054 
00055       call mficor(fid,des,cret)
00056       print *,cret
00057       if (cret .ne. 0 ) then
00058          print *,'Erreur lecture en-tete du fichier'
00059          call efexit(-1)
00060       endif      
00061       print *,"DESCRIPTEUR DE FICHIER : ",des
00062 
00063  
00064 
00065       call mficlo(fid,cret)
00066       print *,cret
00067       if (cret .ne. 0 ) then
00068          print *,'Erreur fermeture du fichier'
00069          call efexit(-1)
00070       endif      
00071 
00072       
00073 
00074       call mfiope(fid,'test2.med',MED_ACC_CREAT, cret)
00075       print *,cret
00076       if (cret .ne. 0 ) then
00077          print *,'Erreur creation du fichier'
00078          call efexit(-1)
00079       endif      
00080       
00081 
00082 
00083       call mmhcre(fid,'maa1',2,2,
00084      &     MED_UNSTRUCTURED_MESH,'un premier maillage', 
00085      &     "",MED_SORT_DTIT,MED_CARTESIAN,nomcoo,unicoo,ret)
00086       cret = cret + ret
00087 
00088       call mmhunw(fid,'maa1',ret)
00089       cret = cret + ret
00090       print *,cret
00091       if (cret .ne. 0 ) then
00092          print *,'Erreur creation du maillage'
00093          call efexit(-1)
00094       endif      
00095       
00096 
00097       call mmhcre(fid,'maa2',2,2,
00098      &     MED_UNSTRUCTURED_MESH,'un second maillage', 
00099      &     "",MED_SORT_DTIT,MED_CARTESIAN,nomcoo,unicoo,ret)
00100       cret = cret + ret 
00101       if (cret .ne. 0 ) then
00102          print *,'Erreur creation du maillage'
00103          call efexit(-1)
00104       endif      
00105     
00106 
00107 
00108       call mmhcre(fid,'maa3',2,2,
00109      &     MED_STRUCTURED_MESH,'un troisieme maillage', 
00110      &     "",MED_SORT_DTIT,MED_CARTESIAN,nomcoo,unicoo,ret)
00111       cret = cret + ret
00112       print *,cret
00113       if (cret .ne. 0 ) then
00114          print *,'Erreur creation du maillage'
00115          call efexit(-1)
00116       endif      
00117 
00118 
00119       call mficlo(fid,cret)
00120       print *,cret
00121       if (cret .ne. 0 ) then
00122          print *,'Erreur fermeture du fichier'
00123          call efexit(-1)
00124       endif      
00125 
00126       end 
00127 
00128 
00129 
00130 
00131