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)
Fermeture d'un fichier MED.
subroutine msecai(fid, mname, it, aname, atype, anc, setype, pname, psize, cret)
Cette routine décrit les caractéristiques d'un attribut constant de modèle d'élément de structure par...
subroutine msesin(fid, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
Cette routine décrit les caractéristiques d'un modèle d'élément de structure à partir de son nom...
program medstructelement6
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.