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