31 parameter(fname =
"Unittest_MEDparameter_1.med")
32 character*64 pname1,pname2
33 parameter(pname1=
"first parameter name")
34 parameter(pname2=
"second parameter name")
37 character*200 desc1,desc2
38 parameter(desc1=
"First parameter description")
39 parameter(desc2=
"Second parameter description")
40 character*16 dtunit1,dtunit2
41 parameter(dtunit1=
"unit1")
42 parameter(dtunit2=
"unit2")
44 parameter(p1v1=1.0,p1v2=2.0)
45 integer p1numdt1,p1numdt2,p2numdt1,p2numdt2
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
53 parameter(p1numit1=med_no_it, p1numit2=1)
54 parameter(p2numit1=2, p2numit2=3)
58 call mfiope(fid,fname,med_acc_creat,cret)
59 print *,
'Open file',cret
60 if (cret .ne. 0 )
then 61 print *,
'ERROR : file creation' 67 call mprcre(fid,pname1,type1,desc1,dtunit1,cret)
68 print *,
'parameter creation',cret
69 if (cret .ne. 0 )
then 70 print *,
'ERROR : parameter creation' 76 call mprrvw(fid,pname1,p1numdt1,p1numit1,dt1,p1v1,cret)
77 print *,
'write value',cret
78 if (cret .ne. 0 )
then 79 print *,
'ERROR : write value' 83 call mprrvw(fid,pname1,p1numdt2,p1numit2,dt2,p1v2,cret)
84 print *,
'write value',cret
85 if (cret .ne. 0 )
then 86 print *,
'ERROR : write value' 92 call mprcre(fid,pname2,type2,desc2,dtunit2,cret)
93 print *,
'parameter creation',cret
94 if (cret .ne. 0 )
then 95 print *,
'ERROR : parameter creation' 101 call mprivw(fid,pname2,p2numdt1,p2numit1,dt1,p2v1,cret)
102 print *,
'write value',cret
103 if (cret .ne. 0 )
then 104 print *,
'ERROR : write value' 108 call mprivw(fid,pname2,p2numdt2,p2numit2,dt2,p2v2,cret)
109 print *,
'write value',cret
110 if (cret .ne. 0 )
then 111 print *,
'ERROR : write value' 118 print *,
'Close file',cret
119 if (cret .ne. 0 )
then 120 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
subroutine mprcre(fid, name, type, des, dtunit, cret)
subroutine mprivw(fid, name, numdt, numit, dt, val, cret)
subroutine mprrvw(fid, name, numdt, numit, dt, val, cret)
subroutine mfiope(fid, name, access, cret)