3864 FOR M=1 TO NP(TF)