make_offset_string Subroutine

public subroutine make_offset_string(offset, offset_string, rc)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: offset
character(len=*), intent(out) :: offset_string
integer, intent(out), optional :: rc

Calls

proc~~make_offset_string~~CallsGraph proc~make_offset_string make_offset_string proc~mapl_verify MAPL_Verify proc~make_offset_string->proc~mapl_verify proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~make_offset_string~~CalledByGraph proc~make_offset_string make_offset_string proc~test_compare_negative_string_to_negative_heartbeat test_compare_negative_string_to_negative_heartbeat proc~test_compare_negative_string_to_negative_heartbeat->proc~make_offset_string proc~test_compare_positive_string_to_positive_heartbeat test_compare_positive_string_to_positive_heartbeat proc~test_compare_positive_string_to_positive_heartbeat->proc~make_offset_string proc~test_create_from_parameters_string_negative test_create_from_parameters_string_negative proc~test_create_from_parameters_string_negative->proc~make_offset_string proc~test_create_from_parameters_string_positive test_create_from_parameters_string_positive proc~test_create_from_parameters_string_positive->proc~make_offset_string

Source Code

   subroutine make_offset_string(offset, offset_string, rc)
      integer, intent(in) :: offset
      character(len=*), intent(out) :: offset_string
      integer, optional, intent(out) :: rc
      integer :: status

      write(offset_string, fmt='("PT", I03, "S")', iostat=status) offset
      _VERIFY(status)

   end subroutine make_offset_string