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")
44 parameter(p1v1=1.0,p1v2=2.0)
45 integer p1numdt1,p1numdt2,p2numdt1,p2numdt2,numdt
46 parameter(p1numdt1=med_no_dt,p1numdt2=1)
47 parameter(p2numdt1=2, p2numdt2=3)
49 parameter(dt1=med_undef_dt,dt2=5.5)
51 parameter(p2v1=3,p2v2=4)
52 integer p1numit1, p1numit2, p2numit1, p2numit2
54 parameter(p1numit1=med_no_it, p1numit2=1)
55 parameter(p2numit1=2, p2numit2=3)
56 integer nstep1,nstep2,nstep,sit
57 parameter(nstep1=2,nstep2=2)
63 call mfiope(fid,fname,med_acc_rdonly,cret)
64 print *,
'Open file',cret
65 if (cret .ne. 0 )
then 66 print *,
'ERROR : open file' 73 print *,
'Number of parameter',cret
74 if ((cret .ne. 0) .or.
76 print *,
'ERROR : number of parameter' 84 call mprpri(fid,it,pname,
type,desc,
86 print *,
'interpolation information',cret
87 if (cret .ne. 0 )
then 88 print *,
'ERROR : interpolation information' 116 call mprcsi(fid,pname,sit,numdt,numit,
118 print *,
'computation step information',cret
119 if (cret .ne. 0 )
then 120 print *,
'ERROR : computation step information' 210 print *,
'Close file',cret
211 if (cret .ne. 0 )
then 212 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
subroutine mprnpr(fid, n, cret)
subroutine mprcsi(fid, name, it, numdt, numit, dt, cret)
subroutine mprpri(fid, it, name, type, desc, dtunit, nstep, cret)
subroutine mfiope(fid, name, access, cret)