subroutine char SEGMENT ! creating all other segments of the current working segment group ! creating group no. 1 if ( SEGMENT .in. " MOLA MOLB " ) then delete atom sele .not segm name SEGMENT .and. \ segm name MOLA MOLB #* end ! base segment MOLA