mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-08-30 23:03:43 +02:00
23 lines
502 B
FortranFixed
23 lines
502 B
FortranFixed
|
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
|
||
|
|