get_tomspec_values.f

Go to the documentation of this file.

!                   *****************************
                    SUBROUTINE get_tomspec_values
!                   *****************************
!
     &(chaintwc,spec)
!
!***********************************************************************
! ARTEMIS   V7P3                                     Aug 2017
!***********************************************************************
!
!brief    WRAPPER TO READ IN THE TOMAWAC ENERGY SPECTRA.
!
!history  N.DURAND (HRW)
!+        Feb 2017
!+        V7P2
!+   This is a wrapper for call to GET_TOMSPEC_VALUE1 or GET_TOMSPEC_VALUE2
!+   (eventually) depending on choice of nesting: CHAINTWC
!
!history  N.DURAND (HRW)
!+        January 2019
!+        V8P0
!+   Added USE BIEF_DEF since TYPE SPECTRUM is now defined in BIEF_DEF
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| CHAINTWC       |-->| NESTING OPTION (1 OR 2 CURRENTLY ALLOWED)
!| SPEC           |<->| SPECTRUM STRUCTURE
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief_def, ONLY: spectrum
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER                                 :: CHAINTWC
      TYPE(spectrum)   , INTENT(INOUT)        :: SPEC
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!-----------------------------------------------------------------------
!
      SELECT CASE (chaintwc)
        CASE (1)
          CALL get_tomspec_value1(spec)
        CASE (2)
          CALL get_tomspec_value2(spec)
        CASE DEFAULT
          WRITE(lu,*) 'GET_TOMSPEC_VALUES: BAD OPTION: ',chaintwc
          CALL plante(1)
          stop
      END SELECT
!
!-----------------------------------------------------------------------
!
      RETURN
      END