31 parameter(fname =
"Unittest_MEDlink_1.med")
32 character*64 mname1, mname2,lname1,lname2
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)
43 call mfiope(fid,fname,med_acc_rdonly,cret)
44 print *,
'Open file',cret
45 if (cret .ne. 0 )
then
46 print *,
'ERROR : open file'
52 call mlnlai(fid, mname1, lsize, cret)
53 print *,
'read link information',cret,lsize
55 & lsize .ne. lsize1 )
then
56 print *,
'ERROR : link information'
60 call mlnlai(fid, mname2, lsize, cret)
61 print *,
'read link information',cret,lsize
63 & lsize .ne. lsize2 )
then
64 print *,
'ERROR : link information'
70 call mlnlir(fid,mname1,lname,cret)
71 print *,
'read link',cret,lname
72 if (cret .ne. 0 )
then
73 print *,
'ERROR : read link'
77 call mlnlir(fid,mname2,lname,cret)
78 print *,
'read link',cret,lname
79 if (cret .ne. 0 )
then
80 print *,
'ERROR : read link'
87 print *,
'Close file',cret
88 if (cret .ne. 0 )
then
89 print *,
'ERROR : close file'
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.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.