refineBZparts Program

Uses

Variables

Type Attributes Name Initial
integer :: nCub3(3)
integer :: nCub3_inp(3)
integer :: nCub3_file(3)
integer :: nFSiter
integer :: ii3(3)
integer :: imarked(1)
integer :: nmarked
integer :: nverts
integer :: nBZdimen = 3
integer, allocatable :: nCut_iter(:)
integer, allocatable :: nCub3_steps(:,:)
double precision :: bounds(3,2)
integer :: idomain
integer :: ierr
integer :: istep
integer :: iselect
character(len=80) :: uio
character(len=256) :: filename
integer, parameter :: ifile = 14
integer, parameter :: iofile = 16

Functions

function select_cubesize(nFSiter, nCub3_steps, bounds) result(nCub3)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nFSiter
integer, intent(in) :: nCub3_steps(3,nFSiter+1)
double precision, intent(in) :: bounds(3,2)

Return Value integer, (3)

function cube_in_sphere(nverts, kverts, kcenter, radius)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nverts
double precision, intent(in) :: kverts(3,nverts)
double precision, intent(in) :: kcenter(3)
double precision, intent(in) :: radius

Return Value logical

function get_nFiles()

Arguments

None

Return Value integer

function get_nLines(UIO) result(nLines)

Arguments

Type IntentOptional Attributes Name
integer :: UIO

Return Value integer


Subroutines

subroutine add_from_outfile(nCub3, bounds)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nCub3(3)
double precision, intent(in) :: bounds(3,2)

subroutine add_point(nCub3, nCub3_file, nFSiter, nCub3_steps, bounds)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nCub3(3)
integer, intent(in) :: nCub3_file(3)
integer, intent(in) :: nFSiter
integer, intent(in) :: nCub3_steps(3,nFSiter+1)
double precision, intent(in) :: bounds(3,2)

subroutine add_sphere(nverts, nCub3, nCub3_file, nFSiter, nCub3_steps, bounds)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nverts
integer, intent(in) :: nCub3(3)
integer, intent(in) :: nCub3_file(3)
integer, intent(in) :: nFSiter
integer, intent(in) :: nCub3_steps(3,nFSiter+1)
double precision, intent(in) :: bounds(3,2)

subroutine kpoint_to_indices(nCub3, bounds, kpoint, ii3, ixyz)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nCub3(3)
double precision, intent(in) :: bounds(3,2)
double precision, intent(in) :: kpoint(3)
integer, intent(out) :: ii3(3)
integer, intent(out) :: ixyz

subroutine cubes2VTK(filename, nCub3, nmarked, imarked, bounds)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in) :: nCub3(3)
integer, intent(in) :: nmarked
integer, intent(in) :: imarked(nmarked)
double precision, intent(in) :: bounds(3,2)

subroutine squares2TXT(filename, nCub3, nmarked, imarked, bounds)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in) :: nCub3(3)
integer, intent(in) :: nmarked
integer, intent(in) :: imarked(nmarked)
double precision, intent(in) :: bounds(3,2)

subroutine mark_cubes_in_sphere(nverts, nCub3, bounds, kcenter, radius, nmarked, imarked)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nverts
integer, intent(in) :: nCub3(3)
double precision, intent(in) :: bounds(3,2)
double precision, intent(in) :: kcenter(3)
double precision, intent(in) :: radius
integer, intent(out) :: nmarked
integer, intent(out), allocatable :: imarked(:)

subroutine generate_cubevertices(nCub3, cubeid, bounds, kverts)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nCub3(3)
integer, intent(in) :: cubeid
double precision, intent(in) :: bounds(3,2)
double precision, intent(out) :: kverts(3,8)

subroutine generate_squarevertices(nCub3, cubeid, bounds, kverts)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nCub3(3)
integer, intent(in) :: cubeid
double precision, intent(in) :: bounds(3,2)
double precision, intent(out) :: kverts(3,4)

subroutine unroll_ixyz(ixyz, nCub3, ii3)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ixyz
integer, intent(in) :: nCub3(3)
integer, intent(out) :: ii3(3)