The TELEMAC-MASCARET system  trunk
entart.f
Go to the documentation of this file.
1 ! *****************
2  SUBROUTINE entart
3 ! *****************
4 !
5  &(ititre,x,nbr,nbrtot,alemon,alemul,balaye)
6 !
7 !***********************************************************************
8 ! ARTEMIS V6P1 21/08/2010
9 !***********************************************************************
10 !
11 !brief WRITES HEADER LINES FOR VARIOUS AGITATION COMPUTATIONS
12 !+ IN THE LISTING FILE.
13 !
14 !history J-M HERVOUET (LNH)
15 !+
16 !+
17 !+ LINKED TO BIEF 5.0
18 !
19 !history D. AELBRECHT (LNH)
20 !+ 02/06/1999
21 !+ V5P1
22 !+
23 !
24 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
25 !+ 13/07/2010
26 !+ V6P0
27 !+ Translation of French comments within the FORTRAN sources into
28 !+ English comments
29 !
30 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
31 !+ 21/08/2010
32 !+ V6P0
33 !+ Creation of DOXYGEN tags for automated documentation and
34 !+ cross-referencing of the FORTRAN sources
35 !
36 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
37 !| ALEMON |-->| TRUE IF MONODIRECTIONAL RANDOM WAVES
38 !| ALEMUL |-->| TRUE IF MULTIDIRECTIONAL RANDOM WAVES
39 !| BALAYE |-->| TRUE IF PERIOD SCANNING
40 !| ITITRE |-->| TYPE OF TITLE TO PRINT
41 !| NBR |-->| NUMBER OF CURRENT PERIOD OR DIRECTION
42 !| NBRTOT |-->| TOTAL NUMBER OF PERIOD OR DIRECTION
43 !| X |-->| REAL TO PRINT
44 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
45 !
46  USE interface_artemis, ex_entart => entart
47 !
49  IMPLICIT NONE
50 !
51  INTEGER ITITRE,NBR,NBRTOT
52 !
53  DOUBLE PRECISION X
54 !
55  LOGICAL ALEMON,ALEMUL,BALAYE
56 !
57  CHARACTER(LEN=32) :: TEXTFR(5),TEXTGB(5)
58 !
59 !-----------------------------------------------------------------------
60 !
61 ! NO DATA STATEMENT FOR TYPES WITH ALLOCATABLE COMPONENTS
62  parameter( textfr = (/
63  & 'PERIODE ' ,
64  & ' SECONDES ' ,
65  & 'DIRECTION ' ,
66  & ' DEGRES ' ,
67  & ' ' /) )
68  parameter( textgb = (/
69  & 'PERIOD ' ,
70  & ' SECONDS ' ,
71  & 'DIRECTION ' ,
72  & ' DEGREES ' ,
73  & ' ' /) )
74 !
75 ! REGULAR WAVES
76 !
77  IF (.NOT.alemon .AND. .NOT.alemul .AND. .NOT.balaye) THEN
78  nbrtot = 1
79  ENDIF
80 !
81 !-----------------------------------------------------------------------
82 !
83 ! WRITES OUT THE COMPUTED WAVE PERIOD
84 !
85 !
86  IF (ititre.EQ.1) THEN
87  IF(lng.EQ.lng_fr) WRITE(lu,100) textfr(1),nbr,nbrtot,x,textfr(2)
88  IF(lng.EQ.lng_en) WRITE(lu,100) textgb(1),nbr,nbrtot,x,textgb(2)
89  ENDIF
90 !
91 100 FORMAT(/,80('='),/,7x,a8,i2,'/',i2,' : ',f12.4,a10,/)
92 !
93 !
94 !-----------------------------------------------------------------------
95 !
96 ! WRITES OUT THE COMPUTED WAVE DIRECTION
97 !
98 !
99  IF (ititre.EQ.2) THEN
100  IF(lng.EQ.lng_fr) WRITE(lu,110) textfr(3),nbr,nbrtot,x,textfr(4)
101  IF(lng.EQ.lng_en) WRITE(lu,110) textgb(3),nbr,nbrtot,x,textgb(4)
102  ENDIF
103 !
104 110 FORMAT(/,7x,a10,i2,'/',i2,' : ',f12.4,a10,/)
105 !
106 !-----------------------------------------------------------------------
107 !
108  RETURN
109  END
integer, parameter lng_en
subroutine entart(ITITRE, X, NBR, NBRTOT, ALEMON, ALEMUL, BALAYE)
Definition: entart.f:7
integer, parameter lng_fr
Y. AUDOUIN & J-M HERVOUET (EDF LAB, LNHE) 09/05/2014 V7P0 First version.