I don't know how to sort using a compiled computer syntax and wanted to
reverse this shortcoming by implementing the sort in §10 MR&C. I think
this is an example of fair use: I bought the guys' book, typed in
something close to its content as I watched the olympics and managed on my
girlfriend's laptop, and posted it on the net to work out the kinks.

I think that studying fortran and watching women's volleyball and handball
are tasks that improve the quality of the other. I must say I developed I
little crush on the handball hungarian sharpshooter Görnic and wish them
luck if they play the french tomorrow but wish for penalty cards if they
play the russians. Please punish the aggressors.

module sort
implicit none
private
public :: selection_sort
integer, parameter :: string_length = 30
type, public :: address
character(len = string_length) :: name, &
street, town, state*2...

Ron Ford wrote:
(snip)

I don't think this format can read the file the
way you want it read.

To start, the initial / will skip the first line.

Next, you should have four A descriptors
to match the four CHARACTER variables.

Third, the third A will read in the city, state, and zip
leaving nothing when it gets to reading the zip in I8 format.

The read will fail and on most systems will print a
message telling you that it failed.

On Tue, 19 Aug 2008 18:06:12 -0800, glen herrmannsfeldt posted:

Alright, so I ace the initial backslash.

Ron Ford wrote:
(snip)

(snip)

and then put the state and zip code on the next line.

C has a format specifier that will allow reading up until
some set of characters appears to end on the comma.

-- glen

On Tue, 19 Aug 2008 21:03:22 -0800, glen herrmannsfeldt posted:

Ron Ford wrote:

On Aug 20, 8:58 pm, Ron Ford wrote:

[snip]

Input data records are of the form:

Program text:

On Wed, 20 Aug 2008 19:19:37 -0700 (PDT), e p chandler posted:

[code elided]

Works like a charm, Elliot, thanks.

I've got one last thing I wanted to try with the zipcode sort for right
now. I thought I might write the city state and zip on one line, as is
customary. Removing the slash and adding a comma in the edit descriptor
gives:

Tim Pawlenty
500 Olson way
St. Paul, MN 56674

I tried to put St. Paul a little closer to Minnesota with:
write (3, '(/a/a/trim(a), a2,i8)') data_array(i)
, but my compiler said nix to that. Is there a(n easy) way to trim the
trailing blanks on the city?

I also had a question about the declaration of the derived type:

On Wed, 20 Aug 2008 20:06:41 -0500, Gary Scott posted:

On Aug 21, 6:44 pm, Ron Ford wrote: