Searched defs:Pack_tc_Mul (Results 1 – 2 of 2) sorted by relevance
2945 subroutine Pack_tc_Mul(nb,A,B,C) subroutine2947 integer nb2948 real*8 A(*)2949 complex*16 B(*)2973 * * Pack_tc_Mul2 * argument
3533 subroutine Pack_tc_Mul(nb,A,B,C) subroutine3535 integer nb3536 real*8 A(*)3537 complex*16 B(*)3538 complex*16 C(*)