adjustr(cadena): Cadena ajustada a la derecha¶
Ajuste a la derecha una cadena.
Declaración¶
Sintaxis¶
retval = adjustr(string)
elemental function adjustr(string)
Argumentos¶
string: el valor de entrada debe ser de tipo carácter.
Valor devuelto¶
El valor devuelto es de tipo carácter y del mismo tipo que el valor de entrada string, con los espacios finales eliminados y el mismo número de espacios agregados al principio.
Descripción¶
adjustr(cadena) ajusta la cadena de entrada eliminando los espacios finales y agregando la misma cantidad de espacios al comienzo de la cadena de entrada.
Tipos¶
El tipo de argumento admitido es el carácter.
interface repeat
module procedure repeati32, repeati64
end interface
contains
function adjustr(string)
character(len=*), intent(in) :: string
end function
Ejemplos¶
program intrinsics_adjustr
implicit none
character(*), parameter :: s1 = "A B "
print *, adjustr(s1)
end program
Result:
A B