1615 FOR M=1 TO NVB