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")
40 call mfiope(fid,fname,med_acc_creat,cret)
41 print *,
'Open file',cret
42 if (cret .ne. 0 )
then
43 print *,
'ERROR : file creation'
49 call mlnliw(fid,mname1,lname1,cret)
50 print *,
'Create a link',cret
51 if (cret .ne. 0 )
then
52 print *,
'ERROR : link creation'
56 call mlnliw(fid,mname2,lname2,cret)
57 print *,
'Create a link',cret
58 if (cret .ne. 0 )
then
59 print *,
'ERROR : link creation'
66 print *,
'Close file',cret
67 if (cret .ne. 0 )
then
68 print *,
'ERROR : close file'
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.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.