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'