Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!mailrus!ames!pasteur!helios.ee.lbl.gov!quench.lbl.gov!mike
From: mike@quench.lbl.gov (Michael Helm)
Newsgroups: comp.lang.fortran
Subject: CDC FORTRAN trivia questions
Keywords: arithmetic if logical
Message-ID: <1196@helios.ee.lbl.gov>
Date: 29 Oct 88 01:27:22 GMT
Sender: usenet@helios.ee.lbl.gov
Followup-To: me
Organization: Lawrence Berkeley Laboratory, Berkeley
Lines: 29

I'm trying to revive a dinosaur code that used to run on our CDC 6600/7600
years ago.  In so doing, I've come across some odd code fragments that
compilers on our newer machines don't like much.  Most of these I can
fix, but now I've come across one I'm not sure of, & my CDC-ish FORTRAN
manuals are long gone.  In particular, suppose one has this code:
   .
   .
   .
        LOGICAL IRON
   .
   .
   .
        IF(IRON)4,9
  4     A=B
   .
   .
  9     A=C
   .
   .
   .
        END

What logical state will IRON be in for #4 to be executed, & for #9
to be executed?  How were(are) logical values represented on old(current)
CDC hardware or in CDC FORTRAN programs?

Thanks for your help,

Michael Helm (Internet M_Helm@lbl.gov)