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.
21 lines
781 B
21 lines
781 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 MPMUL2(N,X0,Y0,MAT,RES1,RES2,RES3,RES4)
|
||
|
|
DIMENSION X0(*),Y0(*),MAT(4,4),RES1(*),RES2(*),RES3(*),RES4(*)
|
||
|
|
REAL MAT
|
||
|
|
|
||
|
|
DO 3040 I = 1,N
|
||
|
|
RES1(I) = MAT(1,1)*X0(I) + MAT(2,1)*Y0(I) + MAT(4,1)
|
||
|
|
RES2(I) = MAT(1,2)*X0(I) + MAT(2,2)*Y0(I) + MAT(4,2)
|
||
|
|
RES3(I) = MAT(1,3)*X0(I) + MAT(2,3)*Y0(I) + MAT(4,3)
|
||
|
|
RES4(I) = MAT(1,4)*X0(I) + MAT(2,4)*Y0(I) + MAT(4,4)
|
||
|
|
3040 CONTINUE
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
END
|