3395 FOR L=1 TO IC