You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
970 B
26 lines
970 B
2 years ago
|
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
||
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
||
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
||
|
|
C
|
||
|
|
C See packages/seacas/LICENSE for details
|
||
|
|
|
||
|
|
C=======================================================================
|
||
|
|
SUBROUTINE PLTROT(R,A,B)
|
||
|
|
REAL R(3,3),A(3,3),B(3,3)
|
||
|
|
|
||
|
|
B(1,1) = R(1,1)*A(1,1) + R(2,1)*A(2,1) + R(3,1)*A(3,1)
|
||
|
|
B(2,1) = R(1,2)*A(1,1) + R(2,2)*A(2,1) + R(3,2)*A(3,1)
|
||
|
|
B(3,1) = R(1,3)*A(1,1) + R(2,3)*A(2,1) + R(3,3)*A(3,1)
|
||
|
|
|
||
|
|
B(1,2) = R(1,1)*A(1,2) + R(2,1)*A(2,2) + R(3,1)*A(3,2)
|
||
|
|
B(2,2) = R(1,2)*A(1,2) + R(2,2)*A(2,2) + R(3,2)*A(3,2)
|
||
|
|
B(3,2) = R(1,3)*A(1,2) + R(2,3)*A(2,2) + R(3,3)*A(3,2)
|
||
|
|
|
||
|
|
B(1,3) = R(1,1)*A(1,3) + R(2,1)*A(2,3) + R(3,1)*A(3,3)
|
||
|
|
B(2,3) = R(1,2)*A(1,3) + R(2,2)*A(2,3) + R(3,2)*A(3,3)
|
||
|
|
B(3,3) = R(1,3)*A(1,3) + R(2,3)*A(2,3) + R(3,3)*A(3,3)
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
END
|