NLSL: bincom.f90 Source File

NLSL

- Main Page
- Modules
- Data Types List
- Files

- File List
- File Members

bincom.f90
Go to the documentation of this file.
1 c NLSL Version 1.9.0 beta 2/12/15
2 c----------------------------------------------------------------------
3 c =========================
4 c module BINCOM
5 c =========================
6 c
7 c Storage for pre-calculated binomial coefficients used by
8 c subroutine wig3j (included in file 'w3j.f') for calculation
9 c of Wigner 3J symbols. Used exclusively by routines in that file.
10 c
11 c----------------------------------------------------------------------
12 c
13 module bincom
14 use maxl
15 implicit none
16 c
17 integer, parameter :: nb=2*(mxlval+8)+2
18 integer, parameter :: nbncf=nb*(nb+1)+1
19 c
20 integer, dimension(nb), save :: bncfx
21 double precision, dimension(nbncf), save :: bncf
22 c
23 end module bincom
bincom
Definition: bincom.f90:13
maxl
Definition: maxl.f90:22
bincom::bncf
double precision, dimension(nbncf), save bncf
Definition: bincom.f90:21
bincom::bncfx
integer, dimension(nb), save bncfx
Definition: bincom.f90:20
maxl::mxlval
integer, parameter mxlval
Definition: maxl.f90:25
bincom::nbncf
integer, parameter nbncf
Definition: bincom.f90:18
bincom::nb
integer, parameter nb
Definition: bincom.f90:17