- zero=.false.
- do ires=1,nres
- zero=zero.or.itype(ires).eq.0
- enddo
- if (zero) then
- write (iout,'(2a)') "Gaps in PDB coordinates detected;",
- & " look for ZERO in the control output above."
- write (iout,'(2a)') "Repair the PDB file using MODELLER",
- & " or other softwared and resubmit."
- call flush(iout)
- stop
- endif