miscellaneous Module

Various subroutines


Uses

  • module~~miscellaneous~~UsesGraph module~miscellaneous miscellaneous module~data_arch data_arch module~miscellaneous->module~data_arch iso_fortran_env iso_fortran_env module~data_arch->iso_fortran_env

Used by

  • module~~miscellaneous~~UsedByGraph module~miscellaneous miscellaneous module~files files module~files->module~miscellaneous module~surfile surfile module~surfile->module~miscellaneous module~tchebychev tchebychev module~tchebychev->module~miscellaneous program~main main program~main->module~miscellaneous program~test_algen test_algen program~test_algen->module~miscellaneous program~test_data_arch test_data_arch program~test_data_arch->module~miscellaneous program~test_fftw3 test_fftw3 program~test_fftw3->module~miscellaneous program~test_solvers test_solvers program~test_solvers->module~miscellaneous program~test_tchebychev test_tchebychev program~test_tchebychev->module~miscellaneous program~test_tchebychev->module~tchebychev program~test_files test_files program~test_files->module~files program~test_surfile test_surfile program~test_surfile->module~surfile

Subroutines

public subroutine get_unit(iunit)

Provide for a free unit, from here John Burkardt website

Arguments

Type IntentOptional Attributes Name
integer(kind=I4), intent(out) :: iunit

free unit to use

public subroutine progress_bar_terminal(val, max_val, init)

Print a progress bar on the terminal

Arguments

Type IntentOptional Attributes Name
integer(kind=I4), intent(in) :: val

actual position
integer(kind=I4), intent(in) :: max_val

maximum value reached
logical(kind=I4), intent(in) :: init

progress bar initialization

public subroutine trans_center2corner(tab_in, tab_out, long, larg)

Generic subroutine for real or complex arrays that shift the center to the corners

Arguments

Type IntentOptional Attributes Name
class(*), intent(in), dimension(1:long, 1:larg) :: tab_in

2D array to transform
class(*), intent(out), dimension(1:long, 1:larg) :: tab_out

transformed 2D array
integer(kind=I4), intent(in) :: long

2D array length
integer(kind=I4), intent(in) :: larg

2D array width

private subroutine trans_center2corner_cmpl(tab_in, tab_out, long, larg)

Subroutine to transform an array of complexes so that the center is in the corners

Arguments

Type IntentOptional Attributes Name
complex(kind=R8), intent(in), dimension(1:long, 1:larg) :: tab_in

2D array to transform
complex(kind=R8), intent(out), dimension(1:long, 1:larg) :: tab_out

transformed 2D array
integer(kind=I4), intent(in) :: long

2D array length
integer(kind=I4), intent(in) :: larg

2D array width

private subroutine trans_center2corner_real(tab_in, tab_out, long, larg)

Subroutine to transform an array of reals so that the center is in the corners

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(in), dimension(1:long, 1:larg) :: tab_in

2D array to transform
real(kind=R8), intent(out), dimension(1:long, 1:larg) :: tab_out

transformed 2D array
integer(kind=I4), intent(in) :: long

2D array length
integer(kind=I4), intent(in) :: larg

2D array width

public subroutine trans_corner2center(tab_in, tab_out, long, larg)

Generic subroutine for real or complex arrays that shift the corners to the center

Arguments

Type IntentOptional Attributes Name
class(*), intent(in), dimension(1:long, 1:larg) :: tab_in

2D array to transform
class(*), intent(out), dimension(1:long, 1:larg) :: tab_out

transformed 2D array
integer(kind=I4), intent(in) :: long

2D array length
integer(kind=I4), intent(in) :: larg

2D array width

private subroutine trans_corner2center_cmpl(tab_in, tab_out, long, larg)

Function to transform an acf complex array so that the acf maximum is in the center

Arguments

Type IntentOptional Attributes Name
complex(kind=R8), intent(in), dimension(1:long, 1:larg) :: tab_in

2D array to transform
complex(kind=R8), intent(out), dimension(1:long, 1:larg) :: tab_out

transformed 2D array
integer(kind=I4), intent(in) :: long

2D array length
integer(kind=I4), intent(in) :: larg

2D array width

private subroutine trans_corner2center_real(tab_in, tab_out, long, larg)

Function to transform an acf real array so that the acf maximum is in the center

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(in), dimension(1:long, 1:larg) :: tab_in

2D array to transform
real(kind=R8), intent(out), dimension(1:long, 1:larg) :: tab_out

transformed 2D array
integer(kind=I4), intent(in) :: long

2D array length
integer(kind=I4), intent(in) :: larg

2D array width