32 parameter(fname =
"Unittest_MEDlink_1.med")
33 character*64 mname1, mname2,lname1,lname2
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)
44 call mfiope(fid,fname,med_acc_rdonly,cret)
45 print *,
'Open file',cret
46 if (cret .ne. 0 )
then
47 print *,
'ERROR : open file'
53 call mlnlai(fid, mname1, lsize, cret)
54 print *,
'read link information',cret,lsize
56 & lsize .ne. lsize1 )
then
57 print *,
'ERROR : link information'
61 call mlnlai(fid, mname2, lsize, cret)
62 print *,
'read link information',cret,lsize
64 & lsize .ne. lsize2 )
then
65 print *,
'ERROR : link information'
71 call mlnlir(fid,mname1,lname,cret)
72 print *,
'read link',cret,lname
73 if (cret .ne. 0 )
then
74 print *,
'ERROR : read link'
78 call mlnlir(fid,mname2,lname,cret)
79 print *,
'read link',cret,lname
80 if (cret .ne. 0 )
then
81 print *,
'ERROR : read link'
88 print *,
'Close file',cret
89 if (cret .ne. 0 )
then
90 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 mlnlir(fid, mname, lname, cret)
Cette routine permet de lire un lien dans un fichier MED.
subroutine mlnlai(fid, mname, lsize, cret)
Cette routine permet de lire les informations sur un lien dans un fichier MED.