/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cfac_front_aux.F | 252 COMPLEX VALPIV local 286 VALPIV = ONE/A(APOS) 309 COMPLEX ALPHA,VALPIV local 332 VALPIV = ONE/A(APOS) 357 A(LPOS) = A(LPOS)*VALPIV 380 A(LPOS) = A(LPOS)*VALPIV 546 COMPLEX :: VALPIV local 565 VALPIV = ONE/A(APOS) 1391 COMPLEX VALPIV local 1425 VALPIV = ONE/A(APOS) [all …]
|
H A D | sfac_front_aux.F | 252 REAL VALPIV local 286 VALPIV = ONE/A(APOS) 309 REAL ALPHA,VALPIV local 332 VALPIV = ONE/A(APOS) 357 A(LPOS) = A(LPOS)*VALPIV 380 A(LPOS) = A(LPOS)*VALPIV 546 REAL :: VALPIV local 565 VALPIV = ONE/A(APOS) 1400 REAL VALPIV local 1434 VALPIV = ONE/A(APOS) [all …]
|
H A D | dfac_front_aux.F | 252 DOUBLE PRECISION VALPIV local 286 VALPIV = ONE/A(APOS) 289 A(LPOS) = A(LPOS)*VALPIV 309 DOUBLE PRECISION ALPHA,VALPIV local 332 VALPIV = ONE/A(APOS) 357 A(LPOS) = A(LPOS)*VALPIV 380 A(LPOS) = A(LPOS)*VALPIV 546 DOUBLE PRECISION :: VALPIV local 565 VALPIV = ONE/A(APOS) 1400 DOUBLE PRECISION VALPIV local [all …]
|
H A D | zfac_front_aux.F | 252 COMPLEX(kind=8) VALPIV local 286 VALPIV = ONE/A(APOS) 289 A(LPOS) = A(LPOS)*VALPIV 309 COMPLEX(kind=8) ALPHA,VALPIV local 332 VALPIV = ONE/A(APOS) 357 A(LPOS) = A(LPOS)*VALPIV 380 A(LPOS) = A(LPOS)*VALPIV 546 COMPLEX(kind=8) :: VALPIV local 565 VALPIV = ONE/A(APOS) 1391 COMPLEX(kind=8) VALPIV local [all …]
|
H A D | zfac_front_type2_aux.F | 472 COMPLEX(kind=8) VALPIV local 502 VALPIV = ONE/A(APOS) 507 A(K1POS) = A(K1POS) * VALPIV 521 A(K1POS) = A(K1POS) * VALPIV 529 A(APOSMAX) = A(APOSMAX) * abs(VALPIV)
|
H A D | cfac_front_type2_aux.F | 472 COMPLEX VALPIV local 502 VALPIV = ONE/A(APOS) 507 A(K1POS) = A(K1POS) * VALPIV 521 A(K1POS) = A(K1POS) * VALPIV 529 A(APOSMAX) = A(APOSMAX) * abs(VALPIV)
|
H A D | dfac_front_type2_aux.F | 480 DOUBLE PRECISION VALPIV local 510 VALPIV = ONE/A(APOS) 515 A(K1POS) = A(K1POS) * VALPIV 529 A(K1POS) = A(K1POS) * VALPIV 537 A(APOSMAX) = A(APOSMAX) * abs(VALPIV)
|
H A D | sfac_front_type2_aux.F | 480 REAL VALPIV local 510 VALPIV = ONE/A(APOS) 515 A(K1POS) = A(K1POS) * VALPIV 529 A(K1POS) = A(K1POS) * VALPIV 537 A(APOSMAX) = A(APOSMAX) * abs(VALPIV)
|
H A D | csol_fwd_aux.F | 402 COMPLEX VALPIV, A11, A22, A12, DETPIV local 945 VALPIV = ONE/A( APOS1 ) 949 & WCB( IFR8+(K-JBDEB)*LD_WCBPIV ) * VALPIV 952 & WCB( IFR8+(K-JBDEB)*LD_WCBPIV ) * VALPIV 1030 VALPIV = ONE/A( APOS1 ) 1033 & WCB( IFR8 ) * VALPIV 1036 & WCB( IFR8 ) * VALPIV
|
H A D | dsol_fwd_aux.F | 402 DOUBLE PRECISION VALPIV, A11, A22, A12, DETPIV local 943 VALPIV = ONE/A( APOS1 ) 947 & WCB( IFR8+(K-JBDEB)*LD_WCBPIV ) * VALPIV 950 & WCB( IFR8+(K-JBDEB)*LD_WCBPIV ) * VALPIV 1028 VALPIV = ONE/A( APOS1 ) 1031 & WCB( IFR8 ) * VALPIV 1034 & WCB( IFR8 ) * VALPIV
|
H A D | ssol_fwd_aux.F | 402 REAL VALPIV, A11, A22, A12, DETPIV local 943 VALPIV = ONE/A( APOS1 ) 947 & WCB( IFR8+(K-JBDEB)*LD_WCBPIV ) * VALPIV 950 & WCB( IFR8+(K-JBDEB)*LD_WCBPIV ) * VALPIV 1028 VALPIV = ONE/A( APOS1 ) 1031 & WCB( IFR8 ) * VALPIV 1034 & WCB( IFR8 ) * VALPIV
|
H A D | zsol_fwd_aux.F | 402 COMPLEX(kind=8) VALPIV, A11, A22, A12, DETPIV local 945 VALPIV = ONE/A( APOS1 ) 949 & WCB( IFR8+(K-JBDEB)*LD_WCBPIV ) * VALPIV 952 & WCB( IFR8+(K-JBDEB)*LD_WCBPIV ) * VALPIV 1030 VALPIV = ONE/A( APOS1 ) 1033 & WCB( IFR8 ) * VALPIV 1036 & WCB( IFR8 ) * VALPIV
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | zmumps_part6.F | 770 COMPLEX(kind=8) VALPIV 812 VALPIV = ONE/A(APOS) 813 A(APOS) = VALPIV 849 A(K1POS) = A(K1POS) * VALPIV 943 COMPLEX(kind=8) VALPIV 949 VALPIV = ONE/A(APOS) 950 A(APOS) = VALPIV 958 A(LPOS) = VALPIV*A(LPOS) 2783 COMPLEX(kind=8) VALPIV 2824 VALPIV = ONE/A(APOS) [all …]
|
H A D | smumps_part6.F | 780 REAL VALPIV 822 VALPIV = ONE/A(APOS) 823 A(APOS) = VALPIV 859 A(K1POS) = A(K1POS) * VALPIV 953 REAL VALPIV 959 VALPIV = ONE/A(APOS) 960 A(APOS) = VALPIV 968 A(LPOS) = VALPIV*A(LPOS) 2801 REAL VALPIV 2842 VALPIV = ONE/A(APOS) [all …]
|
H A D | cmumps_part6.F | 770 COMPLEX VALPIV 812 VALPIV = ONE/A(APOS) 813 A(APOS) = VALPIV 849 A(K1POS) = A(K1POS) * VALPIV 943 COMPLEX VALPIV 949 VALPIV = ONE/A(APOS) 950 A(APOS) = VALPIV 958 A(LPOS) = VALPIV*A(LPOS) 2783 COMPLEX VALPIV 2824 VALPIV = ONE/A(APOS) [all …]
|
H A D | dmumps_part6.F | 780 DOUBLE PRECISION VALPIV 822 VALPIV = ONE/A(APOS) 823 A(APOS) = VALPIV 859 A(K1POS) = A(K1POS) * VALPIV 953 DOUBLE PRECISION VALPIV 959 VALPIV = ONE/A(APOS) 960 A(APOS) = VALPIV 968 A(LPOS) = VALPIV*A(LPOS) 2801 DOUBLE PRECISION VALPIV 2842 VALPIV = ONE/A(APOS) [all …]
|
H A D | cmumps_part4.F | 1583 COMPLEX VALPIV 1617 VALPIV = ONE/A(APOS) 1620 A(LPOS) = A(LPOS)*VALPIV 1637 COMPLEX ALPHA,VALPIV 1649 VALPIV = ONE/A(APOS) 1652 A(LPOS) = VALPIV*A(LPOS) 1673 COMPLEX ALPHA,VALPIV 1688 VALPIV = ONE/A(APOS) 1691 A(LPOS) = A(LPOS)*VALPIV
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | dmumps_part6.F | 780 DOUBLE PRECISION VALPIV 822 VALPIV = ONE/A(APOS) 823 A(APOS) = VALPIV 859 A(K1POS) = A(K1POS) * VALPIV 953 DOUBLE PRECISION VALPIV 959 VALPIV = ONE/A(APOS) 960 A(APOS) = VALPIV 968 A(LPOS) = VALPIV*A(LPOS) 2801 DOUBLE PRECISION VALPIV 2842 VALPIV = ONE/A(APOS) [all …]
|
H A D | zmumps_part6.F | 770 COMPLEX(kind=8) VALPIV 812 VALPIV = ONE/A(APOS) 813 A(APOS) = VALPIV 849 A(K1POS) = A(K1POS) * VALPIV 943 COMPLEX(kind=8) VALPIV 949 VALPIV = ONE/A(APOS) 950 A(APOS) = VALPIV 958 A(LPOS) = VALPIV*A(LPOS) 2783 COMPLEX(kind=8) VALPIV 2824 VALPIV = ONE/A(APOS) [all …]
|
H A D | cmumps_part6.F | 770 COMPLEX VALPIV 812 VALPIV = ONE/A(APOS) 813 A(APOS) = VALPIV 849 A(K1POS) = A(K1POS) * VALPIV 943 COMPLEX VALPIV 949 VALPIV = ONE/A(APOS) 950 A(APOS) = VALPIV 958 A(LPOS) = VALPIV*A(LPOS) 2783 COMPLEX VALPIV 2824 VALPIV = ONE/A(APOS) [all …]
|
H A D | smumps_part6.F | 780 REAL VALPIV 822 VALPIV = ONE/A(APOS) 823 A(APOS) = VALPIV 859 A(K1POS) = A(K1POS) * VALPIV 953 REAL VALPIV 959 VALPIV = ONE/A(APOS) 960 A(APOS) = VALPIV 968 A(LPOS) = VALPIV*A(LPOS) 2801 REAL VALPIV 2842 VALPIV = ONE/A(APOS) [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | dmumps_part6.F | 780 DOUBLE PRECISION VALPIV local 822 VALPIV = ONE/A(APOS) 823 A(APOS) = VALPIV 859 A(K1POS) = A(K1POS) * VALPIV 953 DOUBLE PRECISION VALPIV local 959 VALPIV = ONE/A(APOS) 960 A(APOS) = VALPIV 968 A(LPOS) = VALPIV*A(LPOS) 2801 DOUBLE PRECISION VALPIV local 2842 VALPIV = ONE/A(APOS) [all …]
|
H A D | zmumps_part6.F | 770 COMPLEX(kind=8) VALPIV local 812 VALPIV = ONE/A(APOS) 813 A(APOS) = VALPIV 849 A(K1POS) = A(K1POS) * VALPIV 943 COMPLEX(kind=8) VALPIV local 949 VALPIV = ONE/A(APOS) 950 A(APOS) = VALPIV 958 A(LPOS) = VALPIV*A(LPOS) 2783 COMPLEX(kind=8) VALPIV local 2824 VALPIV = ONE/A(APOS) [all …]
|
H A D | cmumps_part6.F | 770 COMPLEX VALPIV local 812 VALPIV = ONE/A(APOS) 813 A(APOS) = VALPIV 849 A(K1POS) = A(K1POS) * VALPIV 943 COMPLEX VALPIV local 949 VALPIV = ONE/A(APOS) 950 A(APOS) = VALPIV 958 A(LPOS) = VALPIV*A(LPOS) 2783 COMPLEX VALPIV local 2824 VALPIV = ONE/A(APOS) [all …]
|
H A D | smumps_part6.F | 780 REAL VALPIV local 822 VALPIV = ONE/A(APOS) 823 A(APOS) = VALPIV 859 A(K1POS) = A(K1POS) * VALPIV 953 REAL VALPIV local 959 VALPIV = ONE/A(APOS) 960 A(APOS) = VALPIV 968 A(LPOS) = VALPIV*A(LPOS) 2801 REAL VALPIV local 2842 VALPIV = ONE/A(APOS) [all …]
|