Class error_class
In: LatticeClass/error_class.F90
comlib lattice_class error_class dot/f_248.png

Simple error stop module

program will stop with error message.

Methods

Included Modules

comlib lattice_class

Public Instance methods

Subroutine :
str :character(*)
: error message

[Source]

subroutine error_message(str)
  implicit none
  character(*) :: str ! error message
  if (nodeid==0) then
    write(*,'("ERROR MSGE: ",A)')TRIM(ADJUSTL(str))
  endif
  return
end subroutine
Subroutine :
str :character(*)
: error message

[Source]

subroutine error_stop(str)
  implicit none
  character(*) :: str ! error message
  if (nodeid==0) then
    write(*,'("ERROR STOP: ",A)')TRIM(ADJUSTL(str))
  endif
#ifndef _singlePU
  call comlib_finalize()
#endif

  stop
end subroutine