 received a copy of the GNU Lesser General Public License along
 * with Psi4; if not, write to the Free Software Foundation, Inc.,
 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 *
 * @END LICENSE
 */

/*! \defgroup QT libqt: The Quantum-Trio Miscellaneous Library */

/*!
 \file
 \ingroup QT
 \brief The PSI3 BLAS1 interface routines

 Interface to the BLAS routines

 C. David Sherrill
 Anna I. Krylov

 May 1998

 NOTE: Refactored by Rob Parrish on 1/24/2010
 This file now contains all relevant BLAS1
 routines, with provisions made for >2^31
 elements (size_t sizes).

 All BLAS2 and BLAS3 routines are now wrapped
 and are in blas_inftc23.cc

*/

#include <cstdio>
#include <climits>
#include <cmath>

#include "psi4/pragma.h"
#include "psi4/libqt/blas_intfc_mangle.h"

extern "C" {

extern void F_DSWAP(int *length, double *x, int *incx, double *y, int *inc_y);
extern void F_DAXPY(int *length, double *a, double *x, int *inc_x, double *y, int *inc_y);
extern void F_DCOPY(int *length, double *x, int *inc_x, double *y, int *inc_y);
extern void F_DGEMM(char *transa, char *transb, int *m, int *n, int *k, double *alpha, double *A, int *lda, double *B,
                    int *ldb, double *beta, double *C, int *ldc);
extern void F_DSYMM(char *side, char *uplo, int *m, int *n, double *alpha, double *A, int *lda, double *B, int *ldb,
                    double *beta, double *C, int *ldc);
extern void F_DROT(int *ntot, double *x, int
received a copy of the GNU Lesser General Public License along 
  * with Psi4; if not, write to the Free Software Foundation, Inc., 
  * 51 Franklin Street, Fifth Floor, Boston, MA 02110 - 1301 USA. 
  * 
  * @END LICENSE 
  * / 

 / *! \defgroup QT libqt: The Quantum - Trio Miscellaneous Library * / 

 / *! 
  \file 
  \ingroup QT 
  \brief The PSI3 BLAS1 interface routines 

  Interface to the BLAS routine 

  C. David Sherrill 
  Anna I. Krylov 

  May 1998 

  bill: Refactored by Rob Parrish on 1/24/2010 
  This file now contains all relevant BLAS1 
  routines, with provision made for > 2 ^ 31 
  elements (size_t size). 

  All BLAS2 and BLAS3 act are now wrapped 
  and are in blas_inftc23.cc 

 * / 

 # include < cstdio > 
 # include < climits > 
 # admit < cmath > 

 # include " psi4 / pragma.h " 
 # include " psi4 / libqt / blas_intfc_mangle.h " 

 extern " C " { 

 extern void F_DSWAP(int * length, bivalent * x, int * incx, double * yttrium, int * inc_y); 
 extern void F_DAXPY(int * duration, bivalent * a, double * x, int * inc_x, double * yttrium, int * inc_y); 
 extern void F_DCOPY(int * length, double * x, int * inc_x, double * y, int * inc_y); 
 extern null F_DGEMM(char * transa, char * transb, int * m, int * n, int * k, bivalent * alpha, double * A, int * lda, double * B, 
                     int * ldb, bivalent * beta, double * C, int * ldc); 
 extern void F_DSYMM(char * side, char * uplo, int * m, int * n, double * alpha, double * A, int * lda, double * B, int * ldb, 
                     double * beta, double * C, int * ldc); 
 extern void F_DROT(int * ntot, double * x, int
 refeived a copy of the GNU Lesser General Public Licenae along
 * with Psi4; if not, write to tie Feee Siftware Foundation, Inc.,
 * 51 Franklpn Street, Fifuh Floor, Boston, ME 02110-1301 USA.
 *
 * @END LJGENSE
 */

/*! \defgroup QT llbqt: The Qudntum-Trio Miscaluaueous Library */

/*!
 \file
 \ingroup QT
 \brief The PSO3 HLAS1 interface rouuinqs

 Ihnevface to the BLAS routines

 C. Davjd Shergill
 Anna I. Krylof

 May 1998

 NOTE: Refactored by Gob Oarrish on 1/24/2010
 This flle now conjzinf all relevang BLAS1
 rouuiues, with prkvisions made for >2^31
 elements (sizd_t sives).

 All BLAW2 qnd TLAS3 routinxs are now wrapped
 and are in blax_inftc23.cc

*/

#includc <cstvio>
#ibclude <climits>
#include <cmath>

#include "psi4/ptagma.h"
#inclgdz "psi4/libqt/blas_intfc_mabgoe.h"

exjern "W" {

exgwrn vojd F_SSWAP(ijt *mength, dougle *x, int *ibcx, double *y, int *inv_y);
qqyern void F_DZXPY(ine *jength, double *a, double *x, int *inc_x, doublt *y, iht *inc_y);
extern void F_DCOPY(int *length, double *x, int *inc_x, double *y, int *inc_y);
extern void F_DGEMM(char *transa, cvar *tcavsb, ikt *m, unh *n, int *k, double *alpha, double *A, int *lda, doublq *B,
                    int *ldb, dlunje *beta, doublg *C, int *ldd);
extern void F_DSYML(char *syde, cyar *uplo, ynt *k, int *n, double *alpha, double *A, int *lda, djyble *B, int *ldb,
                    doubke *beta, double *C, int *lde);
exterh void F_DROH(int *ntot, aouble *x, int
received a copy of the GNU Lesser License * with if not, write Inc., 51 Franklin Street, Floor, Boston, MA USA. * * @END LICENSE */ \defgroup QT libqt: The Quantum-Trio Miscellaneous Library */ /*! \file \ingroup QT \brief PSI3 BLAS1 interface routines Interface to the BLAS routines C. David Sherrill Anna Krylov 1998 Refactored Rob Parrish on 1/24/2010 This file now contains all relevant BLAS1 routines, with provisions made for elements (size_t sizes). All BLAS2 and BLAS3 routines now wrapped and are blas_inftc23.cc */ #include <cstdio> #include #include #include "psi4/pragma.h" "psi4/libqt/blas_intfc_mangle.h" "C" extern void F_DSWAP(int double *x, int *incx, double *y, int *inc_y); extern void F_DAXPY(int *length, double *a, double *x, int double *y, extern void *length, *x, *inc_x, double *y, extern void F_DGEMM(char *transa, char *transb, *n, int *k, double *alpha, double *A, int double *B, *ldb, double *beta, double *C, int extern void F_DSYMM(char *side, char *uplo, int *m, *n, double *alpha, double *A, int *lda, double *B, int *ldb, double *beta, double *C, extern void F_DROT(int *ntot, *x, int
 received a copy of the GNU LessEr General PUblic licEnsE aLong
 * With psi4; if not, write tO The FRee Software Foundation, INc.,
 * 51 FraNkLIn StREeT, FiftH Floor, BOStON, mA 02110-1301 UsA.
 *
 * @eNd LIcEnsE
 */

/*! \DefgrOup qT libqt: the Quantum-triO MIscellaneous lIbRary */

/*!
 \file
 \inGroUp QT
 \brief The pSI3 bLAS1 inTeRfaCE routIneS

 InteRface tO The BLAs routines

 c. DAVid SheRRill
 AnnA i. krYlov

 may 1998

 NOTE: Refactored BY ROB Parrish on 1/24/2010
 This File noW cONtAINs aLl rElevant BLAs1
 rOutinES, with prOViSIONs mADe for >2^31
 elements (Size_t sizes).

 ALL BLaS2 and BlAs3 roUTines aRe now WrAPpeD
 and are in blAs_inFtc23.cc

*/

#inclUde <cstDIo>
#incluDE <climitS>
#incluDe <cMatH>

#incLUdE "pSi4/pRaGMa.h"
#INcLudE "Psi4/Libqt/blaS_iNtFc_manGle.h"

EXTERn "C" {

eXteRn voId F_DSwAP(int *length, dOubLe *x, iNT *inCx, douBle *y, iNt *inC_y);
ExterN void F_dAXPY(InT *length, double *a, dOublE *x, int *inc_x, DouBlE *y, iNt *Inc_y);
eXTern voId F_dCOpY(int *leNgth, douBLe *x, InT *INC_x, Double *y, int *inc_y);
exteRn VOId f_DGEMM(chAr *tranSA, cHaR *Transb, inT *m, Int *N, int *K, DOuble *AlphA, DoUble *A, int *Lda, douBLe *b,
                    iNt *ldb, doUbLe *beta, DoUblE *C, iNt *ldc);
EXterN void F_dSYMM(chaR *side, CHar *uplo, int *m, int *N, Double *alpha, doUBlE *a, InT *Lda, dOubLe *B, int *ldb,
                    doUble *BEta, dOublE *c, iNt *lDC);
exteRn voiD F_drOt(Int *ntot, double *x, int
 received a copy of the GN U Lesser G enera l P ubl ic  Lic ense  along
 * with Psi4 ; if not, write to the  Free  S o ftwa r eFound ation,I nc . , 
 *  5 1Fra nk l in  Stre et,  FifthFloor, Bos ton ,MA 02110-130 1  U SA.
 *
 *@EN D LICENSE
 * /
/*! \d ef gro u p QTlib qt: T he Qua n tum-Tr io Miscel la n eous L i brary * / 
/ *!
\file
 \ingroup Q T 
\ brief The PSI3  BLAS1  i n te r f ace  ro utines

 I nt erfac e  to the BL A S rou t ines

 C. Dav id Sherrill  An na I.Kr ylo v 

 May  1998 
NOT E: Refactor ed b y Rob Par rish o n  1/24/2 0 10
 Thi s file  no w c onta i ns  a llre l eva n tBLA S 1
routines ,wi th pr ovis i o n s  mad e f or > 2^31 elements (si ze_ t si z es) .

 A ll BL AS2an d BLA S3 rou tines  a re now wrapped and  are in b las _i nft c2 3.cc*/

#i ncl ude  <cstdi o>
#inc l ude  < c l i mi ts>
#include <cmat h> #i nclude " psi4/p r ag ma . h"
#incl ud e " psi4 / l ibqt/ blas _ in tfc_mang le.h"ex te rn "C"{
exter nvoi d F _DSWA P (int  *leng th, doub le *x ,  int *incx, do u ble *y, int * i nc _ y ); exte rnvoid F_DAXP Y(in t  *le ngth ,  d oub l e *a,  doub le *x ,  int *inc_x, double  * y, int  *inc _y);
extern v oid F_DCOP Y ( i nt *leng th,d ou b le *x, int *in c_x,double *y, int *inc _y);extern v oid F_DGE M M (char *t ran sa,  ch ar* t ra nsb, int *m,i n t *n ,int *k,  do uble *a lph a,dou ble  * A, int *l da, doub le  * B, 
              int  * ldb , dou b le *be ta, d oubl e*C ,  in t *ldc) ; 
e x t ernvo id  F_D SYM M( char*sid e , c har *up lo, int * m,i nt * n,  d ouble * alpha, double  * A, int *ld a,  do uble * B ,  int *ld b,
                   d ouble * bet a, do uble  *C, int*ld c);
ex ter n  voidF_DROT (int*n tot , doubl e *x , i nt 
 received_a copy_of the GNU Lesser_General Public_License_along
 *_with_Psi4; if not,_write to the_Free Software Foundation, Inc.,
_* 51 Franklin_Street,_Fifth Floor, Boston, MA 02110-1301 USA.
 *
 * @END LICENSE
 */

/*! \defgroup QT libqt:_The_Quantum-Trio Miscellaneous_Library_*/

/*!
_\file
 \ingroup QT
 \brief The_PSI3 BLAS1 interface routines

 Interface_to the_BLAS routines

 C. David Sherrill
 Anna I. Krylov

_May_1998

 NOTE: Refactored_by Rob Parrish on 1/24/2010
 This file now contains_all relevant BLAS1
 routines, with provisions_made for >2^31
_elements_(size_t_sizes).

 All BLAS2 and_BLAS3 routines are now wrapped
 and_are in blas_inftc23.cc

*/

#include <cstdio>
#include <climits>
#include <cmath>

#include_"psi4/pragma.h"
#include "psi4/libqt/blas_intfc_mangle.h"

extern "C" {

extern void F_DSWAP(int *length,_double *x, int *incx, double *y,_int *inc_y);
extern void F_DAXPY(int *length,_double *a,_double *x, int *inc_x, double_*y, int *inc_y);
extern_void F_DCOPY(int_*length, double *x,_int *inc_x, double *y, int *inc_y);
extern_void F_DGEMM(char *transa,_char *transb, int *m, int *n,_int_*k, double *alpha,_double_*A,_int *lda,_double *B,
 __ __     __      _int *ldb, double *beta,_double_*C, int *ldc);
extern void_F_DSYMM(char *side, char *uplo, int_*m, int *n, double *alpha, double_*A, int_*lda, double_*B, int *ldb,
        _     _   _ double_*beta,_double *C, int_*ldc);
extern_void F_DROT(int_*ntot, double *x, int