32 parameter(fname =
"Unittest_MEDparameter_1.med")
33 character*64 pname1,pname2,pname
34 parameter(pname1=
"first parameter name")
35 parameter(pname2=
"second parameter name")
36 integer type1,type2,type
38 character*200 desc1,desc2,desc
39 parameter(desc1=
"First parameter description")
40 parameter(desc2=
"Second parameter description")
41 character*16 dtunit1,dtunit2,dtunit
42 parameter(dtunit1=
"unit1")
43 parameter(dtunit2=
"unit2")
44 integer nstep1,nstep2,nstep
45 parameter(nstep1=2,nstep2=2)
49 call mfiope(fid,fname,med_acc_rdonly,cret)
50 print *,
'Open file',cret
51 if (cret .ne. 0 )
then
52 print *,
'ERROR : open file'
58 call mprpin(fid,pname1,
type,desc,dtunit,
60 print *,
'read information',cret
61 if (cret .ne. 0 )
then
62 print *,
'ERROR : read information'
76 call mprpin(fid,pname2,
type,desc,dtunit,
78 print *,
'read information',cret
79 if (cret .ne. 0 )
then
80 print *,
'ERROR : read information'
95 print *,
'Close file',cret
96 if (cret .ne. 0 )
then
97 print *,
'ERROR : close file'
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture 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.