Oops, sorry for the mistake. The legal syntax is, if I'm right,
IF (K .GT. 0) IF (X(K) .GT. 0.) THEN
Not as originally posted, as the first THEN must be omitted to turn it
into a logical IF.
--
Clive Page, Internet: [log in to unmask]
Dept of Physics & Astronomy,
University of Leicester, Phone +44 116 252 3551
Leicester, LE1 7RH, U.K. Fax +44 116 252 3311
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|