subroutine inte IRES1 char STUFF_KEY
key STUFF_KEY sele STUFF_KEY .a .not resi numb IRES1 end
set vari IRES2 inte resi sele STUFF_KEY end
if ( IRES2 .le. 0 ) return
if ( IRES1 + 1 .ne. IRES2 ) then
set vari IRES1 = IRES2
rewind file
end_if

set vari IATOM1 inte atom sele resi numb IRES1 end
set vari IATOM2 inte atom sele resi numb IRES2 end
if ( IATOM1 .le. 0 .or. IATOM2 .le. 0 ) rewind file
< ?MAIN_UTILS:fix_geom_peptide.com IATOM1 IATOM2
set vari IRES1 = IRES2
rewind file

return