psmile_assert.F90

Go to the documentation of this file.

!-----------------------------------------------------------------------
! Copyright 2006-2010, NEC Europe Ltd., London, UK.
! All rights reserved. Use is subject to OASIS4 license terms.
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE: PSMILe_Assert
!
! !INTERFACE:
!
      subroutine psmile_assert (file, line, msg)
!
! !USES:
!
      use PSMILe, dummy_interface => PSMILe_Assert

      implicit none
!
! !INPUT PARAMETERS:
!
      character(len=*), Intent(In)   :: file

!     File from which psmile_abort has been called

      character(len=*), Intent(In)   :: msg

!     Developers message

      integer, Intent(In)            :: line

!     Linenumber in "file" from which abort was called
!
! !DESCRIPTION:
!
!  Internal Control Routine of PSMILe Library
!
!  Subroutine "PSMILe_Assert" prints data on assertion violations in
!  Fortran programs of the PSMILe library.
!
! !REVISION HISTORY:
!
!   Date      Programmer   Description
! ----------  ----------   -----------
! 01.12.03    H. Ritzdorf  created
!
!EOP
!-----------------------------------------------------------------------
!
!  $Id: psmile_assert.F90 2325 2010-04-21 15:00:07Z valcke $
!  $Autor$

   Character(len=len_cvs_string), save :: mycvs = 
       '$Id: psmile_assert.F90 2325 2010-04-21 15:00:07Z valcke $'
!
! -----------------------------------------------------------------------
!
!===> Print out assertion violation
!

      write (*, 9990)  Appl%rank, trim(file), line, &
                      trim(Appl%name), trim(msg)

      call psmile_flushstd

      call psmile_abort

9990  format (1x, '[', i3, '] !!! Assertion violation: ', a, &
                  ': line', i6                               &
             /1x, 'component: ', a                           &
             /1x, 'message:   ', a)

      end subroutine PSMILe_Assert