| 查看: 321 | 回复: 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 |
回复此楼» 猜你喜欢
论文撤稿了
已经有8人回复
-
博士申请
已经有7人回复
-
青B发送上会通知了吗
已经有8人回复
-
化学专业申博
已经有4人回复
-
评审有感
已经有27人回复
-
河北省自然科学基金
已经有9人回复
-
西安交大新媒学院副院长用撤稿论文结题
已经有5人回复
-
某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！
已经有5人回复
-
26/27申博自荐
已经有9人回复
-
博士申请
已经有3人回复