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