Lines Matching refs:KK
96 INTEGER I,INFO,IX,J,JX,K,KK,KX
139 KK = 1
148 K = KK
153 AP(KK+J-1) = DBLE(AP(KK+J-1)) + DBLE(X(J)*TEMP)
155 AP(KK+J-1) = DBLE(AP(KK+J-1))
157 KK = KK + J
165 DO 30 K = KK,KK + J - 2
169 AP(KK+J-1) = DBLE(AP(KK+J-1)) + DBLE(X(JX)*TEMP)
171 AP(KK+J-1) = DBLE(AP(KK+J-1))
174 KK = KK + J
185 AP(KK) = DBLE(AP(KK)) + DBLE(TEMP*X(J))
186 K = KK + 1
192 AP(KK) = DBLE(AP(KK))
194 KK = KK + N - J + 1
201 AP(KK) = DBLE(AP(KK)) + DBLE(TEMP*X(JX))
203 DO 70 K = KK + 1,KK + N - J
208 AP(KK) = DBLE(AP(KK))
211 KK = KK + N - J + 1
