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")
45 parameter(p1v1=1.0,p1v2=2.0)
46 integer p1numdt1,p1numdt2,p2numdt1,p2numdt2,numdt
47 parameter(p1numdt1=med_no_dt,p1numdt2=1)
48 parameter(p2numdt1=2, p2numdt2=3)
50 parameter(dt1=med_undef_dt,dt2=5.5)
52 parameter(p2v1=3,p2v2=4)
53 integer p1numit1, p1numit2, p2numit1, p2numit2
55 parameter(p1numit1=med_no_it, p1numit2=1)
56 parameter(p2numit1=2, p2numit2=3)
57 integer nstep1,nstep2,nstep,sit
58 parameter(nstep1=2,nstep2=2)
64 call mfiope(fid,fname,med_acc_rdonly,cret)
65 print *,
'Open file',cret
66 if (cret .ne. 0 )
then
67 print *,
'ERROR : open file'
74 print *,
'Number of parameter',cret
75 if ((cret .ne. 0) .or.
77 print *,
'ERROR : number of parameter'
85 call mprpri(fid,it,pname,
type,desc,
87 print *,
'interpolation information',cret
88 if (cret .ne. 0 )
then
89 print *,
'ERROR : interpolation information'
117 call mprcsi(fid,pname,sit,numdt,numit,
119 print *,
'computation step information',cret
120 if (cret .ne. 0 )
then
121 print *,
'ERROR : computation step information'
211 print *,
'Close file',cret
212 if (cret .ne. 0 )
then
213 print *,
'ERROR : close file'