大家帮我看一下这个fortran程序有什么问题？

大家帮我看一下这个fortran程序有什么问题？我运行到标有999的那就运行不下去，说找不到文件名，那些表格子程序我没往上写，还有有些程序输出部分在执行FOR1和FOR2都能执行过去，但警告说是有未知的格式，这是为什么？？希望大家不吝赐教！！谢谢



DIMENSION QG(20),CSS(20),CBOD(20)
REAL QGG(20),CQSS(20),CQBOD(20)
INTEGER NBOD(20),NSS(20)
WRITE(*,*) 这里是污染程度子程序!
WRITE(*,*)-----请输入集中用水工厂数:N
WRITE(*,*) N=
READ(*,*)N
WRITE(*,*)-----请输入工厂平均水量:QG(I),(m**3/d); 并且输入工厂污
#水SS浓度:CSS(I),(mg/l); 并且输入工厂污水BOD浓度:CBOD(I),(mg/l)
DO 10 I=1,N
READ(*,*)QG(I),CSS(I),CBOD(I)
10 CONTINUE
NSSZ=0
NBODZ=0
DO 20 I=1,N
CQSS(I)=CSS(I)*QG(I)
NSS(I)=INT(CQSS(I)/45.0)
CQBOD(I)=CBOD(I)*QG(I)
NBOD(I)=INT(CQBOD(I)/30.0)
NSSZ=NSS(I)+NSSZ
NBODZ=NBOD(I)+NBODZ
WRITE(*,*)CQSS(I)
20 CONTINUE
WRITE(*,*)NSSZ,NBODZ
WRITE(*,*)-----请输入城市人口数:NW,QN
READ(*,*)NW,QN
QN=QN*1000.0
NWSS=NW+NSSZ
NWBOD=NW+NBODZ
QSH=QN*86400.0/NW
CSSP=45.0/QSH*1000.0
CBODP=30.0/QSH*1000.0
QGZ=0.0
SUMSS=0.0
SUMBOD=0.0
DO 30 I=1,N
QGG(I)=QG(I)/86.4
SUMSS=SUMSS+QGG(I)*CSS(I)
SUMBOD=SUMBOD+QGG(I)*CBOD(I)
QGZ=QGZ+QGG(I)
30 CONTINUE
QPING=QN+QGZ
CSSW=(QN*CSSP+SUMSS)/QPING
CBODW=(QN*CBODP+SUMBOD)/QPING
WRITE(*,40)QPING,CSSW,CBODW
40 FORMAT(15X,平均污水总量 =,F10.5,l/s,
#/,15X,SS 污染程度 =,F10.5,mg/l,
999 #/,15X,BOD 污染程度 =,F10.5,mg/l)
WRITE(12,(23X,42H ))
CALL PRD
WRITE(12,(11X,63H | 平 均 | SS |
# BOD ))
WRITE(12,(11X,63H 工 | 污 水 |-----------------------+--------
#---------------))
WRITE(12,(11X,63H 厂 | 量 | 浓度 | 总 量 | 人口 | 浓 度 |
# 总 量 | 人口 ))
WRITE(12,(11X,63H | m**3/d | mg/s | g | | mg/l |
# g | ))
WRITE(12,(11X,63H------+--------+------+---------+------+-------+
#--------+------))
DO 50 I=1,N
WRITE(12,(11X.I6,1H|,F8.1,1H|,F6.1,1H|,F9.1,1H|,I6,1H|,F6.1,
#1H|,F9.1,1H|,I6))I,QG(I),CSS(I),CQSS(I),NSS(I),CBOD(I),CQBOD(I)
#,NBOD(I)
WRITE(12,(11X,63H------+--------+------+---------+------+-------+
#--------+------))
50 CONTINUE
WRITE(12,(11X,33H 合计 | | | |,I6,18H|
#| |,I6))NSSZ,NBODZ
CALL PRD
WRITE(12,(28X,18H( 设 计 人 口 数 )))
CALL PRD
WRITE(12,(11X,63H | 设 计 人 口
#数 ))
WRITE(12,(11X,63H 污 水 来 源 |--------------------------
#---------------))
WRITE(12,(11X,63H | SS 折 算 |
#BOD 折 算 ))
WRITE(12,(11X,63H---------------------+--------------------+-----
#---------------))
WRITE(12,(11X,22H 居 住 区 |,I15,6H |,I14,6X))NW,NW
WRITE(12,(11X,22H 工 厂 区 |,I15,6H |,I14,6X))NSSZ,
#NBODZ
WRITE(12,(11X,22H 合 计 |,I15,6H |,I14.6X))NWSS,
#NWBOD
CALL PRD
WRITE(12,(24X,30H( 污 水 水 质 污 染 程 度 )))
CALL PRS2
WRITE(12,(11X,41H QSH | 生 活 污 水 排 放 量 |,
#F10.3,12H|l/(人*d)))QSH
CALL PRII
WRITE(12,(11X,41H CSSP | 生 活 污 水 平 均 SS |,
#F10.3,12H| mg/l ))CSSP
CALL PRII
WRITE(12,(11X,41H CBODP | 生 活 污 水 平 均 BOD |,
#F10.3,12H| mg/l ))