ADAS Subroutine dxmadd
SUBROUTINE DXMADD( NDMET,
& A , NRA , NCA , B , NRB , NCB ,
& C , NRC , NCC ,
& NX , NY
& )
C
C-------------------------------------------------------------------------------
C ********
C ****************** FORTRAN 77 SUBROUTINE: DXMADD ****************************
C
C PURPOSE: CALCULATES THE SUM OF TWO RECTANGULAR MATRICES WITH
C ARBITRARY INTEGER MULTIPLIERS
C
C CALLING PROGRAM: D5MFSP
C
C SUBROUTINE:
C
C INPUT :(I*4) NDMET = MAXIMUM DIMENSION OF MATRICES
C INPUT :(R*8) A(,) = FIRST MATRIX
C INPUT :(I*4) NRA = NUMBER OF ROWS IN MATRIX A
C INPUT :(I*4) NCA = NUMBER OF COLUMNS IN MATRIX A
C INPUT :(R*8) B(,) = SECOND MATRIX
C INPUT :(I*4) NRB = NUMBER OF ROWS IN MATRIX B
C INPUT :(I*4) NCB = NUMBER OF COLUMNS IN MATRIX B
C INPUT :(I*4) NX = MULTIPLIER OF FIRST MATRIX
C INPUT :(I*4) NY = MULTIPLIER OF SECOND MATRIX
C INPUT :(I*4) NRC = NUMBER OF ROWS IN MATRIX C
C INPUT :(I*4) NCC = NUMBER OF COLUMNS IN MATRIX C
C
C OUTPUT:(R*8) C(,) = RESULTANT MATRIX C
C
C
C ROUTINES: NONE
C
C
C AUTHOR: D. BROOKS, H. P. SUMMERS, JET
C K1/1/57
C JET EXT. 4941
C
C DATE: 02/06/94
C
C UNIX-IDL PORT:
C
C VERSION: 1.1 DATE: 08-11-95
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C - FIRST RELEASE
C
C-------------------------------------------------------------------------------
INTEGER NCA, NCB, NCC, NDMET
INTEGER NRA, NRB, NRC, NX
INTEGER NY
REAL*8 A(NDMET,NDMET), B(NDMET,NDMET)
REAL*8 C(NDMET,NDMET)