Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!ames!ucsd!usc!samsung!dali.cs.montana.edu!milton!uw-beaver!Teknowledge.COM!unix!garth!smryan
From: smryan@garth.UUCP (sous-realiste)
Newsgroups: comp.lang.fortran
Subject: Re: write array
Message-ID: <567@garth.UUCP>
Date: 13 Jul 90 21:29:52 GMT
References: <112121@linus.mitre.org>
Reply-To: smryan@garth.UUCP (sous-realiste)
Distribution: usa
Organization: intergraph/apd in sunny california
Lines: 21

Assuming KA is declared by something like

	.  .  .
	DIMENSION KA(1:n)
	.  .  .
>     write (...) KA 

Then the write is equivalent to
	WRITE(...) (KA(j)=1,n)
or your compiler is broken.

[	DIMENSION KA(a:b,c:d,...)
	WRITE(...) KA
should be the same as
	WRITE(...) (...((KA(i,j,...),i=a,b),j=c,d)...)
]
-- 
Her somber eyes consider all        ||/+\==/+\||                     Steven Ryan
that loom and tower, large and tall.||\=/++\=/||       ...!uunet!ingr!apd!smryan
Her everyday is always new          ||/=\++/=\||...!{apple|pyramid}!garth!smryan
and fills her eyes of frail blue.   ||\+/==\+/||   2400 Geng Road, Palo Alto, CA