Go to the documentation of this file.
23 real(
rp),
parameter ::
pi=3.1415926535897932384626433832795028_rp
31 public :: r3_x_r_to_rn
33 public :: r_to_r, r2_to_r, r3_to_r
34 public :: rn_to_rn, r3_to_r3_x_r3
35 public :: rn_x_rm_to_rn
36 public :: rn_x_rm_to_rn_x_rn
37 public :: rn_x_rm_to_rn_x_rm
38 public :: rn_x_r3_x_r_to_rn
39 public :: r3_x_r3_x_r3_to_r
40 public :: r3_x_r_x_r3_to_r
41 public :: r3_x_r_x_r3_to_r3
42 public :: r3_x_r_x_r3_x_r3_x_r_to_r
43 public :: r3_x_r_x_r_x_r3_x_r3_to_r
44 public :: r3_to_r3, r2_to_r2
62 public :: merge_sorted_set
63 public :: cap_sorted_set
65 public :: shellsort_dec
character(len=:) function, allocatable, public integer_to_string(N)
convert the integer 'N' to a string
pure real(rp) function, dimension(n), public solve_upper_triangular(U, b, N)
Solve .
subroutine, public paragraph_2(mess, line_jump)
print sub paragraph header
subroutine, public copy_omp_r1d(x, y)
x(:) := y(:)
Simple linear algebra tools.
character(len=3) function, public inttostring_3(N)
convert the integer 'N' to a string of lenfth 3 0 <= N <= 999
integer, parameter, public rp
RP : real precision in the code.
integer function, public file_count_lines(fic)
Count lines in a file.
subroutine, public inttostring(str, N)
convert the integer 'N' to a string
integer, parameter, public sp
simple precision
character(len=:) function, allocatable, public error_message(mess1)
Error message
subroutine, public write_r1d(tab, fic, verb)
write 1D real array to file
integer function, public number_of_digits(N)
Determines the number of digits of an integer 'N'.
subroutine, public read_r1d(vec, fic)
read 1D real array from file
subroutine, public z_eq_xpay_omp_r1d(z, x, a, y)
z(:) := x + a*y(:)
Simple linear algebra tools with openMP.
real(rp) function, public dot_product_omp(x, y)
Scalar product, with openMP.
subroutine, public x_eq_xpay_omp_r1d(x, a, y)
x(:) := x(:) + a*y(:)
Abstract interfaces for procedural arguments.
character(len=:) function, allocatable, public message_2(mess)
Print message, level 2
subroutine, public paragraph(mess, line_jump)
print paragraph header
subroutine, public write_r2d(tab, fic, verb, transpose)
write 2D real array to file
TOP-LEVEL MODULE for the 'fbase' project.
character(len=:) function, allocatable, public message(mess1)
Print message, level 1
Module for input / output:
Standard output messages.
real(rp) function, public norm2_omp(x)
Euclidian norm.
real(rp) function, public clock()
Returns the internal clock time
character(len=:) function, allocatable, public message_3(mess)
Print message, level 3
subroutine, public x_eq_axpy_omp_r1d(a, x, y)
x(:) := a*x(:) + y(:)
logical function, public file_exists(filename)
Check if the file exists.
real(rp), parameter, public real_tol
subroutine, public copy_omp_r2d(y, x)
y(:,:) := x(:,:)
real(rp), parameter, public pi
REAL CONSTANT Pi.