/dports/math/mumps/mumps-5.1.2/src/ |
H A D | csol_bwd_aux.F | 196 & NCB_PANEL, TYPEF local 635 NCB_PANEL = LDAJ - NBJ 649 IF (NCB_PANEL.NE.0) THEN 651 CALL cgemv( 'T', NCB_PANEL, NBJ, ALPHA, 657 IF (NCB_PANEL - NCB.NE. 0) THEN 658 CALL cgemv( 'T', NCB_PANEL-NCB, NBJ, ALPHA, 696 IF (NCB_PANEL.NE.0) THEN 698 CALL cgemm( 'T', 'N', NBJ, NRHS_B, NCB_PANEL, ALPHA, 708 IF (NCB_PANEL - NCB .NE. 0) THEN 710 & NCB_PANEL-NCB, ALPHA,
|
H A D | dsol_bwd_aux.F | 194 & NCB_PANEL, TYPEF local 633 NCB_PANEL = LDAJ - NBJ 647 IF (NCB_PANEL.NE.0) THEN 649 CALL dgemv( 'T', NCB_PANEL, NBJ, ALPHA, 655 IF (NCB_PANEL - NCB.NE. 0) THEN 656 CALL dgemv( 'T', NCB_PANEL-NCB, NBJ, ALPHA, 694 IF (NCB_PANEL.NE.0) THEN 696 CALL dgemm( 'T', 'N', NBJ, NRHS_B, NCB_PANEL, ALPHA, 706 IF (NCB_PANEL - NCB .NE. 0) THEN 708 & NCB_PANEL-NCB, ALPHA,
|
H A D | ssol_bwd_aux.F | 194 & NCB_PANEL, TYPEF local 633 NCB_PANEL = LDAJ - NBJ 647 IF (NCB_PANEL.NE.0) THEN 649 CALL sgemv( 'T', NCB_PANEL, NBJ, ALPHA, 655 IF (NCB_PANEL - NCB.NE. 0) THEN 656 CALL sgemv( 'T', NCB_PANEL-NCB, NBJ, ALPHA, 694 IF (NCB_PANEL.NE.0) THEN 696 CALL sgemm( 'T', 'N', NBJ, NRHS_B, NCB_PANEL, ALPHA, 706 IF (NCB_PANEL - NCB .NE. 0) THEN 708 & NCB_PANEL-NCB, ALPHA,
|
H A D | zsol_bwd_aux.F | 196 & NCB_PANEL, TYPEF local 635 NCB_PANEL = LDAJ - NBJ 649 IF (NCB_PANEL.NE.0) THEN 651 CALL zgemv( 'T', NCB_PANEL, NBJ, ALPHA, 657 IF (NCB_PANEL - NCB.NE. 0) THEN 658 CALL zgemv( 'T', NCB_PANEL-NCB, NBJ, ALPHA, 696 IF (NCB_PANEL.NE.0) THEN 698 CALL zgemm( 'T', 'N', NBJ, NRHS_B, NCB_PANEL, ALPHA, 708 IF (NCB_PANEL - NCB .NE. 0) THEN 710 & NCB_PANEL-NCB, ALPHA,
|
H A D | csol_bwd.F | 115 & NCB_PANEL, TYPEF local 722 NCB_PANEL = LDAJ - NBJ 739 IF (NCB_PANEL.NE.0) THEN 741 CALL cgemv( 'T', NCB_PANEL, NBJ, ALPHA, 747 IF (NCB_PANEL - NCB.NE. 0) THEN 748 CALL cgemv( 'T', NCB_PANEL-NCB, NBJ, ALPHA, 800 IF (NCB_PANEL.NE.0) THEN 802 CALL cgemm( 'T', 'N', NBJ, NRHS_B, NCB_PANEL, ALPHA, 811 IF (NCB_PANEL - NCB .NE. 0) THEN 813 & NCB_PANEL-NCB, ALPHA,
|
H A D | dsol_bwd.F | 113 & NCB_PANEL, TYPEF local 720 NCB_PANEL = LDAJ - NBJ 737 IF (NCB_PANEL.NE.0) THEN 739 CALL dgemv( 'T', NCB_PANEL, NBJ, ALPHA, 745 IF (NCB_PANEL - NCB.NE. 0) THEN 746 CALL dgemv( 'T', NCB_PANEL-NCB, NBJ, ALPHA, 798 IF (NCB_PANEL.NE.0) THEN 800 CALL dgemm( 'T', 'N', NBJ, NRHS_B, NCB_PANEL, ALPHA, 809 IF (NCB_PANEL - NCB .NE. 0) THEN 811 & NCB_PANEL-NCB, ALPHA,
|
H A D | ssol_bwd.F | 113 & NCB_PANEL, TYPEF local 720 NCB_PANEL = LDAJ - NBJ 737 IF (NCB_PANEL.NE.0) THEN 739 CALL sgemv( 'T', NCB_PANEL, NBJ, ALPHA, 745 IF (NCB_PANEL - NCB.NE. 0) THEN 746 CALL sgemv( 'T', NCB_PANEL-NCB, NBJ, ALPHA, 798 IF (NCB_PANEL.NE.0) THEN 800 CALL sgemm( 'T', 'N', NBJ, NRHS_B, NCB_PANEL, ALPHA, 809 IF (NCB_PANEL - NCB .NE. 0) THEN 811 & NCB_PANEL-NCB, ALPHA,
|
H A D | zsol_bwd.F | 115 & NCB_PANEL, TYPEF local 722 NCB_PANEL = LDAJ - NBJ 739 IF (NCB_PANEL.NE.0) THEN 741 CALL zgemv( 'T', NCB_PANEL, NBJ, ALPHA, 747 IF (NCB_PANEL - NCB.NE. 0) THEN 748 CALL zgemv( 'T', NCB_PANEL-NCB, NBJ, ALPHA, 800 IF (NCB_PANEL.NE.0) THEN 802 CALL zgemm( 'T', 'N', NBJ, NRHS_B, NCB_PANEL, ALPHA, 811 IF (NCB_PANEL - NCB .NE. 0) THEN 813 & NCB_PANEL-NCB, ALPHA,
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | zmumps_part8.F | 5903 & PTWCB_PANEL, NCB_PANEL, TYPEF 6407 NCB_PANEL = LDAJ - NBJ 6423 IF (NCB_PANEL.NE.0) THEN 6424 CALL zgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6438 IF (NCB_PANEL.NE.0) THEN 6839 & PTWCB_PANEL, NCB_PANEL, TYPEF 7197 NCB_PANEL = LDAJ - NBJ 7209 IF (NCB_PANEL.NE.0) THEN 7210 CALL zgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7219 IF (NCB_PANEL.NE.0) THEN [all …]
|
H A D | cmumps_part8.F | 5903 & PTWCB_PANEL, NCB_PANEL, TYPEF 6407 NCB_PANEL = LDAJ - NBJ 6423 IF (NCB_PANEL.NE.0) THEN 6424 CALL cgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6438 IF (NCB_PANEL.NE.0) THEN 6839 & PTWCB_PANEL, NCB_PANEL, TYPEF 7197 NCB_PANEL = LDAJ - NBJ 7209 IF (NCB_PANEL.NE.0) THEN 7210 CALL cgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7219 IF (NCB_PANEL.NE.0) THEN [all …]
|
H A D | smumps_part8.F | 5899 & PTWCB_PANEL, NCB_PANEL, TYPEF 6403 NCB_PANEL = LDAJ - NBJ 6419 IF (NCB_PANEL.NE.0) THEN 6420 CALL sgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6434 IF (NCB_PANEL.NE.0) THEN 6833 & PTWCB_PANEL, NCB_PANEL, TYPEF 7191 NCB_PANEL = LDAJ - NBJ 7203 IF (NCB_PANEL.NE.0) THEN 7204 CALL sgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7213 IF (NCB_PANEL.NE.0) THEN [all …]
|
H A D | dmumps_part8.F | 5899 & PTWCB_PANEL, NCB_PANEL, TYPEF 6403 NCB_PANEL = LDAJ - NBJ 6419 IF (NCB_PANEL.NE.0) THEN 6420 CALL dgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6434 IF (NCB_PANEL.NE.0) THEN 6833 & PTWCB_PANEL, NCB_PANEL, TYPEF 7191 NCB_PANEL = LDAJ - NBJ 7203 IF (NCB_PANEL.NE.0) THEN 7204 CALL dgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7213 IF (NCB_PANEL.NE.0) THEN [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | cmumps_part8.F | 5903 & PTWCB_PANEL, NCB_PANEL, TYPEF 6407 NCB_PANEL = LDAJ - NBJ 6423 IF (NCB_PANEL.NE.0) THEN 6424 CALL cgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6438 IF (NCB_PANEL.NE.0) THEN 6839 & PTWCB_PANEL, NCB_PANEL, TYPEF 7197 NCB_PANEL = LDAJ - NBJ 7209 IF (NCB_PANEL.NE.0) THEN 7210 CALL cgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7219 IF (NCB_PANEL.NE.0) THEN [all …]
|
H A D | dmumps_part8.F | 5899 & PTWCB_PANEL, NCB_PANEL, TYPEF 6403 NCB_PANEL = LDAJ - NBJ 6419 IF (NCB_PANEL.NE.0) THEN 6420 CALL dgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6434 IF (NCB_PANEL.NE.0) THEN 6833 & PTWCB_PANEL, NCB_PANEL, TYPEF 7191 NCB_PANEL = LDAJ - NBJ 7203 IF (NCB_PANEL.NE.0) THEN 7204 CALL dgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7213 IF (NCB_PANEL.NE.0) THEN [all …]
|
H A D | zmumps_part8.F | 5903 & PTWCB_PANEL, NCB_PANEL, TYPEF 6407 NCB_PANEL = LDAJ - NBJ 6423 IF (NCB_PANEL.NE.0) THEN 6424 CALL zgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6438 IF (NCB_PANEL.NE.0) THEN 6839 & PTWCB_PANEL, NCB_PANEL, TYPEF 7197 NCB_PANEL = LDAJ - NBJ 7209 IF (NCB_PANEL.NE.0) THEN 7210 CALL zgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7219 IF (NCB_PANEL.NE.0) THEN [all …]
|
H A D | smumps_part8.F | 5899 & PTWCB_PANEL, NCB_PANEL, TYPEF 6403 NCB_PANEL = LDAJ - NBJ 6419 IF (NCB_PANEL.NE.0) THEN 6420 CALL sgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6434 IF (NCB_PANEL.NE.0) THEN 6833 & PTWCB_PANEL, NCB_PANEL, TYPEF 7191 NCB_PANEL = LDAJ - NBJ 7203 IF (NCB_PANEL.NE.0) THEN 7204 CALL sgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7213 IF (NCB_PANEL.NE.0) THEN [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | zmumps_part8.F | 5903 & PTWCB_PANEL, NCB_PANEL, TYPEF local 6407 NCB_PANEL = LDAJ - NBJ 6423 IF (NCB_PANEL.NE.0) THEN 6424 CALL zgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6438 IF (NCB_PANEL.NE.0) THEN 6839 & PTWCB_PANEL, NCB_PANEL, TYPEF local 7197 NCB_PANEL = LDAJ - NBJ 7209 IF (NCB_PANEL.NE.0) THEN 7210 CALL zgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7219 IF (NCB_PANEL.NE.0) THEN [all …]
|
H A D | smumps_part8.F | 5899 & PTWCB_PANEL, NCB_PANEL, TYPEF local 6403 NCB_PANEL = LDAJ - NBJ 6419 IF (NCB_PANEL.NE.0) THEN 6420 CALL sgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6434 IF (NCB_PANEL.NE.0) THEN 6833 & PTWCB_PANEL, NCB_PANEL, TYPEF local 7191 NCB_PANEL = LDAJ - NBJ 7203 IF (NCB_PANEL.NE.0) THEN 7204 CALL sgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7213 IF (NCB_PANEL.NE.0) THEN [all …]
|
H A D | cmumps_part8.F | 5903 & PTWCB_PANEL, NCB_PANEL, TYPEF local 6407 NCB_PANEL = LDAJ - NBJ 6423 IF (NCB_PANEL.NE.0) THEN 6424 CALL cgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6438 IF (NCB_PANEL.NE.0) THEN 6839 & PTWCB_PANEL, NCB_PANEL, TYPEF local 7197 NCB_PANEL = LDAJ - NBJ 7209 IF (NCB_PANEL.NE.0) THEN 7210 CALL cgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7219 IF (NCB_PANEL.NE.0) THEN [all …]
|
H A D | dmumps_part8.F | 5899 & PTWCB_PANEL, NCB_PANEL, TYPEF local 6403 NCB_PANEL = LDAJ - NBJ 6419 IF (NCB_PANEL.NE.0) THEN 6420 CALL dgemv( 'T', NCB_PANEL, NBJ, ALPHA, 6434 IF (NCB_PANEL.NE.0) THEN 6833 & PTWCB_PANEL, NCB_PANEL, TYPEF local 7191 NCB_PANEL = LDAJ - NBJ 7203 IF (NCB_PANEL.NE.0) THEN 7204 CALL dgemv( 'T', NCB_PANEL, NBJ, ALPHA, 7213 IF (NCB_PANEL.NE.0) THEN [all …]
|