30 character*64 fname, pname1, pname2
31 parameter(fname=
"Unittest_MEDprofile_1.med")
32 parameter(pname1=
"Profile name1")
33 parameter(pname2=
"Profile name 2")
35 parameter(psize1=4, psize2=2)
36 integer profile1(4), profile2(2)
37 data profile1 /1,2, 3,4/
42 call mfiope(fid,fname,med_acc_creat,cret)
45 if (cret .ne. 0 )
then
46 print *,
'ERROR : file creation'
52 call mpfprw(fid,pname1,psize1,profile1,cret)
54 if (cret .ne. 0 )
then
55 print *,
'ERROR : profile creation'
61 call mpfprw(fid,pname2,psize2,profile2,cret)
63 if (cret .ne. 0 )
then
64 print *,
'ERROR : profile creation'
72 if (cret .ne. 0 )
then
73 print *,
'ERROR : close file'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mpfprw(fid, pname, psize, profil, cret)
Cette routine permet d'écrire un profil dans un fichier MED.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.