31 parameter(fname =
"Unittest_MEDlink_1.med")
32 character*64 mname1, mname2,lname1,lname2,mname
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)
39 character*64 lname(26)
45 call mfiope(fid,fname,med_acc_rdonly,cret)
46 print *,
'Open file',cret
47 if (cret .ne. 0 )
then 48 print *,
'ERROR : open file' 55 print *,
'Number of link',cret
56 if ((cret .ne. 0) .or.
57 & (n .ne. nlink) )
then 58 print *,
'ERROR : number of link' 65 call mlnlni(fid,i,mname,lsize,cret)
66 print *,
'Link information',cret
68 print *,
'ERROR : link information' 73 if ((mname .ne. mname1) .or.
74 & (lsize .ne. lsize1))
then 75 print *,
'ERROR : link information' 81 if ((mname .ne. mname2) .or.
82 & (lsize .ne. lsize2))
then 83 print *,
'ERROR : link information' 93 print *,
'Close file',cret
94 if (cret .ne. 0 )
then 95 print *,
'ERROR : close file' subroutine mficlo(fid, cret)
subroutine mlnnln(fid, n, cret)
subroutine mlnlni(fid, it, mname, lsize, cret)
subroutine mfiope(fid, name, access, cret)