Functions/Subroutines | |
subroutine | ttrhdrn_simple (dmna, dmnr, n1, n2, n3, imt1, fk, gk, xo) |
subroutine | ttrhdrn_sum (dmna, dmnr, n1, n2, n3, imt1, fk, gk, ne, em, ca1, xo) |
subroutine | ttrhdrn_chi0 (dmna, dmnr, n1, n2, n3, imt1, e1, e2, f1, f2, delt, dsgn, ne, em, ca1, xo) |
subroutine | ttrhdrn_sub1simple (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_sub1g30g21 (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_sub1g30g20 (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_sub1g30 (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_sub1normal (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_sub2simple (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_sub2g30g20 (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_sub2g30g21 (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_sub2g30g10 (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_sub2g10 (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_sub2g30 (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_sub2normal (g0, g1, g2, g3, ne, em, x0) |
subroutine | ttrhdrn_mkidx (n1, n2, n3, idx1, bvec1, bvec2, bvec3) |
Variables | |
integer, parameter | ttrhdrn_vtx = 4 |
integer, parameter | ttrhdrn_div = 6 |
integer, parameter | nvtx = ttrhdrn_vtx |
integer, parameter | ndiv = ttrhdrn_div |
integer, dimension(/nvtx, ndiv/), parameter | ttrhdrn_tbl1 = reshape((/1,2,3,6 ,1,3,5,6 ,3,5,6,7 ,2,3,4,6 ,3,4,6,8 ,3,6,7,8/) |
subroutine m_tetrahedron::ttrhdrn_chi0 | ( | real(8),intent(in) | dmna, | |
real(8),intent(in) | dmnr, | |||
integer,intent(in) | n1, | |||
integer,intent(in) | n2, | |||
integer,intent(in) | n3, | |||
integer,dimension(nvtx,n1*n2*n3*ndiv),intent(in) | imt1, | |||
complex(8),dimension(n1*n2*n3),intent(in) | e1, | |||
complex(8),dimension(n1*n2*n3),intent(in) | e2, | |||
real(8),intent(in) | f1, | |||
real(8),intent(in) | f2, | |||
real(8),intent(in) | delt, | |||
real(8),intent(in) | dsgn, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne*nvtx),intent(out) | ca1, | |||
complex(8),dimension(ne,n1*n2*n3),intent(inout) | xo | |||
) |
Definition at line 99 of file m_tetrahedron_20170325.F.
References ttrhdrn_sub1g30(), ttrhdrn_sub1g30g20(), ttrhdrn_sub1g30g21(), ttrhdrn_sub1normal(), ttrhdrn_sub2g10(), ttrhdrn_sub2g30(), ttrhdrn_sub2g30g10(), ttrhdrn_sub2g30g21(), ttrhdrn_sub2normal(), and ttrhdrn_sub2simple().
Referenced by __chiqw.F__().
subroutine m_tetrahedron::ttrhdrn_mkidx | ( | integer,intent(in) | n1, | |
integer,intent(in) | n2, | |||
integer,intent(in) | n3, | |||
integer,dimension(nvtx,n1*n2*n3*ndiv),intent(out) | idx1, | |||
real(8),dimension(3),intent(in),optional | bvec1, | |||
real(8),dimension(3),intent(in),optional | bvec2, | |||
real(8),dimension(3),intent(in),optional | bvec3 | |||
) |
Definition at line 505 of file m_tetrahedron_20170325.F.
Referenced by __chiqw.F__(), m_dos::calc_dos(), calc_dos_GW(), calc_dos_KS(), m_dos::calc_pdos(), and m_dos::wrt_pdos().
subroutine m_tetrahedron::ttrhdrn_simple | ( | real(8),intent(in) | dmna, | |
real(8),intent(in) | dmnr, | |||
integer,intent(in) | n1, | |||
integer,intent(in) | n2, | |||
integer,intent(in) | n3, | |||
integer,dimension(nvtx,n1*n2*n3*ndiv),intent(in) | imt1, | |||
complex(8),dimension(n1*n2*n3),intent(in) | fk, | |||
complex(8),dimension(n1*n2*n3),intent(in) | gk, | |||
complex(8),dimension(n1*n2*n3),intent(inout) | xo | |||
) |
Definition at line 63 of file m_tetrahedron_20170325.F.
References ttrhdrn_sum().
Referenced by __chiqw.F__(), m_dos::calc_dos(), calc_dos_GW(), calc_dos_KS(), m_dos::calc_pdos(), and m_dos::wrt_pdos().
subroutine m_tetrahedron::ttrhdrn_sub1g30 | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 330 of file m_tetrahedron_20170325.F.
Referenced by ttrhdrn_chi0().
subroutine m_tetrahedron::ttrhdrn_sub1g30g20 | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 321 of file m_tetrahedron_20170325.F.
Referenced by ttrhdrn_chi0().
subroutine m_tetrahedron::ttrhdrn_sub1g30g21 | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 312 of file m_tetrahedron_20170325.F.
Referenced by ttrhdrn_chi0().
subroutine m_tetrahedron::ttrhdrn_sub1normal | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 346 of file m_tetrahedron_20170325.F.
Referenced by ttrhdrn_chi0().
subroutine m_tetrahedron::ttrhdrn_sub1simple | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 304 of file m_tetrahedron_20170325.F.
subroutine m_tetrahedron::ttrhdrn_sub2g10 | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 404 of file m_tetrahedron_20170325.F.
Referenced by ttrhdrn_chi0().
subroutine m_tetrahedron::ttrhdrn_sub2g30 | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 419 of file m_tetrahedron_20170325.F.
Referenced by ttrhdrn_chi0().
subroutine m_tetrahedron::ttrhdrn_sub2g30g10 | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 393 of file m_tetrahedron_20170325.F.
Referenced by ttrhdrn_chi0().
subroutine m_tetrahedron::ttrhdrn_sub2g30g20 | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 373 of file m_tetrahedron_20170325.F.
Referenced by ttrhdrn_sub2g30g21().
subroutine m_tetrahedron::ttrhdrn_sub2g30g21 | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 385 of file m_tetrahedron_20170325.F.
References ttrhdrn_sub2g30g20().
Referenced by ttrhdrn_chi0().
subroutine m_tetrahedron::ttrhdrn_sub2normal | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 435 of file m_tetrahedron_20170325.F.
Referenced by ttrhdrn_chi0().
subroutine m_tetrahedron::ttrhdrn_sub2simple | ( | complex(8),intent(in) | g0, | |
complex(8),intent(in) | g1, | |||
complex(8),intent(in) | g2, | |||
complex(8),intent(in) | g3, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne),intent(out) | x0 | |||
) |
Definition at line 365 of file m_tetrahedron_20170325.F.
Referenced by ttrhdrn_chi0().
subroutine m_tetrahedron::ttrhdrn_sum | ( | real(8),intent(in) | dmna, | |
real(8),intent(in) | dmnr, | |||
integer,intent(in) | n1, | |||
integer,intent(in) | n2, | |||
integer,intent(in) | n3, | |||
integer,dimension(nvtx,n1*n2*n3*ndiv),intent(in) | imt1, | |||
complex(8),dimension(n1*n2*n3),intent(in) | fk, | |||
complex(8),dimension(n1*n2*n3),intent(in) | gk, | |||
integer,intent(in) | ne, | |||
complex(8),dimension(ne),intent(in) | em, | |||
complex(8),dimension(ne*nvtx),intent(out) | ca1, | |||
complex(8),dimension(ne,n1*n2*n3),intent(inout) | xo | |||
) |
Definition at line 78 of file m_tetrahedron_20170325.F.
Referenced by ttrhdrn_simple().
integer parameter m_tetrahedron::ndiv = ttrhdrn_div |
Definition at line 51 of file m_tetrahedron_20170325.F.
integer parameter m_tetrahedron::nvtx = ttrhdrn_vtx |
Definition at line 50 of file m_tetrahedron_20170325.F.
integer parameter m_tetrahedron::ttrhdrn_div = 6 |
Definition at line 49 of file m_tetrahedron_20170325.F.
integer,dimension(/nvtx,ndiv/),parameter m_tetrahedron::ttrhdrn_tbl1 = reshape((/1,2,3,6 ,1,3,5,6 ,3,5,6,7 ,2,3,4,6 ,3,4,6,8 ,3,6,7,8/) |
Definition at line 52 of file m_tetrahedron_20170325.F.
integer parameter m_tetrahedron::ttrhdrn_vtx = 4 |
Definition at line 48 of file m_tetrahedron_20170325.F.