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
911 B
26 lines
911 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 MPMUL3(N,X0,Y0,Z0,MAT,RES1,RES2,RES3,RES4)
|
||
|
|
DIMENSION X0(*),Y0(*),Z0(*),MAT(4,4),RES1(*),RES2(*),RES3(*),
|
||
|
|
* RES4(*)
|
||
|
|
REAL MAT
|
||
|
|
|
||
|
|
DO 3100 I = 1,N
|
||
|
|
RES1(I) = MAT(1,1)*X0(I) + MAT(2,1)*Y0(I) + MAT(3,1)*Z0(I) +
|
||
|
|
* MAT(4,1)
|
||
|
|
RES2(I) = MAT(1,2)*X0(I) + MAT(2,2)*Y0(I) + MAT(3,2)*Z0(I) +
|
||
|
|
* MAT(4,2)
|
||
|
|
RES3(I) = MAT(1,3)*X0(I) + MAT(2,3)*Y0(I) + MAT(3,3)*Z0(I) +
|
||
|
|
* MAT(4,3)
|
||
|
|
RES4(I) = MAT(1,4)*X0(I) + MAT(2,4)*Y0(I) + MAT(3,4)*Z0(I) +
|
||
|
|
* MAT(4,4)
|
||
|
|
3100 CONTINUE
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
END
|