to_char_logical Function

private function to_char_logical(l) result(trimmed_str)

tranform a logical to a string either true or false

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: l

Return Value character(len=:), allocatable


Called by

proc~~to_char_logical~~CalledByGraph proc~to_char_logical to_char_logical interface~to_char to_char interface~to_char->proc~to_char_logical proc~flop_rate_report flop_rate_type%flop_rate_report proc~flop_rate_report->interface~to_char proc~print_matrix_dp print_matrix_dp proc~print_matrix_dp->interface~to_char proc~print_matrix_int32 print_matrix_int32 proc~print_matrix_int32->interface~to_char proc~print_matrix_int64 print_matrix_int64 proc~print_matrix_int64->interface~to_char proc~print_matrix_sp print_matrix_sp proc~print_matrix_sp->interface~to_char proc~print_packed_matrix_dp print_packed_matrix_dp proc~print_packed_matrix_dp->interface~to_char proc~print_packed_matrix_int32 print_packed_matrix_int32 proc~print_packed_matrix_int32->interface~to_char proc~print_packed_matrix_int64 print_packed_matrix_int64 proc~print_packed_matrix_int64->interface~to_char proc~print_packed_matrix_sp print_packed_matrix_sp proc~print_packed_matrix_sp->interface~to_char proc~print_vector_dp print_vector_dp proc~print_vector_dp->interface~to_char proc~print_vector_int32 print_vector_int32 proc~print_vector_int32->interface~to_char proc~print_vector_int64 print_vector_int64 proc~print_vector_int64->interface~to_char proc~print_vector_sp print_vector_sp proc~print_vector_sp->interface~to_char proc~timer_print_time timer_type%timer_print_time proc~timer_print_time->interface~to_char interface~pic_print_array pic_print_array interface~pic_print_array->proc~print_matrix_dp interface~pic_print_array->proc~print_matrix_int32 interface~pic_print_array->proc~print_matrix_int64 interface~pic_print_array->proc~print_matrix_sp interface~pic_print_array->proc~print_packed_matrix_dp interface~pic_print_array->proc~print_packed_matrix_int32 interface~pic_print_array->proc~print_packed_matrix_int64 interface~pic_print_array->proc~print_packed_matrix_sp interface~pic_print_array->proc~print_vector_dp interface~pic_print_array->proc~print_vector_int32 interface~pic_print_array->proc~print_vector_int64 interface~pic_print_array->proc~print_vector_sp proc~print_3d_tensor_dp print_3d_tensor_dp interface~pic_print_array->proc~print_3d_tensor_dp proc~print_3d_tensor_int32 print_3d_tensor_int32 interface~pic_print_array->proc~print_3d_tensor_int32 proc~print_3d_tensor_int64 print_3d_tensor_int64 interface~pic_print_array->proc~print_3d_tensor_int64 proc~print_3d_tensor_sp print_3d_tensor_sp interface~pic_print_array->proc~print_3d_tensor_sp proc~print_3d_tensor_dp->interface~pic_print_array proc~print_3d_tensor_int32->interface~pic_print_array proc~print_3d_tensor_int64->interface~pic_print_array proc~print_3d_tensor_sp->interface~pic_print_array

Variables

Type Visibility Attributes Name Initial
character(len=5), private :: str

Source Code

   function to_char_logical(l) result(trimmed_str)
      !! tranform a logical to a string either true or false
      logical, intent(in) :: l
      character(len=5) :: str
      character(len=:), allocatable :: trimmed_str
      if (l) then
         str = "TRUE"
      else
         str = "FALSE"
      end if
      trimmed_str = trim(str)
   end function to_char_logical