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' subroutine mfiope(fid, name, access, cret)
subroutine msesin(fid, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
program medstructelement6
subroutine msecai(fid, mname, it, aname, atype, anc, setype, pname, psize, cret)
subroutine mficlo(fid, cret)