32 parameter(fname =
"Unittest_MEDstructElement_9.med")
34 parameter(mname2 =
"model name 2")
36 character*64 aname1, aname2, aname3
37 parameter(aname1=
"integer attribute name")
38 parameter(aname2=
"real attribute name")
39 parameter(aname3=
"string attribute name")
40 integer atype1,atype2,atype3
41 parameter(atype1=med_att_int)
42 parameter(atype2=med_att_float64)
43 parameter(atype3=med_att_name)
44 integer anc1,anc2,anc3
56 call mfiope(fid,fname,med_acc_rdonly,cret)
57 print *,
'Open file',cret
58 if (cret .ne. 0 )
then
59 print *,
'ERROR : file creation'
66 call msevai(fid,mname2,it,aname,atype,anc,cret)
67 print *,
'Read informations about attribute : ',aname,cret
69 print *,
'ERROR : attribute information'
74 if ( (atype .ne. atype1) .or.
77 print *,
'ERROR : attribute information'
83 if ( (atype .ne. atype2) .or.
86 print *,
'ERROR : attribute information'
92 if ( (atype .ne. atype3) .or.
95 print *,
'ERROR : attribute information'
105 print *,
'Close file',cret
106 if (cret .ne. 0 )
then
107 print *,
'ERROR : close file'