File: Nonlocal_Basis.c

package info (click to toggle)
openmx 3.7.6-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch
  • size: 325,856 kB
  • ctags: 3,575
  • sloc: ansic: 152,655; f90: 2,080; python: 876; makefile: 675; sh: 25; perl: 18
file content (17 lines) | stat: -rw-r--r-- 445 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <stdio.h>
#include <math.h>
#include "openmx_common.h"

double Nonlocal_Basis(int wan, int Lnum_index, int Mnum, int so,
                      double r, double theta, double phi)
{
  int Lnum;
  double NWF,Radial_WF,Angular_WF;

  Lnum = Spe_VPS_List[wan][Lnum_index];
  Radial_WF = Nonlocal_RadialF(wan,Lnum_index-1,so,r);
  Angular_WF = AngularF(Lnum,Mnum,theta,phi,0,0.0,0.0,0.0,0.0);
  NWF = Radial_WF*Angular_WF;

  return NWF;
}