no_open_channels_message Subroutine

public subroutine no_open_channels_message(block_number_)

print a short message that there are no open channels in given block

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: block_number_

block number

Calls

proc~~no_open_channels_message~~CallsGraph proc~no_open_channels_message no_open_channels_message proc~write_message write_message proc~no_open_channels_message->proc~write_message proc~integer_to_character integer_to_character proc~no_open_channels_message->proc~integer_to_character

Called by

proc~~no_open_channels_message~~CalledByGraph proc~no_open_channels_message no_open_channels_message program~scattering SCATTERING program~scattering->proc~no_open_channels_message

Contents

Source Code

no_open_channels_message

Source Code

      subroutine no_open_channels_message(block_number_)
         !! print a short message that there are no open channels in given block
         !---------------------------------------------------------------------!
         integer(int32), intent(in)  :: block_number_
            !! block number
         !---------------------------------------------------------------------!
         call write_message(repeat('-', 90))
         call write_message("No open channels for block no." //                &
            integer_to_character(block_number_) )
         call write_message(repeat('-', 90))
         !---------------------------------------------------------------------!
      end subroutine no_open_channels_message