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*32 maa , jnt, maadst
00033         character*200 des
00034         integer mdim ,ncor
00035         integer cor(6)
00036 
00037         parameter (maa ="maa1",maadst="maa1", domdst=2,
00038      &     mdim = 3,ncor = 3 )
00039         data cor /1,2,3,4,5,6/, jnt / "joint"/
00040         data des / "joint avec le sous-domaine 2" /
00041 
00042 
00043 
00044 
00045         call efouvr(fid,'test29.med',MED_LECTURE_ECRITURE, cret)
00046         print *,cret
00047         if (cret .ne. 0 ) then
00048            print *,'Erreur creation du fichier'
00049            call efexit(-1)
00050         endif      
00051 
00052   
00053 
00054         call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,
00055      &                 'Un maillage pour test29',cret)
00056         print *,cret  
00057         if (cret .ne. 0 ) then
00058            print *,'Erreur creation du maillage'
00059            call efexit(-1)
00060         endif      
00061   
00062 
00063         call efjntc(fid,maa,jnt,des,domdst,maadst,cret)
00064         print *,cret  
00065         if (cret .ne. 0 ) then
00066            print *,'Erreur creation joint'
00067            call efexit(-1)
00068         endif      
00069         
00070 
00071 
00072         call efjnte(fid,maa,jnt,cor,ncor,
00073      &    MED_NOEUD,0,MED_NOEUD,0,
00074      &    cret)
00075         print *,cret  
00076         if (cret .ne. 0 ) then
00077            print *,'Erreur ecriture correspondance (Noeud,Noeud)'
00078            call efexit(-1)
00079         endif      
00080 
00081 
00082 
00083         call efjnte(fid,maa,jnt,cor,ncor,
00084      &    MED_NOEUD,0,MED_MAILLE,MED_TRIA3,
00085      &    cret)
00086         print *,cret  
00087         if (cret .ne. 0 ) then
00088            print *,'Erreur ecriture correspondance (Noeud,Tria3)'
00089            call efexit(-1)
00090         endif      
00091         
00092 
00093         call efferm (fid,cret)
00094         print *,cret
00095         if (cret .ne. 0 ) then
00096            print *,'Erreur fermeture du fichier'
00097            call efexit(-1)
00098         endif      
00099 
00100         end