| 查看: 296 | 回复: 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 |
回复此楼» 猜你喜欢
“人文社科而论，许多学术研究还没有达到民国时期的水平”
已经有4人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有11人回复
-
什么是人一生最重要的？
已经有4人回复
-
版面费该交吗
已经有3人回复
-
今年春晚有几个节目很不错，点赞！
已经有12人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有12人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有5人回复