Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50144/clply.f4
There are no other files named clply.f4 in the archive.
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