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)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mlnnln(fid, n, cret)
Cette routine permet la lecture du nombre de lien dans un fichier MED.
subroutine mlnlni(fid, it, mname, lsize, cret)
Cette routine permet de lire les informations sur un lien dans un fichier MED.