31 parameter(fname =
"Unittest_MEDstructElement_9.med")
33 parameter(mname2 =
"model name 2")
35 character*64 aname1, aname2, aname3
36 parameter(aname1=
"integer attribute name")
37 parameter(aname2=
"real attribute name")
38 parameter(aname3=
"string attribute name")
39 integer atype1,atype2,atype3
40 parameter(atype1=med_att_int)
41 parameter(atype2=med_att_float64)
42 parameter(atype3=med_att_name)
43 integer anc1,anc2,anc3
55 call mfiope(fid,fname,med_acc_rdonly,cret)
56 print *,
'Open file',cret
57 if (cret .ne. 0 )
then 58 print *,
'ERROR : file creation' 65 call msevai(fid,mname2,it,aname,atype,anc,cret)
66 print *,
'Read informations about attribute : ',aname,cret
68 print *,
'ERROR : attribute information' 73 if ( (atype .ne. atype1) .or.
76 print *,
'ERROR : attribute information' 82 if ( (atype .ne. atype2) .or.
85 print *,
'ERROR : attribute information' 91 if ( (atype .ne. atype3) .or.
94 print *,
'ERROR : attribute information' 104 print *,
'Close file',cret
105 if (cret .ne. 0 )
then 106 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
program medstructelement11
subroutine mfiope(fid, name, access, cret)
subroutine msevai(fid, mname, it, aname, atype, anc, cret)