Commit f07757bd authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Use write instead of string concatenation.

parent 5b62ddfa
......@@ -628,6 +628,9 @@ FUNCTION PRECOND_PREPARED(preconditioner, prototype) RESULT(ans)
INTEGER, INTENT(IN) :: preconditioner
REAL(PREC), INTENT(IN) :: prototype
LOGICAL :: ans
CHARACTER(len=25), PARAMETER :: msg_prefix = 'Selected preconditioner ['
CHARACTER(len=17), PARAMETER :: msg_suffix = '] does not exist!'
CHARACTER(len=LEN(msg_prefix) + LEN(msg_suffix) + 11) :: msg
ans = KIND(prototype) == PREC
SELECT CASE (preconditioner)
......@@ -642,10 +645,8 @@ FUNCTION PRECOND_PREPARED(preconditioner, prototype) RESULT(ans)
CASE (ICC_PRECOND,MICC_PRECOND)
ans = ALLOCATED(ICC_C) .AND. ALLOCATED(ICC_W) .AND. ALLOCATED(ICC_S)
CASE DEFAULT
CALL abort_ppm("Selected preconditioner [" &
// int2str(preconditioner) // "] does not exist!", &
filename, &
__LINE__)
WRITE (msg, '(a,i0,a)') msg_prefix, preconditioner, msg_suffix
CALL abort_ppm(msg, filename, __LINE__)
END SELECT
END FUNCTION PRECOND_PREPARED
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment