dc_message::messagenotify Interface Reference

Public Member Functions
subroutine	messagenotifyc (level, where, message, i, r, d, l, n, c1, c2, c3, ca, rank_mpi)
subroutine	messagenotifyi (number, where, message, i, r, d, l, n, c1, c2, c3, ca, rank_mpi)

Detailed Description

Definition at line 60 of file dc_message.f90.

Member Function/Subroutine Documentation

messagenotifyc()

subroutine dc_message::messagenotify::messagenotifyc	(	character(*), intent(in)	level,
		character(*), intent(in)	where,
		character(*), intent(in)	message,
		integer, dimension(:), intent(in), optional	i,
		real, dimension(:), intent(in), optional	r,
		real(dp), dimension(:), intent(in), optional	d,
		logical, dimension(:), intent(in), optional	l,
		integer, dimension(:), intent(in), optional	n,
		character(*), intent(in), optional	c1,
		character(*), intent(in), optional	c2,
		character(*), intent(in), optional	c3,
		character(*), dimension(:), intent(in), optional	ca,
		integer, intent(in), optional	rank_mpi )

Output message or terminate with error

Use this subroutine when you want to output a message to standard output.

Give the character variable where as the program name (subroutine name) etc., indicating where in the program the message is output.

Give the character variable message the string you want to output. You can also add optional variables i, r, d, L, s, n, c1, c2, c3. See dc_string::CPrintf for details.

The character variable level determines the type of message to output:

• "W" (or "Warning", etc. starting with "W") indicates a warning
• "E" (or "Error", etc. starting with "E") indicates an error (program terminates after message output)
• Other characters (usually "M" is expected) indicate a normal message

If "E" is given, the program is forcibly terminated after the message is output. The error code will be dc_error::USR_ERRNO.

Parameters

[in]	level	Message level ("E", "W", or "M")
[in]	where	Program name, procedure name
[in]	message	Message text
[in]	i	Integer values for formatting
[in]	r	Real values for formatting
[in]	d	Double precision values for formatting
[in]	L	Logical values for formatting
[in]	n	Integer values for formatting
[in]	c1	Character string 1 for formatting
[in]	c2	Character string 2 for formatting
[in]	c3	Character string 3 for formatting
[in]	ca	Character array for formatting
[in]	rank_mpi	When MPI is used, messages are output only on the node with this rank number. If a negative value is given, output is done on all nodes. This option is ignored if MPI is not used.

Definition at line 142 of file dc_message.f90.

    use dc_types  ,only: string, dp
    use dc_string ,only: uchar, strhead, printf, cprintf
    use dc_error  ,only: storeerror, usr_errno
    implicit none
    character(*), intent(in)          :: level
    character(*), intent(in)          :: where
    character(*), intent(in)          :: message
    integer     , intent(in), optional:: i(:), n(:)
    real        , intent(in), optional:: r(:)
    real(DP)    , intent(in), optional:: d(:)
    logical     , intent(in), optional:: L(:)
    character(*), intent(in), optional:: c1, c2, c3
    character(*), intent(in), optional:: ca(:)
    integer     , intent(in), optional:: rank_mpi
    character(string)        :: msg
  continue
    if ( invalid_rank_number( rank_mpi ) ) return
    if (   strhead(  'ERROR', trim( uchar(level) )  )   ) then
      msg = cprintf(message, &
        &           i=i, r=r, d=d, l=l, n=n, c1=c1, c2=c2, c3=c3, ca=ca)
      call storeerror(usr_errno, where, cause_c=msg)
    elseif (   strhead(  'WARNING', trim( uchar(level) )  )   ) then
      msg = cprintf(message, &
        &           i=i, r=r, d=d, l=l, n=n, c1=c1, c2=c2, c3=c3, ca=ca)
      msg=' *** WARNING [' // trim(where) // '] ***  '// trim(msg)
      call printf(fmt='%c', c1=msg)
    else
      msg = cprintf(message, &
        &           i=i, r=r, d=d, l=l, n=n, c1=c1, c2=c2, c3=c3, ca=ca)
      msg=' *** MESSAGE [' // trim(where) // '] ***  ' // trim(msg)
      call printf(fmt='%c', c1=msg)
    endif
    return

References dc_types::dp, dc_error::storeerror(), dc_types::string, and dc_error::usr_errno.

Here is the call graph for this function:

messagenotifyi()

subroutine dc_message::messagenotify::messagenotifyi	(	integer, intent(in)	number,
		character(*), intent(in)	where,
		character(*), intent(in), optional	message,
		integer, dimension(:), intent(in), optional	i,
		real, dimension(:), intent(in), optional	r,
		real(dp), dimension(:), intent(in), optional	d,
		logical, dimension(:), intent(in), optional	l,
		integer, dimension(:), intent(in), optional	n,
		character(*), intent(in), optional	c1,
		character(*), intent(in), optional	c2,
		character(*), intent(in), optional	c3,
		character(*), dimension(:), intent(in), optional	ca,
		integer, intent(in), optional	rank_mpi )

Output message or terminate with error (with error code)

Basically the same as the other MessageNotify (or dc_message::MessageNotifyC), but this one takes a numeric variable number as the first argument. This number is passed directly to dc_error::StoreError as an error code. See dc_error for error codes.

Parameters

[in]	number	Error code (see dc_error)
[in]	where	Program name, procedure name
[in]	message	Message text (optional)
[in]	i	Integer values for formatting
[in]	r	Real values for formatting
[in]	d	Double precision values for formatting
[in]	L	Logical values for formatting
[in]	n	Integer values for formatting
[in]	c1	Character string 1 for formatting
[in]	c2	Character string 2 for formatting
[in]	c3	Character string 3 for formatting
[in]	ca	Character array for formatting
[in]	rank_mpi	When MPI is used, messages are output only on the node with this rank number. If a negative value is given, output is done on all nodes. This option is ignored if MPI is not used.

Definition at line 227 of file dc_message.f90.

    use dc_types  ,only: dp
    use dc_string ,only: cprintf
    use dc_error  ,only: storeerror
    implicit none
    integer,      intent(in)          :: number
    character(*), intent(in)          :: where
    character(*), intent(in), optional:: message
    integer     , intent(in), optional:: i(:), n(:)
    real        , intent(in), optional:: r(:)
    real(DP)    , intent(in), optional:: d(:)
    logical     , intent(in), optional:: L(:)
    character(*), intent(in), optional:: c1, c2, c3
    character(*), intent(in), optional:: ca(:)
    integer     , intent(in), optional:: rank_mpi
  continue
    if ( invalid_rank_number( rank_mpi ) ) return
    if (.not. present(message)) then
      call storeerror(number, where)
    else
      call storeerror(number, where,  &
        &             cause_c=cprintf( message, &
        &             i=i, r=r, d=d, l=l, n=n, c1=c1, c2=c2, c3=c3, ca=ca )  )
    endif
    return

References dc_types::dp, and dc_error::storeerror().

Here is the call graph for this function:

---

The documentation for this interface was generated from the following file:

• /build/gtool5-1.0.0~rc5/debian/build-serial/src/dc_utils/dc_message.f90