Re: zipcode selection sort in MR&C

On Thu, 21 Aug 2008 17:51:12 -0800, glen herrmannsfeldt posted:

write (3, '(/a/a/a,1x,a2,i8)') data_array(i)%name,
* data_array(i)%street, trim(data_array(i)%town),
* data_array(i)%state, data_array(i)%zip_code

That does the trick, Glen:

input:
Diane Feinstein
250 Harvey Milk Circle
San Fransisco,
CA 96580

output:
Diane Feinstein
250 Harvey Milk Circle
San Fransisco, CA 96580
--
What men value in this world is not rights but privileges. 7
H. L. Mencken
.