SUBROUTINE SETPEN(I)
      RETURN
      END