I ).GT.0 ) THEN                   DO J = 0, NNB                      WORK( I, J ) = WORK( I, INVD ) * WORK( I, J )                   END DO                ELSE                   DO J = 0, NNB                      U00_I_J = WORK( 