Output TRIMmed list of strings

[mojomother]

In my code, I declare a large list of fixed-length character strings:

CHARACTER * 256 :: string_list(256)

The ancient problem is that if I was to output such a string, it is always filled with spaces, no matter what its actual contents are:

string_list(1) = 'test'
WRITE(*,'(A)') string_list(1)


OUTPUT: "test                                                                                                                                                                                           "

When writing a single string, this is easily worked around by using TRIM:

string_list(1) = 'test'
WRITE(*,'(A)') TRIM(string_list(1))


OUTPUT: "test"

However, I want to output the entire list, i.e.

WRITE(*,'(256A)') string_list

In this case, TRIM can not so easily be applied since it doesn't work on an array. How can I output this string array with each individual string being written with its actual - rather than fixed - length?

Thank you very much for any help!
Matt

 

[xwb]

How about

write(*, '(256A)') (trim(string_list(ii)), ii = 1, 256)

 

[mojomother]

Works perfectly! Thank you so much!

I didn't know about this kind of constructs at all (iterating without DO blocks). Can you tell me what they are called?

 

[xwb]

This is an implied do loop. Normally used with read and write /print statements. You can also use them for array initialization (google array initialization)

! a(1) = 21, a(2) = 72 ...
data (a(j),j=1,4)/21.,72.,23.,34./
! All elements to 10
real, dimension(4):: b = (/(10, i = 1, 4)/)

 

[mojomother]

Valuable advice, thank you again!

Matt