Inverse function of LEN_TRIM

[madsplinter]

Hi there,

I'm writing a subroutine that accepts a string of variable lenght as input. The maximum lenght of the string is 128 characters and so that's the lenght I've defined for it in the subroutine.

Now, this isthe problem: when I pass to the subroutine a string shorter than 128 characters I get an errorof "Character length argument mismatch". I thought that I could solve the problem using a function that does the inverse job of LEN_TRIM, that is, adds at the end of the input string a series of blank spaces in order to arrive at a desired lenght.

Is there a function like this already implemented in fortran?

Or maybe youhave another way to solve the problem?

[TimP]

How about simple assignment?

character(len=128) padded128_string

padded128_string = trimmed_string

[Steven_L_Intel1]

Is there a specific reason you defined the length as 128 in the subroutine? Using :LEN=*, where the length is taken from that of the argument, is the more usual approach and avoids this problem.

There is no intrinsic to pad a string out to a given length, but you could write a function to do this easily enough:

function pad (string, length)
character(len=length) :: pad
character(len=*, intent=in) :: string
integer, intent=in :: length

pad = string
return
end function pad