dc_scaledsec.f90 File Reference

Go to the source code of this file.

Data Types

type  dc_scaledsec::dc_scaled_sec
 
interface  dc_scaledsec::assignment(=)
 
interface  dc_scaledsec::putline
 
interface  dc_scaledsec::operator(==)
 
interface  dc_scaledsec::operator(>)
 
interface  dc_scaledsec::operator(<)
 
interface  dc_scaledsec::operator(>=)
 
interface  dc_scaledsec::operator(<=)
 
interface  dc_scaledsec::operator(+)
 
interface  dc_scaledsec::operator(-)
 
interface  dc_scaledsec::operator(*)
 
interface  dc_scaledsec::operator(/)
 
interface  dc_scaledsec::mod
 
interface  dc_scaledsec::modulo
 
interface  dc_scaledsec::abs
 
interface  dc_scaledsec::int
 
interface  dc_scaledsec::sign
 
interface  dc_scaledsec::floor
 
interface  dc_scaledsec::ceiling
 

Modules

module  dc_scaledsec
 

Functions/Subroutines

subroutine dc_scaledsec::dcscaledseccreatei (sclsec, sec)
 
subroutine dc_scaledsec::dcscaledseccreater (sclsec, sec)
 
subroutine dc_scaledsec::dcscaledseccreated (sclsec, sec)
 
subroutine dc_scaledsec::dcscaledsectonumi (sec, sclsec)
 
subroutine dc_scaledsec::dcscaledsectonumr (sec, sclsec)
 
subroutine dc_scaledsec::dcscaledsectonumd (sec, sclsec)
 
subroutine, public dc_scaledsec::dcscaledsecputline (sclsec, unit, indent)
 
logical function dc_scaledsec::dcscaledsec_eq_ss (sclsec1, sclsec2)
 
logical function dc_scaledsec::dcscaledsec_eq_si (sclsec, sec)
 
logical function dc_scaledsec::dcscaledsec_eq_is (sec, sclsec)
 
logical function dc_scaledsec::dcscaledsec_eq_sr (sclsec, sec)
 
logical function dc_scaledsec::dcscaledsec_eq_rs (sec, sclsec)
 
logical function dc_scaledsec::dcscaledsec_eq_sd (sclsec, sec)
 
logical function dc_scaledsec::dcscaledsec_eq_ds (sec, sclsec)
 
logical function dc_scaledsec::dcscaledsec_gt_ss (sclsec1, sclsec2)
 
logical function dc_scaledsec::dcscaledsec_gt_si (sclsec, factor)
 
logical function dc_scaledsec::dcscaledsec_gt_is (factor, sclsec)
 
logical function dc_scaledsec::dcscaledsec_lt_ss (sclsec1, sclsec2)
 
logical function dc_scaledsec::dcscaledsec_lt_si (sclsec, factor)
 
logical function dc_scaledsec::dcscaledsec_lt_is (factor, sclsec)
 
logical function dc_scaledsec::dcscaledsec_ge_ss (sclsec1, sclsec2)
 
logical function dc_scaledsec::dcscaledsec_ge_si (sclsec, factor)
 
logical function dc_scaledsec::dcscaledsec_ge_is (factor, sclsec)
 
logical function dc_scaledsec::dcscaledsec_le_ss (sclsec1, sclsec2)
 
logical function dc_scaledsec::dcscaledsec_le_si (sclsec, factor)
 
logical function dc_scaledsec::dcscaledsec_le_is (factor, sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_add_ss (sclsec1, sclsec2)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_add_si (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_add_is (factor, sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_add_sr (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_add_rs (factor, sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_add_sd (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_add_ds (factor, sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sub_s (sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sub_ss (sclsec1, sclsec2)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sub_si (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sub_is (factor, sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sub_sr (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sub_rs (factor, sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sub_sd (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sub_ds (factor, sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_ss (sclsec1, sclsec2)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_si (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_is (factor, sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_sd (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_ds (factor, sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_sr (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_rs (factor, sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_div_ss (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_div_si (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_div_sd (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_div_sr (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mod_ss (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mod_si (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mod_sr (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mod_sd (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_modulo_ss (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_modulo_si (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_modulo_sr (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_modulo_sd (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_abs_s (sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_int_s (sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sign_ss (sclsec1, sclsec2)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sign_si (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sign_sr (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_sign_sd (sclsec, factor)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_floor_s (sclsec)
 
type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_ceiling_s (sclsec)
 
integer function dc_scaledsec::count_digit (sec)
 

Variables

integer, parameter dc_scaledsec::imin = -2
 
integer, parameter dc_scaledsec::imax = 8
 
real(dp), parameter dc_scaledsec::scale_factor = 1.0e+3_DP
 
real(dp), dimension(-(imax+1):imax+1), parameter dc_scaledsec::scale_factor_xx = (/ 1.0e-27_DP, 1.0e-24_DP, 1.0e-21_DP, 1.0e-18_DP, 1.0e-15_DP, 1.0e-12_DP, 1.0e-9_DP, 1.0e-6_DP, 1.0e-3_DP, 1.0_DP, 1.0e+3_DP, 1.0e+6_DP, 1.0e+9_DP, 1.0e+12_DP, 1.0e+15_DP, 1.0e+18_DP, 1.0e+21_DP, 1.0e+24_DP, 1.0e+27_DP /)
 
integer, parameter dc_scaledsec::scale_factor_int = 1000
 
integer, dimension(0:3), parameter dc_scaledsec::scale_factor_int_xx = (/ 1, 1000, 1000000, 1000000000 /)