The TELEMAC-MASCARET system  trunk
ielbor.f
Go to the documentation of this file.
1 ! ***********************
2  INTEGER FUNCTION ielbor
3 ! ***********************
4 !
5  &( ielm , i )
6 !
7 !***********************************************************************
8 ! BIEF V6P1 21/08/2010
9 !***********************************************************************
10 !
11 !brief GIVES THE BOUNDARY ELEMENT TYPE CORRESPONDING TO
12 !+ A GIVEN ELEMENT TYPE IN THE DOMAIN.
13 !+
14 !+ WHEN THERE ARE SEVERAL TYPES (AS IS THE CASE FOR THE
15 !+ PRISMS FOR EXAMPLE) USES INDEX I TO DISTINGUISH THEM.
16 !
17 !history J-M HERVOUET
18 !+ 06/02/08
19 !+ V5P9
20 !+
21 !
22 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
23 !+ 13/07/2010
24 !+ V6P0
25 !+ Translation of French comments within the FORTRAN sources into
26 !+ English comments
27 !
28 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
29 !+ 21/08/2010
30 !+ V6P0
31 !+ Creation of DOXYGEN tags for automated documentation and
32 !+ cross-referencing of the FORTRAN sources
33 !
34 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
35 !| I |-->| CASE OF SEVERAL BOUNDARY ELEMENTS
36 !| IELM |-->| TYPE OF ELEMENT IN THE DOMAIN
37 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
38 !
40  IMPLICIT NONE
41 !
42  INTEGER IELM,I
43 !
44 !-----------------------------------------------------------------------
45 !
46  IF(ielm.EQ.10.OR.ielm.EQ.20) THEN
47  ielbor = 0
48  ELSEIF(ielm.EQ.11.OR.ielm.EQ.12.OR.ielm.EQ.21) THEN
49  ielbor = 1
50  ELSEIF(ielm.EQ.13) THEN
51  ielbor = 2
52  ELSEIF(ielm.EQ.30) THEN
53  ielbor = 80
54  ELSEIF(ielm.EQ.31) THEN
55  ielbor = 81
56  ELSEIF(ielm.EQ.51.AND.i.EQ.1) THEN
57  ielbor = 11
58  ELSEIF(ielm.EQ.51.AND.i.EQ.2) THEN
59  ielbor = 61
60  ELSEIF(ielm.EQ.50.AND.i.EQ.1) THEN
61  ielbor = 10
62  ELSEIF(ielm.EQ.50.AND.i.EQ.2) THEN
63  ielbor = 60
64  ELSEIF(ielm.EQ.40.AND.i.EQ.1) THEN
65  ielbor = 10
66  ELSEIF(ielm.EQ.40.AND.i.EQ.2) THEN
67  ielbor = 70
68  ELSEIF(ielm.EQ.41.AND.i.EQ.1) THEN
69  ielbor = 11
70  ELSEIF(ielm.EQ.41.AND.i.EQ.2) THEN
71  ielbor = 71
72  ELSE
73  WRITE(lu,101) ielm
74 101 FORMAT(1x,'IELBOR (BIEF) : ',1i6,' ELEMENT NOT IMPLEMENTED')
75  CALL plante(1)
76  stop
77  ENDIF
78 !
79 !-----------------------------------------------------------------------
80 !
81  RETURN
82  END
integer function ielbor(IELM, I)
Definition: ielbor.f:7