emit_nop_input_transpose Subroutine

  subroutine emit_nop_input_transpose(prefix, input_name, nodes, num_nodes, &
       output_name)
    !! Emit the common NOP input transpose.
    implicit none

    character(*), intent(in) :: prefix, input_name
    type(onnx_node_type), intent(inout) :: nodes(:)
    integer, intent(inout) :: num_nodes
    character(*), intent(in) :: output_name

    character(4096) :: perm_attr

    perm_attr = '        "attribute": [{"name": "perm", "ints": ' // &
         '["1", "0"], "type": "INTS"}]'

    call emit_node('Transpose', '/' // trim(prefix) // '/Transpose', &
         trim(output_name), trim(perm_attr), nodes, num_nodes, &
         in1=trim(input_name))

  end subroutine emit_nop_input_transpose