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)
Fermeture d'un fichier MED.
program medstructelement11
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...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.