1940 FOR J=1 TO NCM