get_timestep_output_name Subroutine

  subroutine get_timestep_output_name( &
       prefix, t, activation_name, inactive_suffix, activation_suffix, output)
    !! Build the canonical ONNX output name for one exported timestep.
    implicit none

    ! Arguments
    character(*), intent(in) :: prefix
    integer, intent(in) :: t
    character(*), intent(in) :: activation_name
    character(*), intent(in) :: inactive_suffix, activation_suffix
    character(128), intent(out) :: output

    ! Local variables
    character(128) :: step_prefix

    write(step_prefix, '(A,"_t",I0)') trim(prefix), t
    if(trim(activation_name) .ne. 'none')then
       output = trim(step_prefix)
       if(len_trim(activation_suffix) .gt. 0)then
          output = trim(output) // trim(activation_suffix)
       end if
       output = trim(output) // '_' // trim(adjustl(activation_name)) // &
            '_output'
    else
       output = trim(step_prefix) // trim(inactive_suffix)
    end if

  end subroutine get_timestep_output_name