| 查看: 297 | 回复: 0 | |||
astringent铜虫 (著名写手)
|
[交流]
【求助】运行出错
|
|
请大家帮忙看看，为什么运行时会出现这个错误？ findcswb.f90:77.10: enddo 1 Error: Syntax error in WRITE statement at (1) findcswb.f90:84.10: end 1 Error: END DO statement expected at (1) Error: Unexpected end of file in 'findcswb.f90' program main ---- do i=1, nattot if (('atomname'.eq.'O').and.('resname'.eq.'WAT')) then io = i ih1 = io+1 ih2 = io+2 call test & (io,ih1,ia1,xxx,yyy,zzz,nattot,cell,atomname,resname,ihbnum) if (ihbnum.eq.1) then call test & (io,ih2,ia2,xxx,yyy,zzz,nattot,cell, & atomname,resname,ihbnum) if (ihbnum.eq.1) then if (resindex(ia1).eq.resindex(ia2)+1 & .or. resindex(ia1).eq. resindex(ia2)-1) then write(*,*) 'not find a cswb' else write(*,*) 'find a cswb' nhb=nhb+1 acc1(nhb)=ia1 acc2(nhb)=ia2 endif endif endif endif enddo do j=1,nhb write (nout,100) 'acc1:',label(acc1(j)),atomename(acc1(j)),& resname(acc1(j)),resindex(acc1(j)), & &'acc2:',label(acc2(j)),atomename(acc2(j)),& resname(acc2(j)),resindex(acc2(j))& enddo sum=sum+nhb enddo avgnhb=sum/nstep write (nout,"('avergaed number is',i2)"  avgnhb100 format(2(a5,1x,i4,3x,a4,3x,a3,2x,i2)) close(nout) end |
回复此楼» 猜你喜欢
土木水利328分求调剂
已经有5人回复
-
调剂
已经有3人回复
-
265求调剂
已经有10人回复
-
338求调剂，一志愿能源动力，外语是日语203
已经有4人回复
-
一志愿安徽大学0817化学工程与技术，求调剂
已经有13人回复
-
309求调剂
已经有12人回复
-
312求调剂
已经有7人回复
-
288求调剂 一志愿哈工大 材料与化工
已经有34人回复
-
一志愿a区211，085601-307分求调剂
已经有25人回复
-
求材料调剂，一志愿郑州大学289分
已经有5人回复
