PROGRAM MYCODE C C This is my first Fortran code. C INTEGER I, J, I_INDEX(100) REAL PI, LLCOEFF(100) REAL*8 DPI, SSCOEFF(100), BBOUT(100) C PI = 3.14159 DPI = 3.14159265359D0 C C Calculate integer and single precision arrays. C DO 52 I = 1, 100 I_INDEX(I) = I*2 LLCOEFF(I) = FLOAT(I**2) * SIN(PI*FLOAT(I)/10.) 52 CONTINUE C C Calculate double precision arrays. This DO loop has an error. C DO 1005 J = 1, 100 SSCOEFF(J) = COS(DPI*DFLOAT(J)/8.0D0) BBOUT(J) = SSCOEFF(J) * DEXP(-DFLOAT(J)/300.D0) 52 CONTINUE C C Output this data to the screen in ordered columns. C C This next DO loop has an error in it. C DO 2344 I = 1, 200 WRITE(*, 2340) I, I_INDEX(I), LLCOEFF(I), SSCOEFF(I), 1 BBOUT(I) C C This FORMAT statement has two errors in it, C one minor and one severe. C 2340 FORMAT(2X,2I5,2X,F8.4,2X,1PE12.2) 2344 CONTINUE C STOP END