check_number_of_channels Subroutine

private subroutine check_number_of_channels(number_of_channels_bf, number_of_channels_sf, parity_block)

check if the number of channels is the same in body-fixed and space-fixed frames

Arguments

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

number of channels in the body-fixed frame
integer(kind=int32), intent(in) :: number_of_channels_sf

number of channels in the space-fixed frame
character(len=*), intent(in) :: parity_block

"even" or "odd", for printing purposes

Calls

proc~~check_number_of_channels~~CallsGraph proc~check_number_of_channels check_number_of_channels proc~integer_to_character integer_to_character proc~check_number_of_channels->proc~integer_to_character proc~write_error write_error proc~check_number_of_channels->proc~write_error proc~write_message write_message proc~write_error->proc~write_message

Called by

proc~~check_number_of_channels~~CalledByGraph proc~check_number_of_channels check_number_of_channels proc~set_number_of_channels set_number_of_channels proc~set_number_of_channels->proc~check_number_of_channels program~scattering SCATTERING program~scattering->proc~set_number_of_channels

Contents

Source Code

check_number_of_channels

Source Code

      subroutine check_number_of_channels(number_of_channels_bf,               &
         number_of_channels_sf, parity_block)
         !! check if the number of channels is the same in body-fixed
         !! and space-fixed frames
         !---------------------------------------------------------------------!
         integer(int32), intent(in) :: number_of_channels_bf
            !! number of channels in the body-fixed frame
         integer(int32), intent(in) :: number_of_channels_sf
            !! number of channels in the space-fixed frame
         character(len=*), intent(in) :: parity_block
            !! "even" or "odd", for printing purposes
         !---------------------------------------------------------------------!
         if (number_of_channels_bf /= number_of_channels_sf) then
            call write_error("Different number of channels in "// parity_block &
            // " block (BF = " // trim(adjustl(integer_to_character(           &
            number_of_channels_bf))) // ", SF = " // trim(adjustl(             &
            integer_to_character(number_of_channels_sf))) // "); check "       &
            // "set_number_of_channels")
         endif
      end subroutine check_number_of_channels