Search Site | Contact Details | FAQ

ADAS Subroutine dxmmul

       SUBROUTINE DXMMUL( NDMET ,
     &                    A     , NRA  , NCA  , B    , NRB  , NCB  ,
     &                    C
     &                  )
C
C-------------------------------------------------------------------------------
C                                                                       ********
C  ****************** FORTRAN 77 SUBROUTINE: DXMMUL ****************************
C
C  PURPOSE: CALCULATES THE PRODUCT OF TWO RECTANGULAR MATRICES
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
C  OUTPUT:(R*8) C(,)          = RESULTANT MATRIX C
C
C         (I*4) L             = GENERAL INDEX
C         (I*4) M             = GENERAL INDEX
C         (I*4) N             = GENERAL INDEX
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,         NDMET,       NRA
      INTEGER             NRB
      REAL*8              A(NDMET,NDMET),           B(NDMET,NDMET)
      REAL*8              C(NDMET,NDMET)
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk