3940 FOR K=1 TO NCT(2)