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'