m_precision.f90 Source File


Files dependent on this one

sourcefile~~m_precision.f90~~AfferentGraph sourcefile~m_precision.f90 m_precision.f90 sourcefile~m_config_io.f90 m_config_io.f90 sourcefile~m_config_io.f90->sourcefile~m_precision.f90 sourcefile~m_globals.f90 m_globals.f90 sourcefile~m_config_io.f90->sourcefile~m_globals.f90 sourcefile~m_strings.f90 m_strings.f90 sourcefile~m_config_io.f90->sourcefile~m_strings.f90 sourcefile~m_constants_math.f90 m_constants_math.f90 sourcefile~m_constants_math.f90->sourcefile~m_precision.f90 sourcefile~m_control_io.f90 m_control_io.f90 sourcefile~m_control_io.f90->sourcefile~m_precision.f90 sourcefile~m_control_io.f90->sourcefile~m_globals.f90 sourcefile~m_control_io.f90->sourcefile~m_strings.f90 sourcefile~m_globals.f90->sourcefile~m_precision.f90 sourcefile~m_ia_types.f90 m_ia_types.f90 sourcefile~m_globals.f90->sourcefile~m_ia_types.f90 sourcefile~m_trajectory.f90 m_trajectory.f90 sourcefile~m_globals.f90->sourcefile~m_trajectory.f90 sourcefile~m_ia_angle.f90 m_ia_angle.f90 sourcefile~m_ia_angle.f90->sourcefile~m_precision.f90 sourcefile~m_ia_angle.f90->sourcefile~m_constants_math.f90 sourcefile~m_ia_angle.f90->sourcefile~m_ia_types.f90 sourcefile~m_ia_bond.f90 m_ia_bond.f90 sourcefile~m_ia_bond.f90->sourcefile~m_precision.f90 sourcefile~m_ia_bond.f90->sourcefile~m_constants_math.f90 sourcefile~m_ia_bond.f90->sourcefile~m_ia_types.f90 sourcefile~m_ia_dihedral.f90 m_ia_dihedral.f90 sourcefile~m_ia_dihedral.f90->sourcefile~m_precision.f90 sourcefile~m_ia_dihedral.f90->sourcefile~m_constants_math.f90 sourcefile~m_ia_dihedral.f90->sourcefile~m_ia_types.f90 sourcefile~m_ia_external.f90 m_ia_external.f90 sourcefile~m_ia_external.f90->sourcefile~m_precision.f90 sourcefile~m_ia_external.f90->sourcefile~m_constants_math.f90 sourcefile~m_ia_external.f90->sourcefile~m_ia_types.f90 sourcefile~m_ia_tether.f90 m_ia_tether.f90 sourcefile~m_ia_tether.f90->sourcefile~m_precision.f90 sourcefile~m_ia_tether.f90->sourcefile~m_constants_math.f90 sourcefile~m_ia_tether.f90->sourcefile~m_ia_types.f90 sourcefile~m_ia_types.f90->sourcefile~m_precision.f90 sourcefile~m_ia_vdw.f90 m_ia_vdw.f90 sourcefile~m_ia_vdw.f90->sourcefile~m_precision.f90 sourcefile~m_ia_vdw.f90->sourcefile~m_constants_math.f90 sourcefile~m_ia_vdw.f90->sourcefile~m_ia_types.f90 sourcefile~m_interaction.f90 m_interaction.f90 sourcefile~m_interaction.f90->sourcefile~m_precision.f90 sourcefile~m_interaction.f90->sourcefile~m_constants_math.f90 sourcefile~m_interaction.f90->sourcefile~m_globals.f90 sourcefile~m_interaction.f90->sourcefile~m_ia_angle.f90 sourcefile~m_interaction.f90->sourcefile~m_ia_bond.f90 sourcefile~m_interaction.f90->sourcefile~m_ia_dihedral.f90 sourcefile~m_interaction.f90->sourcefile~m_ia_external.f90 sourcefile~m_interaction.f90->sourcefile~m_ia_tether.f90 sourcefile~m_interaction.f90->sourcefile~m_ia_vdw.f90 sourcefile~m_nbr_lists.f90 m_nbr_lists.f90 sourcefile~m_interaction.f90->sourcefile~m_nbr_lists.f90 sourcefile~m_qsort.f90 m_qsort.f90 sourcefile~m_interaction.f90->sourcefile~m_qsort.f90 sourcefile~m_mc_moves.f90 m_mc_moves.f90 sourcefile~m_mc_moves.f90->sourcefile~m_precision.f90 sourcefile~m_mc_moves.f90->sourcefile~m_constants_math.f90 sourcefile~m_mc_moves.f90->sourcefile~m_globals.f90 sourcefile~m_mc_moves.f90->sourcefile~m_interaction.f90 sourcefile~m_mc_moves.f90->sourcefile~m_nbr_lists.f90 sourcefile~m_ran_num.f90 m_ran_num.f90 sourcefile~m_mc_moves.f90->sourcefile~m_ran_num.f90 sourcefile~m_mc_solver.f90 m_mc_solver.f90 sourcefile~m_mc_solver.f90->sourcefile~m_precision.f90 sourcefile~m_mc_solver.f90->sourcefile~m_config_io.f90 sourcefile~m_mc_solver.f90->sourcefile~m_constants_math.f90 sourcefile~m_mc_solver.f90->sourcefile~m_globals.f90 sourcefile~m_mc_solver.f90->sourcefile~m_interaction.f90 sourcefile~m_mc_solver.f90->sourcefile~m_mc_moves.f90 sourcefile~m_mc_solver.f90->sourcefile~m_nbr_lists.f90 sourcefile~m_stats_io.f90 m_stats_io.f90 sourcefile~m_mc_solver.f90->sourcefile~m_stats_io.f90 sourcefile~m_mc_solver.f90->sourcefile~m_strings.f90 sourcefile~m_nbr_lists.f90->sourcefile~m_precision.f90 sourcefile~m_nbr_lists.f90->sourcefile~m_globals.f90 sourcefile~m_table.f90 m_table.f90 sourcefile~m_nbr_lists.f90->sourcefile~m_table.f90 sourcefile~m_vector.f90 m_vector.f90 sourcefile~m_nbr_lists.f90->sourcefile~m_vector.f90 sourcefile~m_qsort.f90->sourcefile~m_precision.f90 sourcefile~m_ran_num.f90->sourcefile~m_precision.f90 sourcefile~m_setup.f90 m_setup.f90 sourcefile~m_setup.f90->sourcefile~m_precision.f90 sourcefile~m_setup.f90->sourcefile~m_config_io.f90 sourcefile~m_setup.f90->sourcefile~m_globals.f90 sourcefile~m_setup.f90->sourcefile~m_interaction.f90 sourcefile~m_setup.f90->sourcefile~m_mc_solver.f90 sourcefile~m_setup.f90->sourcefile~m_ran_num.f90 sourcefile~m_setup.f90->sourcefile~m_stats_io.f90 sourcefile~m_stats_io.f90->sourcefile~m_precision.f90 sourcefile~m_stats_io.f90->sourcefile~m_constants_math.f90 sourcefile~m_stats_io.f90->sourcefile~m_globals.f90 sourcefile~m_stats_io.f90->sourcefile~m_strings.f90 sourcefile~m_strings.f90->sourcefile~m_precision.f90 sourcefile~m_table.f90->sourcefile~m_precision.f90 sourcefile~m_table.f90->sourcefile~m_vector.f90 sourcefile~m_trajectory.f90->sourcefile~m_precision.f90 sourcefile~m_vector.f90->sourcefile~m_precision.f90 sourcefile~m_vector.f90->sourcefile~m_qsort.f90 sourcefile~main.f90 main.f90 sourcefile~main.f90->sourcefile~m_precision.f90 sourcefile~main.f90->sourcefile~m_control_io.f90 sourcefile~main.f90->sourcefile~m_globals.f90 sourcefile~main.f90->sourcefile~m_mc_solver.f90 sourcefile~main.f90->sourcefile~m_setup.f90 sourcefile~main.f90->sourcefile~m_strings.f90

Source Code

module m_precision

use, intrinsic ::  iso_fortran_env, only: int32, int64, real64

implicit none

integer, parameter :: ip = int32
    !! Default integer precision
integer, parameter :: ip_long = int64
    !! Default long integer precision

integer, parameter :: rp = real64
    !! Default real precision

integer, parameter :: sizeof_char = 1
    !! Size of a char in bytes
integer, parameter :: sizeof_int  = 4
    !! Size of a default int in bytes
integer, parameter :: sizeof_long_int  = 8
    !! Size of a default long int in bytes
integer, parameter :: sizeof_real = 8
    !! Size of a default real in bytes

end module m_precision