entart.f

Go to the documentation of this file.

!                   *****************
                    SUBROUTINE entart
!                   *****************
!
     &(ititre,x,nbr,nbrtot,alemon,alemul,balaye)
!
!***********************************************************************
! ARTEMIS   V6P1                                   21/08/2010
!***********************************************************************
!
!brief    WRITES HEADER LINES FOR VARIOUS AGITATION COMPUTATIONS
!+                IN THE LISTING FILE.
!
!history  J-M HERVOUET (LNH)
!+
!+
!+   LINKED TO BIEF 5.0
!
!history  D. AELBRECHT (LNH)
!+        02/06/1999
!+        V5P1
!+
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| ALEMON         |-->| TRUE IF MONODIRECTIONAL RANDOM WAVES
!| ALEMUL         |-->| TRUE IF MULTIDIRECTIONAL RANDOM WAVES
!| BALAYE         |-->| TRUE IF PERIOD SCANNING
!| ITITRE         |-->| TYPE OF TITLE TO PRINT
!| NBR            |-->| NUMBER OF CURRENT PERIOD OR DIRECTION
!| NBRTOT         |-->| TOTAL NUMBER OF PERIOD OR DIRECTION
!| X              |-->| REAL TO PRINT
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE interface_artemis, ex_entart => entart
!
      USE declarations_special
      IMPLICIT NONE
!
      INTEGER ITITRE,NBR,NBRTOT
!
      DOUBLE PRECISION X
!
      LOGICAL ALEMON,ALEMUL,BALAYE
!
      CHARACTER(LEN=32) :: TEXTFR(5),TEXTGB(5)
!
!-----------------------------------------------------------------------
!
!     NO DATA STATEMENT FOR TYPES WITH ALLOCATABLE COMPONENTS
      parameter( textfr = (/
     &    'PERIODE                         ' ,
     &    ' SECONDES                       ' ,
     &    'DIRECTION                       ' ,
     &    ' DEGRES                         ' ,
     &    '                                ' /) )
      parameter( textgb = (/
     &    'PERIOD                          ' ,
     &    ' SECONDS                        ' ,
     &    'DIRECTION                       ' ,
     &    ' DEGREES                        ' ,
     &    '                                ' /) )
!
! REGULAR WAVES
!
      IF (.NOT.alemon .AND. .NOT.alemul .AND. .NOT.balaye) THEN
        nbrtot = 1
      ENDIF
!
!-----------------------------------------------------------------------
!
!   WRITES OUT THE COMPUTED WAVE PERIOD
!
!
      IF (ititre.EQ.1) THEN
        IF(lng.EQ.lng_fr) WRITE(lu,100) textfr(1),nbr,nbrtot,x,textfr(2)
        IF(lng.EQ.lng_en) WRITE(lu,100) textgb(1),nbr,nbrtot,x,textgb(2)
      ENDIF
!
100   FORMAT(/,80('='),/,7x,a8,i2,'/',i2,' : ',f12.4,a10,/)
!
!
!-----------------------------------------------------------------------
!
!   WRITES OUT THE COMPUTED WAVE DIRECTION
!
!
      IF (ititre.EQ.2) THEN
        IF(lng.EQ.lng_fr) WRITE(lu,110) textfr(3),nbr,nbrtot,x,textfr(4)
        IF(lng.EQ.lng_en) WRITE(lu,110) textgb(3),nbr,nbrtot,x,textgb(4)
      ENDIF
!
110   FORMAT(/,7x,a10,i2,'/',i2,' : ',f12.4,a10,/)
!
!-----------------------------------------------------------------------
!
      RETURN
      END