subroutine char SEGMENTS int THE_MAP ! renames new waters to prevent deletions of already accepted solvents rename segm WAT sele segm name WAT2 end set vari II int segm sele segm name WAT end if ( II .gt. 0 ) then set vari WORK_SEGM char global - segm sele segm name WORK_SEGM .o segm name WAT end end_if