scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'error-trimming' into 'develop' 

Added missing `TRIM` to `calling_routine` and `message` in `errore`

See merge request QEF/q-e!1778
This commit is contained in:
giannozz 2022-03-04 18:05:43 +00:00
parent e775b3b826 068d2d5b93
commit 74df7a9ea7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
UtilXlib/error_handler.f90
View File

@ -96,8 +96,8 @@ SUBROUTINE errore( calling_routine, message, ierr )
WRITE( UNIT = crashunit, FMT = '(/,1X,78("%"))' )
WRITE( UNIT = crashunit, FMT = '(5X,"task #",I10)' ) mpime
WRITE( UNIT = crashunit, &
FMT = '(5X,"from ",A," : error #",I10)' ) calling_routine, ierr
WRITE( UNIT = crashunit, FMT = '(5X,A)' ) message
FMT = '(5X,"from ",A," : error #",I10)' ) TRIM(calling_routine), ierr
WRITE( UNIT = crashunit, FMT = '(5X,A)' ) TRIM(message)
WRITE( UNIT = crashunit, FMT = '(1X,78("%"),/)' )
!
CLOSE( UNIT = crashunit )