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")
37 integer lsize,lsize1,lsize2
38 parameter(lsize1=26, lsize2=26)
43 call mfiope(fid,fname,med_acc_rdonly,cret)
44 print *,
'Open file',cret
45 if (cret .ne. 0 )
then 46 print *,
'ERROR : open file' 52 call mlnlai(fid, mname1, lsize, cret)
53 print *,
'read link information',cret,lsize
55 & lsize .ne. lsize1 )
then 56 print *,
'ERROR : link information' 60 call mlnlai(fid, mname2, lsize, cret)
61 print *,
'read link information',cret,lsize
63 & lsize .ne. lsize2 )
then 64 print *,
'ERROR : link information' 70 call mlnlir(fid,mname1,lname,cret)
71 print *,
'read link',cret,lname
72 if (cret .ne. 0 )
then 73 print *,
'ERROR : read link' 77 call mlnlir(fid,mname2,lname,cret)
78 print *,
'read link',cret,lname
79 if (cret .ne. 0 )
then 80 print *,
'ERROR : read link' 87 print *,
'Close file',cret
88 if (cret .ne. 0 )
then 89 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mlnlir(fid, mname, lname, cret)
subroutine mlnlai(fid, mname, lsize, cret)