32 parameter(fname =
"Unittest_MEDlink_1.med")
33 character*64 mname1, mname2,lname1,lname2,mname
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)
40 character*64 lname(26)
46 call mfiope(fid,fname,med_acc_rdonly,cret)
47 print *,
'Open file',cret
48 if (cret .ne. 0 )
then
49 print *,
'ERROR : open file'
56 print *,
'Number of link',cret
57 if ((cret .ne. 0) .or.
58 & (n .ne. nlink) )
then
59 print *,
'ERROR : number of link'
66 call mlnlni(fid,i,mname,lsize,cret)
67 print *,
'Link information',cret
69 print *,
'ERROR : link information'
74 if ((mname .ne. mname1) .or.
75 & (lsize .ne. lsize1))
then
76 print *,
'ERROR : link information'
82 if ((mname .ne. mname2) .or.
83 & (lsize .ne. lsize2))
then
84 print *,
'ERROR : link information'
94 print *,
'Close file',cret
95 if (cret .ne. 0 )
then
96 print *,
'ERROR : close file'