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 test6
00025 
00026         implicit none
00027         include 'med.hf'
00028 
00029 
00030         integer cret, fid
00031         
00032         integer     mdim,nse2,ntr3
00033         parameter  (nse2 = 5, ntr3 = 2, mdim = 2)
00034         integer     se2 (2*nse2)
00035         character*16 nomse2(nse2)
00036         integer     numse2(nse2),nufase2(nse2)
00037 
00038         integer     tr3 (3*ntr3)
00039         character*16 nomtr3(ntr3)
00040         integer     numtr3(ntr3), nufatr3(ntr3) 
00041         character*32 maa 
00042 
00043         data se2     / 1,2,1,3,2,4,3,4,2,3 /    
00044         data nomse2  /"se1","se2","se3","se4","se5" / 
00045         data numse2  / 1,2,3,4,5 /, nufase2 /-1,-1,0,-2,-3/
00046         data tr3     /1,2,-5,-5,3,-4 /, nomtr3 /"tr1","tr2"/,
00047      &                                  numtr3 /4,5/
00048         data nufatr3 /0,-1/,  maa /"maa1"/
00049 
00050 
00051         call efouvr(fid,'test6.med',MED_LECTURE_ECRITURE, cret)
00052         print *,cret
00053         if (cret .ne. 0 ) then
00054            print *,'Erreur creation du fichier'
00055            call efexit(-1)
00056         endif      
00057 
00058 
00059         call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,
00060      &                 'un maillage pour test6',cret)
00061         print *,cret
00062         if (cret .ne. 0 ) then
00063            print *,'Erreur creation du maillage'
00064            call efexit(-1)
00065         endif      
00066 
00067 
00068         call efcone(fid,maa,mdim,se2,MED_NO_INTERLACE,
00069      &               nse2,MED_ARETE,
00070      &               MED_SEG2,MED_DESC,cret ) 
00071         print *,cret
00072         if (cret .ne. 0 ) then
00073            print *,'Erreur ecriture de la connectivite'
00074            call efexit(-1)
00075         endif      
00076 
00077 
00078         call efnome(fid,maa,nomse2,nse2,MED_ARETE,
00079      &                        MED_SEG2 ,cret)
00080         print *,cret
00081         if (cret .ne. 0 ) then
00082            print *,'Erreur ecriture des noms'
00083            call efexit(-1)
00084         endif      
00085 
00086 
00087         call efnume(fid,maa,numse2,nse2,
00088      &              MED_ARETE ,MED_SEG2,cret)
00089         print *,cret
00090         if (cret .ne. 0 ) then
00091            print *,'Erreur ecriture des numeros'
00092            call efexit(-1)
00093         endif      
00094 
00095 
00096         call effame(fid,maa,nufase2,nse2,
00097      &              MED_ARETE,MED_SEG2,cret)
00098         print *,cret
00099         if (cret .ne. 0 ) then
00100            print *,'Erreur ecriture des numéros de famille'
00101            call efexit(-1)
00102         endif      
00103 
00104 
00105         call efcone(fid,maa,mdim,tr3,MED_NO_INTERLACE,
00106      &              ntr3,MED_MAILLE,
00107      &              MED_TRIA3,MED_DESC,cret ) 
00108         print *,cret
00109         if (cret .ne. 0 ) then
00110            print *,'Erreur ecriture de la connectivite'
00111            call efexit(-1)
00112         endif      
00113 
00114 
00115         call efnome(fid,maa,nomtr3,ntr3,MED_MAILLE,
00116      &                        MED_TRIA3,cret)
00117         print *,cret
00118         if (cret .ne. 0 ) then
00119            print *,'Erreur ecriture des noms'
00120            call efexit(-1)
00121         endif      
00122 
00123 
00124         call efnume(fid,maa,numtr3,ntr3,MED_MAILLE,
00125      &                       MED_TRIA3,cret)
00126         print *,cret
00127         if (cret .ne. 0 ) then
00128            print *,'Erreur ecriture des numeros'
00129            call efexit(-1)
00130         endif      
00131 
00132 
00133         call effame(fid,maa,nufatr3,ntr3,MED_MAILLE,
00134      &                      MED_TRIA3,cret)
00135         print *,cret
00136         if (cret .ne. 0 ) then
00137            print *,'Erreur ecriture des numeros de famille'
00138            call efexit(-1)
00139         endif      
00140 
00141 
00142         call efferm (fid,cret)
00143         print *,cret
00144         if (cret .ne. 0 ) then
00145            print *,'Erreur a la fermeture du fichier'
00146            call efexit(-1)
00147         endif      
00148 
00149         end