38 use,
intrinsic :: iso_fortran_env, only: stdout => output_unit, &
49 integer,
private :: indent_
50 integer,
private :: section_id_
51 integer,
private :: tab_size_
52 integer,
private :: level_
53 integer,
private :: unit_
84 class(
log_t),
intent(inout) :: this
85 character(len=255) :: log_level
86 character(len=255) :: log_tab_size
87 character(len=255) :: log_file
93 call get_environment_variable(
"NEKO_LOG_TAB_SIZE", log_tab_size, envvar_len)
94 if (envvar_len .gt. 0)
then
95 read(log_tab_size(1:envvar_len), *) this%tab_size_
100 call get_environment_variable(
"NEKO_LOG_LEVEL", log_level, envvar_len)
101 if (envvar_len .gt. 0)
then
102 read(log_level(1:envvar_len), *) this%level_
107 call get_environment_variable(
"NEKO_LOG_FILE", log_file, envvar_len)
108 if (envvar_len .gt. 0)
then
109 open(newunit = this%unit_,
file = trim(log_file), status =
'replace', &
119 class(
log_t),
intent(inout) :: this
121 if (this%section_id_ .ne. 0)
then
125 if (this%unit_ .ne. stdout)
then
137 class(
log_t),
intent(inout) :: this
140 this%section_id_ = this%section_id_ + 1
141 this%indent_ = this%indent_ + this%tab_size_
148 class(
log_t),
intent(inout) :: this
151 if (this%section_id_ .eq. 0)
then
154 this%section_id_ = this%section_id_ - 1
155 this%indent_ = this%indent_ - this%tab_size_
162 class(
log_t),
intent(in) :: this
165 write(this%unit_,
'(A)', advance =
'no') repeat(
' ', this%indent_)
172 class(
log_t),
intent(in) :: this
173 integer,
optional :: lvl
177 if (
present(lvl))
then
183 if (lvl_ .gt. this%level_)
then
188 write(this%unit_,
'(A)')
''
195 class(
log_t),
intent(in) :: this
196 character(len=*),
intent(in) :: msg
197 integer,
optional :: lvl
200 if (
present(lvl))
then
206 if (lvl_ .gt. this%level_)
then
212 write(this%unit_,
'(A)') trim(msg)
219 class(
log_t),
intent(in) :: this
220 character(len=*),
intent(in) :: version
221 character(len=*),
intent(in) :: build_info
224 write(this%unit_,
'(A)')
''
225 write(this%unit_,
'(1X,A)')
' _ __ ____ __ __ ____ '
226 write(this%unit_,
'(1X,A)')
' / |/ / / __/ / //_/ / __ \ '
227 write(this%unit_,
'(1X,A)')
' / / / _/ / ,< / /_/ / '
228 write(this%unit_,
'(1X,A)')
'/_/|_/ /___/ /_/|_| \____/ '
229 write(this%unit_,
'(A)')
''
230 write(this%unit_,
'(1X,A,A,A)')
'(version: ', trim(version),
')'
231 write(this%unit_,
'(1X,A)') trim(build_info)
232 write(this%unit_,
'(A)')
''
239 class(
log_t),
intent(in) :: this
240 character(len=*),
intent(in) :: msg
244 write(stderr,
'(A,A,A)')
'*** ERROR: ', trim(msg),
' ***'
251 class(
log_t),
intent(in) :: this
252 character(len=*),
intent(in) :: msg
256 write(this%unit_,
'(A,A,A)')
'*** WARNING: ', trim(msg),
' ***'
263 class(
log_t),
intent(inout) :: this
264 character(len=*),
intent(in) :: msg
265 integer,
optional :: lvl
267 character(len=LOG_SIZE) :: log_msg
273 pre = (30 - len_trim(msg)) / 2
274 pos = 30 - (len_trim(msg) + pre)
276 write(log_msg,
'(A,A,A)') repeat(
'-', pre), trim(msg), repeat(
'-', pos)
278 call this%newline(lvl)
279 call this%message(trim(log_msg), lvl)
286 class(
log_t),
intent(inout) :: this
287 character(len=*),
intent(in),
optional :: msg
288 integer,
optional :: lvl
291 if (
present(msg))
then
292 call this%message(msg, lvl)
306 use,
intrinsic :: iso_c_binding
307 character(kind=c_char),
dimension(*),
intent(in) :: c_msg
308 character(len=LOG_SIZE) :: msg
314 if (c_msg(len+1) .eq. c_null_char)
exit
316 msg(len:len) = c_msg(len)
319 call neko_log%message(trim(msg(1:len)))
327 use,
intrinsic :: iso_c_binding
328 character(kind=c_char),
dimension(*),
intent(in) :: c_msg
329 character(len=LOG_SIZE) :: msg
335 if (c_msg(len+1) .eq. c_null_char)
exit
337 msg(len:len) = c_msg(len)
341 write(stderr,
'(A,A,A)')
'*** ERROR: ', trim(msg(1:len)),
' ***'
349 use,
intrinsic :: iso_c_binding
350 character(kind=c_char),
dimension(*),
intent(in) :: c_msg
351 character(len=LOG_SIZE) :: msg
357 if (c_msg(len+1) .eq. c_null_char)
exit
359 msg(len:len) = c_msg(len)
364 '*** WARNING: ', trim(msg(1:len)),
' ***'
372 use,
intrinsic :: iso_c_binding
373 character(kind=c_char),
dimension(*),
intent(in) :: c_msg
374 character(len=LOG_SIZE) :: msg
380 if (c_msg(len+1) .eq. c_null_char)
exit
382 msg(len:len) = c_msg(len)
385 call neko_log%section(trim(msg(1:len)))
integer, public pe_rank
MPI rank.
Module for file I/O operations.
subroutine log_end_section_c()
End a log section (from C)
subroutine log_end(this)
Decrease indention level.
subroutine log_header(this, version, build_info)
Write the Neko header to a log.
integer, parameter, public neko_log_verbose
Verbose log level.
subroutine log_message(this, msg, lvl)
Write a message to a log.
integer, parameter, public neko_log_quiet
Always logged.
subroutine log_begin(this)
Increase indention level.
subroutine log_message_c(c_msg)
Write a message to a log (from C)
subroutine log_end_section(this, msg, lvl)
End a log section.
subroutine log_init(this)
Initialize a log.
subroutine log_warning(this, msg)
Write a warning message to a log.
subroutine log_error_c(c_msg)
Write an error message to a log (from C)
subroutine log_indent(this)
Indent a log.
subroutine log_warning_c(c_msg)
Write a warning message to a log (from C)
subroutine log_newline(this, lvl)
Write a new line to a log.
subroutine log_section_c(c_msg)
Begin a new log section (from C)
integer, parameter, public neko_log_debug
Debug log level.
type(log_t), public neko_log
Global log stream.
integer, parameter, public log_size
integer, parameter, public neko_log_info
Default log level.
subroutine log_free(this)
Free a log.
subroutine log_section(this, msg, lvl)
Begin a new log section.
subroutine log_error(this, msg)
Write an error message to a log.
integer, parameter, public rp
Global precision used in computations.