MED fichier
tests
unittests
f
Unittest_MEDlink_1.f
Aller à la documentation de ce fichier.
1
C* This file is part of MED.
2
C*
3
C* COPYRIGHT (C) 1999 - 2021 EDF R&D, CEA/DEN
4
C* MED is free software: you can redistribute it and/or modify
5
C* it under the terms of the GNU Lesser General Public License as published by
6
C* the Free Software Foundation, either version 3 of the License, or
7
C* (at your option) any later version.
8
C*
9
C* MED is distributed in the hope that it will be useful,
10
C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11
C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12
C* GNU Lesser General Public License for more details.
13
C*
14
C* You should have received a copy of the GNU Lesser General Public License
15
C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16
C*
17
18
C******************************************************************************
19
C * Tests for link module
20
C *
21
C *****************************************************************************
22
program
medlink1
23
C
24
implicit none
25
include
'med.hf'
26
C
27
C
28
integer
cret
29
integer*8
fid
30
31
character*64
fname
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
C
39
C
40
C file creation
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'
45
call
efexit(-1)
46
endif
47
C
48
C
49
C links 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'
54
call
efexit(-1)
55
endif
56
c
57
call
mlnliw
(fid,mname2,lname2,cret)
58
print *,
'Create a link'
,cret
59
if
(cret .ne. 0 )
then
60
print *,
'ERROR : link creation'
61
call
efexit(-1)
62
endif
63
C
64
C
65
C close file
66
call
mficlo
(fid,cret)
67
print *,
'Close file'
,cret
68
if
(cret .ne. 0 )
then
69
print *,
'ERROR : close file'
70
call
efexit(-1)
71
endif
72
C
73
C
74
C
75
end
76
mficlo
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
Definition:
medfile.f:82
medlink1
program medlink1
Definition:
Unittest_MEDlink_1.f:22
mfiope
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
Definition:
medfile.f:42
mlnliw
subroutine mlnliw(fid, mname, lname, cret)
Cette routine permet d'écrire un lien dans un fichier MED.
Definition:
medlink.f:21
Généré le Vendredi 8 Octobre 2021 13:44:06 pour MED fichier par
1.8.16