44 lines
1.6 KiB
C
44 lines
1.6 KiB
C
/*#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
|
|
/*# Author: Piyush Agram*/
|
|
/*# Copyright 2014, by the California Institute of Technology. ALL RIGHTS RESERVED.*/
|
|
/*# United States Government Sponsorship acknowledged.*/
|
|
/*# Any commercial use must be negotiated with the Office of Technology Transfer at*/
|
|
/*# the California Institute of Technology.*/
|
|
/*# This software may be subject to U.S. export control laws.*/
|
|
/*# By accepting this software, the user agrees to comply with all applicable U.S.*/
|
|
/*# export laws and regulations. User has the responsibility to obtain export licenses,*/
|
|
/*# or other export authority as may be required before exporting such information to*/
|
|
/*# foreign countries or providing access to foreign persons.*/
|
|
/*#*/
|
|
/*#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
|
|
|
|
#include "linalg3.h"
|
|
|
|
void matmat_C(double a[3][3], double b[3][3], double c[3][3])
|
|
{
|
|
int i;
|
|
|
|
for(i=0; i<3; i++)
|
|
{
|
|
c[i][0] = a[i][0]*b[0][0] + a[i][1]*b[1][0] + a[i][2]*b[2][0];
|
|
c[i][1] = a[i][0]*b[0][1] + a[i][1]*b[1][1] + a[i][2]*b[2][1];
|
|
c[i][2] = a[i][0]*b[0][2] + a[i][1]*b[1][2] + a[i][2]*b[2][2];
|
|
}
|
|
}
|
|
|
|
void matvec_C(double a[3][3], double b[3], double c[3])
|
|
{
|
|
c[0] = a[0][0]*b[0] + a[0][1]*b[1] + a[0][2]*b[2];
|
|
c[1] = a[1][0]*b[0] + a[1][1]*b[1] + a[1][2]*b[2];
|
|
c[2] = a[2][0]*b[0] + a[2][1]*b[1] + a[2][2]*b[2];
|
|
}
|
|
|
|
|
|
void tranmat_C(double a[3][3], double b[3][3])
|
|
{
|
|
b[0][0]=a[0][0]; b[0][1]=a[1][0]; b[0][2]=a[2][0];
|
|
b[1][0]=a[0][1]; b[1][1]=a[1][1]; b[1][2]=a[2][1];
|
|
b[2][0]=a[0][2]; b[2][1]=a[1][2]; b[2][2]=a[2][2];
|
|
}
|
|
|