Commit ecff591e by Francois Gygi

use MASSV function vsincos on BG/P

git-svn-id: http://qboxcode.org/svn/qb/trunk@1166 cba15fb0-1239-40c8-b417-11db7ca47a34
parent 74c9346a
......@@ -23,7 +23,7 @@
#include <iomanip>
using namespace std;
#if AIX || BGL
#if USE_MASSV
extern "C" void vsincos(double *x, double *y, double *z, int *n);
#endif
......@@ -1037,7 +1037,7 @@ double NonLocalPotential::energy(bool compute_hpsi, SlaterDet& dsd,
&zero,&gr[0],(int*)&ngwl);
int len = ia_block_size * ngwl;
#if AIX || BGL
#if USE_MASSV
vsincos(&sgr[0],&cgr[0],&gr[0],&len);
#else
for ( int i = 0; i < len; i++ )
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment