1 #include <stdio.h>
2 #include <math.h>
3 #include "openmx_common.h"
4 
Nonlocal_Basis(int wan,int Lnum_index,int Mnum,int so,double r,double theta,double phi)5 double Nonlocal_Basis(int wan, int Lnum_index, int Mnum, int so,
6                       double r, double theta, double phi)
7 {
8   int Lnum;
9   double NWF,Radial_WF,Angular_WF;
10 
11   Lnum = Spe_VPS_List[wan][Lnum_index];
12   Radial_WF = Nonlocal_RadialF(wan,Lnum_index-1,so,r);
13   Angular_WF = AngularF(Lnum,Mnum,theta,phi,0,0.0,0.0,0.0,0.0);
14   NWF = Radial_WF*Angular_WF;
15 
16   return NWF;
17 }
18