Lines Matching refs:KFNEW
230 INTEGER ITMP1, ITMP2, J, JI, JIT, JP, KF, KFNEW, KL,
496 KFNEW = KF
506 IF( JI.GT.KFNEW ) THEN
511 AB( JI, 1 ) = AB( KFNEW, 1 )
512 AB( JI, 2 ) = AB( KFNEW, 2 )
513 NAB( JI, 1 ) = NAB( KFNEW, 1 )
514 NAB( JI, 2 ) = NAB( KFNEW, 2 )
515 AB( KFNEW, 1 ) = TMP1
516 AB( KFNEW, 2 ) = TMP2
517 NAB( KFNEW, 1 ) = ITMP1
518 NAB( KFNEW, 2 ) = ITMP2
521 NVAL( JI ) = NVAL( KFNEW )
522 NVAL( KFNEW ) = ITMP1
525 KFNEW = KFNEW + 1
528 KF = KFNEW