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.  Fixed the label 
C statement number for CONTINUE.
C
      DO 1005 J = 1, 100
         SSCOEFF(J) = COS(DPI*DFLOAT(J)/8.0D0)
         BBOUT(J) = SSCOEFF(J) * DEXP(-DFLOAT(J)/300.D0)
 1005 CONTINUE
C
C Output this data to the screen in ordered columns.
C
C Fixed error in maximum I, was 200, should be 100.
C
      DO 2344 I = 1, 100
         WRITE(*, 2340) I, I_INDEX(I), LLCOEFF(I), SSCOEFF(I), 
     1      BBOUT(I)
C
C Fixed error in FORMAT statement: F8.2 should be F10.2 and 
C there should be a 2 in 1PE format code.
C
 2340    FORMAT(2X,2I5,2X,F10.4,2X,1P2E12.2)
 2344 CONTINUE
C
      STOP
      END