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'
subroutine mprcsi(fid, name, it, numdt, numit, dt, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mprpri(fid, it, name, type, desc, dtunit, nstep, cret)
subroutine mprnpr(fid, n, cret)
subroutine mficlo(fid, cret)