Class | error_class |
In: |
LatticeClass/error_class.F90
|
Simple error stop module
program will stop with error message.
Subroutine : | |||
str : | character(*)
|
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