调整器（字符串）：右调整字符串

右调整一个字符串。

声明

语法

retval = adjustr(string)
elemental function adjustr(string)

参数

string：输入值必须是字符类型。

返回值

返回值是字符类型，与输入值string的类型相同，删除了尾随空格并在开头添加了相同数量的空格。

描述

adjustr(string) 通过删除任何尾随空格并在输入字符串的开头添加相同数量的空格来调整输入字符串。

类型

支持的参数类型是字符。

interface repeat
    module procedure repeati32, repeati64
end interface

contains

function adjustr(string)
    character(len=*), intent(in) :: string
end function

示例

program intrinsics_adjustr
    implicit none
    character(*), parameter :: s1 = "A B "
    print *, adjustr(s1)
end program

结果：

 A B

也可以看看

adjustl。