Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0025/clply.for
There is 1 other file named clply.for in the archive. Click here to see a list.
00100	      FUNCTION CLPLY(ARG,COFARG,NARG)
00110	      DIMENSION COFARG(100)
00120	1     TEMP=COFARG(NARG+1)
00130	      IF (NARG)  5001, 101, 11
00140	   11	DO 91 J1 = 1,NARG
00150	      N1=NARG-J1+1
00160	      TEMP=TEMP*ARG+COFARG(N1)
00170	91    CONTINUE
00180	101   CLPLY=TEMP
00190	5001  RETURN
00200	      END