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)