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")
41 call mfiope(fid,fname,med_acc_creat,cret)
42 print *,
'Open file',cret
43 if (cret .ne. 0 )
then
44 print *,
'ERROR : file creation'
50 call mlnliw(fid,mname1,lname1,cret)
51 print *,
'Create a link',cret
52 if (cret .ne. 0 )
then
53 print *,
'ERROR : link creation'
57 call mlnliw(fid,mname2,lname2,cret)
58 print *,
'Create a link',cret
59 if (cret .ne. 0 )
then
60 print *,
'ERROR : link creation'
67 print *,
'Close file',cret
68 if (cret .ne. 0 )
then
69 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 mlnliw(fid, mname, lname, cret)
Cette routine permet d'écrire un lien dans un fichier MED.