mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-06-20 12:12:04 +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
|
||
|
|
|