Home
last modified time | relevance | path

Searched refs:K1RHS (Results 1 – 25 of 32) sorted by relevance

12

/dports/math/mumps/mumps-5.1.2/src/
H A Ddfac_asm_ELT.F101 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 Dzfac_asm_ELT.F101 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 Dcfac_asm_ELT.F101 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 Dsfac_asm_ELT.F101 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 Ddfac_asm.F622 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 Dcfac_asm.F622 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 Dsfac_asm.F622 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 Dzfac_asm.F622 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 Dzmumps_part1.F3685 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 Dcmumps_part1.F3685 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 Ddmumps_part1.F3685 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 Dsmumps_part1.F3685 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 Dsmumps_part3.F5731 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 Ddmumps_part3.F5731 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 Dcmumps_part3.F5735 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 Dzmumps_part3.F5735 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 Dcmumps_part1.F3685 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 Dzmumps_part1.F3685 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 Dsmumps_part1.F3685 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 Ddmumps_part1.F3685 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 Dcmumps_part3.F5735 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 Dzmumps_part1.F3685 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 Dcmumps_part1.F3685 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 Ddmumps_part1.F3685 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 Dsmumps_part1.F3685 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)

12