32 parameter(fname =
"Unittest_MEDlink_1.med")
33 character*64 mname1, mname2,lname1,lname2
34 parameter(mname1 =
"mesh name")
35 parameter(lname1 =
"/local/study1/filename.med")
36 parameter(mname2 =
"second mesh name")
37 parameter(lname2 =
"/local/study2/filename.med")
41 call mfiope(fid,fname,med_acc_creat,cret)
42 print *,
'Open file',cret
43 if (cret .ne. 0 )
then 44 print *,
'ERROR : file creation' 50 call mlnliw(fid,mname1,lname1,cret)
51 print *,
'Create a link',cret
52 if (cret .ne. 0 )
then 53 print *,
'ERROR : link creation' 57 call mlnliw(fid,mname2,lname2,cret)
58 print *,
'Create a link',cret
59 if (cret .ne. 0 )
then 60 print *,
'ERROR : link creation' 67 print *,
'Close file',cret
68 if (cret .ne. 0 )
then 69 print *,
'ERROR : close file' subroutine mlnliw(fid, mname, lname, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)