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