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'
program medstructelement11
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine msevai(fid, mname, it, aname, atype, anc, cret)
Cette routine décrit les caractéristiques d'un attribut variable de modèle d'élément de structure par...