Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0025/mtalg.for
There is 1 other file named mtalg.for in the archive. Click here to see a list.
00100	      SUBROUTINE MTALG(AARG,NA,BARG,NB,C)
00110		DIMENSION AARG(100),BARG(100),C(100),A(26),B(26)
00120	1     NAPL1=NA+1
00130	      DO 21 J1=1,NAPL1
00140	   21	A(J1) = AARG(J1)
00150	      NBPL1=NB+1
00160	      DO 41 J1=1,NBPL1
00170	41    B(J1)=BARG(J1)
00180	      NCPL1=NAPL1+NBPL1-1
00190	      DO 91 J1=1,NCPL1
00200	      TEMP=0.0
00210	      DO 81 J2=1,J1
00220	      IF (J2-NAPL1)  61, 61, 81
00230	61    N2=J1-J2+1
00240	      IF (N2-NBPL1)  71, 71, 81
00250	71    TEMP=TEMP+A(J2)*B(N2)
00260	81    CONTINUE
00270	      C(J1)=TEMP
00280	91    CONTINUE
00290	5001  END