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 test19
00025 
00026       implicit none
00027       include 'med.hf'
00028 
00029 
00030 
00031 
00032       integer cret
00033       integer fid
00034       character *32 maa
00035       parameter (maa = "maillage_test19")
00036       character*200 des
00037       parameter (des = "un maillage pour test19")
00038       integer mdim 
00039       parameter (mdim = 2)
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055       integer ngroup 
00056       parameter (ngroup = 3)
00057       integer nent 
00058       parameter (nent = 6)
00059       character*80 nomgro(ngroup)
00060       integer ent(7)
00061       integer ind(ngroup+1)
00062       integer ngeo
00063       parameter (ngeo = 3)
00064       integer geo(ngeo)
00065       integer indgeo(ngeo+1)
00066       character*200 attdes,gro
00067       integer attval,attide
00068       integer typgeo
00069       integer indtmp
00070 
00071       data nomgro    / "GROUPE1","GROUPE2","GROUPE3"    /
00072       data ent       /  1,2, 3,4,6, 1,4                 /
00073       data ind       /  1,   3,     6,   8              /
00074       data geo       /  MED_SEG2, MED_TRIA3, MED_TETRA4 /
00075       data indgeo    /  1,4,6,7 /
00076 
00077 
00078       call efouvr(fid,'test19.med',MED_LECTURE_ECRITURE, cret)
00079       print *,cret
00080       if (cret .ne. 0 ) then
00081          print *,'Erreur creation du fichier'
00082          call efexit(-1)
00083       endif      
00084       print *,'Creation du fichier test19.med'
00085 
00086 
00087       call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,des,cret)
00088       print *,cret
00089       if (cret .ne. 0 ) then
00090          print *,'Erreur creation du maillage'
00091          call efexit(-1)
00092       endif      
00093       print *,'Creation du maillage'
00094 
00095 
00096       call effamc(fid,maa,'FAMILLE_0',0,attide,attval,attdes,0,gro,0,
00097      &               cret)
00098       print *,cret
00099       if (cret .ne. 0 ) then
00100          print *,'Erreur creation de la famille 0'
00101          call efexit(-1)
00102       endif      
00103       print *,'Creation de la famille 0'
00104 
00105 
00106       call efg2fc(fid,maa,nomgro,ind,ngroup,ent,nent,MED_NOEUD,
00107      &               typgeo,indtmp,0,cret)
00108       print *,cret
00109       if (cret .ne. 0 ) then
00110          print *,'Erreur creation des familles de noeud'
00111          call efexit(-1)
00112       endif      
00113       print *,'Creation des familles de noeuds dans test19.med'
00114 
00115 
00116       call efg2fc(fid,maa,nomgro,ind,ngroup,ent,nent,MED_MAILLE,
00117      &               geo,indgeo,ngeo,cret)
00118       print *,cret
00119       if (cret .ne. 0 ) then
00120          print *,'Erreur creation des familles de maille'
00121          call efexit(-1)
00122       endif      
00123       print *,'Creation des familles de mailles dans test19.med'
00124 
00125 
00126       call efferm (fid,cret)
00127       print *,cret
00128       if (cret .ne. 0 ) then
00129          print *,'Erreur fermeture du fichier'
00130          call efexit(-1)
00131       endif      
00132       print *,'Fermeture du fichier'
00133 
00134       end