(求助)用fortran编写程序输出"九九表"

不给你直接解答，试把下面的程式修订一下(共8处)，便知答案。
C -----------------------------------------------------
INTEGER I, SMALL(9)
C -----------------------------------------------------
OPEN( UNIT =10, FILE ='tmp.inp',STATUS ='NEW')
C -----------------------------------------------------
WRITE (*,*)
WRITE (*,'(6X,A)') ' Read and calculate the summation, mean '
WRITE (*,'(6X,A)') ' of an one-dimensional array '
WRITE (*,'(6X,A)') ' '
6 -----------------------------------------------------
10 FORMAT(9(I2,2X )
11FORMAT(1X,F4.1,1X,F5.1)
DO I = 1. 9
READ(1 , 10) (SMALL(J),J=1,9)
TEMP=0.0
DO J=1. 9
TEMP=SMALL(J)+TEMP
SUMM=TEMP
ENDDO
AMEAN=SUMM/6.0
c
WRITE(*, 11) SUMM,AMEA