Re: BMD source program errors
- From: Terence <tbwright@xxxxxxxxx>
- Date: Mon, 15 Dec 2008 13:06:20 -0800 (PST)
robin wrote:
No it shouldn't. Path 128 is taken when B is zero (see previous line),Robin is correct as my comment line stood!
and there's no point in taking the square root of zero.
My fault was writing the comment on the wrong line.
It was the very similar line above that was wrong.
The original 1966 code WAS wrong asnd runs correctly after the
indicated change.
The correct situation of my posting, with NO CODE CHANGED is as
follows
"Terence" <tbwright@xxxxxxxxx> wrote in message
news:e4e773e9-5232-4961-a548-1d83cad877ba@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
I was particularly worried by just how many errors I found in some of
the versions of the subroutines, even afer I found errors in the
occasional core module which would REALLY stop them working.
Examples
a) a source line that should not be there, that destroys the variable
count of lines of data to read, which was just read as input.
Or code incorrectly copied (probably from another module) like the
following, which computes D2 from D1 and FN in the transgeneration
module.
C
6 FN=NCASE
A=D1/(FN+1.0)
B=A+1.0/(FN+1.0)
IF (A) 198,123,124
123 IF (B) 198,107,127
127 D2=ASN(SQRT(A)) <---Should be: 127 D2=ASN(SQRT(B))
GO TO 100
124 IF (B) 198,128,129
128 D2=ASN(SQRT(A)) <---previous coment here now above!!!
GO TO 100
129 D2=ASN(SQRT(A)) + ASN(SQRT(B))
GO TO 100
..
198 (ERROR reporting)
..
107 D2=1.0
The box I am writing in is only 25% of the screen. I hate it!
That's why I see my typos only after I get my own contribution sent
back to me in e-mail and see it twice as high and twice as wide
.
- Follow-Ups:
- Re: BMD source program errors
- From: robin
- Re: BMD source program errors
- References:
- BMD source program errors
- From: Terence
- Re: BMD source program errors
- From: robin
- BMD source program errors
- Prev by Date: Re: compiler bug?
- Next by Date: Fortran libraries & modules...
- Previous by thread: Re: BMD source program errors
- Next by thread: Re: BMD source program errors
- Index(es):
Relevant Pages
|