call_utils.F90

Go to the documentation of this file.

module call_utils


  use  f90_kind

  implicit none

  private

  integer(ikind), parameter :: max_call_deep=100
  character(skind) :: sub_called(max_call_deep)
  integer(ikind)   :: sub_called_pos=0


  public  :: assert, warning, exiting, exitall, sub_init, sub_end

contains

  !------------------------------------------------
  !------- assert ---------------------------------
  !------------------------------------------------
  subroutine assert (lcond, message)

    logical, intent(in)          :: lcond
    character(len=*), intent(in) :: message

    if(.not.lcond)then
       print*, message
       call exitall()
    endif
  end subroutine assert


  !------------------------------------------------
  !------- warning --------------------------------
  !------------------------------------------------
  subroutine warning (lcond, message)

    logical, intent(in)          :: lcond
    character(len=*), intent(in) :: message
    if(.not.lcond)then
       print*,"warning!: "// message
    endif
  end subroutine warning

  !------------------------------------------------
  !------- exiting --------------------------------
  !------------------------------------------------
  subroutine exiting (lcond, message)

    logical, intent(in)          :: lcond
    character(len=*), intent(in) :: message

    if(.not.lcond)then
       print*,"Panik !: "// message
       call exitall()
    endif
  end subroutine exiting


  !------------------------------------------------
  !------- exitall  --------------------------------
  !------------------------------------------------

  subroutine exitall()

    integer :: i

    do i=sub_called_pos,1,-1
       print*, trim(sub_called(sub_called_pos))
    enddo
    stop      'exitall@utils: at eof'

  end subroutine exitall

  !------------------------------------------------
  !--------- sub_init ------------------------------
  !------------------------------------------------
  subroutine sub_init(subin)
    character(len=*), intent(in) :: subin
    ! print *,' +++> ',subin    , sub_called_pos, max_call_deep
    call assert(sub_called_pos<max_call_deep,'sub_init error sub_called_pos>=max_call_deep')
    sub_called_pos=sub_called_pos+1
    sub_called(sub_called_pos)=trim(subin)
  end subroutine sub_init

  !------------------------------------------------
  !--------- sub_end ------------------------------
  !------------------------------------------------
  subroutine sub_end()

    ! print *,' ---> ',sub_called(sub_called_pos)
    sub_called_pos=sub_called_pos-1


  end subroutine sub_end

end module call_utils