Rocstar-legacy/MatMul2_8f90_source.html

 !*********************************************************************

 !* Illinois Open Source License                                      *

 !*                                                                   *

 !* University of Illinois/NCSA                                       *

 !* Open Source License                                               *

 !*                                                                   *

 !* Copyright@2008, University of Illinois.  All rights reserved.     *

 !*                                                                   *

 !*  Developed by:                                                    *

 !*                                                                   *

 !*     Center for Simulation of Advanced Rockets                     *

 !*                                                                   *

 !*     University of Illinois                                        *

 !*                                                                   *

 !*     www.csar.uiuc.edu                                             *

 !*                                                                   *

 !* Permission is hereby granted, free of charge, to any person       *

 !* obtaining a copy of this software and associated documentation    *

 !* files (the "Software"), to deal with the Software without         *

 !* restriction, including without limitation the rights to use,      *

 !* copy, modify, merge, publish, distribute, sublicense, and/or      *

 !* sell copies of the Software, and to permit persons to whom the    *

 !* Software is furnished to do so, subject to the following          *

 !* conditions:                                                       *

 !*                                                                   *

 !*                                                                   *

 !* @ Redistributions of source code must retain the above copyright  *

 !*   notice, this list of conditions and the following disclaimers.  *

 !*                                                                   *

 !* @ Redistributions in binary form must reproduce the above         *

 !*   copyright notice, this list of conditions and the following     *

 !*   disclaimers in the documentation and/or other materials         *

 !*   provided with the distribution.                                 *

 !*                                                                   *

 !* @ Neither the names of the Center for Simulation of Advanced      *

 !*   Rockets, the University of Illinois, nor the names of its       *

 !*   contributors may be used to endorse or promote products derived *

 !*   from this Software without specific prior written permission.   *

 !*                                                                   *

 !* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,   *

 !* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES   *

 !* OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND          *

 !* NONINFRINGEMENT.  IN NO EVENT SHALL THE CONTRIBUTORS OR           *

 !* COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER       *

 !* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,   *

 !* ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE    *

 !* USE OR OTHER DEALINGS WITH THE SOFTWARE.                          *

 !*********************************************************************

 !* Please acknowledge The University of Illinois Center for          *

 !* Simulation of Advanced Rockets in works and publications          *

 !* resulting from this software or its derivatives.                  *

 !*********************************************************************

 !  *********************************************************

 !  *                                                       *

 !  *    SUBROUTINE TR/matmul                               *

 !  *                                                       *

 !  *                                                       *

 !  *                                                       *

 !  *********************************************************


 SUBROUTINE matmul2 (M,N,P, A, B, C)


 ! general purpose matrix multiply - multiplies an MxN array (A)

 ! by a NxP array (B) to yield an MxP array (C).


   INTEGER ::   i,j,k, m,n,p

   REAL*8 :: a(m,n), b(n,p), c(m,p), tot


   DO i = 1,m

      DO  j = 1,p

         tot = 0.d0

         DO k = 1,n

            tot = tot + a(i,k) * b(k,j)

         ENDDO

         c(i,j) = tot

      end DO

   enddo


 END SUBROUTINE matmul2


Aff_transformation_2::m
FT m(int i, int j) const
Definition: Aff_transformation_2.h:228

k
j indices k indices k
Definition: Indexing.h:6

Color::b
unsigned char b() const
Definition: Color.h:70

Line_2::c
RT c() const
Definition: Line_2.h:150

matmul2
subroutine matmul2(M, N, P, A, B, C)
Definition: MatMul2.f90:61

i
blockLoc i
Definition: read.cpp:79

n
const NT & n
Definition: rational_rotation.h:72

j
j indices j
Definition: Indexing.h:6

Line_2::a
RT a() const
Definition: Line_2.h:140