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)
subroutine mpfprw(fid, pname, psize, profil, cret)
subroutine mfiope(fid, name, access, cret)