3405 FOR M=1 TO PAR1