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' subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mlnlni(fid, it, mname, lsize, cret)
subroutine mlnnln(fid, n, cret)