520 FOR L=1 TO NC