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 mprrvw(fid, name, numdt, numit, dt, val, cret)
Cette routine permet l'écriture de la valeur d'un paramètre numérique scalaire.
subroutine mprcre(fid, name, type, des, dtunit, cret)
Cette routine permet la création d'un paramètre numérique scalaire.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mprivw(fid, name, numdt, numit, dt, val, cret)
Cette routine permet l'écriture de la valeur d'un paramètre numérique scalaire.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.