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