Lines Matching refs:KFNEW
342 INTEGER ITMP1, ITMP2, J, JI, JIT, JP, KF, KFNEW, KL,
590 KFNEW = KF
600 IF( JI.GT.KFNEW ) THEN
605 AB( JI, 1 ) = AB( KFNEW, 1 )
606 AB( JI, 2 ) = AB( KFNEW, 2 )
607 NAB( JI, 1 ) = NAB( KFNEW, 1 )
608 NAB( JI, 2 ) = NAB( KFNEW, 2 )
609 AB( KFNEW, 1 ) = TMP1
610 AB( KFNEW, 2 ) = TMP2
611 NAB( KFNEW, 1 ) = ITMP1
612 NAB( KFNEW, 2 ) = ITMP2
615 NVAL( JI ) = NVAL( KFNEW )
616 NVAL( KFNEW ) = ITMP1
619 KFNEW = KFNEW + 1
622 KF = KFNEW