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 mficlo(fid, cret)
subroutine mprpin(fid, name, type, desc, dtunit, nstep, cret)
subroutine mfiope(fid, name, access, cret)