ADAS Subroutine xxmadd
SUBROUTINE XXMADD( NR , NC , X , A , Y , B , C ) C C C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: XXVADD ********************* C C PURPOSE: ADDS TWO MATRICES WITH MULTIPLIER FOR EACH. C C CALLING PROGRAM: GENERAL USE. C C INPUT : (I*4) NR = NUMBER OF ROWS IN MATRICES 'A' AND 'B'. C INPUT : (I*4) NC = NUMBER OF COLUMNS IN MATRICES 'A' AND 'B'. C INPUT : (R*8) X = FIRST MULTIPLIER. C INPUT : (R*8) A(,) = FIRST MATRIX. C 1ST DIMENSION: NR C 2ND DIMENSION: NC C INPUT : (R*8) Y = SECOND MULTIPLIER. C INPUT : (R*8) B(,) = SECOND MATRIX. C 1ST DIMENSION: NR C 2ND DIMENSION: NC C C OUTPUT: (R*8) C = OUTPUT MATIRX. C 1ST DIMENSION: NR C 2ND DIMENSION: NC C C (I*4) I = LOOP INDEX. C (I*4) J = LOOP INDEX. C C ROUTINES: NONE C C AUTHOR: JONATHAN NASH (TESSELLA SUPPORT SERVICES PLC) C K1/0/81 C JET EXT. 5183 C C DATE: 10/11/93 C C UNIX-IDL PORT: C C AUTHOR: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC) C C DATE: 22ND MAY 1996 C C VERSION: 1.1 DATE: 22-05-96 C MODIFIED: WILLIAM OSBORN C - FIRST VERSION. IBM VERSION NOT CHANGED C C----------------------------------------------------------------------- C C---------------------------------------------------------------------- INTEGER NC, NR REAL*8 A(NR,NC), B(NR,NC), C(NR,NC), X REAL*8 Y