31 parameter(fname =
"Unittest_MEDstructElement_7.med")
33 parameter(mname2 =
"model name 2")
37 parameter(smname2=
"support mesh name")
39 parameter(setype2=med_node)
41 parameter(sgtype2=med_no_geotype)
45 character*200 description1
46 parameter(description1=
"support mesh1 description")
47 character*64 aname1, aname2, aname3
48 parameter(aname1=
"integer constant attribute name")
49 parameter(aname2=
"real constant attribute name")
50 parameter(aname3=
"string constant attribute name")
51 integer atype1,atype2,atype3
52 parameter(atype1=med_att_int)
53 parameter(atype2=med_att_float64)
54 parameter(atype3=med_att_name)
55 integer anc1,anc2,anc3
63 character*64 aval3(2*1)
64 data aval3 /
"VAL1",
"VAL3"/
66 parameter(pname=
"profil name")
72 integer mgtype,mdim,setype,snnode,sncell
73 integer sgtype,ncatt,nvatt,profile
74 character*64 rpname,smname
75 integer atype,anc,rpsize
82 call mfiope(fid,fname,med_acc_rdonly,cret)
83 print *,
'Open file',cret
84 if (cret .ne. 0 )
then
85 print *,
'ERROR : file creation'
91 call msesin(fid,mname2,mgtype,mdim,smname,
92 & setype,snnode,sncell,sgtype,
93 & ncatt,profile,nvatt,cret)
94 print *,
'Read information about struct element (by name)',cret
95 if (cret .ne. 0 )
then
96 print *,
'ERROR : information about struct element (by name) '
103 call msecni(fid,mname2,aname1,atype,anc,
104 & setype,rpname,rpsize,cret)
105 print *,
'Read information about constant attribute: ',aname1,cret
106 if (cret .ne. 0 )
then
107 print *,
'ERROR : information about attribute (by name)'
110 if ( (atype .ne. atype1) .or.
111 & (anc .ne. anc1) .or.
112 & (setype .ne. setype2) .or.
113 & (rpname .ne. pname) .or.
114 & (rpsize .ne. psize)
116 print *,
'ERROR : information about struct element (by name) '
120 call mseiar(fid,mname2,aname1,val1,cret)
121 print *,
'Read attribute values: ',aname1,cret
122 if (cret .ne. 0 )
then
123 print *,
'ERROR : attribute values'
126 if ((aval1(1) .ne. val1(1)) .or.
127 & (aval1(2) .ne. val1(2)) .or.
128 & (aval1(3) .ne. val1(3)) .or.
129 & (aval1(4) .ne. val1(4))
131 print *,
'ERROR : attribute values'
135 call msecni(fid,mname2,aname2,atype,anc,
136 & setype,rpname,rpsize,cret)
137 print *,
'Read information about constant attribute:',aname2,cret
138 if (cret .ne. 0 )
then
139 print *,
'ERROR : information about attribute (by name)'
142 if ( (atype .ne. atype2) .or.
143 & (anc .ne. anc2) .or.
144 & (setype .ne. setype2) .or.
145 & (rpname .ne. pname) .or.
146 & (rpsize .ne. psize)
148 print *,
'ERROR : information about struct element (by name) '
152 call mserar(fid,mname2,aname2,val2,cret)
153 print *,
'Read attribute values: ',aname2,cret
154 if (cret .ne. 0 )
then
155 print *,
'ERROR : attribute values'
158 if ((aval2(1) .ne. val2(1)) .or.
159 & (aval2(2) .ne. val2(2))
161 print *,
'ERROR : attribute values'
165 call msecni(fid,mname2,aname3,atype,anc,
166 & setype,rpname,rpsize,cret)
167 print *,
'Read information about constant attribute:',aname3,cret
168 if (cret .ne. 0 )
then
169 print *,
'ERROR : information about attribute (by name)'
172 if ( (atype .ne. atype3) .or.
173 & (anc .ne. anc3) .or.
174 & (setype .ne. setype2) .or.
175 & (rpname .ne. pname) .or.
176 & (rpsize .ne. psize)
178 print *,
'ERROR : information about struct element (by name) '
182 call msesar(fid,mname2,aname3,val3,cret)
183 print *,
'Read attribute values: ',aname3,cret
184 if (cret .ne. 0 )
then
185 print *,
'ERROR : attribute values'
188 if ((aval3(1) .ne. val3(1)) .or.
189 & (aval3(2) .ne. val3(2))
191 print *,
'ERROR : attribute values'
198 print *,
'Close file',cret
199 if (cret .ne. 0 )
then
200 print *,
'ERROR : close file'
subroutine msesin(fid, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
Cette routine décrit les caractéristiques d'un modèle d'élément de structure à partir de son nom...
subroutine mserar(fid, mname, aname, val, cret)
Cette routine lit la valeur d'un attribut caractéristique constant d'un modèle d'éléments de structur...
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine msesar(fid, mname, aname, val, cret)
Cette routine lit la valeur d'un attribut caractéristique constant d'un modèle d'éléments de structur...
subroutine msecni(fid, mname, aname, atype, anc, setype, pname, psize, cret)
Cette routine décrit les caractéristiques d'un attribut constant de modèle d'élément de structure à p...
program medstructelement8
subroutine mseiar(fid, mname, aname, val, cret)
Cette routine lit la valeur d'un attribut caractéristique constant d'un modèle d'éléments de structur...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.