prism_terminated.F90

Go to the documentation of this file.

!-----------------------------------------------------------------------
! Copyright 2006-2010, CERFACS, Toulouse, France.
! Copyright 2006-2010, SGI Germany, Munich, Germany.
! Copyright 2006-2010, NEC Europe Ltd., London, UK.
! All rights reserved. Use is subject to OASIS4 license terms.
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE: PRISM_Terminated
!
! !INTERFACE:

      subroutine prism_terminated ( flag, ierror )
!
! !USES:
!
      use PRISM, dummy_interface => prism_terminated
!
      use PSMILe, only : PRISM_is_terminated, len_cvs_string

      implicit none
!
! !OUTPUT PARAMETERS:
!
      Logical, Intent (Out)               :: flag

!     Returns .true. if prism_terminate has been called before

      Integer, Intent (Out)               :: ierror

!     Returns the error code of prism_init;
!             ierror = 0 : No error
!             ierror > 0 : Severe error
!
! !DESCRIPTION:
!
!   Subroutine prism_terminated provides a flag to check whether prism
!   was already terminated by a call to prism_terminate.
!
!
! !SEE ALSO:
!
!   prism_terminate, prism_init, prism_initialized
!
! !REVISION HISTORY:
!
!   Date      Programmer   Description
! ----------  ----------   -----------
! 02.12.03    R. Redler    created
!
!EOP
!----------------------------------------------------------------------
!
! $Id: prism_terminated.F90 2325 2010-04-21 15:00:07Z valcke $
! $Author: valcke $
!
  Character(len=len_cvs_string), save :: mycvs = 
      '$Id: prism_terminated.F90 2325 2010-04-21 15:00:07Z valcke $'
!
!----------------------------------------------------------------------

      if ( PRISM_is_terminated ) then

         flag = .true.

      else

         flag = .false.

      endif

      ierror = 0

      end subroutine prism_terminated