31 parameter(fname =
"Unittest_MEDstructElement_4.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
60 integer mgtype,mdim,setype,snnode,sncell
61 integer sgtype,ncatt,nvatt,profile
62 character*64 pname,smname,aname
63 integer atype,anc,psize
68 call mfiope(fid,fname,med_acc_rdonly,cret)
69 print *,
'Open file',cret
70 if (cret .ne. 0 )
then 71 print *,
'ERROR : file creation' 77 call msesin(fid,mname2,mgtype,mdim,smname,
78 & setype,snnode,sncell,sgtype,
79 & ncatt,profile,nvatt,cret)
80 print *,
'Read information about struct element (by name)',cret
81 if (cret .ne. 0 )
then 82 print *,
'ERROR : information about struct element (by name) ' 93 call msecai(fid,mname2,i,aname,atype,anc,
94 & setype,pname,psize,cret)
95 print *,
'Read information about constant attribute: ',aname1,cret
96 if (cret .ne. 0 )
then 97 print *,
'ERROR : information about attribute' 102 if ( (atype .ne. atype1) .or.
103 & (anc .ne. anc1) .or.
104 & (setype .ne. setype2) .or.
105 & (pname .ne. med_no_profile) .or.
108 print *,
'ERROR : information about constant attribute ' 114 if ( (atype .ne. atype2) .or.
115 & (anc .ne. anc2) .or.
116 & (setype .ne. setype2) .or.
117 & (pname .ne. med_no_profile) .or.
120 print *,
'ERROR : information about constant attribute' 126 if ( (atype .ne. atype3) .or.
127 & (anc .ne. anc3) .or.
128 & (setype .ne. setype2) .or.
129 & (pname .ne. med_no_profile) .or.
132 print *,
'ERROR : information about constant attribute' 142 print *,
'Close file',cret
143 if (cret .ne. 0 )
then 144 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
subroutine msecai(fid, mname, it, aname, atype, anc, setype, pname, psize, cret)
subroutine msesin(fid, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
subroutine mfiope(fid, name, access, cret)
program medstructelement6