1815 FOR J=KI TO KF