00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027 program test16
00028
00029 implicit none
00030 include 'med.hf'
00031
00032
00033 integer cret, fid, mdim, nse2, ntr3
00034 character*32 maa
00035 parameter (mdim = 2,nse2 = 5,maa = "maa1", ntr3 = 2)
00036 integer se2 (2*nse2)
00037 character*16 nomse2(nse2)
00038 integer numse2(nse2),nufase2(nse2)
00039 integer tr3 (3*ntr3)
00040 character*16 nomtr3(ntr3)
00041 integer numtr3(ntr3), nufatr3(ntr3)
00042 data se2 /1,2,1,3,2,4,3,4,2,3/
00043 data nomse2 /"se1","se2","se3","se4","se5"/
00044 data numse2 /1,2,3,4,5/, nufase2 /-1,-1,0,-2,-3/
00045 data tr3 /1,2,-5,-5,3,-4/
00046 data nomtr3 /"tr1","tr2"/,numtr3/4,5/,nufatr3/0,-1/
00047
00048
00049 call efouvr(fid,'test16.med',MED_LECTURE_ECRITURE, cret)
00050 print *,cret
00051 if (cret .ne. 0 ) then
00052 print *,'Erreur creation du fichier'
00053 call efexit(-1)
00054 endif
00055
00056
00057 call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,
00058 C 'Un maillage pour test16',cret)
00059 print *,cret
00060 if (cret .ne. 0 ) then
00061 print *,'Erreur creation du maillage'
00062 call efexit(-1)
00063 endif
00064
00065
00066
00067
00068
00069
00070 call efelee(fid,maa,mdim,se2,MED_NO_INTERLACE,
00071 C nomse2,MED_VRAI,numse2,MED_VRAI,
00072 C nufase2,nse2,MED_ARETE,MED_SEG2,MED_DESC,cret)
00073 print *,cret
00074 if (cret .ne. 0 ) then
00075 print *,'Erreur des elements'
00076 call efexit(-1)
00077 endif
00078
00079
00080
00081
00082
00083
00084 call efelee(fid,maa,mdim,tr3,MED_NO_INTERLACE,
00085 C nomtr3,MED_VRAI,numtr3,MED_VRAI,
00086 C nufatr3,ntr3,MED_MAILLE,MED_TRIA3,MED_DESC,cret)
00087 print *,cret
00088 if (cret .ne. 0 ) then
00089 print *,'Erreur ecriture des elements'
00090 call efexit(-1)
00091 endif
00092
00093
00094 call efferm (fid,cret)
00095 print *,cret
00096 if (cret .ne. 0 ) then
00097 print *,'Erreur fermeture du fichier'
00098 call efexit(-1)
00099 endif
00100
00101 end
00102