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 test4
00025 
00026         implicit none
00027         include 'med.hf'
00028 
00029 
00030         integer cret, fid
00031         
00032 
00033         integer      mdim, sdim
00034 
00035         character*64 maa
00036 
00037         integer      nnoe 
00038 
00039 
00040         real*8   coo(8)
00041 
00042 
00043         character*16 nomcoo(2)
00044         character*16 unicoo(2)
00045 
00046 
00047 
00048         character*16 nomnoe(4)
00049         integer     numnoe(4)
00050         integer     nufano(4)
00051         real*8 dt
00052         
00053         parameter    (mdim = 2, maa = "maa1",nnoe = 4, sdim=2)
00054         parameter    (dt = 0.0)
00055         data  coo    /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
00056         data  nomcoo /"x","y"/, unicoo /"cm","cm"/
00057         data  nomnoe /"nom1","nom2","nom3","nom4"/
00058         data  numnoe /1,2,3,4/, nufano /0,1,2,2/
00059 
00060 
00061         call mfiope(fid,'test4.med',MED_ACC_RDWR, cret)
00062         print *,cret
00063         if (cret .ne. 0 ) then
00064            print *,'Erreur creation du fichier'
00065            call efexit(-1)
00066         endif      
00067         
00068 
00069 
00070         call mmhcre(fid,maa,mdim,sdim,
00071      &     MED_UNSTRUCTURED_MESH,'un premier maillage pour test4', 
00072      &     "",MED_SORT_DTIT,MED_CARTESIAN,nomcoo,unicoo,cret)
00073         print *,cret
00074         if (cret .ne. 0 ) then
00075            print *,'Erreur creation du maillage'
00076            call efexit(-1)
00077         endif      
00078         
00079 
00080 
00081         call mmhcow(fid,maa,MED_NO_DT,MED_NO_IT,dt,
00082      &     MED_FULL_INTERLACE,nnoe,coo,cret)
00083         print *,cret         
00084         if (cret .ne. 0 ) then
00085            print *,'Erreur ecriture des coordonnees des noeuds'
00086            call efexit(-1)
00087         endif      
00088         
00089 
00090         call mmheaw(fid,maa,MED_NO_DT,MED_NO_IT,MED_NODE,
00091      &              MED_NONE,nnoe,nomnoe,cret)
00092         print *,cret
00093         if (cret .ne. 0 ) then
00094            print *,'Erreur ecriture des noms des noeuds'
00095            call efexit(-1)
00096         endif      
00097          
00098 
00099         call mmhenw(fid,maa,MED_NO_DT,MED_NO_IT,MED_NODE,
00100      &              MED_NONE,nnoe,numnoe,cret)
00101         print *,cret
00102         if (cret .ne. 0 ) then
00103            print *,'Erreur ecriture des numeros des noeuds'
00104          call efexit(-1)
00105         endif      
00106          
00107 
00108 
00109         call mmhfnw(fid,maa,MED_NO_DT,MED_NO_IT,MED_NODE,
00110      &              MED_NONE,nnoe,nufano,cret)        
00111         print *,cret
00112         if (cret .ne. 0 ) then
00113            print *,'Erreur ecriture des numeros de famille'
00114            call efexit(-1)
00115         endif      
00116 
00117 
00118         call mficlo(fid,cret)
00119         print *,cret
00120         if (cret .ne. 0 ) then
00121            print *,'Erreur fermeture du fichier'
00122            call efexit(-1)
00123         endif      
00124         
00125         end
00126 
00127 
00128 
00129