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