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")
38 integer lsize,lsize1,lsize2
39 parameter(lsize1=26, lsize2=26)
44 call mfiope(fid,fname,med_acc_rdonly,cret)
45 print *,
'Open file',cret
46 if (cret .ne. 0 )
then 47 print *,
'ERROR : open file' 53 call mlnlai(fid, mname1, lsize, cret)
54 print *,
'read link information',cret,lsize
56 & lsize .ne. lsize1 )
then 57 print *,
'ERROR : link information' 61 call mlnlai(fid, mname2, lsize, cret)
62 print *,
'read link information',cret,lsize
64 & lsize .ne. lsize2 )
then 65 print *,
'ERROR : link information' 71 call mlnlir(fid,mname1,lname,cret)
72 print *,
'read link',cret,lname
73 if (cret .ne. 0 )
then 74 print *,
'ERROR : read link' 78 call mlnlir(fid,mname2,lname,cret)
79 print *,
'read link',cret,lname
80 if (cret .ne. 0 )
then 81 print *,
'ERROR : read link' 88 print *,
'Close file',cret
89 if (cret .ne. 0 )
then 90 print *,
'ERROR : close file' subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mlnlai(fid, mname, lsize, cret)
subroutine mlnlir(fid, mname, lname, cret)