上次那个标号看不见，不好意思！！重贴一个！

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


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)
999 WRITE(12,(23X,42H