32 parameter(fname =
"Unittest_MEDstructElement_4.med")
34 parameter(mname2 =
"model name 2")
38 parameter(smname2=
"support mesh name")
40 parameter(setype2=med_node)
42 parameter(sgtype2=med_no_geotype)
46 character*200 description1
47 parameter(description1=
"support mesh1 description")
48 character*64 aname1, aname2, aname3
49 parameter(aname1=
"integer constant attribute name")
50 parameter(aname2=
"real constant attribute name")
51 parameter(aname3=
"string constant attribute name")
52 integer atype1,atype2,atype3
53 parameter(atype1=med_att_int)
54 parameter(atype2=med_att_float64)
55 parameter(atype3=med_att_name)
56 integer anc1,anc2,anc3
61 integer mgtype,mdim,setype,snnode,sncell
62 integer sgtype,ncatt,nvatt,profile
63 character*64 pname,smname,aname
64 integer atype,anc,psize
69 call mfiope(fid,fname,med_acc_rdonly,cret)
70 print *,
'Open file',cret
71 if (cret .ne. 0 )
then
72 print *,
'ERROR : file creation'
78 call msesin(fid,mname2,mgtype,mdim,smname,
79 & setype,snnode,sncell,sgtype,
80 & ncatt,profile,nvatt,cret)
81 print *,
'Read information about struct element (by name)',cret
82 if (cret .ne. 0 )
then
83 print *,
'ERROR : information about struct element (by name) '
94 call msecai(fid,mname2,i,aname,atype,anc,
95 & setype,pname,psize,cret)
96 print *,
'Read information about constant attribute: ',aname1,cret
97 if (cret .ne. 0 )
then
98 print *,
'ERROR : information about attribute'
103 if ( (atype .ne. atype1) .or.
104 & (anc .ne. anc1) .or.
105 & (setype .ne. setype2) .or.
106 & (pname .ne. med_no_profile) .or.
109 print *,
'ERROR : information about constant attribute '
115 if ( (atype .ne. atype2) .or.
116 & (anc .ne. anc2) .or.
117 & (setype .ne. setype2) .or.
118 & (pname .ne. med_no_profile) .or.
121 print *,
'ERROR : information about constant attribute'
127 if ( (atype .ne. atype3) .or.
128 & (anc .ne. anc3) .or.
129 & (setype .ne. setype2) .or.
130 & (pname .ne. med_no_profile) .or.
133 print *,
'ERROR : information about constant attribute'
143 print *,
'Close file',cret
144 if (cret .ne. 0 )
then
145 print *,
'ERROR : close file'