00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026       program test14           
00027 
00028       implicit none             
00029       include 'med.hf'
00030 
00031       integer cret, fid
00032 
00033       integer mdim,sdim
00034 
00035       character*64 maa
00036 
00037       integer   nnoe
00038       parameter (mdim=2,maa="maa1",nnoe=4,sdim=2)
00039 
00040       real*8 coo(mdim*nnoe)
00041 
00042       character*16 nomcoo(mdim), unicoo(mdim) 
00043 
00044 
00045 
00046       character*16 nomnoe(nnoe)
00047       integer numnoe(nnoe), nufano(nnoe)
00048       real*8 dt
00049       parameter(dt=0.0)
00050 
00051       data   coo /0.0, 0.0, 1.0, 0.0, 0.0, 1.0, 1.0, 1.0/
00052       data   nomcoo /"x","y"/, unicoo /"cm","cm"/
00053       data   nomnoe /"nom1","nom2","nom3","nom4"/
00054       data   numnoe /1,2,3,4/,nufano /0,1,2,2/
00055       
00056 
00057       call mfiope(fid,'test14.med',MED_ACC_RDWR, cret)
00058       print *,cret
00059       if (cret .ne. 0 ) then
00060          print *,'Erreur creation du fichier'
00061          call efexit(-1)
00062       endif      
00063 
00064 
00065       call mmhcre(fid,maa,mdim,sdim,MED_UNSTRUCTURED_MESH,
00066      &     'un maillage pour test14',"",MED_SORT_DTIT,
00067      &     MED_CARTESIAN,nomcoo,unicoo,cret) 
00068       print *,cret  
00069       if (cret .ne. 0 ) then
00070          print *,'Erreur creation du maillage'
00071          call efexit(-1)
00072       endif      
00073       
00074 
00075 
00076 
00077 
00078 
00079 
00080       call mmhnow(fid,maa,MED_NO_DT,MED_NO_IT,dt,MED_FULL_INTERLACE, 
00081      &            nnoe,coo,MED_TRUE,nomnoe,MED_TRUE,numnoe,
00082      &            MED_TRUE,nufano,cret)    
00083       print *,cret
00084       if (cret .ne. 0 ) then
00085          print *,'Erreur ecriture des noeuds'
00086          call efexit(-1)
00087       endif      
00088       
00089 
00090       call mficlo(fid,cret)
00091       print *,cret
00092       if (cret .ne. 0 ) then
00093          print *,'Erreur fermeture du fichier'
00094          call efexit(-1)
00095       endif      
00096 
00097       end 
00098         
00099 
00100