 * *              L00 =  L00**T * invD0 * L00 *                DO I = 0, NNB                   DO J = 0, I                      A( CUT+I, CUT+J ) = WORK( U00+I, J )                   END DO                END DO 