31 character*64 fname, pname1, pname2
32 parameter(fname=
"Unittest_MEDprofile_1.med")
33 parameter(pname1=
"Profile name1")
34 parameter(pname2=
"Profile name 2")
36 parameter(psize1=4, psize2=2)
37 integer profile1(4), profile2(2)
38 data profile1 /1,2, 3,4/
43 call mfiope(fid,fname,med_acc_creat,cret)
46 if (cret .ne. 0 )
then 47 print *,
'ERROR : file creation' 53 call mpfprw(fid,pname1,psize1,profile1,cret)
55 if (cret .ne. 0 )
then 56 print *,
'ERROR : profile creation' 62 call mpfprw(fid,pname2,psize2,profile2,cret)
64 if (cret .ne. 0 )
then 65 print *,
'ERROR : profile creation' 73 if (cret .ne. 0 )
then 74 print *,
'ERROR : close file'
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mpfprw(fid, pname, psize, profil, cret)