mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-07-04 18:35:50 +02:00
23 lines
502 B
Fortran
23 lines
502 B
Fortran
subroutine abrt (here,message)
|
|
implicit none
|
|
character*(*) :: here
|
|
character*(*) :: message
|
|
write(0,*) '-------------------------'
|
|
write(0,*) 'Error in '//trim(here)//':'
|
|
write(0,*) '-------------------------'
|
|
write(0,*) trim(message)//'.'
|
|
write(0,*) '-------------------------'
|
|
if (is_worker) then
|
|
call worker_log(here,message)
|
|
call sleep(2)
|
|
endif
|
|
call finish()
|
|
stop
|
|
end
|
|
|
|
subroutine finish()
|
|
implicit none
|
|
call ezfio_finish()
|
|
end
|
|
|