/dports/math/mumps/mumps-5.1.2/src/ |
H A D | dfac_asm_ELT.F | 101 INTEGER :: K1RHS, K2RHS, JFirstRHS local 122 K1RHS = 0 127 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 128 K1RHS = K 133 IF (K1RHS.GT.0) K2RHS=K2 134 IF ( K2RHS.GE.K1RHS ) THEN 138 DO K = K1RHS, K2RHS 145 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+ IN)
|
H A D | zfac_asm_ELT.F | 101 INTEGER :: K1RHS, K2RHS, JFirstRHS local 122 K1RHS = 0 127 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 128 K1RHS = K 133 IF (K1RHS.GT.0) K2RHS=K2 134 IF ( K2RHS.GE.K1RHS ) THEN 138 DO K = K1RHS, K2RHS 145 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+ IN)
|
H A D | cfac_asm_ELT.F | 101 INTEGER :: K1RHS, K2RHS, JFirstRHS local 122 K1RHS = 0 127 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 128 K1RHS = K 133 IF (K1RHS.GT.0) K2RHS=K2 134 IF ( K2RHS.GE.K1RHS ) THEN 138 DO K = K1RHS, K2RHS 145 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+ IN)
|
H A D | sfac_asm_ELT.F | 101 INTEGER :: K1RHS, K2RHS, JFirstRHS local 122 K1RHS = 0 127 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 128 K1RHS = K 133 IF (K1RHS.GT.0) K2RHS=K2 134 IF ( K2RHS.GE.K1RHS ) THEN 138 DO K = K1RHS, K2RHS 145 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+ IN)
|
H A D | dfac_asm.F | 622 INTEGER :: K1RHS, K2RHS, JFirstRHS local 643 K1RHS = 0 648 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 649 K1RHS = K 654 IF (K1RHS.GT.0) K2RHS=K2 655 IF ( K2RHS.GE.K1RHS ) THEN 659 DO K = K1RHS, K2RHS 665 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | cfac_asm.F | 622 INTEGER :: K1RHS, K2RHS, JFirstRHS local 643 K1RHS = 0 648 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 649 K1RHS = K 654 IF (K1RHS.GT.0) K2RHS=K2 655 IF ( K2RHS.GE.K1RHS ) THEN 659 DO K = K1RHS, K2RHS 665 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | sfac_asm.F | 622 INTEGER :: K1RHS, K2RHS, JFirstRHS local 643 K1RHS = 0 648 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 649 K1RHS = K 654 IF (K1RHS.GT.0) K2RHS=K2 655 IF ( K2RHS.GE.K1RHS ) THEN 659 DO K = K1RHS, K2RHS 665 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | zfac_asm.F | 622 INTEGER :: K1RHS, K2RHS, JFirstRHS local 643 K1RHS = 0 648 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 649 K1RHS = K 654 IF (K1RHS.GT.0) K2RHS=K2 655 IF ( K2RHS.GE.K1RHS ) THEN 659 DO K = K1RHS, K2RHS 665 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | zmumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | cmumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | dmumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | smumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | smumps_part3.F | 5731 INTEGER :: K1RHS, K2RHS, JFirstRHS 5759 K1RHS = 0 5764 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 5765 K1RHS = K 5770 IF (K1RHS.GT.0) K2RHS=K2 5771 IF ( K2RHS.GE.K1RHS ) THEN 5775 DO K = K1RHS, K2RHS 5782 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+ IN)
|
H A D | dmumps_part3.F | 5731 INTEGER :: K1RHS, K2RHS, JFirstRHS 5759 K1RHS = 0 5764 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 5765 K1RHS = K 5770 IF (K1RHS.GT.0) K2RHS=K2 5771 IF ( K2RHS.GE.K1RHS ) THEN 5775 DO K = K1RHS, K2RHS 5782 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+ IN)
|
H A D | cmumps_part3.F | 5735 INTEGER :: K1RHS, K2RHS, JFirstRHS 5763 K1RHS = 0 5768 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 5769 K1RHS = K 5774 IF (K1RHS.GT.0) K2RHS=K2 5775 IF ( K2RHS.GE.K1RHS ) THEN 5779 DO K = K1RHS, K2RHS 5786 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+ IN)
|
H A D | zmumps_part3.F | 5735 INTEGER :: K1RHS, K2RHS, JFirstRHS 5763 K1RHS = 0 5768 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 5769 K1RHS = K 5774 IF (K1RHS.GT.0) K2RHS=K2 5775 IF ( K2RHS.GE.K1RHS ) THEN 5779 DO K = K1RHS, K2RHS 5786 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+ IN)
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | cmumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS local 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | zmumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | smumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | dmumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | cmumps_part3.F | 5735 INTEGER :: K1RHS, K2RHS, JFirstRHS 5763 K1RHS = 0 5768 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 5769 K1RHS = K 5774 IF (K1RHS.GT.0) K2RHS=K2 5775 IF ( K2RHS.GE.K1RHS ) THEN 5779 DO K = K1RHS, K2RHS 5786 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+ IN)
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | zmumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS local 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | cmumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS local 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | dmumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS local 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|
H A D | smumps_part1.F | 3685 INTEGER :: K1RHS, K2RHS, JFirstRHS local 3713 K1RHS = 0 3718 IF ((K1RHS.EQ.0).AND.(J.GT.N)) THEN 3719 K1RHS = K 3724 IF (K1RHS.GT.0) K2RHS=K2 3725 IF ( K2RHS.GE.K1RHS ) THEN 3729 DO K = K1RHS, K2RHS 3735 & (JFirstRHS+(K-K1RHS)-1)*KEEP(254)+IN)
|