FUNCTION NUMRC(N,M) C CONVERTS 10 DIGITS OF ALPHA DATA TO NUMERIC DIMENSION NARAY(2) NARAY(1)=N NARAY(2)=M DECODE(10,100,NARAY)NUMRC 100 FORMAT(I10) RETURN END