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         program test29
00026 
00027         implicit none
00028         include 'med.hf'
00029 
00030 
00031         integer cret,fid, domdst
00032         character*64 maa , jnt, maadst
00033         character*200 des
00034         integer mdim ,ncor
00035         integer cor(6)
00036         character*16 nomcoo(2)
00037         character*16 unicoo(2)
00038         data  nomcoo /"x","y"/, unicoo /"cm","cm"/
00039 
00040         parameter (maa ="maa1",maadst="maa2", domdst=2,
00041      &     mdim = 2,ncor = 3 )
00042         data cor /1,2,3,4,5,6/, jnt / "joint"/
00043         data des / "joint avec le sous-domaine 2" /
00044 
00045 
00046 
00047 
00048         call mfiope(fid,'test29.med',MED_ACC_RDWR,cret)
00049         print *,cret
00050         if (cret .ne. 0 ) then
00051            print *,'Erreur creation du fichier'
00052            call efexit(-1)
00053         endif      
00054 
00055   
00056 
00057         call mmhcre(fid,maa,mdim,mdim,
00058      &              MED_UNSTRUCTURED_MESH,'Un maillage pour test29', 
00059      &              "",MED_SORT_DTIT,MED_CARTESIAN,nomcoo,unicoo,cret)
00060         print *,cret  
00061         if (cret .ne. 0 ) then
00062            print *,'Erreur creation du maillage'
00063            call efexit(-1)
00064         endif      
00065   
00066 
00067         call msdjcr(fid,maa,jnt,des,domdst,maadst,cret)
00068         print *,cret  
00069         if (cret .ne. 0 ) then
00070            print *,'Erreur creation joint'
00071            call efexit(-1)
00072         endif      
00073         
00074 
00075 
00076         call msdcrw(fid,maa,jnt,MED_NO_DT,MED_NO_IT,
00077      &              MED_NODE,MED_NONE,MED_NODE,MED_NONE,
00078      &              ncor,cor,cret)
00079         print *,cret  
00080         if (cret .ne. 0 ) then
00081            print *,'Erreur ecriture correspondance (Noeud,Noeud)'
00082            call efexit(-1)
00083         endif      
00084 
00085 
00086 
00087         call msdcrw(fid,maa,jnt,MED_NO_DT,MED_NO_IT,
00088      &              MED_NODE,MED_NONE,MED_CELL,MED_TRIA3,
00089      &              ncor,cor,cret)
00090         print *,cret  
00091         if (cret .ne. 0 ) then
00092            print *,'Erreur ecriture correspondance (Noeud,Tria3)'
00093            call efexit(-1)
00094         endif      
00095         
00096 
00097         call mficlo(fid,cret)
00098         print *,cret
00099         if (cret .ne. 0 ) then
00100            print *,'Erreur fermeture du fichier'
00101            call efexit(-1)
00102         endif      
00103 
00104         end