mirror of https://gitlab.com/QEF/q-e.git
No need to return after stop
This commit is contained in:
parent
cbc58ff224
commit
3bc8e73fa3
|
@ -61,7 +61,7 @@ SUBROUTINE errore( calling_routine, message, ierr )
|
|||
CALL ptrace()
|
||||
#endif
|
||||
#endif
|
||||
!
|
||||
!
|
||||
! .. write the message to a file and close it before exiting
|
||||
! .. this will prevent loss of information on systems that
|
||||
! .. do not flush the open streams
|
||||
|
@ -91,8 +91,6 @@ SUBROUTINE errore( calling_routine, message, ierr )
|
|||
!
|
||||
STOP 1
|
||||
!
|
||||
RETURN
|
||||
!
|
||||
END SUBROUTINE errore
|
||||
!
|
||||
!----------------------------------------------------------------------
|
||||
|
|
Loading…
Reference in New Issue