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