Data Types
interface	messagenotify

interface	messagesuppressmpi

Functions/Subroutines
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)

subroutine	messagesuppressmpi0 (rank)

logical function	invalid_rank_number (rank_mpi)

Variables
integer, save	output_rank = -1

Function/Subroutine Documentation

◆ invalid_rank_number()

logical function dc_message::invalid_rank_number ( integer, intent(in), optional rank_mpi )

private

Definition at line 205 of file dc_message.f90.

Referenced by messagenotifyc(), and messagenotifyi().

     implicit none
     integer     , intent(in), optional:: rank_mpi
                                         ! MPI 使用時に, ここで指定された
                                         ! ランク数のノードでのみ
                                         ! メッセージ出力を行います. 
                                         ! 負の値を与えた場合には, 
                                         ! 全てのノードで出力を行います. 
                                         ! 
                                         ! MPI を使用していない場合には
                                         ! このオプションは無視されます. 
                                         ! 
                                         ! When MPI is used, messages are 
                                         ! output in only node that has
                                         ! this runk number. 
                                         ! If negative value is given, 
                                         ! output is done on all nodes
                                         ! 
                                         ! This option is ignored 
                                         ! if MPI is not used. 
                                         ! 
   continue
     result = .false.
     return

Here is the caller graph for this function:

◆ messagenotifyc()

subroutine dc_message::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
	)

private

Definition at line 51 of file dc_message.f90.

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

     !
     !=== メッセージの出力およびエラーによる終了
     !
     ! メッセージを標準出力へ出力したい場合に用います。
     !
     ! 文字型変数 where にはプログラム名 (サブルーチン名) など、
     ! プログラム内のどこでメッセージを出力するのかを示すものを与えます。
     !
     ! 文字型変数 message には、出力したい文字列を与えます。
     ! オプション変数 i, r, d, L, s, n, c1, c2, c3 を付加する事も出来ます。
     ! 詳細に関しては dc_string#CPrintf を参照して下さい。
     !
     ! 文字型変数 level は出力するメッセージの種類を決める引数で、
     ! <b><tt>"W"</tt></b> (または<b><tt>"Warning"</tt></b>
     ! など <b><tt>"W"</tt></b> で始まる文字)
     ! を与える事で<b>警告</b>であることを、
     ! <b><tt>"E"</tt></b> (または<b><tt>"Error"</tt></b>
     ! など <b><tt>"E"</tt></b> で始まる文字) を与える事で
     ! <b>エラー (メッセージ出力後プログラムを終了) </b>であることを、
     ! それ以外の文字 (大抵は <b><tt>"M"</tt></b>
     ! を与えることを想定しています)
     ! を与える事で<b>通常のメッセージ</b>であることを指定します。
     ! <b><tt>"E"</tt></b>を与えた場合はメッセージ出力後、プログラムを
     ! 強制終了させます。エラーコードは dc_error#USR_ERRNO となります。
     !
     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 ! "E", "W", "M" のどれかを与える。
     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
                                         ! MPI 使用時に, ここで指定された
                                         ! ランク数のノードでのみ
                                         ! メッセージ出力を行います. 
                                         ! 負の値を与えた場合には, 
                                         ! 全てのノードで出力を行います. 
                                         ! 
                                         ! MPI を使用していない場合には
                                         ! このオプションは無視されます. 
                                         ! 
                                         ! When MPI is used, messages are 
                                         ! output in only node that has
                                         ! this runk number. 
                                         ! If negative value is given, 
                                         ! output is done on all nodes
                                         ! 
                                         ! This option is ignored 
                                         ! if MPI is not used. 
                                         ! 
     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

Here is the call graph for this function:

◆ messagenotifyi()

subroutine dc_message::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
	)

Definition at line 130 of file dc_message.f90.

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

     !
     !=== メッセージの出力およびエラーによる終了
     !
     ! 基本的にもう一方の MessageNotify (または dc_message#MessageNotifyC)
     ! と同様ですが、こちらは第１引数に数値型変数
     ! number をとります。この number はエラーコードとして、
     ! そのまま dc_error#StoreError に引き渡されます。
     ! エラーコードに関しては (dc_error を参照ください)
     !
     use dc_types  ,only: dp
     use dc_string ,only: cprintf
     use dc_error  ,only: storeerror, usr_errno
     implicit none
     integer,      intent(in)          :: number    ! エラーコード (dc_error 参照)
     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
                                         ! MPI 使用時に, ここで指定された
                                         ! ランク数のノードでのみ
                                         ! メッセージ出力を行います. 
                                         ! 負の値を与えた場合には, 
                                         ! 全てのノードで出力を行います. 
                                         ! 
                                         ! MPI を使用していない場合には
                                         ! このオプションは無視されます. 
                                         ! 
                                         ! When MPI is used, messages are 
                                         ! output in only node that has
                                         ! this runk number. 
                                         ! If negative value is given, 
                                         ! output is done on all nodes
                                         ! 
                                         ! This option is ignored 
                                         ! if MPI is not used. 
                                         ! 
   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

Here is the call graph for this function:

◆ messagesuppressmpi0()

subroutine dc_message::messagesuppressmpi0 ( integer, intent(in) rank )

Definition at line 183 of file dc_message.f90.

References output_rank.

     implicit none
     integer, intent(in):: rank
                                         ! 出力するノードのランク数. 
                                         ! 
                                         ! ここに指定されたランク数以外の
                                         ! ノードでの出力は抑止されます. 
                                         ! 
                                         ! MPI を使用していない場合には
                                         ! サブルーチンは無効です. 
                                         ! 
                                         ! Number of rank of an node that output. 
                                         ! 
                                         ! Output on nodes that do not have 
                                         ! this rank number is suppressed. 
                                         ! 
                                         ! This subroutine is ignored, 
                                         ! if MPI is not used. 
                                         ! 
   continue
     output_rank = rank

Variable Documentation

◆ output_rank

integer, save dc_message::output_rank = -1

private

Definition at line 47 of file dc_message.f90.

Referenced by messagesuppressmpi0().

47 integer, save:: output_rank = -1

Data Types

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ invalid_rank_number()

◆ messagenotifyc()

◆ messagenotifyi()

◆ messagesuppressmpi0()

Variable Documentation

◆ output_rank