Lines Matching refs:IPN4
135 INTEGER I0, I4, IINFO, IPN4, ITER, IWHILA, IWHILB, K,
296 IPN4 = 4*( I0+N0 )
299 Z( I4-3 ) = Z( IPN4-I4-3 )
300 Z( IPN4-I4-3 ) = TEMP
302 Z( I4-1 ) = Z( IPN4-I4-5 )
303 Z( IPN4-I4-5 ) = TEMP
434 IPN4 = 4*( I0+N0 )
438 Z( I4-3 ) = Z( IPN4-I4-3 )
439 Z( IPN4-I4-3 ) = TEMP
441 Z( I4-2 ) = Z( IPN4-I4-2 )
442 Z( IPN4-I4-2 ) = TEMP
444 Z( I4-1 ) = Z( IPN4-I4-5 )
445 Z( IPN4-I4-5 ) = TEMP
447 Z( I4 ) = Z( IPN4-I4-4 )
448 Z( IPN4-I4-4 ) = TEMP