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