APBTC.FORTL11

      SUBROUTINE APBTC(A,B,C,NI,NK,NJ)
C
C
C
      IMPLICIT REAL*8 (A-H,O-Z)
C
      DIMENSION A(NI,NJ),B(NK,NI),C(NK,NJ)
C
      CALL MXMB(B,NK,1,C,1,NK,A,1,NI,NI,NK,NJ)
C
CTJL  DO 3 I=1,NI
CTJL       DO 2 J=1,NJ
CTJL            T=A(I,J)
CTJL            DO 1 K=1,NK
CTJL                 T=T+B(K,I)*C(K,J)
CTJL1           CONTINUE
CTJL            A(I,J)=T
CTJL2      CONTINUE
CTJL3 CONTINUE
      RETURN
C     END
C
C     DIMENSION A(1),B(1),C(1)
C
C     IJ=1
C     JA=1
C     DO 3 J=1,NJ
C     KI=1
C     DO 2 I=1,NI
C     KJ=JA
C     T=A(IJ)
C     DO 1 K=1,NK
C     T=T+B(KI)*C(KJ)
C     KI=KI+1
C     KJ=KJ+1
C   1 CONTINUE
C     A(IJ)=T
C     IJ=IJ+1
C   2 CONTINUE
C     JA=JA+NK
C   3 CONTINUE
C     RETURN
      END