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
36 parameter(type1=med_float64, type2=
med_int)
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)
Fermeture d'un fichier MED.
subroutine mprcsi(fid, name, it, numdt, numit, dt, cret)
Cette routine permet la lecture des informations relatives à une séquence de calcul du paramètre numé...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mprpri(fid, it, name, type, desc, dtunit, nstep, cret)
Cette routine permet la lecture des informations relatives à un paramètre scalaire via un itérateur...
subroutine mprnpr(fid, n, cret)
Cette routine permet la lecture du nombre de paramètre numérique scalaire dans un fichier...