@@ -1396,13 +1396,13 @@ subroutine setError(code, err_type, par, errorMessage)
1396
1396
latestErrorType = DEBUG_MSG
1397
1397
if (cli_verbosity >= DEBUG_MSGS) then ! CLI output
1398
1398
1399
- write (* ,' (a)' ) trim (C_DEBUG_MSG(errorLanguage))// trim (ctemp)// ' : ' // trim (cmess)
1399
+ write (* ,' (a)' ) trim (C_DEBUG_MSG(errorLanguage))// ' : ' // trim (ctemp)// ' :' // trim (cmess)
1400
1400
1401
1401
end if
1402
1402
1403
1403
if (log_verbosity >= DEBUG_MSGS .and. flag_ichlog) then ! logfile output
1404
1404
1405
- write (ichlog,' (a)' ) trim (C_DEBUG_MSG(errorLanguage))// trim (ctemp)// ' : ' // trim (cmess)
1405
+ write (ichlog,' (a)' ) trim (C_DEBUG_MSG(errorLanguage))// ' : ' // trim (ctemp)// trim (cmess)// ' : '
1406
1406
1407
1407
end if
1408
1408
@@ -1411,7 +1411,7 @@ subroutine setError(code, err_type, par, errorMessage)
1411
1411
latestErrorType = REMARK
1412
1412
if (cli_verbosity >= REMARKS) then ! CLI output
1413
1413
1414
- write (* ,' (a)' ) trim (C_REMARK(errorLanguage))// trim (ctemp)// ' :'
1414
+ write (* ,' (a)' , advance = " no " ) trim (C_REMARK(errorLanguage))// ' : ' // trim (ctemp)// ' :'
1415
1415
! Prepare the message based on the optional parameter or the predefined message
1416
1416
if (present (par)) then
1417
1417
do i = 1 , SIZE_ERROR_PARAMETER
@@ -1429,7 +1429,7 @@ subroutine setError(code, err_type, par, errorMessage)
1429
1429
1430
1430
if (log_verbosity >= REMARKS .and. flag_ichlog) then ! logfile output
1431
1431
1432
- write (ichlog,' (a)' ) trim (C_REMARK(errorLanguage))// trim (ctemp)// ' :'
1432
+ write (ichlog,' (a)' , advance = " no " ) trim (C_REMARK(errorLanguage))// ' : ' // trim (ctemp)// ' :'
1433
1433
! Prepare the message based on the optional parameter or the predefined message
1434
1434
if (present (par)) then
1435
1435
do i = 1 , SIZE_ERROR_PARAMETER
@@ -1450,7 +1450,7 @@ subroutine setError(code, err_type, par, errorMessage)
1450
1450
latestErrorType = WARNING
1451
1451
if (cli_verbosity >= WARNINGS) then ! CLI output
1452
1452
1453
- write (* ,' (a)' ) trim (C_WARNING(errorLanguage))// trim (ctemp)// ' :'
1453
+ write (* ,' (a)' , advance = " no " ) trim (C_WARNING(errorLanguage))// ' : ' // trim (ctemp)// ' :'
1454
1454
! Prepare the message based on the optional parameter or the predefined message
1455
1455
if (present (par)) then
1456
1456
do i = 1 , SIZE_ERROR_PARAMETER
@@ -1468,7 +1468,7 @@ subroutine setError(code, err_type, par, errorMessage)
1468
1468
1469
1469
if (log_verbosity >= WARNINGS .and. flag_ichlog) then ! logfile output
1470
1470
1471
- write (ichlog,' (a)' ) trim (C_WARNING(errorLanguage))// trim (ctemp)// ' :'
1471
+ write (ichlog,' (a)' , advance = " no " ) trim (C_WARNING(errorLanguage))// ' : ' // trim (ctemp)// ' :'
1472
1472
! Prepare the message based on the optional parameter or the predefined message
1473
1473
if (present (par)) then
1474
1474
do i = 1 , SIZE_ERROR_PARAMETER
@@ -1489,15 +1489,15 @@ subroutine setError(code, err_type, par, errorMessage)
1489
1489
latestErrorType = FATAL
1490
1490
if (cli_verbosity >= ERRORS) then ! CLI output
1491
1491
1492
- write (* ,' (a)' ) trim (C_FATAL(errorLanguage))// trim (ctemp)// ' :'
1492
+ write (* ,' (a)' , advance = " no " ) trim (C_FATAL(errorLanguage))// ' : ' // trim (ctemp)// ' :'
1493
1493
write (* ,' (a)' ) ' ' // trim (cmess)
1494
1494
if (errorAction == ERR_ABORT) write (* ,' (a)' ) ' ' // C_TERMINATED(errorLanguage)
1495
1495
1496
1496
end if
1497
1497
1498
1498
if (log_verbosity >= ERRORS .and. flag_ichlog) then ! logfile output
1499
1499
1500
- write (ichlog,' (a)' ) trim (C_FATAL(errorLanguage))// trim (ctemp)// ' :'
1500
+ write (ichlog,' (a)' , advance = " no " ) trim (C_FATAL(errorLanguage))// ' : ' // trim (ctemp)// ' :'
1501
1501
write (ichlog,' (a)' ) ' ' // trim (cmess)
1502
1502
if (errorAction == ERR_ABORT) write (ichlog,' (a)' ) ' ' // C_TERMINATED(errorLanguage)
1503
1503
0 commit comments