31 parameter(fname =
"Unittest_MEDparameter_1.med")
32 character*64 pname1,pname2,pname
33 parameter(pname1=
"first parameter name")
34 parameter(pname2=
"second parameter name")
35 integer type1,type2,type
36 parameter(type1=med_float64, type2=
med_int)
37 character*200 desc1,desc2,desc
38 parameter(desc1=
"First parameter description")
39 parameter(desc2=
"Second parameter description")
40 character*16 dtunit1,dtunit2,dtunit
41 parameter(dtunit1=
"unit1")
42 parameter(dtunit2=
"unit2")
43 integer nstep1,nstep2,nstep
44 parameter(nstep1=2,nstep2=2)
48 call mfiope(fid,fname,med_acc_rdonly,cret)
49 print *,
'Open file',cret
50 if (cret .ne. 0 )
then
51 print *,
'ERROR : open file'
57 call mprpin(fid,pname1,
type,desc,dtunit,
59 print *,
'read information',cret
60 if (cret .ne. 0 )
then
61 print *,
'ERROR : read information'
75 call mprpin(fid,pname2,
type,desc,dtunit,
77 print *,
'read information',cret
78 if (cret .ne. 0 )
then
79 print *,
'ERROR : read information'
94 print *,
'Close file',cret
95 if (cret .ne. 0 )
then
96 print *,
'ERROR : close file'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mprpin(fid, name, type, desc, dtunit, nstep, cret)
Cette routine permet la lecture des informations relatives à un paramètre scalaire.