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