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 
00027         program test16         
00028 
00029         implicit none             
00030         include 'med.hf'
00031 
00032 
00033         integer      cret, fid, mdim, nse2, ntr3
00034         character*32 maa
00035         parameter    (mdim = 2,nse2 = 5,maa = "maa1", ntr3 = 2)
00036         integer      se2   (2*nse2)
00037         character*16  nomse2(nse2)
00038         integer      numse2(nse2),nufase2(nse2)
00039         integer      tr3   (3*ntr3)
00040         character*16  nomtr3(ntr3)
00041         integer      numtr3(ntr3), nufatr3(ntr3) 
00042         data se2    /1,2,1,3,2,4,3,4,2,3/
00043         data nomse2 /"se1","se2","se3","se4","se5"/
00044         data numse2 /1,2,3,4,5/, nufase2 /-1,-1,0,-2,-3/
00045         data tr3    /1,2,-5,-5,3,-4/
00046         data nomtr3 /"tr1","tr2"/,numtr3/4,5/,nufatr3/0,-1/
00047         
00048 
00049         call efouvr(fid,'test16.med',MED_LECTURE_ECRITURE, cret)
00050         print *,cret
00051         if (cret .ne. 0 ) then
00052            print *,'Erreur creation du fichier'
00053            call efexit(-1)
00054         endif      
00055         
00056 
00057         call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,
00058      C                  'Un maillage pour test16',cret)
00059         print *,cret  
00060         if (cret .ne. 0 ) then
00061            print *,'Erreur creation du maillage'
00062            call efexit(-1)
00063         endif      
00064         
00065 
00066 
00067 
00068 
00069 
00070         call efelee(fid,maa,mdim,se2,MED_NO_INTERLACE,
00071      C         nomse2,MED_VRAI,numse2,MED_VRAI,
00072      C         nufase2,nse2,MED_ARETE,MED_SEG2,MED_DESC,cret)
00073         print *,cret  
00074         if (cret .ne. 0 ) then
00075            print *,'Erreur des  elements'
00076            call efexit(-1)
00077         endif      
00078 
00079 
00080 
00081 
00082 
00083 
00084         call efelee(fid,maa,mdim,tr3,MED_NO_INTERLACE,
00085      C      nomtr3,MED_VRAI,numtr3,MED_VRAI,
00086      C      nufatr3,ntr3,MED_MAILLE,MED_TRIA3,MED_DESC,cret)
00087         print *,cret  
00088         if (cret .ne. 0 ) then
00089            print *,'Erreur ecriture des elements'
00090            call efexit(-1)
00091         endif      
00092         
00093 
00094         call efferm (fid,cret)
00095         print *,cret
00096         if (cret .ne. 0 ) then
00097            print *,'Erreur fermeture du fichier'
00098            call efexit(-1)
00099         endif      
00100 
00101         end 
00102