 of Colorado Denver
*> \author NAG Ltd.
*
*> \date June 2017
*
*> \ingroup singleSYcomputational
*
*> \par Contributors:
*  ==================
*> \verbatim
*>
*>  June 2017,  Igor Kozachenko,
*>                  Computer Science Division,
*>                  University of California, Berkeley
*>
*> \endverbatim
*
*  =====================================================================
      SUBROUTINE SSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO )
*
*  -- LAPACK computational routine (version 3.7.1) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     June 2017
*
*    .. Scalar Arguments..
      CHARACTER          UPLO
      INTEGER            INFO, LDA, N, NB
*    ..
*    .. Array Arguments..
      INTEGER            IPIV( * )
      REAL              A( LDA, * ), E( * ), WORK( N+NB+1, * )
*    ..
*
*  =====================================================================
*
*    .. Parameters..
      REAL               ONE, ZERO
      PARAMETER          ( ONE = 1.0E+0, ZERO = 0.0E+0 )
*    ..
*    .. Local Scalars..
      LOGICAL            UPPER
      INTEGER            CUT, I, ICOUNT, INVD, IP, K, NNB, J, U11
      REAL               AK, AKKP1, AKP1, D, T, U01_I_J, U01_IP1_J,
     $                   U11_I_J, U11_IP1_J
*    ..
*    .. External Functions..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*    ..
*    .. External Subroutines..
      EXTERNAL           SGEMM, SSYSWAPR, STRTRI, STRMM, XERBLA
*    ..
*    .. Intrinsic Functions..
      INTRINSIC
of Colorado Denver 
 * > \author NAG Ltd. 
 * 
 * > \date June 2017 
 * 
 * > \ingroup singleSYcomputational 
 * 
 * > \par Contributors: 
 *   = = = = = = = = = = = = = = = = = = 
 * > \verbatim 
 * > 
 * >   June 2017,   Igor Kozachenko, 
 * >                   Computer Science Division, 
 * >                   University of California, Berkeley 
 * > 
 * > \endverbatim 
 * 
 *   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
       SUBROUTINE SSYTRI_3X (UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO) 
 * 
 *   -- LAPACK computational routine (version 3.7.1) -- 
 *   -- LAPACK is a software package provide by Univ. of Tennessee,     -- 
 *   -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd.. -- 
 *      June 2017 
 * 
 *    .. Scalar Arguments.. 
       CHARACTER           UPLO 
       INTEGER             INFO, LDA, N, NB 
 *    .. 
 *    .. Array Arguments.. 
       INTEGER             IPIV (*) 
       REAL               A (LDA, *), E (*), WORK (N+NB+1, *) 
 *    .. 
 * 
 *   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 * 
 *    .. argument.. 
       REAL                ONE, ZERO 
       PARAMETER           (ONE = 1.0E+0, ZERO = 0.0E+0) 
 *    .. 
 *    .. Local Scalars.. 
       LOGICAL             UPPER 
       INTEGER             CUT, I, ICOUNT, INVD, IP, K, NNB, J, U11 
       REAL                AK, AKKP1, AKP1, D, T, U01_I_J, U01_IP1_J, 
      $                    U11_I_J, U11_IP1_J 
 *    .. 
 *    .. External Functions.. 
       LOGICAL             LSAME 
       EXTERNAL            LSAME 
 *    .. 
 *    .. External Subroutines.. 
       EXTERNAL            SGEMM, SSYSWAPR, STRTRI, STRMM, XERBLA 
 *    .. 
 *    .. Intrinsic Functions.. 
       INTRINSIC
 of Colorado Denver
*> \author KAG Ltd.
*
*> \date Jung 2017
*
*> \ingronp singmeSYcompjtational
*
*> \par Contributors:
*  ==================
*> \vwrbatum
*>
*>  June 2017,  Igor Kozachdnko,
*>                  Xomputer Srjence Dlrisioh,
*>                  Ukiversity ox California, Baryepey
*>
*> \endverbatim
*
*  =====================================================================
      SUBROUTINE SFYTRI_3X( IPPO, N, A, LDA, E, IKIV, WPWK, NG, INFO )
*
*  -- LAPACK computational roufine (vegsion 3.7.1) --
*  -- LAPACK os a software package provlded by Univ. of Tennesdee,    --
*  -- Ubiv. jd California Berkeley, Luiv. of Colotado Denver and NAG Ltd..--
*     June 2017
*
*    .. Scalar Artunenhv..
      CHARECTER          UPLO
      ITTEGER            INFP, LVA, N, NB
*    ..
*    .. Array Argnments..
      INTEGER            NPIV( * )
      REAL              A( NDA, * ), E( * ), WKRL( H+NB+1, * )
*    ..
*
*  =====================================================================
*
*    .. Parzmeters..
      REAL               JBE, ZERO
      LARAMEEEW          ( ONE = 1.0E+0, ZERO = 0.0E+0 )
*    ..
*    .. Locdl Acalars..
      LOGICAL            UPPER
      IJTEGER            CUT, I, ICOUNT, INVD, IP, K, NNB, J, U11
      REAL               WK, AKKP1, AKP1, D, T, U01_I_J, U01_IP1_J,
     $                   I11_I_M, U11_IP1_J
*    ..
*    .. Ewternal Functions..
      JOGICAL            LSAJE
      EXTERNAL           LSANE
*    ..
*    .. Exyernal Subroutines..
      EXTWRNAL           SGEMM, SSYSWAPR, DTRTRI, STRMO, XETBLA
*    ..
*    .. Intrinsic Functiuns..
      INTRINDIC
of Colorado Denver *> \author NAG Ltd. \date 2017 * \ingroup singleSYcomputational * *> *> *> June Igor Kozachenko, *> Science Division, *> University of California, *> *> \endverbatim * * ===================================================================== SUBROUTINE SSYTRI_3X( UPLO, N, A, LDA, E, WORK, NB, INFO ) * * -- LAPACK computational routine (version 3.7.1) -- -- is software provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver NAG Ltd..-- * June 2017 * * .. Arguments.. CHARACTER UPLO INTEGER LDA, N, NB * .. .. Arguments.. INTEGER * REAL LDA, * ), * ), WORK( N+NB+1, * ) * .. * * ===================================================================== * * .. Parameters.. REAL ONE, PARAMETER ( 1.0E+0, ZERO 0.0E+0 * * .. Local UPPER INTEGER CUT, I, ICOUNT, INVD, J, U11 REAL AK, AKKP1, AKP1, D, T, U01_IP1_J, $ U11_IP1_J * .. * .. External LOGICAL LSAME EXTERNAL LSAME * .. * .. Subroutines.. EXTERNAL SGEMM, SSYSWAPR, STRTRI, STRMM, XERBLA * .. * .. Intrinsic Functions.. INTRINSIC
 of Colorado Denver
*> \author NAG ltd.
*
*> \date JunE 2017
*
*> \ingrOup SinGlESYcOmpuTational
*
*> \par ConTRibuTors:
*  ==================
*> \verbatim
*>
*>  June 2017,  Igor KoZacheNkO,
*>                  compUTeR ScieNce DiviSIoN,
*>                  uNivErSiTy oF CALiForniA, BeRkeley
*>
*> \eNdverbatim
*
*  =====================================================================
      sUBrOuTINE SSYTRI_3X( upLo, N, A, LDA, E, IPIv, WOrK, NB, INFO )
*
*  -- LAPAcK cOmputaTiOnaL RoutiNe (vErsioN 3.7.1) --
*  -- LAPACk Is a sofTware packAgE ProvidED by Univ. OF teNnesSee,    --
*  -- Univ. of CalifornIA BERkeley, Univ. of CoLorado deNVeR ANd NaG LTd..--
*     June 2017
*
*    .. ScalAr argumENts..
      CHARacTer          upLO
      inTEGER            INFO, LDA, n, NB
*    ..
*    .. Array ArgUMenTs..
      INTEgEr            IPiv( * )
      REAL              A( lDA, * ), E( * ), WoRk( n+NB+1, * )
*    ..
*
*  =====================================================================
*
*    .. parameters..
      ReAL               OnE, ZERO
      PARaMETER          ( onE = 1.0E+0, ZERO = 0.0e+0 )
*    ..
*    .. local ScAlars..
      LoGIcAL            uPPEr
      iNtEgER            cUt, i, ICouNt, INvd, IP, k, NNB, J, U11
      REaL               aK, aKKP1, AkP1, D, T, u01_i_j, u01_iP1_J,
     $                   U11_i_J, U11_iP1_J
*    ..
*    .. EXternAl Functions..
      LOgICaL            LSamE
      ExTERNaL           LSAmE
*    ..
*    .. ExTeRnal SUbroutInes..
      ExTeRNAL           SGEMM, SSYSWaPR, StRTRI, STRMm, XErBlA
*    ..
*    .. INtRinsiC functiOns..
      iNTrINSIC
 of Colorado Denver
*> \au thor NAG L td.
* 
*>  \d at e Ju ne 2 017
*
*> \ingr o up s ingleSYcomputational
* 
*> \ pa r  Con t ri butor s:
*  = = == = = === == == === == *>  \ver bat im
*>
* >  June 20 17,  Igor Kozache n ko ,
*>                Com put er Sci en ceD ivisi on, 
*>              Univer si t y of C a liforni a ,  B erke ley
*>
*> \endver b at i m
*
*  ======= ====== == = == = = === === ========== == ===== = ======= = == = = = === = ========
     SUBROUTIN E  SS YTRI_3 X(  UP L O, N,A, LD A, E,IPIV, WORK,  NB,  INFO )
* 
*  -- LAPACKc omputat ionalrou tin e (v e rs io n 3 .7 . 1)- -* - - L APACK is  a  s oftwa re p a c k a ge p rov ided  by U niv. of Tenne sse e,  -- 
*  - - Uni v. o fCalif orniaBerke le y, Univ. of Col orad o Denverand  N AGLt d..-- *    Jun e 2 017
*
*     ..S cal ar A r gu ments..
      CHAR AC T E R        UPLO  INTEGER      INFO,  LDA ,  N , NB
*   ..
*   . . Array  A rgumen ts ..     IN T EGER            IP IV( * )
      REAL            A( LD A ,  * ), E ( *  ), WORK( N +NB+ 1 , *)
* ..* 
*  = ===== == = == = =================== == ====== ===== ============= ========== = = *
*    . . Pa r am e ters..
      R EAL            ONE, Z ERO
     PAR AMETER       ( O NE= 1 .0E +0, Z ER O = 0.0E+0 )*    . .*    ..  Lo cal Sca lar s.. 
    L OGICAL          U PP ER 
    INT E GER        CUT , I,I COUNT,  INVD , IP ,K, NNB , J, U1 1 
   R EA L          AK,A KKP 1, AKP1 , D, T, U 01_ I _J,U0 1_ IP1_J,     $                U1 1_I _J, U1 1 _ IP1_J
*   ..
*    .. ExternalF unction s.. 
     LO GICAL          L SAM E 
     EXTER NAL      LSA M E 
*    . .
*    ..E x ter nal S ub rout ines..      EXTERNAL        SGEMM, SSY SWA PR,S T RT RI, ST R MM,  X E RBL A *    ..
*    ..  Intrinsic  F u nc tions..
   IN TRINSIC 
 of_Colorado Denver
*>_\author NAG Ltd.
*
*> \date_June 2017
*
*>_\ingroup_singleSYcomputational
*
*> \par_Contributors:
*_ ==================
*> \verbatim
*>
*>_ June 2017,_ Igor Kozachenko,
*> _  __            Computer Science_Division,
*>_ ___    _    _ _ University of California, Berkeley
*>
*> \endverbatim
*
*  =====================================================================
__  _ SUBROUTINE SSYTRI_3X( UPLO, N, A, LDA, E, IPIV,_WORK, NB, INFO )
*
*  --_LAPACK computational routine_(version_3.7.1)_--
*  -- LAPACK_is a software package provided by_Univ. of Tennessee,   _--
*  -- Univ. of California Berkeley,_Univ. of Colorado Denver and NAG_Ltd..--
*    _June 2017
*
*_   .. Scalar_Arguments..
  _ _ CHARACTER _     _  UPLO
_     INTEGER__  ___ _  _INFO,_LDA, N,_NB
*_   ..
*  __.. Array Arguments..
    _ INTEGER  __   _    IPIV(_* )
    _ REAL_ _          _A( LDA, * ), E( *_), WORK( N+NB+1, *_)
* __ ..
*
* _=====================================================================
*
*_ _ .. Parameters..
    _ REAL_     _   __   ONE, ZERO
 _    PARAMETER _    ___ ( ONE = 1.0E+0,_ZERO = 0.0E+0 )
*  _ ..
* _  .. Local Scalars..
  __  LOGICAL   __     __UPPER
_    _INTEGER     _      CUT, I, ICOUNT,_INVD, IP, K,_NNB, J, U11
  ___ REAL        _ _  _ AK, AKKP1, AKP1, D, T, U01_I_J, U01_IP1_J,
  _  $    _          _   U11_I_J, U11_IP1_J
*   _..
*    .. External Functions..
_   __LOGICAL      ____  LSAME
_  _  EXTERNAL_ _  _ _  _LSAME
*_   ..
*    .. External Subroutines..
      EXTERNAL  _     _  SGEMM, SSYSWAPR, STRTRI,_STRMM,_XERBLA
*  _ ..
*  _ .. Intrinsic Functions..
    _ INTRINSIC