silvert@dalcs.UUCP (Bill Silvert) (06/07/86)
A program to generate automatic dependencies for f77 makefiles has just been posted to net.sources.
ken@njitcccc.UUCP (Kenneth Ng) (06/11/86)
References: <1594@ecsvax.UUCP> <bentley.853> <477@cubsvax.UUCP> <914@ttrdc.UUCP> Organization: NJ Inst of Tech., Newark NJ In article <914@ttrdc.UUCP>, levy@ttrdc.UUCP (Daniel R. Levy) writes: > _18 line_ fortran game of life? Can you post that (in net.lang.f77 of course)? It's been quite some time since my school account was rolled out into the bit bucket, therefore I had to reconstruct this from scratch, but its pretty close. The school compiler I used allowed fortran programs to not have the "STOP" and "END" statements, although it generated warnings. INTEGER A(10,10)/100*0/, B(10,10), C(10,10) READ(5,10)((A(I,J),J=2,9),I=2,9) 10 FORMAT(8I1) DO 100 COUNT = 1,50 DO 50 I = 2,7 DO 50 J = 2,7 SUM=A(I-1,J-1)+A(I-1,J)+A(I-1,J+1)+A(I,J-1)+A(I,J+1) >+A(I+1,J-1)+A(I+1,J)+A(I+1,J+1) B(I,J)=0 50 IF(SUM.EQ.3).OR.((SUM+A(I,J)).EQ.3)B(I,J)=1 DO 60 I=2,9 DO 60 J=2,9 C(I,J) = ' ' IF (B(I,J).EQ.1)C(I,J) = '*' 60 A(I,J) = B(I,J) 100 WRITE(6,70)COUNT,((C(I,J),J=2,9),I=2,9) 70 FORMAT('1 Gen ',I3,/,'0',8('*'),/,8(' |',8A1,'|',/),'0',8('*'),/) STOP END -- Kenneth Ng: uucp(unreliable) ihnp4!allegra!bellcore!njitcccc!ken bitnet(prefered) ken@njitcccc.bitnet New Jersey Institute of Technology Computerized Conferencing and Communications Center Newark, New Jersey 07102 Vulcan jealousy: "I fail to see the logic in prefering Stonn over me" Movie "Short Circuit": Number 5: "I need input" -- Kenneth Ng: uucp(unreliable) ihnp4!allegra!bellcore!njitcccc!ken bitnet(prefered) ken@njitcccc.bitnet New Jersey Institute of Technology Computerized Conferencing and Communications Center Newark, New Jersey 07102 Vulcan jealousy: "I fail to see the logic in prefering Stonn over me" Movie "Short Circuit": Number 5: "I need input"
levy@ttrdc.UUCP (Daniel R. Levy) (06/13/86)
In article <201@njitcccc.UUCP>, ken@njitcccc.UUCP writes: >In article <914@ttrdc.UUCP>, levy@ttrdc.UUCP (Daniel R. Levy) writes: >> _18 line_ fortran game of life? Can you post that (in net.lang.f77 of course)? >It's been quite some time since my school account was rolled >out into the bit bucket, therefore I had to reconstruct this >from scratch, but its pretty close. The school compiler I >used allowed fortran programs to not have the "STOP" and >"END" statements, although it generated warnings. >Kenneth Ng: uucp(unreliable) ihnp4!allegra!bellcore!njitcccc!ken Well, maybe you should have tested it too :-). Anyhow here is a slightly hacked version which does work-- not 18 lines though, more like 22 (I made C into a character array since that worked better with f77 on a big-endian 3B). IMPLICIT INTEGER (A-Z) INTEGER A(10,10), B(10,10) CHARACTER C(10,10) DATA A /100 * 0/ READ(5,10)((A(I,J),J=2,9),I=2,9) 10 FORMAT(8I1) DO 100 COUNT = 1,50 DO 50 I = 2,9 DO 50 J = 2,9 SUM=A(I-1,J-1)+A(I-1,J)+A(I-1,J+1)+A(I,J-1)+A(I,J+1) >+A(I+1,J-1)+A(I+1,J)+A(I+1,J+1) B(I,J)=0 50 IF((SUM.EQ.3).OR.((SUM+A(I,J)).EQ.3))B(I,J)=1 DO 60 I=2,9 DO 60 J=2,9 C(I,J) = ' ' IF (B(I,J).EQ.1)C(I,J) = '*' 60 A(I,J) = B(I,J) 100 WRITE(6,70)COUNT,((C(I,J),J=2,9),I=2,9) 70 FORMAT(' Gen ',I3,/,2X,8('*'),/,8(' |',8A1,'|',/),2X,8('*'),/) STOP END -- ------------------------------- Disclaimer: The views contained herein are | dan levy | yvel nad | my own and are not at all those of my em- | an engihacker @ | ployer or the administrator of any computer | at&t computer systems division | upon which I may hack. | skokie, illinois | -------------------------------- Path: ..!{akgua,homxb,ihnp4,ltuxa,mvuxa, vax135}!ttrdc!levy
ken@njitcccc.UUCP (Kenneth Ng) (06/15/86)
In article <955@ttrdc.UUCP>, levy@ttrdc.UUCP (Daniel R. Levy) writes: > In article <201@njitcccc.UUCP>, ken@njitcccc.UUCP writes: > >In article <914@ttrdc.UUCP>, levy@ttrdc.UUCP (Daniel R. Levy) writes: > >> _18 line_ fortran game of life? Can you post that (in net.lang.f77 of course)? > >It's been quite some time since my school account was rolled > >out into the bit bucket, therefore I had to reconstruct this > >from scratch, but its pretty close. The school compiler I > >used allowed fortran programs to not have the "STOP" and > >"END" statements, although it generated warnings. > >Kenneth Ng: uucp(unreliable) ihnp4!allegra!bellcore!njitcccc!ken > > Well, maybe you should have tested it too :-). Anyhow here is a slightly > hacked version which does work-- not 18 lines though, more like 22 (I made > C into a character array since that worked better with f77 on a big-endian > 3B). Thanks, I'm keeping a printed copy of this, which hopefully won't also end up in the bit bucket. While I do have access to a fortran here, its a pain in the rear to use, but I should have tested it. This program was prompted by a teaching assistent who said he had written the shortest possible game of life in 50 or so lines of fortran. -- Kenneth Ng: uucp(unreliable) ihnp4!allegra!bellcore!njitcccc!ken soon uucp:ken@rigel.cccc.njit.edu bitnet(prefered) ken@njitcccc.bitnet soon bitnet: ken@orion.cccc.njit.edu (Yes, we are slowly moving to RFC 920, kicking and screaming) New Jersey Institute of Technology Computerized Conferencing and Communications Center Newark, New Jersey 07102 Vulcan jealousy: "I fail to see the logic in prefering Stonn over me" Movie "Short Circuit": Number 5: "I need input"