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
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 mprpin(fid, name, type, desc, dtunit, nstep, cret)
Cette routine permet la lecture des informations relatives à un paramètre scalaire.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.