Merge pull request psi4#1046 from elvis2299/tag_psi_api_dgemv_fnocc_blas_dot_cc

loriab · web-flow · commit 692f4628d0ad · 2018-06-21T12:31:06.000-04:00
Adds PSI_API tag before the definition of F_DGEMV in ../fnocc/blas.cc
diff --git a/psi4/src/psi4/fnocc/blas.cc b/psi4/src/psi4/fnocc/blas.cc
@@ -44,7 +44,7 @@ long int Position(long int i,long int j){
 /**
  * fortran-ordered dgemv
  */
-void F_DGEMV(char trans,integer m,integer n,doublereal alpha,doublereal*A,integer lda,
+void PSI_API F_DGEMV(char trans,integer m,integer n,doublereal alpha,doublereal*A,integer lda,
             doublereal*X,integer incx,doublereal beta,doublereal*Y,integer incy){
     DGEMV(trans,m,n,alpha,A,lda,X,incx,beta,Y,incy);
 }

Original file line number	Diff line number	Diff line change
`@@ -44,7 +44,7 @@ long int Position(long int i,long int j){`
`44`	`44`	`/**`
`45`	`45`	`* fortran-ordered dgemv`
`46`	`46`	`*/`
`47`		`-void F_DGEMV(char trans,integer m,integer n,doublereal alpha,doublereal*A,integer lda,`
	`47`	`+void PSI_API F_DGEMV(char trans,integer m,integer n,doublereal alpha,doublereal*A,integer lda,`
`48`	`48`	`doublerealX,integer incx,doublereal beta,doublerealY,integer incy){`
`49`	`49`	`DGEMV(trans,m,n,alpha,A,lda,X,incx,beta,Y,incy);`
`50`	`50`	`}`