mod_safe’s documentation

mod_safe is a module that can safely be used (without any extra dependencies).

subroutine  mod_safe/sub_save_array_as_PBM(arr, fname)

Save an array of arbitrary kind/size as a PBM image.

Synopsis :

Please note that (1,1) is the top-left corner and logical arrays are: .TRUE. = white; and .FALSE. = black.

Parameters:

• arr :: the arbitrary kind/size array to be saved as a PBM image

• fname [character ] :: the PBM image name

subroutine  mod_safe/sub_save_array_as_PGM(arr, fname)

Save an array of arbitrary kind/size as a PGM image.

Synopsis :

Please note that (1,1) is the top-left corner, integer arrays are assumed to be scaled from 0 to 255 inclusive and real arrays are assumed to be scaled from 0 to 1 inclusive.

Parameters:

• arr :: the arbitrary kind/size array to be saved as a PGM image

• fname [character ] :: the PGM image name

subroutine  mod_safe/sub_save_array_as_PPM(arr, fname, cm)

Save an array of arbitrary kind/size as a PPM image.

Synopsis :

Please note that (1,1) is the top-left corner, integer arrays are assumed to be scaled from 0 to 255 inclusive and real arrays are assumed to be scaled from 0 to 1 inclusive.

Parameters:

• arr :: the arbitrary kind/size array to be saved as a PPM image

• fname [character ] :: the PPM image name

• cm [character ] :: the colour map name

Description

This module contains a lot of constants, functions and subroutines which are thread-safe and which can be safely imported in to any program.

Quick access

Variables:

const_1sigma, const_2sigma, const_3sigma, const_4sigma, const_5sigma, const_6sigma, const_amu, const_c, const_cm_cividis, const_cm_coolwarm, const_cm_g2b, const_cm_grey, const_cm_inferno, const_cm_magma, const_cm_plasma, const_cm_r2g, const_cm_r2o2g, const_cm_turbo, const_cm_viridis, const_e, const_eps0, const_factorial_int16, const_factorial_int32, const_factorial_int64, const_factorial_int8, const_factorial_real128, const_factorial_real32, const_factorial_real64, const_g, const_h, const_kb, const_me, const_mn, const_mp, const_mu0, const_na, const_pi, const_sig

Routines:

func_integrate_1d_real128_real_array(), func_integrate_1d_real32_real_array(), func_integrate_1d_real64_real_array(), func_integrate_2d_real128_real_array(), func_integrate_2d_real32_real_array(), func_integrate_2d_real64_real_array(), func_interpolate_real128_points(), func_interpolate_real32_points(), func_interpolate_real64_points(), func_mean_1d_int16_integer(), func_mean_1d_int32_integer(), func_mean_1d_int64_integer(), func_mean_1d_real32_real(), func_mean_1d_real64_real(), func_mean_2d_int16_integer(), func_mean_2d_int32_integer(), func_mean_2d_int64_integer(), func_mean_2d_real32_real(), func_mean_2d_real64_real(), func_overall_index_2loops(), func_overall_index_3loops(), func_overall_index_4loops(), func_overall_index_5loops(), func_overall_index_6loops(), func_overall_index_7loops(), sub_allocate_1d_int16_integer_array(), sub_allocate_1d_int16_logical_array(), sub_allocate_1d_int32_integer_array(), sub_allocate_1d_int32_logical_array(), sub_allocate_1d_int64_integer_array(), sub_allocate_1d_int64_logical_array(), sub_allocate_1d_int8_integer_array(), sub_allocate_1d_int8_logical_array(), sub_allocate_1d_real128_real_array(), sub_allocate_1d_real32_real_array(), sub_allocate_1d_real64_real_array(), sub_allocate_2d_int16_integer_array(), sub_allocate_2d_int16_logical_array(), sub_allocate_2d_int32_integer_array(), sub_allocate_2d_int32_logical_array(), sub_allocate_2d_int64_integer_array(), sub_allocate_2d_int64_logical_array(), sub_allocate_2d_int8_integer_array(), sub_allocate_2d_int8_logical_array(), sub_allocate_2d_real128_real_array(), sub_allocate_2d_real32_real_array(), sub_allocate_2d_real64_real_array(), sub_allocate_3d_int16_integer_array(), sub_allocate_3d_int16_logical_array(), sub_allocate_3d_int32_integer_array(), sub_allocate_3d_int32_logical_array(), sub_allocate_3d_int64_integer_array(), sub_allocate_3d_int64_logical_array(), sub_allocate_3d_int8_integer_array(), sub_allocate_3d_int8_logical_array(), sub_allocate_3d_real128_real_array(), sub_allocate_3d_real32_real_array(), sub_allocate_3d_real64_real_array(), sub_allocate_4d_int16_integer_array(), sub_allocate_4d_int16_logical_array(), sub_allocate_4d_int32_integer_array(), sub_allocate_4d_int32_logical_array(), sub_allocate_4d_int64_integer_array(), sub_allocate_4d_int64_logical_array(), sub_allocate_4d_int8_integer_array(), sub_allocate_4d_int8_logical_array(), sub_allocate_4d_real128_real_array(), sub_allocate_4d_real32_real_array(), sub_allocate_4d_real64_real_array(), sub_allocate_5d_int16_integer_array(), sub_allocate_5d_int16_logical_array(), sub_allocate_5d_int32_integer_array(), sub_allocate_5d_int32_logical_array(), sub_allocate_5d_int64_integer_array(), sub_allocate_5d_int64_logical_array(), sub_allocate_5d_int8_integer_array(), sub_allocate_5d_int8_logical_array(), sub_allocate_5d_real128_real_array(), sub_allocate_5d_real32_real_array(), sub_allocate_5d_real64_real_array(), sub_allocate_6d_int16_integer_array(), sub_allocate_6d_int16_logical_array(), sub_allocate_6d_int32_integer_array(), sub_allocate_6d_int32_logical_array(), sub_allocate_6d_int64_integer_array(), sub_allocate_6d_int64_logical_array(), sub_allocate_6d_int8_integer_array(), sub_allocate_6d_int8_logical_array(), sub_allocate_6d_real128_real_array(), sub_allocate_6d_real32_real_array(), sub_allocate_6d_real64_real_array(), sub_allocate_7d_int16_integer_array(), sub_allocate_7d_int16_logical_array(), sub_allocate_7d_int32_integer_array(), sub_allocate_7d_int32_logical_array(), sub_allocate_7d_int64_integer_array(), sub_allocate_7d_int64_logical_array(), sub_allocate_7d_int8_integer_array(), sub_allocate_7d_int8_logical_array(), sub_allocate_7d_real128_real_array(), sub_allocate_7d_real32_real_array(), sub_allocate_7d_real64_real_array(), sub_border_2d_real32_real_array(), sub_border_2d_real64_real_array(), sub_flood_int16_integer_array(), sub_flood_int16_integer_array_iter(), sub_flood_int32_integer_array(), sub_flood_int32_integer_array_iter(), sub_flood_int64_integer_array(), sub_flood_int64_integer_array_iter(), sub_flood_real32_real_array(), sub_flood_real32_real_array_iter(), sub_flood_real64_real_array(), sub_flood_real64_real_array_iter(), sub_load_1d_int16_integer_array_from_bin(), sub_load_1d_int16_logical_array_from_bin(), sub_load_1d_int32_integer_array_from_bin(), sub_load_1d_int32_logical_array_from_bin(), sub_load_1d_int64_integer_array_from_bin(), sub_load_1d_int64_logical_array_from_bin(), sub_load_1d_int8_integer_array_from_bin(), sub_load_1d_int8_logical_array_from_bin(), sub_load_1d_real128_real_array_from_bin(), sub_load_1d_real32_real_array_from_bin(), sub_load_1d_real64_real_array_from_bin(), sub_load_2d_int16_integer_array_from_bin(), sub_load_2d_int16_logical_array_from_bin(), sub_load_2d_int32_integer_array_from_bin(), sub_load_2d_int32_logical_array_from_bin(), sub_load_2d_int64_integer_array_from_bin(), sub_load_2d_int64_logical_array_from_bin(), sub_load_2d_int8_integer_array_from_bin(), sub_load_2d_int8_logical_array_from_bin(), sub_load_2d_real128_real_array_from_bin(), sub_load_2d_real32_real_array_from_bin(), sub_load_2d_real64_real_array_from_bin(), sub_load_3d_int16_integer_array_from_bin(), sub_load_3d_int16_logical_array_from_bin(), sub_load_3d_int32_integer_array_from_bin(), sub_load_3d_int32_logical_array_from_bin(), sub_load_3d_int64_integer_array_from_bin(), sub_load_3d_int64_logical_array_from_bin(), sub_load_3d_int8_integer_array_from_bin(), sub_load_3d_int8_logical_array_from_bin(), sub_load_3d_real128_real_array_from_bin(), sub_load_3d_real32_real_array_from_bin(), sub_load_3d_real64_real_array_from_bin(), sub_load_4d_int16_integer_array_from_bin(), sub_load_4d_int16_logical_array_from_bin(), sub_load_4d_int32_integer_array_from_bin(), sub_load_4d_int32_logical_array_from_bin(), sub_load_4d_int64_integer_array_from_bin(), sub_load_4d_int64_logical_array_from_bin(), sub_load_4d_int8_integer_array_from_bin(), sub_load_4d_int8_logical_array_from_bin(), sub_load_4d_real128_real_array_from_bin(), sub_load_4d_real32_real_array_from_bin(), sub_load_4d_real64_real_array_from_bin(), sub_load_5d_int16_integer_array_from_bin(), sub_load_5d_int16_logical_array_from_bin(), sub_load_5d_int32_integer_array_from_bin(), sub_load_5d_int32_logical_array_from_bin(), sub_load_5d_int64_integer_array_from_bin(), sub_load_5d_int64_logical_array_from_bin(), sub_load_5d_int8_integer_array_from_bin(), sub_load_5d_int8_logical_array_from_bin(), sub_load_5d_real128_real_array_from_bin(), sub_load_5d_real32_real_array_from_bin(), sub_load_5d_real64_real_array_from_bin(), sub_load_6d_int16_integer_array_from_bin(), sub_load_6d_int16_logical_array_from_bin(), sub_load_6d_int32_integer_array_from_bin(), sub_load_6d_int32_logical_array_from_bin(), sub_load_6d_int64_integer_array_from_bin(), sub_load_6d_int64_logical_array_from_bin(), sub_load_6d_int8_integer_array_from_bin(), sub_load_6d_int8_logical_array_from_bin(), sub_load_6d_real128_real_array_from_bin(), sub_load_6d_real32_real_array_from_bin(), sub_load_6d_real64_real_array_from_bin(), sub_load_7d_int16_integer_array_from_bin(), sub_load_7d_int16_logical_array_from_bin(), sub_load_7d_int32_integer_array_from_bin(), sub_load_7d_int32_logical_array_from_bin(), sub_load_7d_int64_integer_array_from_bin(), sub_load_7d_int64_logical_array_from_bin(), sub_load_7d_int8_integer_array_from_bin(), sub_load_7d_int8_logical_array_from_bin(), sub_load_7d_real128_real_array_from_bin(), sub_load_7d_real32_real_array_from_bin(), sub_load_7d_real64_real_array_from_bin(), sub_save_1d_int16_integer_array_as_bin(), sub_save_1d_int16_logical_array_as_bin(), sub_save_1d_int32_integer_array_as_bin(), sub_save_1d_int32_logical_array_as_bin(), sub_save_1d_int64_integer_array_as_bin(), sub_save_1d_int64_logical_array_as_bin(), sub_save_1d_int8_integer_array_as_bin(), sub_save_1d_int8_logical_array_as_bin(), sub_save_1d_real128_real_array_as_bin(), sub_save_1d_real32_real_array_as_bin(), sub_save_1d_real64_real_array_as_bin(), sub_save_2d_int16_integer_array_as_bin(), sub_save_2d_int16_integer_array_as_pgm(), sub_save_2d_int16_integer_array_as_ppm(), sub_save_2d_int16_logical_array_as_bin(), sub_save_2d_int16_logical_array_as_pbm(), sub_save_2d_int32_integer_array_as_bin(), sub_save_2d_int32_integer_array_as_pgm(), sub_save_2d_int32_integer_array_as_ppm(), sub_save_2d_int32_logical_array_as_bin(), sub_save_2d_int32_logical_array_as_pbm(), sub_save_2d_int64_integer_array_as_bin(), sub_save_2d_int64_integer_array_as_pgm(), sub_save_2d_int64_integer_array_as_ppm(), sub_save_2d_int64_logical_array_as_bin(), sub_save_2d_int64_logical_array_as_pbm(), sub_save_2d_int8_integer_array_as_bin(), sub_save_2d_int8_integer_array_as_pgm(), sub_save_2d_int8_integer_array_as_ppm(), sub_save_2d_int8_logical_array_as_bin(), sub_save_2d_int8_logical_array_as_pbm(), sub_save_2d_real128_real_array_as_bin(), sub_save_2d_real128_real_array_as_pgm(), sub_save_2d_real128_real_array_as_ppm(), sub_save_2d_real32_real_array_as_bin(), sub_save_2d_real32_real_array_as_pgm(), sub_save_2d_real32_real_array_as_ppm(), sub_save_2d_real64_real_array_as_bin(), sub_save_2d_real64_real_array_as_pgm(), sub_save_2d_real64_real_array_as_ppm(), sub_save_3d_int16_integer_array_as_bin(), sub_save_3d_int16_logical_array_as_bin(), sub_save_3d_int32_integer_array_as_bin(), sub_save_3d_int32_logical_array_as_bin(), sub_save_3d_int64_integer_array_as_bin(), sub_save_3d_int64_logical_array_as_bin(), sub_save_3d_int8_integer_array_as_bin(), sub_save_3d_int8_logical_array_as_bin(), sub_save_3d_real128_real_array_as_bin(), sub_save_3d_real32_real_array_as_bin(), sub_save_3d_real64_real_array_as_bin(), sub_save_4d_int16_integer_array_as_bin(), sub_save_4d_int16_logical_array_as_bin(), sub_save_4d_int32_integer_array_as_bin(), sub_save_4d_int32_logical_array_as_bin(), sub_save_4d_int64_integer_array_as_bin(), sub_save_4d_int64_logical_array_as_bin(), sub_save_4d_int8_integer_array_as_bin(), sub_save_4d_int8_logical_array_as_bin(), sub_save_4d_real128_real_array_as_bin(), sub_save_4d_real32_real_array_as_bin(), sub_save_4d_real64_real_array_as_bin(), sub_save_5d_int16_integer_array_as_bin(), sub_save_5d_int16_logical_array_as_bin(), sub_save_5d_int32_integer_array_as_bin(), sub_save_5d_int32_logical_array_as_bin(), sub_save_5d_int64_integer_array_as_bin(), sub_save_5d_int64_logical_array_as_bin(), sub_save_5d_int8_integer_array_as_bin(), sub_save_5d_int8_logical_array_as_bin(), sub_save_5d_real128_real_array_as_bin(), sub_save_5d_real32_real_array_as_bin(), sub_save_5d_real64_real_array_as_bin(), sub_save_6d_int16_integer_array_as_bin(), sub_save_6d_int16_logical_array_as_bin(), sub_save_6d_int32_integer_array_as_bin(), sub_save_6d_int32_logical_array_as_bin(), sub_save_6d_int64_integer_array_as_bin(), sub_save_6d_int64_logical_array_as_bin(), sub_save_6d_int8_integer_array_as_bin(), sub_save_6d_int8_logical_array_as_bin(), sub_save_6d_real128_real_array_as_bin(), sub_save_6d_real32_real_array_as_bin(), sub_save_6d_real64_real_array_as_bin(), sub_save_7d_int16_integer_array_as_bin(), sub_save_7d_int16_logical_array_as_bin(), sub_save_7d_int32_integer_array_as_bin(), sub_save_7d_int32_logical_array_as_bin(), sub_save_7d_int64_integer_array_as_bin(), sub_save_7d_int64_logical_array_as_bin(), sub_save_7d_int8_integer_array_as_bin(), sub_save_7d_int8_logical_array_as_bin(), sub_save_7d_real128_real_array_as_bin(), sub_save_7d_real32_real_array_as_bin(), sub_save_7d_real64_real_array_as_bin(), sub_shrink_2d_int16_integer_array(), sub_shrink_2d_int32_integer_array(), sub_shrink_2d_int64_integer_array(), sub_shrink_2d_int8_integer_array_to_2d_real32_real_array(), sub_shrink_2d_int8_integer_array_to_2d_real64_real_array(), sub_shrink_2d_int8_logical_array_to_2d_real32_real_array(), sub_shrink_2d_int8_logical_array_to_2d_real64_real_array(), sub_shrink_2d_real32_real_array(), sub_shrink_2d_real64_real_array(), sub_solve_quadratic_real128_equation(), sub_solve_quadratic_real32_equation(), sub_solve_quadratic_real64_equation()

Needed modules

• iso_fortran_env

Variables

• mod_safe/const_1sigma [real,parameter=6.826894921370859e-01_real64]

• mod_safe/const_2sigma [real,parameter=9.544997361036416e-01_real64]

• mod_safe/const_3sigma [real,parameter=9.973002039367398e-01_real64]

• mod_safe/const_4sigma [real,parameter=9.999366575163338e-01_real64]

• mod_safe/const_5sigma [real,parameter=9.999994266968563e-01_real64]

• mod_safe/const_6sigma [real,parameter=9.999999980268247e-01_real64]

• mod_safe/const_amu [real,parameter=1.660539068920000e-27_real64]

• mod_safe/const_c [real,parameter=2.997924580000000e+08_real64]

• mod_safe/const_cm_cividis (256) [character(len=3),parameter=(/achar(0)//achar(34)//achar(77),achar(0)//achar(35)//achar(79),achar(0)//achar(35)//achar(80),achar(0)//achar(36)//achar(82),achar(0)//achar(37)//achar(84),achar(0)//achar(38)//achar(85),achar(0)//achar(38)//achar(87),achar(0)//achar(39)//achar(89),achar(0)//achar(40)//achar(91),achar(0)//achar(40)//achar(92),achar(0)//achar(41)//achar(94),achar(0)//achar(42)//achar(96),achar(0)//achar(42)//achar(98),achar(0)//achar(43)//achar(100),achar(0)//achar(44)//achar(102),achar(0)//achar(44)//achar(103),achar(0)//achar(45)//achar(105),achar(0)//achar(46)//achar(107),achar(0)//achar(47)//achar(109),achar(0)//achar(47)//achar(111),achar(0)//achar(48)//achar(112),achar(0)//achar(48)//achar(112),achar(0)//achar(49)//achar(112),achar(0)//achar(49)//achar(112),achar(4)//achar(50)//achar(112),achar(8)//achar(51)//achar(112),achar(11)//achar(51)//achar(112),achar(14)//achar(52)//achar(112),achar(17)//achar(53)//achar(111),achar(20)//achar(54)//achar(111),achar(22)//achar(54)//achar(111),achar(24)//achar(55)//achar(111),achar(26)//achar(56)//achar(111),achar(28)//achar(56)//achar(110),achar(29)//achar(57)//achar(110),achar(31)//achar(58)//achar(110),achar(33)//achar(59)//achar(110),achar(34)//achar(59)//achar(110),achar(36)//achar(60)//achar(110),achar(37)//achar(61)//achar(109),achar(39)//achar(61)//achar(109),achar(40)//achar(62)//achar(109),achar(42)//achar(63)//achar(109),achar(43)//achar(63)//achar(109),achar(44)//achar(64)//achar(109),achar(46)//achar(65)//achar(108),achar(47)//achar(66)//achar(108),achar(48)//achar(66)//achar(108),achar(49)//achar(67)//achar(108),achar(50)//achar(68)//achar(108),achar(52)//achar(68)//achar(108),achar(53)//achar(69)//achar(108),achar(54)//achar(70)//achar(108),achar(55)//achar(70)//achar(108),achar(56)//achar(71)//achar(108),achar(57)//achar(72)//achar(108),achar(58)//achar(72)//achar(107),achar(59)//achar(73)//achar(107),achar(61)//achar(74)//achar(107),achar(62)//achar(75)//achar(107),achar(63)//achar(75)//achar(107),achar(64)//achar(76)//achar(107),achar(65)//achar(77)//achar(107),achar(66)//achar(77)//achar(107),achar(67)//achar(78)//achar(107),achar(68)//achar(79)//achar(107),achar(69)//achar(79)//achar(107),achar(70)//achar(80)//achar(107),achar(71)//achar(81)//achar(107),achar(72)//achar(81)//achar(107),achar(73)//achar(82)//achar(107),achar(74)//achar(83)//achar(107),achar(75)//achar(84)//achar(108),achar(76)//achar(84)//achar(108),achar(77)//achar(85)//achar(108),achar(78)//achar(86)//achar(108),achar(78)//achar(86)//achar(108),achar(79)//achar(87)//achar(108),achar(80)//achar(88)//achar(108),achar(81)//achar(88)//achar(108),achar(82)//achar(89)//achar(108),achar(83)//achar(90)//achar(108),achar(84)//achar(90)//achar(108),achar(85)//achar(91)//achar(109),achar(86)//achar(92)//achar(109),achar(87)//achar(93)//achar(109),achar(88)//achar(93)//achar(109),achar(89)//achar(94)//achar(109),achar(89)//achar(95)//achar(109),achar(90)//achar(95)//achar(109),achar(91)//achar(96)//achar(110),achar(92)//achar(97)//achar(110),achar(93)//achar(97)//achar(110),achar(94)//achar(98)//achar(110),achar(95)//achar(99)//achar(110),achar(96)//achar(100)//achar(110),achar(97)//achar(100)//achar(111),achar(97)//achar(101)//achar(111),achar(98)//achar(102)//achar(111),achar(99)//achar(102)//achar(111),achar(100)//achar(103)//achar(111),achar(101)//achar(104)//achar(112),achar(102)//achar(105)//achar(112),achar(103)//achar(105)//achar(112),achar(104)//achar(106)//achar(112),achar(104)//achar(107)//achar(113),achar(105)//achar(107)//achar(113),achar(106)//achar(108)//achar(113),achar(107)//achar(109)//achar(113),achar(108)//achar(109)//achar(114),achar(109)//achar(110)//achar(114),achar(110)//achar(111)//achar(114),achar(110)//achar(112)//achar(115),achar(111)//achar(112)//achar(115),achar(112)//achar(113)//achar(115),achar(113)//achar(114)//achar(115),achar(114)//achar(115)//achar(116),achar(115)//achar(115)//achar(116),achar(116)//achar(116)//achar(117),achar(116)//achar(117)//achar(117),achar(117)//achar(117)//achar(117),achar(118)//achar(118)//achar(118),achar(119)//achar(119)//achar(118),achar(120)//achar(120)//achar(118),achar(121)//achar(120)//achar(119),achar(121)//achar(121)//achar(119),achar(122)//achar(122)//achar(119),achar(123)//achar(123)//achar(119),achar(124)//achar(123)//achar(120),achar(125)//achar(124)//achar(120),achar(126)//achar(125)//achar(120),achar(127)//achar(125)//achar(120),achar(128)//achar(126)//achar(120),achar(129)//achar(127)//achar(120),achar(130)//achar(128)//achar(120),achar(131)//achar(128)//achar(120),achar(132)//achar(129)//achar(120),achar(133)//achar(130)//achar(120),achar(133)//achar(131)//achar(120),achar(134)//achar(131)//achar(120),achar(135)//achar(132)//achar(120),achar(136)//achar(133)//achar(120),achar(137)//achar(134)//achar(120),achar(138)//achar(134)//achar(120),achar(139)//achar(135)//achar(120),achar(140)//achar(136)//achar(120),achar(141)//achar(137)//achar(120),achar(142)//achar(137)//achar(120),achar(143)//achar(138)//achar(119),achar(144)//achar(139)//achar(119),achar(145)//achar(140)//achar(119),achar(146)//achar(140)//achar(119),achar(147)//achar(141)//achar(119),achar(148)//achar(142)//achar(119),achar(149)//achar(143)//achar(119),achar(150)//achar(143)//achar(119),achar(151)//achar(144)//achar(118),achar(152)//achar(145)//achar(118),achar(153)//achar(146)//achar(118),achar(154)//achar(147)//achar(118),achar(155)//achar(147)//achar(118),achar(156)//achar(148)//achar(118),achar(157)//achar(149)//achar(117),achar(158)//achar(150)//achar(117),achar(159)//achar(150)//achar(117),achar(160)//achar(151)//achar(117),achar(161)//achar(152)//achar(116),achar(162)//achar(153)//achar(116),achar(163)//achar(154)//achar(116),achar(164)//achar(154)//achar(116),achar(165)//achar(155)//achar(115),achar(166)//achar(156)//achar(115),achar(167)//achar(157)//achar(115),achar(168)//achar(158)//achar(115),achar(169)//achar(158)//achar(114),achar(170)//achar(159)//achar(114),achar(171)//achar(160)//achar(114),achar(172)//achar(161)//achar(113),achar(173)//achar(162)//achar(113),achar(174)//achar(162)//achar(113),achar(175)//achar(163)//achar(112),achar(176)//achar(164)//achar(112),achar(177)//achar(165)//achar(112),achar(178)//achar(166)//achar(111),achar(179)//achar(166)//achar(111),achar(180)//achar(167)//achar(111),achar(181)//achar(168)//achar(110),achar(182)//achar(169)//achar(110),achar(183)//achar(170)//achar(109),achar(184)//achar(171)//achar(109),achar(185)//achar(171)//achar(109),achar(186)//achar(172)//achar(108),achar(187)//achar(173)//achar(108),achar(188)//achar(174)//achar(107),achar(189)//achar(175)//achar(107),achar(190)//achar(176)//achar(106),achar(191)//achar(176)//achar(106),achar(193)//achar(177)//achar(105),achar(194)//achar(178)//achar(105),achar(195)//achar(179)//achar(104),achar(196)//achar(180)//achar(104),achar(197)//achar(181)//achar(103),achar(198)//achar(181)//achar(103),achar(199)//achar(182)//achar(102),achar(200)//achar(183)//achar(101),achar(201)//achar(184)//achar(101),achar(202)//achar(185)//achar(100),achar(203)//achar(186)//achar(100),achar(204)//achar(187)//achar(99),achar(205)//achar(188)//achar(98),achar(206)//achar(188)//achar(98),achar(207)//achar(189)//achar(97),achar(208)//achar(190)//achar(96),achar(210)//achar(191)//achar(96),achar(211)//achar(192)//achar(95),achar(212)//achar(193)//achar(94),achar(213)//achar(194)//achar(94),achar(214)//achar(195)//achar(93),achar(215)//achar(195)//achar(92),achar(216)//achar(196)//achar(91),achar(217)//achar(197)//achar(90),achar(218)//achar(198)//achar(90),achar(219)//achar(199)//achar(89),achar(220)//achar(200)//achar(88),achar(222)//achar(201)//achar(87),achar(223)//achar(202)//achar(86),achar(224)//achar(203)//achar(85),achar(225)//achar(204)//achar(84),achar(226)//achar(204)//achar(83),achar(227)//achar(205)//achar(82),achar(228)//achar(206)//achar(81),achar(229)//achar(207)//achar(80),achar(230)//achar(208)//achar(79),achar(232)//achar(209)//achar(78),achar(233)//achar(210)//achar(77),achar(234)//achar(211)//achar(76),achar(235)//achar(212)//achar(75),achar(236)//achar(213)//achar(74),achar(237)//achar(214)//achar(72),achar(238)//achar(215)//achar(71),achar(239)//achar(216)//achar(70),achar(241)//achar(217)//achar(68),achar(242)//achar(218)//achar(67),achar(243)//achar(218)//achar(66),achar(244)//achar(219)//achar(64),achar(245)//achar(220)//achar(63),achar(246)//achar(221)//achar(61),achar(248)//achar(222)//achar(59),achar(249)//achar(223)//achar(58),achar(250)//achar(224)//achar(56),achar(251)//achar(225)//achar(54),achar(253)//achar(226)//achar(52),achar(253)//achar(227)//achar(51),achar(253)//achar(229)//achar(52),achar(253)//achar(230)//achar(54),achar(253)//achar(231)//achar(55)/)]

• mod_safe/const_cm_coolwarm (256) [character(len=3),parameter=(/achar(58)//achar(76)//achar(192),achar(59)//achar(77)//achar(193),achar(60)//achar(79)//achar(195),achar(62)//achar(81)//achar(196),achar(63)//achar(83)//achar(198),achar(64)//achar(84)//achar(199),achar(65)//achar(86)//achar(201),achar(66)//achar(88)//achar(202),achar(67)//achar(90)//achar(204),achar(69)//achar(91)//achar(205),achar(70)//achar(93)//achar(207),achar(71)//achar(95)//achar(208),achar(72)//achar(96)//achar(209),achar(73)//achar(98)//achar(211),achar(75)//achar(100)//achar(212),achar(76)//achar(102)//achar(214),achar(77)//achar(103)//achar(215),achar(78)//achar(105)//achar(216),achar(80)//achar(107)//achar(218),achar(81)//achar(108)//achar(219),achar(82)//achar(110)//achar(220),achar(83)//achar(112)//achar(221),achar(85)//achar(113)//achar(222),achar(86)//achar(115)//achar(224),achar(87)//achar(117)//achar(225),achar(88)//achar(118)//achar(226),achar(90)//achar(120)//achar(227),achar(91)//achar(121)//achar(228),achar(92)//achar(123)//achar(229),achar(93)//achar(125)//achar(230),achar(95)//achar(126)//achar(231),achar(96)//achar(128)//achar(232),achar(97)//achar(130)//achar(234),achar(99)//achar(131)//achar(234),achar(100)//achar(133)//achar(235),achar(101)//achar(134)//achar(236),achar(103)//achar(136)//achar(237),achar(104)//achar(137)//achar(238),achar(105)//achar(139)//achar(239),achar(107)//achar(141)//achar(240),achar(108)//achar(142)//achar(241),achar(109)//achar(144)//achar(241),achar(111)//achar(145)//achar(242),achar(112)//achar(147)//achar(243),achar(113)//achar(148)//achar(244),achar(115)//achar(149)//achar(244),achar(116)//achar(151)//achar(245),achar(117)//achar(152)//achar(246),achar(119)//achar(154)//achar(246),achar(120)//achar(155)//achar(247),achar(122)//achar(157)//achar(248),achar(123)//achar(158)//achar(248),achar(124)//achar(160)//achar(249),achar(126)//achar(161)//achar(249),achar(127)//achar(162)//achar(250),achar(128)//achar(164)//achar(250),achar(130)//achar(165)//achar(251),achar(131)//achar(166)//achar(251),achar(133)//achar(168)//achar(251),achar(134)//achar(169)//achar(252),achar(135)//achar(170)//achar(252),achar(137)//achar(172)//achar(252),achar(138)//achar(173)//achar(253),achar(139)//achar(174)//achar(253),achar(141)//achar(175)//achar(253),achar(142)//achar(177)//achar(253),achar(144)//achar(178)//achar(254),achar(145)//achar(179)//achar(254),achar(146)//achar(180)//achar(254),achar(148)//achar(181)//achar(254),achar(149)//achar(183)//achar(254),achar(151)//achar(184)//achar(254),achar(152)//achar(185)//achar(254),achar(153)//achar(186)//achar(254),achar(155)//achar(187)//achar(254),achar(156)//achar(188)//achar(254),achar(157)//achar(189)//achar(254),achar(159)//achar(190)//achar(254),achar(160)//achar(191)//achar(254),achar(162)//achar(192)//achar(254),achar(163)//achar(193)//achar(254),achar(164)//achar(194)//achar(254),achar(166)//achar(195)//achar(253),achar(167)//achar(196)//achar(253),achar(168)//achar(197)//achar(253),achar(170)//achar(198)//achar(253),achar(171)//achar(199)//achar(252),achar(172)//achar(200)//achar(252),achar(174)//achar(201)//achar(252),achar(175)//achar(202)//achar(251),achar(176)//achar(203)//achar(251),achar(178)//achar(203)//achar(251),achar(179)//achar(204)//achar(250),achar(180)//achar(205)//achar(250),achar(182)//achar(206)//achar(249),achar(183)//achar(207)//achar(249),achar(184)//achar(207)//achar(248),achar(185)//achar(208)//achar(248),achar(187)//achar(209)//achar(247),achar(188)//achar(209)//achar(246),achar(189)//achar(210)//achar(246),achar(190)//achar(211)//achar(245),achar(192)//achar(211)//achar(245),achar(193)//achar(212)//achar(244),achar(194)//achar(212)//achar(243),achar(195)//achar(213)//achar(242),achar(197)//achar(213)//achar(242),achar(198)//achar(214)//achar(241),achar(199)//achar(214)//achar(240),achar(200)//achar(215)//achar(239),achar(201)//achar(215)//achar(238),achar(202)//achar(216)//achar(238),achar(204)//achar(216)//achar(237),achar(205)//achar(217)//achar(236),achar(206)//achar(217)//achar(235),achar(207)//achar(217)//achar(234),achar(208)//achar(218)//achar(233),achar(209)//achar(218)//achar(232),achar(210)//achar(218)//achar(231),achar(211)//achar(219)//achar(230),achar(213)//achar(219)//achar(229),achar(214)//achar(219)//achar(228),achar(215)//achar(219)//achar(226),achar(216)//achar(219)//achar(225),achar(217)//achar(220)//achar(224),achar(218)//achar(220)//achar(223),achar(219)//achar(220)//achar(222),achar(220)//achar(220)//achar(221),achar(221)//achar(220)//achar(219),achar(222)//achar(219)//achar(218),achar(223)//achar(219)//achar(217),achar(224)//achar(218)//achar(215),achar(225)//achar(218)//achar(214),achar(226)//achar(217)//achar(212),achar(227)//achar(217)//achar(211),achar(228)//achar(216)//achar(209),achar(229)//achar(216)//achar(208),achar(230)//achar(215)//achar(207),achar(231)//achar(214)//achar(205),achar(231)//achar(214)//achar(204),achar(232)//achar(213)//achar(202),achar(233)//achar(212)//achar(201),achar(234)//achar(211)//achar(199),achar(235)//achar(211)//achar(198),achar(236)//achar(210)//achar(196),achar(236)//achar(209)//achar(195),achar(237)//achar(208)//achar(193),achar(237)//achar(207)//achar(192),achar(238)//achar(207)//achar(190),achar(239)//achar(206)//achar(188),achar(239)//achar(205)//achar(187),achar(240)//achar(204)//achar(185),achar(241)//achar(203)//achar(184),achar(241)//achar(202)//achar(182),achar(242)//achar(201)//achar(181),achar(242)//achar(200)//achar(179),achar(242)//achar(199)//achar(178),achar(243)//achar(198)//achar(176),achar(243)//achar(197)//achar(175),achar(244)//achar(196)//achar(173),achar(244)//achar(195)//achar(171),achar(244)//achar(194)//achar(170),achar(245)//achar(193)//achar(168),achar(245)//achar(192)//achar(167),achar(245)//achar(191)//achar(165),achar(246)//achar(189)//achar(164),achar(246)//achar(188)//achar(162),achar(246)//achar(187)//achar(160),achar(246)//achar(186)//achar(159),achar(246)//achar(185)//achar(157),achar(246)//achar(183)//achar(156),achar(246)//achar(182)//achar(154),achar(247)//achar(181)//achar(152),achar(247)//achar(179)//achar(151),achar(247)//achar(178)//achar(149),achar(247)//achar(177)//achar(148),achar(247)//achar(176)//achar(146),achar(247)//achar(174)//achar(145),achar(247)//achar(173)//achar(143),achar(246)//achar(171)//achar(141),achar(246)//achar(170)//achar(140),achar(246)//achar(169)//achar(138),achar(246)//achar(167)//achar(137),achar(246)//achar(166)//achar(135),achar(246)//achar(164)//achar(134),achar(246)//achar(163)//achar(132),achar(245)//achar(161)//achar(130),achar(245)//achar(160)//achar(129),achar(245)//achar(158)//achar(127),achar(244)//achar(157)//achar(126),achar(244)//achar(155)//achar(124),achar(244)//achar(154)//achar(123),achar(243)//achar(152)//achar(121),achar(243)//achar(150)//achar(120),achar(243)//achar(149)//achar(118),achar(242)//achar(147)//achar(117),achar(242)//achar(145)//achar(115),achar(241)//achar(144)//achar(114),achar(241)//achar(142)//achar(112),achar(240)//achar(141)//achar(111),achar(240)//achar(139)//achar(109),achar(239)//achar(137)//achar(108),achar(238)//achar(135)//achar(106),achar(238)//achar(134)//achar(105),achar(237)//achar(132)//achar(103),achar(236)//achar(130)//achar(102),achar(236)//achar(128)//achar(100),achar(235)//achar(127)//achar(99),achar(234)//achar(125)//achar(97),achar(234)//achar(123)//achar(96),achar(233)//achar(121)//achar(94),achar(232)//achar(119)//achar(93),achar(231)//achar(117)//achar(92),achar(230)//achar(116)//achar(90),achar(230)//achar(114)//achar(89),achar(229)//achar(112)//achar(87),achar(228)//achar(110)//achar(86),achar(227)//achar(108)//achar(84),achar(226)//achar(106)//achar(83),achar(225)//achar(104)//achar(82),achar(224)//achar(102)//achar(80),achar(223)//achar(100)//achar(79),achar(222)//achar(98)//achar(78),achar(221)//achar(96)//achar(76),achar(220)//achar(94)//achar(75),achar(219)//achar(92)//achar(74),achar(218)//achar(90)//achar(72),achar(217)//achar(88)//achar(71),achar(216)//achar(86)//achar(70),achar(215)//achar(84)//achar(68),achar(214)//achar(82)//achar(67),achar(212)//achar(79)//achar(66),achar(211)//achar(77)//achar(64),achar(210)//achar(75)//achar(63),achar(209)//achar(73)//achar(62),achar(207)//achar(70)//achar(61),achar(206)//achar(68)//achar(60),achar(205)//achar(66)//achar(58),achar(204)//achar(63)//achar(57),achar(202)//achar(61)//achar(56),achar(201)//achar(59)//achar(55),achar(200)//achar(56)//achar(53),achar(198)//achar(53)//achar(52),achar(197)//achar(50)//achar(51),achar(196)//achar(48)//achar(50),achar(194)//achar(45)//achar(49),achar(193)//achar(42)//achar(48),achar(191)//achar(40)//achar(46),achar(190)//achar(35)//achar(45),achar(188)//achar(31)//achar(44),achar(187)//achar(26)//achar(43),achar(185)//achar(22)//achar(42),achar(184)//achar(17)//achar(41),achar(182)//achar(13)//achar(40),achar(181)//achar(8)//achar(39),achar(179)//achar(3)//achar(38)/)]

• mod_safe/const_cm_g2b (256) [character(len=3),parameter=(/achar(0)//achar(255)//achar(0),achar(0)//achar(254)//achar(1),achar(0)//achar(253)//achar(2),achar(0)//achar(252)//achar(3),achar(0)//achar(251)//achar(4),achar(0)//achar(250)//achar(5),achar(0)//achar(249)//achar(6),achar(0)//achar(248)//achar(7),achar(0)//achar(247)//achar(8),achar(0)//achar(246)//achar(9),achar(0)//achar(245)//achar(10),achar(0)//achar(244)//achar(11),achar(0)//achar(243)//achar(12),achar(0)//achar(242)//achar(13),achar(0)//achar(241)//achar(14),achar(0)//achar(240)//achar(15),achar(0)//achar(239)//achar(16),achar(0)//achar(238)//achar(17),achar(0)//achar(237)//achar(18),achar(0)//achar(236)//achar(19),achar(0)//achar(235)//achar(20),achar(0)//achar(234)//achar(21),achar(0)//achar(233)//achar(22),achar(0)//achar(232)//achar(23),achar(0)//achar(231)//achar(24),achar(0)//achar(230)//achar(25),achar(0)//achar(229)//achar(26),achar(0)//achar(228)//achar(27),achar(0)//achar(227)//achar(28),achar(0)//achar(226)//achar(29),achar(0)//achar(225)//achar(30),achar(0)//achar(224)//achar(31),achar(0)//achar(223)//achar(32),achar(0)//achar(222)//achar(33),achar(0)//achar(221)//achar(34),achar(0)//achar(220)//achar(35),achar(0)//achar(219)//achar(36),achar(0)//achar(218)//achar(37),achar(0)//achar(217)//achar(38),achar(0)//achar(216)//achar(39),achar(0)//achar(215)//achar(40),achar(0)//achar(214)//achar(41),achar(0)//achar(213)//achar(42),achar(0)//achar(212)//achar(43),achar(0)//achar(211)//achar(44),achar(0)//achar(210)//achar(45),achar(0)//achar(209)//achar(46),achar(0)//achar(208)//achar(47),achar(0)//achar(207)//achar(48),achar(0)//achar(206)//achar(49),achar(0)//achar(205)//achar(50),achar(0)//achar(204)//achar(51),achar(0)//achar(203)//achar(52),achar(0)//achar(202)//achar(53),achar(0)//achar(201)//achar(54),achar(0)//achar(200)//achar(55),achar(0)//achar(199)//achar(56),achar(0)//achar(198)//achar(57),achar(0)//achar(197)//achar(58),achar(0)//achar(196)//achar(59),achar(0)//achar(195)//achar(60),achar(0)//achar(194)//achar(61),achar(0)//achar(193)//achar(62),achar(0)//achar(192)//achar(63),achar(0)//achar(191)//achar(64),achar(0)//achar(190)//achar(65),achar(0)//achar(189)//achar(66),achar(0)//achar(188)//achar(67),achar(0)//achar(187)//achar(68),achar(0)//achar(186)//achar(69),achar(0)//achar(185)//achar(70),achar(0)//achar(184)//achar(71),achar(0)//achar(183)//achar(72),achar(0)//achar(182)//achar(73),achar(0)//achar(181)//achar(74),achar(0)//achar(180)//achar(75),achar(0)//achar(179)//achar(76),achar(0)//achar(178)//achar(77),achar(0)//achar(177)//achar(78),achar(0)//achar(176)//achar(79),achar(0)//achar(175)//achar(80),achar(0)//achar(174)//achar(81),achar(0)//achar(173)//achar(82),achar(0)//achar(172)//achar(83),achar(0)//achar(171)//achar(84),achar(0)//achar(170)//achar(85),achar(0)//achar(169)//achar(86),achar(0)//achar(168)//achar(87),achar(0)//achar(167)//achar(88),achar(0)//achar(166)//achar(89),achar(0)//achar(165)//achar(90),achar(0)//achar(164)//achar(91),achar(0)//achar(163)//achar(92),achar(0)//achar(162)//achar(93),achar(0)//achar(161)//achar(94),achar(0)//achar(160)//achar(95),achar(0)//achar(159)//achar(96),achar(0)//achar(158)//achar(97),achar(0)//achar(157)//achar(98),achar(0)//achar(156)//achar(99),achar(0)//achar(155)//achar(100),achar(0)//achar(154)//achar(101),achar(0)//achar(153)//achar(102),achar(0)//achar(152)//achar(103),achar(0)//achar(151)//achar(104),achar(0)//achar(150)//achar(105),achar(0)//achar(149)//achar(106),achar(0)//achar(148)//achar(107),achar(0)//achar(147)//achar(108),achar(0)//achar(146)//achar(109),achar(0)//achar(145)//achar(110),achar(0)//achar(144)//achar(111),achar(0)//achar(143)//achar(112),achar(0)//achar(142)//achar(113),achar(0)//achar(141)//achar(114),achar(0)//achar(140)//achar(115),achar(0)//achar(139)//achar(116),achar(0)//achar(138)//achar(117),achar(0)//achar(137)//achar(118),achar(0)//achar(136)//achar(119),achar(0)//achar(135)//achar(120),achar(0)//achar(134)//achar(121),achar(0)//achar(133)//achar(122),achar(0)//achar(132)//achar(123),achar(0)//achar(131)//achar(124),achar(0)//achar(130)//achar(125),achar(0)//achar(129)//achar(126),achar(0)//achar(128)//achar(127),achar(0)//achar(127)//achar(128),achar(0)//achar(126)//achar(129),achar(0)//achar(125)//achar(130),achar(0)//achar(124)//achar(131),achar(0)//achar(123)//achar(132),achar(0)//achar(122)//achar(133),achar(0)//achar(121)//achar(134),achar(0)//achar(120)//achar(135),achar(0)//achar(119)//achar(136),achar(0)//achar(118)//achar(137),achar(0)//achar(117)//achar(138),achar(0)//achar(116)//achar(139),achar(0)//achar(115)//achar(140),achar(0)//achar(114)//achar(141),achar(0)//achar(113)//achar(142),achar(0)//achar(112)//achar(143),achar(0)//achar(111)//achar(144),achar(0)//achar(110)//achar(145),achar(0)//achar(109)//achar(146),achar(0)//achar(108)//achar(147),achar(0)//achar(107)//achar(148),achar(0)//achar(106)//achar(149),achar(0)//achar(105)//achar(150),achar(0)//achar(104)//achar(151),achar(0)//achar(103)//achar(152),achar(0)//achar(102)//achar(153),achar(0)//achar(101)//achar(154),achar(0)//achar(100)//achar(155),achar(0)//achar(99)//achar(156),achar(0)//achar(98)//achar(157),achar(0)//achar(97)//achar(158),achar(0)//achar(96)//achar(159),achar(0)//achar(95)//achar(160),achar(0)//achar(94)//achar(161),achar(0)//achar(93)//achar(162),achar(0)//achar(92)//achar(163),achar(0)//achar(91)//achar(164),achar(0)//achar(90)//achar(165),achar(0)//achar(89)//achar(166),achar(0)//achar(88)//achar(167),achar(0)//achar(87)//achar(168),achar(0)//achar(86)//achar(169),achar(0)//achar(85)//achar(170),achar(0)//achar(84)//achar(171),achar(0)//achar(83)//achar(172),achar(0)//achar(82)//achar(173),achar(0)//achar(81)//achar(174),achar(0)//achar(80)//achar(175),achar(0)//achar(79)//achar(176),achar(0)//achar(78)//achar(177),achar(0)//achar(77)//achar(178),achar(0)//achar(76)//achar(179),achar(0)//achar(75)//achar(180),achar(0)//achar(74)//achar(181),achar(0)//achar(73)//achar(182),achar(0)//achar(72)//achar(183),achar(0)//achar(71)//achar(184),achar(0)//achar(70)//achar(185),achar(0)//achar(69)//achar(186),achar(0)//achar(68)//achar(187),achar(0)//achar(67)//achar(188),achar(0)//achar(66)//achar(189),achar(0)//achar(65)//achar(190),achar(0)//achar(64)//achar(191),achar(0)//achar(63)//achar(192),achar(0)//achar(62)//achar(193),achar(0)//achar(61)//achar(194),achar(0)//achar(60)//achar(195),achar(0)//achar(59)//achar(196),achar(0)//achar(58)//achar(197),achar(0)//achar(57)//achar(198),achar(0)//achar(56)//achar(199),achar(0)//achar(55)//achar(200),achar(0)//achar(54)//achar(201),achar(0)//achar(53)//achar(202),achar(0)//achar(52)//achar(203),achar(0)//achar(51)//achar(204),achar(0)//achar(50)//achar(205),achar(0)//achar(49)//achar(206),achar(0)//achar(48)//achar(207),achar(0)//achar(47)//achar(208),achar(0)//achar(46)//achar(209),achar(0)//achar(45)//achar(210),achar(0)//achar(44)//achar(211),achar(0)//achar(43)//achar(212),achar(0)//achar(42)//achar(213),achar(0)//achar(41)//achar(214),achar(0)//achar(40)//achar(215),achar(0)//achar(39)//achar(216),achar(0)//achar(38)//achar(217),achar(0)//achar(37)//achar(218),achar(0)//achar(36)//achar(219),achar(0)//achar(35)//achar(220),achar(0)//achar(34)//achar(221),achar(0)//achar(33)//achar(222),achar(0)//achar(32)//achar(223),achar(0)//achar(31)//achar(224),achar(0)//achar(30)//achar(225),achar(0)//achar(29)//achar(226),achar(0)//achar(28)//achar(227),achar(0)//achar(27)//achar(228),achar(0)//achar(26)//achar(229),achar(0)//achar(25)//achar(230),achar(0)//achar(24)//achar(231),achar(0)//achar(23)//achar(232),achar(0)//achar(22)//achar(233),achar(0)//achar(21)//achar(234),achar(0)//achar(20)//achar(235),achar(0)//achar(19)//achar(236),achar(0)//achar(18)//achar(237),achar(0)//achar(17)//achar(238),achar(0)//achar(16)//achar(239),achar(0)//achar(15)//achar(240),achar(0)//achar(14)//achar(241),achar(0)//achar(13)//achar(242),achar(0)//achar(12)//achar(243),achar(0)//achar(11)//achar(244),achar(0)//achar(10)//achar(245),achar(0)//achar(9)//achar(246),achar(0)//achar(8)//achar(247),achar(0)//achar(7)//achar(248),achar(0)//achar(6)//achar(249),achar(0)//achar(5)//achar(250),achar(0)//achar(4)//achar(251),achar(0)//achar(3)//achar(252),achar(0)//achar(2)//achar(253),achar(0)//achar(1)//achar(254),achar(0)//achar(0)//achar(255)/)]

• mod_safe/const_cm_grey (256) [character(len=3),parameter=(/achar(0)//achar(0)//achar(0),achar(1)//achar(1)//achar(1),achar(2)//achar(2)//achar(2),achar(3)//achar(3)//achar(3),achar(4)//achar(4)//achar(4),achar(5)//achar(5)//achar(5),achar(6)//achar(6)//achar(6),achar(7)//achar(7)//achar(7),achar(8)//achar(8)//achar(8),achar(9)//achar(9)//achar(9),achar(10)//achar(10)//achar(10),achar(11)//achar(11)//achar(11),achar(12)//achar(12)//achar(12),achar(13)//achar(13)//achar(13),achar(14)//achar(14)//achar(14),achar(15)//achar(15)//achar(15),achar(16)//achar(16)//achar(16),achar(17)//achar(17)//achar(17),achar(18)//achar(18)//achar(18),achar(19)//achar(19)//achar(19),achar(20)//achar(20)//achar(20),achar(21)//achar(21)//achar(21),achar(22)//achar(22)//achar(22),achar(23)//achar(23)//achar(23),achar(24)//achar(24)//achar(24),achar(25)//achar(25)//achar(25),achar(26)//achar(26)//achar(26),achar(27)//achar(27)//achar(27),achar(28)//achar(28)//achar(28),achar(29)//achar(29)//achar(29),achar(30)//achar(30)//achar(30),achar(31)//achar(31)//achar(31),achar(32)//achar(32)//achar(32),achar(33)//achar(33)//achar(33),achar(34)//achar(34)//achar(34),achar(35)//achar(35)//achar(35),achar(36)//achar(36)//achar(36),achar(37)//achar(37)//achar(37),achar(38)//achar(38)//achar(38),achar(39)//achar(39)//achar(39),achar(40)//achar(40)//achar(40),achar(41)//achar(41)//achar(41),achar(42)//achar(42)//achar(42),achar(43)//achar(43)//achar(43),achar(44)//achar(44)//achar(44),achar(45)//achar(45)//achar(45),achar(46)//achar(46)//achar(46),achar(47)//achar(47)//achar(47),achar(48)//achar(48)//achar(48),achar(49)//achar(49)//achar(49),achar(50)//achar(50)//achar(50),achar(51)//achar(51)//achar(51),achar(52)//achar(52)//achar(52),achar(53)//achar(53)//achar(53),achar(54)//achar(54)//achar(54),achar(55)//achar(55)//achar(55),achar(56)//achar(56)//achar(56),achar(57)//achar(57)//achar(57),achar(58)//achar(58)//achar(58),achar(59)//achar(59)//achar(59),achar(60)//achar(60)//achar(60),achar(61)//achar(61)//achar(61),achar(62)//achar(62)//achar(62),achar(63)//achar(63)//achar(63),achar(64)//achar(64)//achar(64),achar(65)//achar(65)//achar(65),achar(66)//achar(66)//achar(66),achar(67)//achar(67)//achar(67),achar(68)//achar(68)//achar(68),achar(69)//achar(69)//achar(69),achar(70)//achar(70)//achar(70),achar(71)//achar(71)//achar(71),achar(72)//achar(72)//achar(72),achar(73)//achar(73)//achar(73),achar(74)//achar(74)//achar(74),achar(75)//achar(75)//achar(75),achar(76)//achar(76)//achar(76),achar(77)//achar(77)//achar(77),achar(78)//achar(78)//achar(78),achar(79)//achar(79)//achar(79),achar(80)//achar(80)//achar(80),achar(81)//achar(81)//achar(81),achar(82)//achar(82)//achar(82),achar(83)//achar(83)//achar(83),achar(84)//achar(84)//achar(84),achar(85)//achar(85)//achar(85),achar(86)//achar(86)//achar(86),achar(87)//achar(87)//achar(87),achar(88)//achar(88)//achar(88),achar(89)//achar(89)//achar(89),achar(90)//achar(90)//achar(90),achar(91)//achar(91)//achar(91),achar(92)//achar(92)//achar(92),achar(93)//achar(93)//achar(93),achar(94)//achar(94)//achar(94),achar(95)//achar(95)//achar(95),achar(96)//achar(96)//achar(96),achar(97)//achar(97)//achar(97),achar(98)//achar(98)//achar(98),achar(99)//achar(99)//achar(99),achar(100)//achar(100)//achar(100),achar(101)//achar(101)//achar(101),achar(102)//achar(102)//achar(102),achar(103)//achar(103)//achar(103),achar(104)//achar(104)//achar(104),achar(105)//achar(105)//achar(105),achar(106)//achar(106)//achar(106),achar(107)//achar(107)//achar(107),achar(108)//achar(108)//achar(108),achar(109)//achar(109)//achar(109),achar(110)//achar(110)//achar(110),achar(111)//achar(111)//achar(111),achar(112)//achar(112)//achar(112),achar(113)//achar(113)//achar(113),achar(114)//achar(114)//achar(114),achar(115)//achar(115)//achar(115),achar(116)//achar(116)//achar(116),achar(117)//achar(117)//achar(117),achar(118)//achar(118)//achar(118),achar(119)//achar(119)//achar(119),achar(120)//achar(120)//achar(120),achar(121)//achar(121)//achar(121),achar(122)//achar(122)//achar(122),achar(123)//achar(123)//achar(123),achar(124)//achar(124)//achar(124),achar(125)//achar(125)//achar(125),achar(126)//achar(126)//achar(126),achar(127)//achar(127)//achar(127),achar(128)//achar(128)//achar(128),achar(129)//achar(129)//achar(129),achar(130)//achar(130)//achar(130),achar(131)//achar(131)//achar(131),achar(132)//achar(132)//achar(132),achar(133)//achar(133)//achar(133),achar(134)//achar(134)//achar(134),achar(135)//achar(135)//achar(135),achar(136)//achar(136)//achar(136),achar(137)//achar(137)//achar(137),achar(138)//achar(138)//achar(138),achar(139)//achar(139)//achar(139),achar(140)//achar(140)//achar(140),achar(141)//achar(141)//achar(141),achar(142)//achar(142)//achar(142),achar(143)//achar(143)//achar(143),achar(144)//achar(144)//achar(144),achar(145)//achar(145)//achar(145),achar(146)//achar(146)//achar(146),achar(147)//achar(147)//achar(147),achar(148)//achar(148)//achar(148),achar(149)//achar(149)//achar(149),achar(150)//achar(150)//achar(150),achar(151)//achar(151)//achar(151),achar(152)//achar(152)//achar(152),achar(153)//achar(153)//achar(153),achar(154)//achar(154)//achar(154),achar(155)//achar(155)//achar(155),achar(156)//achar(156)//achar(156),achar(157)//achar(157)//achar(157),achar(158)//achar(158)//achar(158),achar(159)//achar(159)//achar(159),achar(160)//achar(160)//achar(160),achar(161)//achar(161)//achar(161),achar(162)//achar(162)//achar(162),achar(163)//achar(163)//achar(163),achar(164)//achar(164)//achar(164),achar(165)//achar(165)//achar(165),achar(166)//achar(166)//achar(166),achar(167)//achar(167)//achar(167),achar(168)//achar(168)//achar(168),achar(169)//achar(169)//achar(169),achar(170)//achar(170)//achar(170),achar(171)//achar(171)//achar(171),achar(172)//achar(172)//achar(172),achar(173)//achar(173)//achar(173),achar(174)//achar(174)//achar(174),achar(175)//achar(175)//achar(175),achar(176)//achar(176)//achar(176),achar(177)//achar(177)//achar(177),achar(178)//achar(178)//achar(178),achar(179)//achar(179)//achar(179),achar(180)//achar(180)//achar(180),achar(181)//achar(181)//achar(181),achar(182)//achar(182)//achar(182),achar(183)//achar(183)//achar(183),achar(184)//achar(184)//achar(184),achar(185)//achar(185)//achar(185),achar(186)//achar(186)//achar(186),achar(187)//achar(187)//achar(187),achar(188)//achar(188)//achar(188),achar(189)//achar(189)//achar(189),achar(190)//achar(190)//achar(190),achar(191)//achar(191)//achar(191),achar(192)//achar(192)//achar(192),achar(193)//achar(193)//achar(193),achar(194)//achar(194)//achar(194),achar(195)//achar(195)//achar(195),achar(196)//achar(196)//achar(196),achar(197)//achar(197)//achar(197),achar(198)//achar(198)//achar(198),achar(199)//achar(199)//achar(199),achar(200)//achar(200)//achar(200),achar(201)//achar(201)//achar(201),achar(202)//achar(202)//achar(202),achar(203)//achar(203)//achar(203),achar(204)//achar(204)//achar(204),achar(205)//achar(205)//achar(205),achar(206)//achar(206)//achar(206),achar(207)//achar(207)//achar(207),achar(208)//achar(208)//achar(208),achar(209)//achar(209)//achar(209),achar(210)//achar(210)//achar(210),achar(211)//achar(211)//achar(211),achar(212)//achar(212)//achar(212),achar(213)//achar(213)//achar(213),achar(214)//achar(214)//achar(214),achar(215)//achar(215)//achar(215),achar(216)//achar(216)//achar(216),achar(217)//achar(217)//achar(217),achar(218)//achar(218)//achar(218),achar(219)//achar(219)//achar(219),achar(220)//achar(220)//achar(220),achar(221)//achar(221)//achar(221),achar(222)//achar(222)//achar(222),achar(223)//achar(223)//achar(223),achar(224)//achar(224)//achar(224),achar(225)//achar(225)//achar(225),achar(226)//achar(226)//achar(226),achar(227)//achar(227)//achar(227),achar(228)//achar(228)//achar(228),achar(229)//achar(229)//achar(229),achar(230)//achar(230)//achar(230),achar(231)//achar(231)//achar(231),achar(232)//achar(232)//achar(232),achar(233)//achar(233)//achar(233),achar(234)//achar(234)//achar(234),achar(235)//achar(235)//achar(235),achar(236)//achar(236)//achar(236),achar(237)//achar(237)//achar(237),achar(238)//achar(238)//achar(238),achar(239)//achar(239)//achar(239),achar(240)//achar(240)//achar(240),achar(241)//achar(241)//achar(241),achar(242)//achar(242)//achar(242),achar(243)//achar(243)//achar(243),achar(244)//achar(244)//achar(244),achar(245)//achar(245)//achar(245),achar(246)//achar(246)//achar(246),achar(247)//achar(247)//achar(247),achar(248)//achar(248)//achar(248),achar(249)//achar(249)//achar(249),achar(250)//achar(250)//achar(250),achar(251)//achar(251)//achar(251),achar(252)//achar(252)//achar(252),achar(253)//achar(253)//achar(253),achar(254)//achar(254)//achar(254),achar(255)//achar(255)//achar(255)/)]

• mod_safe/const_cm_inferno (256) [character(len=3),parameter=(/achar(0)//achar(0)//achar(3),achar(0)//achar(0)//achar(4),achar(0)//achar(0)//achar(6),achar(1)//achar(0)//achar(7),achar(1)//achar(1)//achar(9),achar(1)//achar(1)//achar(11),achar(2)//achar(1)//achar(14),achar(2)//achar(2)//achar(16),achar(3)//achar(2)//achar(18),achar(4)//achar(3)//achar(20),achar(4)//achar(3)//achar(22),achar(5)//achar(4)//achar(24),achar(6)//achar(4)//achar(27),achar(7)//achar(5)//achar(29),achar(8)//achar(6)//achar(31),achar(9)//achar(6)//achar(33),achar(10)//achar(7)//achar(35),achar(11)//achar(7)//achar(38),achar(13)//achar(8)//achar(40),achar(14)//achar(8)//achar(42),achar(15)//achar(9)//achar(45),achar(16)//achar(9)//achar(47),achar(18)//achar(10)//achar(50),achar(19)//achar(10)//achar(52),achar(20)//achar(11)//achar(54),achar(22)//achar(11)//achar(57),achar(23)//achar(11)//achar(59),achar(25)//achar(11)//achar(62),achar(26)//achar(11)//achar(64),achar(28)//achar(12)//achar(67),achar(29)//achar(12)//achar(69),achar(31)//achar(12)//achar(71),achar(32)//achar(12)//achar(74),achar(34)//achar(11)//achar(76),achar(36)//achar(11)//achar(78),achar(38)//achar(11)//achar(80),achar(39)//achar(11)//achar(82),achar(41)//achar(11)//achar(84),achar(43)//achar(10)//achar(86),achar(45)//achar(10)//achar(88),achar(46)//achar(10)//achar(90),achar(48)//achar(10)//achar(92),achar(50)//achar(9)//achar(93),achar(52)//achar(9)//achar(95),achar(53)//achar(9)//achar(96),achar(55)//achar(9)//achar(97),achar(57)//achar(9)//achar(98),achar(59)//achar(9)//achar(100),achar(60)//achar(9)//achar(101),achar(62)//achar(9)//achar(102),achar(64)//achar(9)//achar(102),achar(65)//achar(9)//achar(103),achar(67)//achar(10)//achar(104),achar(69)//achar(10)//achar(105),achar(70)//achar(10)//achar(105),achar(72)//achar(11)//achar(106),achar(74)//achar(11)//achar(106),achar(75)//achar(12)//achar(107),achar(77)//achar(12)//achar(107),achar(79)//achar(13)//achar(108),achar(80)//achar(13)//achar(108),achar(82)//achar(14)//achar(108),achar(83)//achar(14)//achar(109),achar(85)//achar(15)//achar(109),achar(87)//achar(15)//achar(109),achar(88)//achar(16)//achar(109),achar(90)//achar(17)//achar(109),achar(91)//achar(17)//achar(110),achar(93)//achar(18)//achar(110),achar(95)//achar(18)//achar(110),achar(96)//achar(19)//achar(110),achar(98)//achar(20)//achar(110),achar(99)//achar(20)//achar(110),achar(101)//achar(21)//achar(110),achar(102)//achar(21)//achar(110),achar(104)//achar(22)//achar(110),achar(106)//achar(23)//achar(110),achar(107)//achar(23)//achar(110),achar(109)//achar(24)//achar(110),achar(110)//achar(24)//achar(110),achar(112)//achar(25)//achar(110),achar(114)//achar(25)//achar(109),achar(115)//achar(26)//achar(109),achar(117)//achar(27)//achar(109),achar(118)//achar(27)//achar(109),achar(120)//achar(28)//achar(109),achar(122)//achar(28)//achar(109),achar(123)//achar(29)//achar(108),achar(125)//achar(29)//achar(108),achar(126)//achar(30)//achar(108),achar(128)//achar(31)//achar(107),achar(129)//achar(31)//achar(107),achar(131)//achar(32)//achar(107),achar(133)//achar(32)//achar(106),achar(134)//achar(33)//achar(106),achar(136)//achar(33)//achar(106),achar(137)//achar(34)//achar(105),achar(139)//achar(34)//achar(105),achar(141)//achar(35)//achar(105),achar(142)//achar(36)//achar(104),achar(144)//achar(36)//achar(104),achar(145)//achar(37)//achar(103),achar(147)//achar(37)//achar(103),achar(149)//achar(38)//achar(102),achar(150)//achar(38)//achar(102),achar(152)//achar(39)//achar(101),achar(153)//achar(40)//achar(100),achar(155)//achar(40)//achar(100),achar(156)//achar(41)//achar(99),achar(158)//achar(41)//achar(99),achar(160)//achar(42)//achar(98),achar(161)//achar(43)//achar(97),achar(163)//achar(43)//achar(97),achar(164)//achar(44)//achar(96),achar(166)//achar(44)//achar(95),achar(167)//achar(45)//achar(95),achar(169)//achar(46)//achar(94),achar(171)//achar(46)//achar(93),achar(172)//achar(47)//achar(92),achar(174)//achar(48)//achar(91),achar(175)//achar(49)//achar(91),achar(177)//achar(49)//achar(90),achar(178)//achar(50)//achar(89),achar(180)//achar(51)//achar(88),achar(181)//achar(51)//achar(87),achar(183)//achar(52)//achar(86),achar(184)//achar(53)//achar(86),achar(186)//achar(54)//achar(85),achar(187)//achar(55)//achar(84),achar(189)//achar(55)//achar(83),achar(190)//achar(56)//achar(82),achar(191)//achar(57)//achar(81),achar(193)//achar(58)//achar(80),achar(194)//achar(59)//achar(79),achar(196)//achar(60)//achar(78),achar(197)//achar(61)//achar(77),achar(199)//achar(62)//achar(76),achar(200)//achar(62)//achar(75),achar(201)//achar(63)//achar(74),achar(203)//achar(64)//achar(73),achar(204)//achar(65)//achar(72),achar(205)//achar(66)//achar(71),achar(207)//achar(68)//achar(70),achar(208)//achar(69)//achar(68),achar(209)//achar(70)//achar(67),achar(210)//achar(71)//achar(66),achar(212)//achar(72)//achar(65),achar(213)//achar(73)//achar(64),achar(214)//achar(74)//achar(63),achar(215)//achar(75)//achar(62),achar(217)//achar(77)//achar(61),achar(218)//achar(78)//achar(59),achar(219)//achar(79)//achar(58),achar(220)//achar(80)//achar(57),achar(221)//achar(82)//achar(56),achar(222)//achar(83)//achar(55),achar(223)//achar(84)//achar(54),achar(224)//achar(86)//achar(52),achar(226)//achar(87)//achar(51),achar(227)//achar(88)//achar(50),achar(228)//achar(90)//achar(49),achar(229)//achar(91)//achar(48),achar(230)//achar(92)//achar(46),achar(230)//achar(94)//achar(45),achar(231)//achar(95)//achar(44),achar(232)//achar(97)//achar(43),achar(233)//achar(98)//achar(42),achar(234)//achar(100)//achar(40),achar(235)//achar(101)//achar(39),achar(236)//achar(103)//achar(38),achar(237)//achar(104)//achar(37),achar(237)//achar(106)//achar(35),achar(238)//achar(108)//achar(34),achar(239)//achar(109)//achar(33),achar(240)//achar(111)//achar(31),achar(240)//achar(112)//achar(30),achar(241)//achar(114)//achar(29),achar(242)//achar(116)//achar(28),achar(242)//achar(117)//achar(26),achar(243)//achar(119)//achar(25),achar(243)//achar(121)//achar(24),achar(244)//achar(122)//achar(22),achar(245)//achar(124)//achar(21),achar(245)//achar(126)//achar(20),achar(246)//achar(128)//achar(18),achar(246)//achar(129)//achar(17),achar(247)//achar(131)//achar(16),achar(247)//achar(133)//achar(14),achar(248)//achar(135)//achar(13),achar(248)//achar(136)//achar(12),achar(248)//achar(138)//achar(11),achar(249)//achar(140)//achar(9),achar(249)//achar(142)//achar(8),achar(249)//achar(144)//achar(8),achar(250)//achar(145)//achar(7),achar(250)//achar(147)//achar(6),achar(250)//achar(149)//achar(6),achar(250)//achar(151)//achar(6),achar(251)//achar(153)//achar(6),achar(251)//achar(155)//achar(6),achar(251)//achar(157)//achar(6),achar(251)//achar(158)//achar(7),achar(251)//achar(160)//achar(7),achar(251)//achar(162)//achar(8),achar(251)//achar(164)//achar(10),achar(251)//achar(166)//achar(11),achar(251)//achar(168)//achar(13),achar(251)//achar(170)//achar(14),achar(251)//achar(172)//achar(16),achar(251)//achar(174)//achar(18),achar(251)//achar(176)//achar(20),achar(251)//achar(177)//achar(22),achar(251)//achar(179)//achar(24),achar(251)//achar(181)//achar(26),achar(251)//achar(183)//achar(28),achar(251)//achar(185)//achar(30),achar(250)//achar(187)//achar(33),achar(250)//achar(189)//achar(35),achar(250)//achar(191)//achar(37),achar(250)//achar(193)//achar(40),achar(249)//achar(195)//achar(42),achar(249)//achar(197)//achar(44),achar(249)//achar(199)//achar(47),achar(248)//achar(201)//achar(49),achar(248)//achar(203)//achar(52),achar(248)//achar(205)//achar(55),achar(247)//achar(207)//achar(58),achar(247)//achar(209)//achar(60),achar(246)//achar(211)//achar(63),achar(246)//achar(213)//achar(66),achar(245)//achar(215)//achar(69),achar(245)//achar(217)//achar(72),achar(244)//achar(219)//achar(75),achar(244)//achar(220)//achar(79),achar(243)//achar(222)//achar(82),achar(243)//achar(224)//achar(86),achar(243)//achar(226)//achar(89),achar(242)//achar(228)//achar(93),achar(242)//achar(230)//achar(96),achar(241)//achar(232)//achar(100),achar(241)//achar(233)//achar(104),achar(241)//achar(235)//achar(108),achar(241)//achar(237)//achar(112),achar(241)//achar(238)//achar(116),achar(241)//achar(240)//achar(121),achar(241)//achar(242)//achar(125),achar(242)//achar(243)//achar(129),achar(242)//achar(244)//achar(133),achar(243)//achar(246)//achar(137),achar(244)//achar(247)//achar(141),achar(245)//achar(248)//achar(145),achar(246)//achar(250)//achar(149),achar(247)//achar(251)//achar(153),achar(249)//achar(252)//achar(157),achar(250)//achar(253)//achar(160),achar(252)//achar(254)//achar(164)/)]

• mod_safe/const_cm_magma (256) [character(len=3),parameter=(/achar(0)//achar(0)//achar(3),achar(0)//achar(0)//achar(4),achar(0)//achar(0)//achar(6),achar(1)//achar(0)//achar(7),achar(1)//achar(1)//achar(9),achar(1)//achar(1)//achar(11),achar(2)//achar(2)//achar(13),achar(2)//achar(2)//achar(15),achar(3)//achar(3)//achar(17),achar(4)//achar(3)//achar(19),achar(4)//achar(4)//achar(21),achar(5)//achar(4)//achar(23),achar(6)//achar(5)//achar(25),achar(7)//achar(5)//achar(27),achar(8)//achar(6)//achar(29),achar(9)//achar(7)//achar(31),achar(10)//achar(7)//achar(34),achar(11)//achar(8)//achar(36),achar(12)//achar(9)//achar(38),achar(13)//achar(10)//achar(40),achar(14)//achar(10)//achar(42),achar(15)//achar(11)//achar(44),achar(16)//achar(12)//achar(47),achar(17)//achar(12)//achar(49),achar(18)//achar(13)//achar(51),achar(20)//achar(13)//achar(53),achar(21)//achar(14)//achar(56),achar(22)//achar(14)//achar(58),achar(23)//achar(15)//achar(60),achar(24)//achar(15)//achar(63),achar(26)//achar(16)//achar(65),achar(27)//achar(16)//achar(68),achar(28)//achar(16)//achar(70),achar(30)//achar(16)//achar(73),achar(31)//achar(17)//achar(75),achar(32)//achar(17)//achar(77),achar(34)//achar(17)//achar(80),achar(35)//achar(17)//achar(82),achar(37)//achar(17)//achar(85),achar(38)//achar(17)//achar(87),achar(40)//achar(17)//achar(89),achar(42)//achar(17)//achar(92),achar(43)//achar(17)//achar(94),achar(45)//achar(16)//achar(96),achar(47)//achar(16)//achar(98),achar(48)//achar(16)//achar(101),achar(50)//achar(16)//achar(103),achar(52)//achar(16)//achar(104),achar(53)//achar(15)//achar(106),achar(55)//achar(15)//achar(108),achar(57)//achar(15)//achar(110),achar(59)//achar(15)//achar(111),achar(60)//achar(15)//achar(113),achar(62)//achar(15)//achar(114),achar(64)//achar(15)//achar(115),achar(66)//achar(15)//achar(116),achar(67)//achar(15)//achar(117),achar(69)//achar(15)//achar(118),achar(71)//achar(15)//achar(119),achar(72)//achar(16)//achar(120),achar(74)//achar(16)//achar(121),achar(75)//achar(16)//achar(121),achar(77)//achar(17)//achar(122),achar(79)//achar(17)//achar(123),achar(80)//achar(18)//achar(123),achar(82)//achar(18)//achar(124),achar(83)//achar(19)//achar(124),achar(85)//achar(19)//achar(125),achar(87)//achar(20)//achar(125),achar(88)//achar(21)//achar(126),achar(90)//achar(21)//achar(126),achar(91)//achar(22)//achar(126),achar(93)//achar(23)//achar(126),achar(94)//achar(23)//achar(127),achar(96)//achar(24)//achar(127),achar(97)//achar(24)//achar(127),achar(99)//achar(25)//achar(127),achar(101)//achar(26)//achar(128),achar(102)//achar(26)//achar(128),achar(104)//achar(27)//achar(128),achar(105)//achar(28)//achar(128),achar(107)//achar(28)//achar(128),achar(108)//achar(29)//achar(128),achar(110)//achar(30)//achar(129),achar(111)//achar(30)//achar(129),achar(113)//achar(31)//achar(129),achar(115)//achar(31)//achar(129),achar(116)//achar(32)//achar(129),achar(118)//achar(33)//achar(129),achar(119)//achar(33)//achar(129),achar(121)//achar(34)//achar(129),achar(122)//achar(34)//achar(129),achar(124)//achar(35)//achar(129),achar(126)//achar(36)//achar(129),achar(127)//achar(36)//achar(129),achar(129)//achar(37)//achar(129),achar(130)//achar(37)//achar(129),achar(132)//achar(38)//achar(129),achar(133)//achar(38)//achar(129),achar(135)//achar(39)//achar(129),achar(137)//achar(40)//achar(129),achar(138)//achar(40)//achar(129),achar(140)//achar(41)//achar(128),achar(141)//achar(41)//achar(128),achar(143)//achar(42)//achar(128),achar(145)//achar(42)//achar(128),achar(146)//achar(43)//achar(128),achar(148)//achar(43)//achar(128),achar(149)//achar(44)//achar(128),achar(151)//achar(44)//achar(127),achar(153)//achar(45)//achar(127),achar(154)//achar(45)//achar(127),achar(156)//achar(46)//achar(127),achar(158)//achar(46)//achar(126),achar(159)//achar(47)//achar(126),achar(161)//achar(47)//achar(126),achar(163)//achar(48)//achar(126),achar(164)//achar(48)//achar(125),achar(166)//achar(49)//achar(125),achar(167)//achar(49)//achar(125),achar(169)//achar(50)//achar(124),achar(171)//achar(51)//achar(124),achar(172)//achar(51)//achar(123),achar(174)//achar(52)//achar(123),achar(176)//achar(52)//achar(123),achar(177)//achar(53)//achar(122),achar(179)//achar(53)//achar(122),achar(181)//achar(54)//achar(121),achar(182)//achar(54)//achar(121),achar(184)//achar(55)//achar(120),achar(185)//achar(55)//achar(120),achar(187)//achar(56)//achar(119),achar(189)//achar(57)//achar(119),achar(190)//achar(57)//achar(118),achar(192)//achar(58)//achar(117),achar(194)//achar(58)//achar(117),achar(195)//achar(59)//achar(116),achar(197)//achar(60)//achar(116),achar(198)//achar(60)//achar(115),achar(200)//achar(61)//achar(114),achar(202)//achar(62)//achar(114),achar(203)//achar(62)//achar(113),achar(205)//achar(63)//achar(112),achar(206)//achar(64)//achar(112),achar(208)//achar(65)//achar(111),achar(209)//achar(66)//achar(110),achar(211)//achar(66)//achar(109),achar(212)//achar(67)//achar(109),achar(214)//achar(68)//achar(108),achar(215)//achar(69)//achar(107),achar(217)//achar(70)//achar(106),achar(218)//achar(71)//achar(105),achar(220)//achar(72)//achar(105),achar(221)//achar(73)//achar(104),achar(222)//achar(74)//achar(103),achar(224)//achar(75)//achar(102),achar(225)//achar(76)//achar(102),achar(226)//achar(77)//achar(101),achar(228)//achar(78)//achar(100),achar(229)//achar(80)//achar(99),achar(230)//achar(81)//achar(98),achar(231)//achar(82)//achar(98),achar(232)//achar(84)//achar(97),achar(234)//achar(85)//achar(96),achar(235)//achar(86)//achar(96),achar(236)//achar(88)//achar(95),achar(237)//achar(89)//achar(95),achar(238)//achar(91)//achar(94),achar(238)//achar(93)//achar(93),achar(239)//achar(94)//achar(93),achar(240)//achar(96)//achar(93),achar(241)//achar(97)//achar(92),achar(242)//achar(99)//achar(92),achar(243)//achar(101)//achar(92),achar(243)//achar(103)//achar(91),achar(244)//achar(104)//achar(91),achar(245)//achar(106)//achar(91),achar(245)//achar(108)//achar(91),achar(246)//achar(110)//achar(91),achar(246)//achar(112)//achar(91),achar(247)//achar(113)//achar(91),achar(247)//achar(115)//achar(92),achar(248)//achar(117)//achar(92),achar(248)//achar(119)//achar(92),achar(249)//achar(121)//achar(92),achar(249)//achar(123)//achar(93),achar(249)//achar(125)//achar(93),achar(250)//achar(127)//achar(94),achar(250)//achar(128)//achar(94),achar(250)//achar(130)//achar(95),achar(251)//achar(132)//achar(96),achar(251)//achar(134)//achar(96),achar(251)//achar(136)//achar(97),achar(251)//achar(138)//achar(98),achar(252)//achar(140)//achar(99),achar(252)//achar(142)//achar(99),achar(252)//achar(144)//achar(100),achar(252)//achar(146)//achar(101),achar(252)//achar(147)//achar(102),achar(253)//achar(149)//achar(103),achar(253)//achar(151)//achar(104),achar(253)//achar(153)//achar(105),achar(253)//achar(155)//achar(106),achar(253)//achar(157)//achar(107),achar(253)//achar(159)//achar(108),achar(253)//achar(161)//achar(110),achar(253)//achar(162)//achar(111),achar(253)//achar(164)//achar(112),achar(254)//achar(166)//achar(113),achar(254)//achar(168)//achar(115),achar(254)//achar(170)//achar(116),achar(254)//achar(172)//achar(117),achar(254)//achar(174)//achar(118),achar(254)//achar(175)//achar(120),achar(254)//achar(177)//achar(121),achar(254)//achar(179)//achar(123),achar(254)//achar(181)//achar(124),achar(254)//achar(183)//achar(125),achar(254)//achar(185)//achar(127),achar(254)//achar(187)//achar(128),achar(254)//achar(188)//achar(130),achar(254)//achar(190)//achar(131),achar(254)//achar(192)//achar(133),achar(254)//achar(194)//achar(134),achar(254)//achar(196)//achar(136),achar(254)//achar(198)//achar(137),achar(254)//achar(199)//achar(139),achar(254)//achar(201)//achar(141),achar(254)//achar(203)//achar(142),achar(253)//achar(205)//achar(144),achar(253)//achar(207)//achar(146),achar(253)//achar(209)//achar(147),achar(253)//achar(210)//achar(149),achar(253)//achar(212)//achar(151),achar(253)//achar(214)//achar(152),achar(253)//achar(216)//achar(154),achar(253)//achar(218)//achar(156),achar(253)//achar(220)//achar(157),achar(253)//achar(221)//achar(159),achar(253)//achar(223)//achar(161),achar(253)//achar(225)//achar(163),achar(252)//achar(227)//achar(165),achar(252)//achar(229)//achar(166),achar(252)//achar(230)//achar(168),achar(252)//achar(232)//achar(170),achar(252)//achar(234)//achar(172),achar(252)//achar(236)//achar(174),achar(252)//achar(238)//achar(176),achar(252)//achar(240)//achar(177),achar(252)//achar(241)//achar(179),achar(252)//achar(243)//achar(181),achar(252)//achar(245)//achar(183),achar(251)//achar(247)//achar(185),achar(251)//achar(249)//achar(187),achar(251)//achar(250)//achar(189),achar(251)//achar(252)//achar(191)/)]

• mod_safe/const_cm_plasma (256) [character(len=3),parameter=(/achar(12)//achar(7)//achar(134),achar(16)//achar(7)//achar(135),achar(19)//achar(6)//achar(137),achar(21)//achar(6)//achar(138),achar(24)//achar(6)//achar(139),achar(27)//achar(6)//achar(140),achar(29)//achar(6)//achar(141),achar(31)//achar(5)//achar(142),achar(33)//achar(5)//achar(143),achar(35)//achar(5)//achar(144),achar(37)//achar(5)//achar(145),achar(39)//achar(5)//achar(146),achar(41)//achar(5)//achar(147),achar(43)//achar(5)//achar(148),achar(45)//achar(4)//achar(148),achar(47)//achar(4)//achar(149),achar(49)//achar(4)//achar(150),achar(51)//achar(4)//achar(151),achar(52)//achar(4)//achar(152),achar(54)//achar(4)//achar(152),achar(56)//achar(4)//achar(153),achar(58)//achar(4)//achar(154),achar(59)//achar(3)//achar(154),achar(61)//achar(3)//achar(155),achar(63)//achar(3)//achar(156),achar(64)//achar(3)//achar(156),achar(66)//achar(3)//achar(157),achar(68)//achar(3)//achar(158),achar(69)//achar(3)//achar(158),achar(71)//achar(2)//achar(159),achar(73)//achar(2)//achar(159),achar(74)//achar(2)//achar(160),achar(76)//achar(2)//achar(161),achar(78)//achar(2)//achar(161),achar(79)//achar(2)//achar(162),achar(81)//achar(1)//achar(162),achar(82)//achar(1)//achar(163),achar(84)//achar(1)//achar(163),achar(86)//achar(1)//achar(163),achar(87)//achar(1)//achar(164),achar(89)//achar(1)//achar(164),achar(90)//achar(0)//achar(165),achar(92)//achar(0)//achar(165),achar(94)//achar(0)//achar(165),achar(95)//achar(0)//achar(166),achar(97)//achar(0)//achar(166),achar(98)//achar(0)//achar(166),achar(100)//achar(0)//achar(167),achar(101)//achar(0)//achar(167),achar(103)//achar(0)//achar(167),achar(104)//achar(0)//achar(167),achar(106)//achar(0)//achar(167),achar(108)//achar(0)//achar(168),achar(109)//achar(0)//achar(168),achar(111)//achar(0)//achar(168),achar(112)//achar(0)//achar(168),achar(114)//achar(0)//achar(168),achar(115)//achar(0)//achar(168),achar(117)//achar(0)//achar(168),achar(118)//achar(1)//achar(168),achar(120)//achar(1)//achar(168),achar(121)//achar(1)//achar(168),achar(123)//achar(2)//achar(168),achar(124)//achar(2)//achar(167),achar(126)//achar(3)//achar(167),achar(127)//achar(3)//achar(167),achar(129)//achar(4)//achar(167),achar(130)//achar(4)//achar(167),achar(132)//achar(5)//achar(166),achar(133)//achar(6)//achar(166),achar(134)//achar(7)//achar(166),achar(136)//achar(7)//achar(165),achar(137)//achar(8)//achar(165),achar(139)//achar(9)//achar(164),achar(140)//achar(10)//achar(164),achar(142)//achar(12)//achar(164),achar(143)//achar(13)//achar(163),achar(144)//achar(14)//achar(163),achar(146)//achar(15)//achar(162),achar(147)//achar(16)//achar(161),achar(149)//achar(17)//achar(161),achar(150)//achar(18)//achar(160),achar(151)//achar(19)//achar(160),achar(153)//achar(20)//achar(159),achar(154)//achar(21)//achar(158),achar(155)//achar(23)//achar(158),achar(157)//achar(24)//achar(157),achar(158)//achar(25)//achar(156),achar(159)//achar(26)//achar(155),achar(160)//achar(27)//achar(155),achar(162)//achar(28)//achar(154),achar(163)//achar(29)//achar(153),achar(164)//achar(30)//achar(152),achar(165)//achar(31)//achar(151),achar(167)//achar(33)//achar(151),achar(168)//achar(34)//achar(150),achar(169)//achar(35)//achar(149),achar(170)//achar(36)//achar(148),achar(172)//achar(37)//achar(147),achar(173)//achar(38)//achar(146),achar(174)//achar(39)//achar(145),achar(175)//achar(40)//achar(144),achar(176)//achar(42)//achar(143),achar(177)//achar(43)//achar(143),achar(178)//achar(44)//achar(142),achar(180)//achar(45)//achar(141),achar(181)//achar(46)//achar(140),achar(182)//achar(47)//achar(139),achar(183)//achar(48)//achar(138),achar(184)//achar(50)//achar(137),achar(185)//achar(51)//achar(136),achar(186)//achar(52)//achar(135),achar(187)//achar(53)//achar(134),achar(188)//achar(54)//achar(133),achar(189)//achar(55)//achar(132),achar(190)//achar(56)//achar(131),achar(191)//achar(57)//achar(130),achar(192)//achar(59)//achar(129),achar(193)//achar(60)//achar(128),achar(194)//achar(61)//achar(128),achar(195)//achar(62)//achar(127),achar(196)//achar(63)//achar(126),achar(197)//achar(64)//achar(125),achar(198)//achar(65)//achar(124),achar(199)//achar(66)//achar(123),achar(200)//achar(68)//achar(122),achar(201)//achar(69)//achar(121),achar(202)//achar(70)//achar(120),achar(203)//achar(71)//achar(119),achar(204)//achar(72)//achar(118),achar(205)//achar(73)//achar(117),achar(206)//achar(74)//achar(117),achar(207)//achar(75)//achar(116),achar(208)//achar(77)//achar(115),achar(209)//achar(78)//achar(114),achar(209)//achar(79)//achar(113),achar(210)//achar(80)//achar(112),achar(211)//achar(81)//achar(111),achar(212)//achar(82)//achar(110),achar(213)//achar(83)//achar(109),achar(214)//achar(85)//achar(109),achar(215)//achar(86)//achar(108),achar(215)//achar(87)//achar(107),achar(216)//achar(88)//achar(106),achar(217)//achar(89)//achar(105),achar(218)//achar(90)//achar(104),achar(219)//achar(91)//achar(103),achar(220)//achar(93)//achar(102),achar(220)//achar(94)//achar(102),achar(221)//achar(95)//achar(101),achar(222)//achar(96)//achar(100),achar(223)//achar(97)//achar(99),achar(223)//achar(98)//achar(98),achar(224)//achar(100)//achar(97),achar(225)//achar(101)//achar(96),achar(226)//achar(102)//achar(96),achar(227)//achar(103)//achar(95),achar(227)//achar(104)//achar(94),achar(228)//achar(106)//achar(93),achar(229)//achar(107)//achar(92),achar(229)//achar(108)//achar(91),achar(230)//achar(109)//achar(90),achar(231)//achar(110)//achar(90),achar(232)//achar(112)//achar(89),achar(232)//achar(113)//achar(88),achar(233)//achar(114)//achar(87),achar(234)//achar(115)//achar(86),achar(234)//achar(116)//achar(85),achar(235)//achar(118)//achar(84),achar(236)//achar(119)//achar(84),achar(236)//achar(120)//achar(83),achar(237)//achar(121)//achar(82),achar(237)//achar(123)//achar(81),achar(238)//achar(124)//achar(80),achar(239)//achar(125)//achar(79),achar(239)//achar(126)//achar(78),achar(240)//achar(128)//achar(77),achar(240)//achar(129)//achar(77),achar(241)//achar(130)//achar(76),achar(242)//achar(132)//achar(75),achar(242)//achar(133)//achar(74),achar(243)//achar(134)//achar(73),achar(243)//achar(135)//achar(72),achar(244)//achar(137)//achar(71),achar(244)//achar(138)//achar(71),achar(245)//achar(139)//achar(70),achar(245)//achar(141)//achar(69),achar(246)//achar(142)//achar(68),achar(246)//achar(143)//achar(67),achar(246)//achar(145)//achar(66),achar(247)//achar(146)//achar(65),achar(247)//achar(147)//achar(65),achar(248)//achar(149)//achar(64),achar(248)//achar(150)//achar(63),achar(248)//achar(152)//achar(62),achar(249)//achar(153)//achar(61),achar(249)//achar(154)//achar(60),achar(250)//achar(156)//achar(59),achar(250)//achar(157)//achar(58),achar(250)//achar(159)//achar(58),achar(250)//achar(160)//achar(57),achar(251)//achar(162)//achar(56),achar(251)//achar(163)//achar(55),achar(251)//achar(164)//achar(54),achar(252)//achar(166)//achar(53),achar(252)//achar(167)//achar(53),achar(252)//achar(169)//achar(52),achar(252)//achar(170)//achar(51),achar(252)//achar(172)//achar(50),achar(252)//achar(173)//achar(49),achar(253)//achar(175)//achar(49),achar(253)//achar(176)//achar(48),achar(253)//achar(178)//achar(47),achar(253)//achar(179)//achar(46),achar(253)//achar(181)//achar(45),achar(253)//achar(182)//achar(45),achar(253)//achar(184)//achar(44),achar(253)//achar(185)//achar(43),achar(253)//achar(187)//achar(43),achar(253)//achar(188)//achar(42),achar(253)//achar(190)//achar(41),achar(253)//achar(192)//achar(41),achar(253)//achar(193)//achar(40),achar(253)//achar(195)//achar(40),achar(253)//achar(196)//achar(39),achar(253)//achar(198)//achar(38),achar(252)//achar(199)//achar(38),achar(252)//achar(201)//achar(38),achar(252)//achar(203)//achar(37),achar(252)//achar(204)//achar(37),achar(252)//achar(206)//achar(37),achar(251)//achar(208)//achar(36),achar(251)//achar(209)//achar(36),achar(251)//achar(211)//achar(36),achar(250)//achar(213)//achar(36),achar(250)//achar(214)//achar(36),achar(250)//achar(216)//achar(36),achar(249)//achar(217)//achar(36),achar(249)//achar(219)//achar(36),achar(248)//achar(221)//achar(36),achar(248)//achar(223)//achar(36),achar(247)//achar(224)//achar(36),achar(247)//achar(226)//achar(37),achar(246)//achar(228)//achar(37),achar(246)//achar(229)//achar(37),achar(245)//achar(231)//achar(38),achar(245)//achar(233)//achar(38),achar(244)//achar(234)//achar(38),achar(243)//achar(236)//achar(38),achar(243)//achar(238)//achar(38),achar(242)//achar(240)//achar(38),achar(242)//achar(241)//achar(38),achar(241)//achar(243)//achar(38),achar(240)//achar(245)//achar(37),achar(240)//achar(246)//achar(35),achar(239)//achar(248)//achar(33)/)]

• mod_safe/const_cm_r2g (256) [character(len=3),parameter=(/achar(255)//achar(0)//achar(0),achar(254)//achar(1)//achar(0),achar(253)//achar(2)//achar(0),achar(252)//achar(3)//achar(0),achar(251)//achar(4)//achar(0),achar(250)//achar(5)//achar(0),achar(249)//achar(6)//achar(0),achar(248)//achar(7)//achar(0),achar(247)//achar(8)//achar(0),achar(246)//achar(9)//achar(0),achar(245)//achar(10)//achar(0),achar(244)//achar(11)//achar(0),achar(243)//achar(12)//achar(0),achar(242)//achar(13)//achar(0),achar(241)//achar(14)//achar(0),achar(240)//achar(15)//achar(0),achar(239)//achar(16)//achar(0),achar(238)//achar(17)//achar(0),achar(237)//achar(18)//achar(0),achar(236)//achar(19)//achar(0),achar(235)//achar(20)//achar(0),achar(234)//achar(21)//achar(0),achar(233)//achar(22)//achar(0),achar(232)//achar(23)//achar(0),achar(231)//achar(24)//achar(0),achar(230)//achar(25)//achar(0),achar(229)//achar(26)//achar(0),achar(228)//achar(27)//achar(0),achar(227)//achar(28)//achar(0),achar(226)//achar(29)//achar(0),achar(225)//achar(30)//achar(0),achar(224)//achar(31)//achar(0),achar(223)//achar(32)//achar(0),achar(222)//achar(33)//achar(0),achar(221)//achar(34)//achar(0),achar(220)//achar(35)//achar(0),achar(219)//achar(36)//achar(0),achar(218)//achar(37)//achar(0),achar(217)//achar(38)//achar(0),achar(216)//achar(39)//achar(0),achar(215)//achar(40)//achar(0),achar(214)//achar(41)//achar(0),achar(213)//achar(42)//achar(0),achar(212)//achar(43)//achar(0),achar(211)//achar(44)//achar(0),achar(210)//achar(45)//achar(0),achar(209)//achar(46)//achar(0),achar(208)//achar(47)//achar(0),achar(207)//achar(48)//achar(0),achar(206)//achar(49)//achar(0),achar(205)//achar(50)//achar(0),achar(204)//achar(51)//achar(0),achar(203)//achar(52)//achar(0),achar(202)//achar(53)//achar(0),achar(201)//achar(54)//achar(0),achar(200)//achar(55)//achar(0),achar(199)//achar(56)//achar(0),achar(198)//achar(57)//achar(0),achar(197)//achar(58)//achar(0),achar(196)//achar(59)//achar(0),achar(195)//achar(60)//achar(0),achar(194)//achar(61)//achar(0),achar(193)//achar(62)//achar(0),achar(192)//achar(63)//achar(0),achar(191)//achar(64)//achar(0),achar(190)//achar(65)//achar(0),achar(189)//achar(66)//achar(0),achar(188)//achar(67)//achar(0),achar(187)//achar(68)//achar(0),achar(186)//achar(69)//achar(0),achar(185)//achar(70)//achar(0),achar(184)//achar(71)//achar(0),achar(183)//achar(72)//achar(0),achar(182)//achar(73)//achar(0),achar(181)//achar(74)//achar(0),achar(180)//achar(75)//achar(0),achar(179)//achar(76)//achar(0),achar(178)//achar(77)//achar(0),achar(177)//achar(78)//achar(0),achar(176)//achar(79)//achar(0),achar(175)//achar(80)//achar(0),achar(174)//achar(81)//achar(0),achar(173)//achar(82)//achar(0),achar(172)//achar(83)//achar(0),achar(171)//achar(84)//achar(0),achar(170)//achar(85)//achar(0),achar(169)//achar(86)//achar(0),achar(168)//achar(87)//achar(0),achar(167)//achar(88)//achar(0),achar(166)//achar(89)//achar(0),achar(165)//achar(90)//achar(0),achar(164)//achar(91)//achar(0),achar(163)//achar(92)//achar(0),achar(162)//achar(93)//achar(0),achar(161)//achar(94)//achar(0),achar(160)//achar(95)//achar(0),achar(159)//achar(96)//achar(0),achar(158)//achar(97)//achar(0),achar(157)//achar(98)//achar(0),achar(156)//achar(99)//achar(0),achar(155)//achar(100)//achar(0),achar(154)//achar(101)//achar(0),achar(153)//achar(102)//achar(0),achar(152)//achar(103)//achar(0),achar(151)//achar(104)//achar(0),achar(150)//achar(105)//achar(0),achar(149)//achar(106)//achar(0),achar(148)//achar(107)//achar(0),achar(147)//achar(108)//achar(0),achar(146)//achar(109)//achar(0),achar(145)//achar(110)//achar(0),achar(144)//achar(111)//achar(0),achar(143)//achar(112)//achar(0),achar(142)//achar(113)//achar(0),achar(141)//achar(114)//achar(0),achar(140)//achar(115)//achar(0),achar(139)//achar(116)//achar(0),achar(138)//achar(117)//achar(0),achar(137)//achar(118)//achar(0),achar(136)//achar(119)//achar(0),achar(135)//achar(120)//achar(0),achar(134)//achar(121)//achar(0),achar(133)//achar(122)//achar(0),achar(132)//achar(123)//achar(0),achar(131)//achar(124)//achar(0),achar(130)//achar(125)//achar(0),achar(129)//achar(126)//achar(0),achar(128)//achar(127)//achar(0),achar(127)//achar(128)//achar(0),achar(126)//achar(129)//achar(0),achar(125)//achar(130)//achar(0),achar(124)//achar(131)//achar(0),achar(123)//achar(132)//achar(0),achar(122)//achar(133)//achar(0),achar(121)//achar(134)//achar(0),achar(120)//achar(135)//achar(0),achar(119)//achar(136)//achar(0),achar(118)//achar(137)//achar(0),achar(117)//achar(138)//achar(0),achar(116)//achar(139)//achar(0),achar(115)//achar(140)//achar(0),achar(114)//achar(141)//achar(0),achar(113)//achar(142)//achar(0),achar(112)//achar(143)//achar(0),achar(111)//achar(144)//achar(0),achar(110)//achar(145)//achar(0),achar(109)//achar(146)//achar(0),achar(108)//achar(147)//achar(0),achar(107)//achar(148)//achar(0),achar(106)//achar(149)//achar(0),achar(105)//achar(150)//achar(0),achar(104)//achar(151)//achar(0),achar(103)//achar(152)//achar(0),achar(102)//achar(153)//achar(0),achar(101)//achar(154)//achar(0),achar(100)//achar(155)//achar(0),achar(99)//achar(156)//achar(0),achar(98)//achar(157)//achar(0),achar(97)//achar(158)//achar(0),achar(96)//achar(159)//achar(0),achar(95)//achar(160)//achar(0),achar(94)//achar(161)//achar(0),achar(93)//achar(162)//achar(0),achar(92)//achar(163)//achar(0),achar(91)//achar(164)//achar(0),achar(90)//achar(165)//achar(0),achar(89)//achar(166)//achar(0),achar(88)//achar(167)//achar(0),achar(87)//achar(168)//achar(0),achar(86)//achar(169)//achar(0),achar(85)//achar(170)//achar(0),achar(84)//achar(171)//achar(0),achar(83)//achar(172)//achar(0),achar(82)//achar(173)//achar(0),achar(81)//achar(174)//achar(0),achar(80)//achar(175)//achar(0),achar(79)//achar(176)//achar(0),achar(78)//achar(177)//achar(0),achar(77)//achar(178)//achar(0),achar(76)//achar(179)//achar(0),achar(75)//achar(180)//achar(0),achar(74)//achar(181)//achar(0),achar(73)//achar(182)//achar(0),achar(72)//achar(183)//achar(0),achar(71)//achar(184)//achar(0),achar(70)//achar(185)//achar(0),achar(69)//achar(186)//achar(0),achar(68)//achar(187)//achar(0),achar(67)//achar(188)//achar(0),achar(66)//achar(189)//achar(0),achar(65)//achar(190)//achar(0),achar(64)//achar(191)//achar(0),achar(63)//achar(192)//achar(0),achar(62)//achar(193)//achar(0),achar(61)//achar(194)//achar(0),achar(60)//achar(195)//achar(0),achar(59)//achar(196)//achar(0),achar(58)//achar(197)//achar(0),achar(57)//achar(198)//achar(0),achar(56)//achar(199)//achar(0),achar(55)//achar(200)//achar(0),achar(54)//achar(201)//achar(0),achar(53)//achar(202)//achar(0),achar(52)//achar(203)//achar(0),achar(51)//achar(204)//achar(0),achar(50)//achar(205)//achar(0),achar(49)//achar(206)//achar(0),achar(48)//achar(207)//achar(0),achar(47)//achar(208)//achar(0),achar(46)//achar(209)//achar(0),achar(45)//achar(210)//achar(0),achar(44)//achar(211)//achar(0),achar(43)//achar(212)//achar(0),achar(42)//achar(213)//achar(0),achar(41)//achar(214)//achar(0),achar(40)//achar(215)//achar(0),achar(39)//achar(216)//achar(0),achar(38)//achar(217)//achar(0),achar(37)//achar(218)//achar(0),achar(36)//achar(219)//achar(0),achar(35)//achar(220)//achar(0),achar(34)//achar(221)//achar(0),achar(33)//achar(222)//achar(0),achar(32)//achar(223)//achar(0),achar(31)//achar(224)//achar(0),achar(30)//achar(225)//achar(0),achar(29)//achar(226)//achar(0),achar(28)//achar(227)//achar(0),achar(27)//achar(228)//achar(0),achar(26)//achar(229)//achar(0),achar(25)//achar(230)//achar(0),achar(24)//achar(231)//achar(0),achar(23)//achar(232)//achar(0),achar(22)//achar(233)//achar(0),achar(21)//achar(234)//achar(0),achar(20)//achar(235)//achar(0),achar(19)//achar(236)//achar(0),achar(18)//achar(237)//achar(0),achar(17)//achar(238)//achar(0),achar(16)//achar(239)//achar(0),achar(15)//achar(240)//achar(0),achar(14)//achar(241)//achar(0),achar(13)//achar(242)//achar(0),achar(12)//achar(243)//achar(0),achar(11)//achar(244)//achar(0),achar(10)//achar(245)//achar(0),achar(9)//achar(246)//achar(0),achar(8)//achar(247)//achar(0),achar(7)//achar(248)//achar(0),achar(6)//achar(249)//achar(0),achar(5)//achar(250)//achar(0),achar(4)//achar(251)//achar(0),achar(3)//achar(252)//achar(0),achar(2)//achar(253)//achar(0),achar(1)//achar(254)//achar(0),achar(0)//achar(255)//achar(0)/)]

• mod_safe/const_cm_r2o2g (256) [character(len=3),parameter=(/achar(255)//achar(0)//achar(0),achar(255)//achar(1)//achar(0),achar(255)//achar(2)//achar(0),achar(255)//achar(3)//achar(0),achar(255)//achar(4)//achar(0),achar(255)//achar(5)//achar(0),achar(255)//achar(6)//achar(0),achar(255)//achar(7)//achar(0),achar(255)//achar(8)//achar(0),achar(255)//achar(9)//achar(0),achar(255)//achar(10)//achar(0),achar(255)//achar(11)//achar(0),achar(255)//achar(12)//achar(0),achar(255)//achar(13)//achar(0),achar(255)//achar(14)//achar(0),achar(255)//achar(15)//achar(0),achar(255)//achar(16)//achar(0),achar(255)//achar(17)//achar(0),achar(255)//achar(18)//achar(0),achar(255)//achar(19)//achar(0),achar(255)//achar(20)//achar(0),achar(255)//achar(21)//achar(0),achar(255)//achar(22)//achar(0),achar(255)//achar(23)//achar(0),achar(255)//achar(24)//achar(0),achar(255)//achar(25)//achar(0),achar(255)//achar(26)//achar(0),achar(255)//achar(27)//achar(0),achar(255)//achar(28)//achar(0),achar(255)//achar(29)//achar(0),achar(255)//achar(30)//achar(0),achar(255)//achar(31)//achar(0),achar(255)//achar(32)//achar(0),achar(255)//achar(33)//achar(0),achar(255)//achar(34)//achar(0),achar(255)//achar(35)//achar(0),achar(255)//achar(36)//achar(0),achar(255)//achar(37)//achar(0),achar(255)//achar(38)//achar(0),achar(255)//achar(39)//achar(0),achar(255)//achar(40)//achar(0),achar(255)//achar(41)//achar(0),achar(255)//achar(42)//achar(0),achar(255)//achar(43)//achar(0),achar(255)//achar(44)//achar(0),achar(255)//achar(45)//achar(0),achar(255)//achar(46)//achar(0),achar(255)//achar(47)//achar(0),achar(255)//achar(48)//achar(0),achar(255)//achar(49)//achar(0),achar(255)//achar(50)//achar(0),achar(255)//achar(51)//achar(0),achar(255)//achar(52)//achar(0),achar(255)//achar(53)//achar(0),achar(255)//achar(54)//achar(0),achar(255)//achar(55)//achar(0),achar(255)//achar(56)//achar(0),achar(255)//achar(57)//achar(0),achar(255)//achar(58)//achar(0),achar(255)//achar(59)//achar(0),achar(255)//achar(60)//achar(0),achar(255)//achar(61)//achar(0),achar(255)//achar(62)//achar(0),achar(255)//achar(63)//achar(0),achar(255)//achar(64)//achar(0),achar(255)//achar(65)//achar(0),achar(255)//achar(66)//achar(0),achar(255)//achar(67)//achar(0),achar(255)//achar(68)//achar(0),achar(255)//achar(69)//achar(0),achar(255)//achar(70)//achar(0),achar(255)//achar(71)//achar(0),achar(255)//achar(72)//achar(0),achar(255)//achar(73)//achar(0),achar(255)//achar(74)//achar(0),achar(255)//achar(75)//achar(0),achar(255)//achar(76)//achar(0),achar(255)//achar(77)//achar(0),achar(255)//achar(78)//achar(0),achar(255)//achar(79)//achar(0),achar(255)//achar(80)//achar(0),achar(255)//achar(81)//achar(0),achar(255)//achar(82)//achar(0),achar(255)//achar(83)//achar(0),achar(255)//achar(84)//achar(0),achar(255)//achar(85)//achar(0),achar(255)//achar(86)//achar(0),achar(255)//achar(87)//achar(0),achar(255)//achar(88)//achar(0),achar(255)//achar(89)//achar(0),achar(255)//achar(90)//achar(0),achar(255)//achar(91)//achar(0),achar(255)//achar(92)//achar(0),achar(255)//achar(93)//achar(0),achar(255)//achar(94)//achar(0),achar(255)//achar(95)//achar(0),achar(255)//achar(96)//achar(0),achar(255)//achar(97)//achar(0),achar(255)//achar(98)//achar(0),achar(255)//achar(99)//achar(0),achar(255)//achar(100)//achar(0),achar(255)//achar(101)//achar(0),achar(255)//achar(102)//achar(0),achar(255)//achar(103)//achar(0),achar(255)//achar(104)//achar(0),achar(255)//achar(105)//achar(0),achar(255)//achar(106)//achar(0),achar(255)//achar(107)//achar(0),achar(255)//achar(108)//achar(0),achar(255)//achar(109)//achar(0),achar(255)//achar(110)//achar(0),achar(255)//achar(111)//achar(0),achar(255)//achar(112)//achar(0),achar(255)//achar(113)//achar(0),achar(255)//achar(114)//achar(0),achar(255)//achar(115)//achar(0),achar(255)//achar(116)//achar(0),achar(255)//achar(117)//achar(0),achar(255)//achar(118)//achar(0),achar(255)//achar(119)//achar(0),achar(255)//achar(120)//achar(0),achar(255)//achar(121)//achar(0),achar(255)//achar(122)//achar(0),achar(255)//achar(123)//achar(0),achar(255)//achar(124)//achar(0),achar(255)//achar(125)//achar(0),achar(255)//achar(126)//achar(0),achar(255)//achar(127)//achar(0),achar(254)//achar(128)//achar(0),achar(252)//achar(129)//achar(0),achar(250)//achar(130)//achar(0),achar(248)//achar(131)//achar(0),achar(246)//achar(132)//achar(0),achar(244)//achar(133)//achar(0),achar(242)//achar(134)//achar(0),achar(240)//achar(135)//achar(0),achar(238)//achar(136)//achar(0),achar(236)//achar(137)//achar(0),achar(234)//achar(138)//achar(0),achar(232)//achar(139)//achar(0),achar(230)//achar(140)//achar(0),achar(228)//achar(141)//achar(0),achar(226)//achar(142)//achar(0),achar(224)//achar(143)//achar(0),achar(222)//achar(144)//achar(0),achar(220)//achar(145)//achar(0),achar(218)//achar(146)//achar(0),achar(216)//achar(147)//achar(0),achar(214)//achar(148)//achar(0),achar(212)//achar(149)//achar(0),achar(210)//achar(150)//achar(0),achar(208)//achar(151)//achar(0),achar(206)//achar(152)//achar(0),achar(204)//achar(153)//achar(0),achar(202)//achar(154)//achar(0),achar(200)//achar(155)//achar(0),achar(198)//achar(156)//achar(0),achar(196)//achar(157)//achar(0),achar(194)//achar(158)//achar(0),achar(192)//achar(159)//achar(0),achar(190)//achar(160)//achar(0),achar(188)//achar(161)//achar(0),achar(186)//achar(162)//achar(0),achar(184)//achar(163)//achar(0),achar(182)//achar(164)//achar(0),achar(180)//achar(165)//achar(0),achar(178)//achar(166)//achar(0),achar(176)//achar(167)//achar(0),achar(174)//achar(168)//achar(0),achar(172)//achar(169)//achar(0),achar(170)//achar(170)//achar(0),achar(168)//achar(171)//achar(0),achar(166)//achar(172)//achar(0),achar(164)//achar(173)//achar(0),achar(162)//achar(174)//achar(0),achar(160)//achar(175)//achar(0),achar(158)//achar(176)//achar(0),achar(156)//achar(177)//achar(0),achar(154)//achar(178)//achar(0),achar(152)//achar(179)//achar(0),achar(150)//achar(180)//achar(0),achar(148)//achar(181)//achar(0),achar(146)//achar(182)//achar(0),achar(144)//achar(183)//achar(0),achar(142)//achar(184)//achar(0),achar(140)//achar(185)//achar(0),achar(138)//achar(186)//achar(0),achar(136)//achar(187)//achar(0),achar(134)//achar(188)//achar(0),achar(132)//achar(189)//achar(0),achar(130)//achar(190)//achar(0),achar(128)//achar(191)//achar(0),achar(126)//achar(192)//achar(0),achar(124)//achar(193)//achar(0),achar(122)//achar(194)//achar(0),achar(120)//achar(195)//achar(0),achar(118)//achar(196)//achar(0),achar(116)//achar(197)//achar(0),achar(114)//achar(198)//achar(0),achar(112)//achar(199)//achar(0),achar(110)//achar(200)//achar(0),achar(108)//achar(201)//achar(0),achar(106)//achar(202)//achar(0),achar(104)//achar(203)//achar(0),achar(102)//achar(204)//achar(0),achar(100)//achar(205)//achar(0),achar(98)//achar(206)//achar(0),achar(96)//achar(207)//achar(0),achar(94)//achar(208)//achar(0),achar(92)//achar(209)//achar(0),achar(90)//achar(210)//achar(0),achar(88)//achar(211)//achar(0),achar(86)//achar(212)//achar(0),achar(84)//achar(213)//achar(0),achar(82)//achar(214)//achar(0),achar(80)//achar(215)//achar(0),achar(78)//achar(216)//achar(0),achar(76)//achar(217)//achar(0),achar(74)//achar(218)//achar(0),achar(72)//achar(219)//achar(0),achar(70)//achar(220)//achar(0),achar(68)//achar(221)//achar(0),achar(66)//achar(222)//achar(0),achar(64)//achar(223)//achar(0),achar(62)//achar(224)//achar(0),achar(60)//achar(225)//achar(0),achar(58)//achar(226)//achar(0),achar(56)//achar(227)//achar(0),achar(54)//achar(228)//achar(0),achar(52)//achar(229)//achar(0),achar(50)//achar(230)//achar(0),achar(48)//achar(231)//achar(0),achar(46)//achar(232)//achar(0),achar(44)//achar(233)//achar(0),achar(42)//achar(234)//achar(0),achar(40)//achar(235)//achar(0),achar(38)//achar(236)//achar(0),achar(36)//achar(237)//achar(0),achar(34)//achar(238)//achar(0),achar(32)//achar(239)//achar(0),achar(30)//achar(240)//achar(0),achar(28)//achar(241)//achar(0),achar(26)//achar(242)//achar(0),achar(24)//achar(243)//achar(0),achar(22)//achar(244)//achar(0),achar(20)//achar(245)//achar(0),achar(18)//achar(246)//achar(0),achar(16)//achar(247)//achar(0),achar(14)//achar(248)//achar(0),achar(12)//achar(249)//achar(0),achar(10)//achar(250)//achar(0),achar(8)//achar(251)//achar(0),achar(6)//achar(252)//achar(0),achar(4)//achar(253)//achar(0),achar(2)//achar(254)//achar(0),achar(0)//achar(255)//achar(0)/)]

• mod_safe/const_cm_turbo (256) [character(len=3),parameter=(/achar(48)//achar(18)//achar(59),achar(49)//achar(21)//achar(66),achar(50)//achar(24)//achar(74),achar(52)//achar(27)//achar(81),achar(53)//achar(30)//achar(88),achar(54)//achar(33)//achar(95),achar(55)//achar(35)//achar(101),achar(56)//achar(38)//achar(108),achar(57)//achar(41)//achar(114),achar(58)//achar(44)//achar(121),achar(59)//achar(47)//achar(127),achar(60)//achar(50)//achar(133),achar(60)//achar(53)//achar(139),achar(61)//achar(55)//achar(145),achar(62)//achar(58)//achar(150),achar(63)//achar(61)//achar(156),achar(64)//achar(64)//achar(161),achar(64)//achar(67)//achar(166),achar(65)//achar(69)//achar(171),achar(65)//achar(72)//achar(176),achar(66)//achar(75)//achar(181),achar(67)//achar(78)//achar(186),achar(67)//achar(80)//achar(190),achar(67)//achar(83)//achar(194),achar(68)//achar(86)//achar(199),achar(68)//achar(88)//achar(203),achar(69)//achar(91)//achar(206),achar(69)//achar(94)//achar(210),achar(69)//achar(96)//achar(214),achar(69)//achar(99)//achar(217),achar(70)//achar(102)//achar(221),achar(70)//achar(104)//achar(224),achar(70)//achar(107)//achar(227),achar(70)//achar(109)//achar(230),achar(70)//achar(112)//achar(232),achar(70)//achar(115)//achar(235),achar(70)//achar(117)//achar(237),achar(70)//achar(120)//achar(240),achar(70)//achar(122)//achar(242),achar(70)//achar(125)//achar(244),achar(70)//achar(127)//achar(246),achar(70)//achar(130)//achar(248),achar(69)//achar(132)//achar(249),achar(69)//achar(135)//achar(251),achar(69)//achar(137)//achar(252),achar(68)//achar(140)//achar(253),achar(67)//achar(142)//achar(253),achar(66)//achar(145)//achar(254),achar(65)//achar(147)//achar(254),achar(64)//achar(150)//achar(254),achar(63)//achar(152)//achar(254),achar(62)//achar(155)//achar(254),achar(60)//achar(157)//achar(253),achar(59)//achar(160)//achar(252),achar(57)//achar(162)//achar(252),achar(56)//achar(165)//achar(251),achar(54)//achar(168)//achar(249),achar(52)//achar(170)//achar(248),achar(51)//achar(172)//achar(246),achar(49)//achar(175)//achar(245),achar(47)//achar(177)//achar(243),achar(45)//achar(180)//achar(241),achar(43)//achar(182)//achar(239),achar(42)//achar(185)//achar(237),achar(40)//achar(187)//achar(235),achar(38)//achar(189)//achar(233),achar(37)//achar(192)//achar(230),achar(35)//achar(194)//achar(228),achar(33)//achar(196)//achar(225),achar(32)//achar(198)//achar(223),achar(30)//achar(201)//achar(220),achar(29)//achar(203)//achar(218),achar(28)//achar(205)//achar(215),achar(27)//achar(207)//achar(212),achar(26)//achar(209)//achar(210),achar(25)//achar(211)//achar(207),achar(24)//achar(213)//achar(204),achar(24)//achar(215)//achar(202),achar(23)//achar(217)//achar(199),achar(23)//achar(218)//achar(196),achar(23)//achar(220)//achar(194),achar(23)//achar(222)//achar(191),achar(24)//achar(224)//achar(189),achar(24)//achar(225)//achar(186),achar(25)//achar(227)//achar(184),achar(26)//achar(228)//achar(182),achar(27)//achar(229)//achar(180),achar(29)//achar(231)//achar(177),achar(30)//achar(232)//achar(175),achar(32)//achar(233)//achar(172),achar(34)//achar(235)//achar(169),achar(36)//achar(236)//achar(166),achar(39)//achar(237)//achar(163),achar(41)//achar(238)//achar(160),achar(44)//achar(239)//achar(157),achar(47)//achar(240)//achar(154),achar(50)//achar(241)//achar(151),achar(53)//achar(243)//achar(148),achar(56)//achar(244)//achar(145),achar(59)//achar(244)//achar(141),achar(63)//achar(245)//achar(138),achar(66)//achar(246)//achar(135),achar(70)//achar(247)//achar(131),achar(74)//achar(248)//achar(128),achar(77)//achar(249)//achar(124),achar(81)//achar(249)//achar(121),achar(85)//achar(250)//achar(118),achar(89)//achar(251)//achar(114),achar(93)//achar(251)//achar(111),achar(97)//achar(252)//achar(108),achar(101)//achar(252)//achar(104),achar(105)//achar(253)//achar(101),achar(109)//achar(253)//achar(98),achar(113)//achar(253)//achar(95),achar(116)//achar(254)//achar(92),achar(120)//achar(254)//achar(89),achar(124)//achar(254)//achar(86),achar(128)//achar(254)//achar(83),achar(132)//achar(254)//achar(80),achar(135)//achar(254)//achar(77),achar(139)//achar(254)//achar(75),achar(142)//achar(254)//achar(72),achar(146)//achar(254)//achar(70),achar(149)//achar(254)//achar(68),achar(152)//achar(254)//achar(66),achar(155)//achar(253)//achar(64),achar(158)//achar(253)//achar(62),achar(161)//achar(252)//achar(61),achar(164)//achar(252)//achar(59),achar(166)//achar(251)//achar(58),achar(169)//achar(251)//achar(57),achar(172)//achar(250)//achar(55),achar(174)//achar(249)//achar(55),achar(177)//achar(248)//achar(54),achar(179)//achar(248)//achar(53),achar(182)//achar(247)//achar(53),achar(185)//achar(245)//achar(52),achar(187)//achar(244)//achar(52),achar(190)//achar(243)//achar(52),achar(192)//achar(242)//achar(51),achar(195)//achar(241)//achar(51),achar(197)//achar(239)//achar(51),achar(200)//achar(238)//achar(51),achar(202)//achar(237)//achar(51),achar(205)//achar(235)//achar(52),achar(207)//achar(234)//achar(52),achar(209)//achar(232)//achar(52),achar(212)//achar(231)//achar(53),achar(214)//achar(229)//achar(53),achar(216)//achar(227)//achar(53),achar(218)//achar(226)//achar(54),achar(221)//achar(224)//achar(54),achar(223)//achar(222)//achar(54),achar(225)//achar(220)//achar(55),achar(227)//achar(218)//achar(55),achar(229)//achar(216)//achar(56),achar(231)//achar(215)//achar(56),achar(232)//achar(213)//achar(56),achar(234)//achar(211)//achar(57),achar(236)//achar(209)//achar(57),achar(237)//achar(207)//achar(57),achar(239)//achar(205)//achar(57),achar(240)//achar(203)//achar(58),achar(242)//achar(200)//achar(58),achar(243)//achar(198)//achar(58),achar(244)//achar(196)//achar(58),achar(246)//achar(194)//achar(58),achar(247)//achar(192)//achar(57),achar(248)//achar(190)//achar(57),achar(249)//achar(188)//achar(57),achar(249)//achar(186)//achar(56),achar(250)//achar(183)//achar(55),achar(251)//achar(181)//achar(55),achar(251)//achar(179)//achar(54),achar(252)//achar(176)//achar(53),achar(252)//achar(174)//achar(52),achar(253)//achar(171)//achar(51),achar(253)//achar(169)//achar(50),achar(253)//achar(166)//achar(49),achar(253)//achar(163)//achar(48),achar(254)//achar(161)//achar(47),achar(254)//achar(158)//achar(46),achar(254)//achar(155)//achar(45),achar(254)//achar(152)//achar(44),achar(253)//achar(149)//achar(43),achar(253)//achar(146)//achar(41),achar(253)//achar(143)//achar(40),achar(253)//achar(140)//achar(39),achar(252)//achar(137)//achar(38),achar(252)//achar(134)//achar(36),achar(251)//achar(131)//achar(35),achar(251)//achar(128)//achar(34),achar(250)//achar(125)//achar(32),achar(250)//achar(122)//achar(31),achar(249)//achar(119)//achar(30),achar(248)//achar(116)//achar(28),achar(247)//achar(113)//achar(27),achar(247)//achar(110)//achar(26),achar(246)//achar(107)//achar(24),achar(245)//achar(104)//achar(23),achar(244)//achar(101)//achar(22),achar(243)//achar(99)//achar(21),achar(242)//achar(96)//achar(20),achar(241)//achar(93)//achar(19),achar(239)//achar(90)//achar(17),achar(238)//achar(88)//achar(16),achar(237)//achar(85)//achar(15),achar(236)//achar(82)//achar(14),achar(234)//achar(80)//achar(13),achar(233)//achar(77)//achar(13),achar(232)//achar(75)//achar(12),achar(230)//achar(73)//achar(11),achar(229)//achar(70)//achar(10),achar(227)//achar(68)//achar(10),achar(226)//achar(66)//achar(9),achar(224)//achar(64)//achar(8),achar(222)//achar(62)//achar(8),achar(221)//achar(60)//achar(7),achar(219)//achar(58)//achar(7),achar(217)//achar(56)//achar(6),achar(215)//achar(54)//achar(6),achar(214)//achar(52)//achar(5),achar(212)//achar(50)//achar(5),achar(210)//achar(48)//achar(5),achar(208)//achar(47)//achar(4),achar(206)//achar(45)//achar(4),achar(203)//achar(43)//achar(3),achar(201)//achar(41)//achar(3),achar(199)//achar(40)//achar(3),achar(197)//achar(38)//achar(2),achar(195)//achar(36)//achar(2),achar(192)//achar(35)//achar(2),achar(190)//achar(33)//achar(2),achar(187)//achar(31)//achar(1),achar(185)//achar(30)//achar(1),achar(182)//achar(28)//achar(1),achar(180)//achar(27)//achar(1),achar(177)//achar(25)//achar(1),achar(174)//achar(24)//achar(1),achar(172)//achar(22)//achar(1),achar(169)//achar(21)//achar(1),achar(166)//achar(20)//achar(1),achar(163)//achar(18)//achar(1),achar(160)//achar(17)//achar(1),achar(157)//achar(16)//achar(1),achar(154)//achar(14)//achar(1),achar(151)//achar(13)//achar(1),achar(148)//achar(12)//achar(1),achar(145)//achar(11)//achar(1),achar(142)//achar(10)//achar(1),achar(139)//achar(9)//achar(1),achar(135)//achar(8)//achar(1),achar(132)//achar(7)//achar(1),achar(129)//achar(6)//achar(2),achar(125)//achar(5)//achar(2),achar(122)//achar(4)//achar(2)/)]

• mod_safe/const_cm_viridis (256) [character(len=3),parameter=(/achar(68)//achar(1)//achar(84),achar(68)//achar(2)//achar(85),achar(68)//achar(3)//achar(87),achar(69)//achar(5)//achar(88),achar(69)//achar(6)//achar(90),achar(69)//achar(8)//achar(91),achar(70)//achar(9)//achar(92),achar(70)//achar(11)//achar(94),achar(70)//achar(12)//achar(95),achar(70)//achar(14)//achar(97),achar(71)//achar(15)//achar(98),achar(71)//achar(17)//achar(99),achar(71)//achar(18)//achar(101),achar(71)//achar(20)//achar(102),achar(71)//achar(21)//achar(103),achar(71)//achar(22)//achar(105),achar(71)//achar(24)//achar(106),achar(72)//achar(25)//achar(107),achar(72)//achar(26)//achar(108),achar(72)//achar(28)//achar(110),achar(72)//achar(29)//achar(111),achar(72)//achar(30)//achar(112),achar(72)//achar(32)//achar(113),achar(72)//achar(33)//achar(114),achar(72)//achar(34)//achar(115),achar(72)//achar(35)//achar(116),achar(71)//achar(37)//achar(117),achar(71)//achar(38)//achar(118),achar(71)//achar(39)//achar(119),achar(71)//achar(40)//achar(120),achar(71)//achar(42)//achar(121),achar(71)//achar(43)//achar(122),achar(71)//achar(44)//achar(123),achar(70)//achar(45)//achar(124),achar(70)//achar(47)//achar(124),achar(70)//achar(48)//achar(125),achar(70)//achar(49)//achar(126),achar(69)//achar(50)//achar(127),achar(69)//achar(52)//achar(127),achar(69)//achar(53)//achar(128),achar(69)//achar(54)//achar(129),achar(68)//achar(55)//achar(129),achar(68)//achar(57)//achar(130),achar(67)//achar(58)//achar(131),achar(67)//achar(59)//achar(131),achar(67)//achar(60)//achar(132),achar(66)//achar(61)//achar(132),achar(66)//achar(62)//achar(133),achar(66)//achar(64)//achar(133),achar(65)//achar(65)//achar(134),achar(65)//achar(66)//achar(134),achar(64)//achar(67)//achar(135),achar(64)//achar(68)//achar(135),achar(63)//achar(69)//achar(135),achar(63)//achar(71)//achar(136),achar(62)//achar(72)//achar(136),achar(62)//achar(73)//achar(137),achar(61)//achar(74)//achar(137),achar(61)//achar(75)//achar(137),achar(61)//achar(76)//achar(137),achar(60)//achar(77)//achar(138),achar(60)//achar(78)//achar(138),achar(59)//achar(80)//achar(138),achar(59)//achar(81)//achar(138),achar(58)//achar(82)//achar(139),achar(58)//achar(83)//achar(139),achar(57)//achar(84)//achar(139),achar(57)//achar(85)//achar(139),achar(56)//achar(86)//achar(139),achar(56)//achar(87)//achar(140),achar(55)//achar(88)//achar(140),achar(55)//achar(89)//achar(140),achar(54)//achar(90)//achar(140),achar(54)//achar(91)//achar(140),achar(53)//achar(92)//achar(140),achar(53)//achar(93)//achar(140),achar(52)//achar(94)//achar(141),achar(52)//achar(95)//achar(141),achar(51)//achar(96)//achar(141),achar(51)//achar(97)//achar(141),achar(50)//achar(98)//achar(141),achar(50)//achar(99)//achar(141),achar(49)//achar(100)//achar(141),achar(49)//achar(101)//achar(141),achar(49)//achar(102)//achar(141),achar(48)//achar(103)//achar(141),achar(48)//achar(104)//achar(141),achar(47)//achar(105)//achar(141),achar(47)//achar(106)//achar(141),achar(46)//achar(107)//achar(142),achar(46)//achar(108)//achar(142),achar(46)//achar(109)//achar(142),achar(45)//achar(110)//achar(142),achar(45)//achar(111)//achar(142),achar(44)//achar(112)//achar(142),achar(44)//achar(113)//achar(142),achar(44)//achar(114)//achar(142),achar(43)//achar(115)//achar(142),achar(43)//achar(116)//achar(142),achar(42)//achar(117)//achar(142),achar(42)//achar(118)//achar(142),achar(42)//achar(119)//achar(142),achar(41)//achar(120)//achar(142),achar(41)//achar(121)//achar(142),achar(40)//achar(122)//achar(142),achar(40)//achar(122)//achar(142),achar(40)//achar(123)//achar(142),achar(39)//achar(124)//achar(142),achar(39)//achar(125)//achar(142),achar(39)//achar(126)//achar(142),achar(38)//achar(127)//achar(142),achar(38)//achar(128)//achar(142),achar(38)//achar(129)//achar(142),achar(37)//achar(130)//achar(142),achar(37)//achar(131)//achar(141),achar(36)//achar(132)//achar(141),achar(36)//achar(133)//achar(141),achar(36)//achar(134)//achar(141),achar(35)//achar(135)//achar(141),achar(35)//achar(136)//achar(141),achar(35)//achar(137)//achar(141),achar(34)//achar(137)//achar(141),achar(34)//achar(138)//achar(141),achar(34)//achar(139)//achar(141),achar(33)//achar(140)//achar(141),achar(33)//achar(141)//achar(140),achar(33)//achar(142)//achar(140),achar(32)//achar(143)//achar(140),achar(32)//achar(144)//achar(140),achar(32)//achar(145)//achar(140),achar(31)//achar(146)//achar(140),achar(31)//achar(147)//achar(139),achar(31)//achar(148)//achar(139),achar(31)//achar(149)//achar(139),achar(31)//achar(150)//achar(139),achar(30)//achar(151)//achar(138),achar(30)//achar(152)//achar(138),achar(30)//achar(153)//achar(138),achar(30)//achar(153)//achar(138),achar(30)//achar(154)//achar(137),achar(30)//achar(155)//achar(137),achar(30)//achar(156)//achar(137),achar(30)//achar(157)//achar(136),achar(30)//achar(158)//achar(136),achar(30)//achar(159)//achar(136),achar(30)//achar(160)//achar(135),achar(31)//achar(161)//achar(135),achar(31)//achar(162)//achar(134),achar(31)//achar(163)//achar(134),achar(32)//achar(164)//achar(133),achar(32)//achar(165)//achar(133),achar(33)//achar(166)//achar(133),achar(33)//achar(167)//achar(132),achar(34)//achar(167)//achar(132),achar(35)//achar(168)//achar(131),achar(35)//achar(169)//achar(130),achar(36)//achar(170)//achar(130),achar(37)//achar(171)//achar(129),achar(38)//achar(172)//achar(129),achar(39)//achar(173)//achar(128),achar(40)//achar(174)//achar(127),achar(41)//achar(175)//achar(127),achar(42)//achar(176)//achar(126),achar(43)//achar(177)//achar(125),achar(44)//achar(177)//achar(125),achar(46)//achar(178)//achar(124),achar(47)//achar(179)//achar(123),achar(48)//achar(180)//achar(122),achar(50)//achar(181)//achar(122),achar(51)//achar(182)//achar(121),achar(53)//achar(183)//achar(120),achar(54)//achar(184)//achar(119),achar(56)//achar(185)//achar(118),achar(57)//achar(185)//achar(118),achar(59)//achar(186)//achar(117),achar(61)//achar(187)//achar(116),achar(62)//achar(188)//achar(115),achar(64)//achar(189)//achar(114),achar(66)//achar(190)//achar(113),achar(68)//achar(190)//achar(112),achar(69)//achar(191)//achar(111),achar(71)//achar(192)//achar(110),achar(73)//achar(193)//achar(109),achar(75)//achar(194)//achar(108),achar(77)//achar(194)//achar(107),achar(79)//achar(195)//achar(105),achar(81)//achar(196)//achar(104),achar(83)//achar(197)//achar(103),achar(85)//achar(198)//achar(102),achar(87)//achar(198)//achar(101),achar(89)//achar(199)//achar(100),achar(91)//achar(200)//achar(98),achar(94)//achar(201)//achar(97),achar(96)//achar(201)//achar(96),achar(98)//achar(202)//achar(95),achar(100)//achar(203)//achar(93),achar(103)//achar(204)//achar(92),achar(105)//achar(204)//achar(91),achar(107)//achar(205)//achar(89),achar(109)//achar(206)//achar(88),achar(112)//achar(206)//achar(86),achar(114)//achar(207)//achar(85),achar(116)//achar(208)//achar(84),achar(119)//achar(208)//achar(82),achar(121)//achar(209)//achar(81),achar(124)//achar(210)//achar(79),achar(126)//achar(210)//achar(78),achar(129)//achar(211)//achar(76),achar(131)//achar(211)//achar(75),achar(134)//achar(212)//achar(73),achar(136)//achar(213)//achar(71),achar(139)//achar(213)//achar(70),achar(141)//achar(214)//achar(68),achar(144)//achar(214)//achar(67),achar(146)//achar(215)//achar(65),achar(149)//achar(215)//achar(63),achar(151)//achar(216)//achar(62),achar(154)//achar(216)//achar(60),achar(157)//achar(217)//achar(58),achar(159)//achar(217)//achar(56),achar(162)//achar(218)//achar(55),achar(165)//achar(218)//achar(53),achar(167)//achar(219)//achar(51),achar(170)//achar(219)//achar(50),achar(173)//achar(220)//achar(48),achar(175)//achar(220)//achar(46),achar(178)//achar(221)//achar(44),achar(181)//achar(221)//achar(43),achar(183)//achar(221)//achar(41),achar(186)//achar(222)//achar(39),achar(189)//achar(222)//achar(38),achar(191)//achar(223)//achar(36),achar(194)//achar(223)//achar(34),achar(197)//achar(223)//achar(33),achar(199)//achar(224)//achar(31),achar(202)//achar(224)//achar(30),achar(205)//achar(224)//achar(29),achar(207)//achar(225)//achar(28),achar(210)//achar(225)//achar(27),achar(212)//achar(225)//achar(26),achar(215)//achar(226)//achar(25),achar(218)//achar(226)//achar(24),achar(220)//achar(226)//achar(24),achar(223)//achar(227)//achar(24),achar(225)//achar(227)//achar(24),achar(228)//achar(227)//achar(24),achar(231)//achar(228)//achar(25),achar(233)//achar(228)//achar(25),achar(236)//achar(228)//achar(26),achar(238)//achar(229)//achar(27),achar(241)//achar(229)//achar(28),achar(243)//achar(229)//achar(30),achar(246)//achar(230)//achar(31),achar(248)//achar(230)//achar(33),achar(250)//achar(230)//achar(34),achar(253)//achar(231)//achar(36)/)]

• mod_safe/const_e [real,parameter=1.602176634000000e-19_real64]

• mod_safe/const_eps0 [real,parameter=8.854187818800000e-12_real64]

• mod_safe/const_factorial_int16 (8) [integer,parameter=(/1_int16,1_int16,2_int16,6_int16,24_int16,120_int16,720_int16,5040_int16/)]

• mod_safe/const_factorial_int32 (13) [integer,parameter=(/1_int32,1_int32,2_int32,6_int32,24_int32,120_int32,720_int32,5040_int32,40320_int32,362880_int32,3628800_int32,39916800_int32,479001600_int32/)]

• mod_safe/const_factorial_int64 (21) [integer,parameter=(/1_int64,1_int64,2_int64,6_int64,24_int64,120_int64,720_int64,5040_int64,40320_int64,362880_int64,3628800_int64,39916800_int64,479001600_int64,6227020800_int64,87178291200_int64,1307674368000_int64,20922789888000_int64,355687428096000_int64,6402373705728000_int64,121645100408832000_int64,2432902008176640000_int64/)]

• mod_safe/const_factorial_int8 (6) [integer,parameter=(/1_int8,1_int8,2_int8,6_int8,24_int8,120_int8/)]

• mod_safe/const_factorial_real128 (1755) [real,parameter=(/1.00000000000000000000000000000000e+0000_real128,1.00000000000000000000000000000000e+0000_real128,2.00000000000000000000000000000000e+0000_real128,6.00000000000000000000000000000000e+0000_real128,2.40000000000000000000000000000000e+0001_real128,1.20000000000000000000000000000000e+0002_real128,7.20000000000000000000000000000000e+0002_real128,5.04000000000000000000000000000000e+0003_real128,4.03200000000000000000000000000000e+0004_real128,3.62880000000000000000000000000000e+0005_real128,3.62880000000000000000000000000000e+0006_real128,3.99168000000000000000000000000000e+0007_real128,4.79001600000000000000000000000000e+0008_real128,6.22702080000000000000000000000000e+0009_real128,8.71782912000000000000000000000000e+0010_real128,1.30767436800000000000000000000000e+0012_real128,2.09227898880000000000000000000000e+0013_real128,3.55687428096000000000000000000000e+0014_real128,6.40237370572800000000000000000000e+0015_real128,1.21645100408832000000000000000000e+0017_real128,2.43290200817664000000000000000000e+0018_real128,5.10909421717094400000000000000000e+0019_real128,1.12400072777760768000000000000000e+0021_real128,2.58520167388849766400000000000000e+0022_real128,6.20448401733239439360000000000000e+0023_real128,1.55112100433309859840000000000000e+0025_real128,4.03291461126605635584000000000000e+0026_real128,1.08888694504183521607680000000000e+0028_real128,3.04888344611713860501504000000000e+0029_real128,8.84176199373970195454361600000000e+0030_real128,2.65252859812191058636308480000000e+0032_real128,8.22283865417792281772556288000000e+0033_real128,2.63130836933693530167218012160000e+0035_real128,8.68331761881188649551819440128000e+0036_real128,2.95232799039604140847618609643520e+0038_real128,1.03331479663861449296666513375232e+0040_real128,3.71993326789901217467999448150835e+0041_real128,1.37637530912263450463159795815809e+0043_real128,5.23022617466601111760007224100074e+0044_real128,2.03978820811974433586402817399028e+0046_real128,8.15915283247897734345611269596115e+0047_real128,3.34525266131638071081700620534407e+0049_real128,1.40500611775287989854314260624451e+0051_real128,6.04152630633738356373551320685139e+0052_real128,2.65827157478844876804362581101461e+0054_real128,1.19622220865480194561963161495657e+0056_real128,5.50262215981208894985030542880025e+0057_real128,2.58623241511168180642964355153611e+0059_real128,1.24139155925360726708622890473733e+0061_real128,6.08281864034267560872252163321295e+0062_real128,3.04140932017133780436126081660647e+0064_real128,1.55111875328738228022424301646930e+0066_real128,8.06581751709438785716606368564037e+0067_real128,4.27488328406002556429801375338939e+0069_real128,2.30843697339241380472092742683027e+0071_real128,1.26964033536582759259651008475665e+0073_real128,7.10998587804863451854045647463724e+0074_real128,4.05269195048772167556806019054323e+0076_real128,2.35056133128287857182947491051507e+0078_real128,1.38683118545689835737939019720389e+0080_real128,8.32098711274139014427634118322336e+0081_real128,5.07580213877224798800856812176625e+0083_real128,3.14699732603879375256531223549507e+0085_real128,1.98260831540444006411614670836189e+0087_real128,1.26886932185884164103433389335161e+0089_real128,8.24765059208247066672317030678549e+0090_real128,5.44344939077443064003729240247842e+0092_real128,3.64711109181886852882498590966054e+0094_real128,2.48003554243683059960099041856917e+0096_real128,1.71122452428141311372468338881272e+0098_real128,1.19785716699698917960727837216890e+0100_real128,8.50478588567862317521167644239926e+0101_real128,6.12344583768860868615240703852746e+0103_real128,4.47011546151268434089125713812505e+0105_real128,3.30788544151938641225953028221253e+0107_real128,2.48091408113953980919464771165940e+0109_real128,1.88549470166605025498793226086114e+0111_real128,1.45183092028285869634070784086308e+0113_real128,1.13242811782062978314575211587320e+0115_real128,8.94618213078297528685144171539831e+0116_real128,7.15694570462638022948115337231865e+0118_real128,5.79712602074736798587973423157810e+0120_real128,4.75364333701284174842138206989404e+0122_real128,3.94552396972065865118974711801206e+0124_real128,3.31424013456535326699938757913013e+0126_real128,2.81710411438055027694947944226061e+0128_real128,2.42270953836727323817655232034412e+0130_real128,2.10775729837952771721360051869938e+0132_real128,1.85482642257398439114796845645546e+0134_real128,1.65079551609084610812169192624536e+0136_real128,1.48571596448176149730952273362082e+0138_real128,1.35200152767840296255166568759495e+0140_real128,1.24384140546413072554753243258735e+0142_real128,1.15677250708164157475920516230624e+0144_real128,1.08736615665674308027365285256786e+0146_real128,1.03299784882390592625997020993947e+0148_real128,9.91677934870949689209571401541893e+0149_real128,9.61927596824821198533284259495636e+0151_real128,9.42689044888324774562618574305724e+0153_real128,9.33262154439441526816992388562667e+0155_real128,9.33262154439441526816992388562667e+0157_real128,9.42594775983835942085162312448293e+0159_real128,9.61446671503512660926865558697259e+0161_real128,9.90290071648618040754671525458177e+0163_real128,1.02990167451456276238485838647650e+0166_real128,1.08139675824029090050410130580032e+0168_real128,1.14628056373470835453434738414834e+0170_real128,1.22652020319613793935175170103873e+0172_real128,1.32464181945182897449989183712183e+0174_real128,1.44385958320249358220488210246279e+0176_real128,1.58824554152274294042537031270907e+0178_real128,1.76295255109024466387216104710707e+0180_real128,1.97450685722107402353682037275992e+0182_real128,2.23119274865981364659660702121871e+0184_real128,2.54355973347218755712013200418933e+0186_real128,2.92509369349301569068815180481773e+0188_real128,3.39310868445189820119825609358857e+0190_real128,3.96993716080872089540195962949863e+0192_real128,4.68452584975429065657431236280838e+0194_real128,5.57458576120760588132343171174197e+0196_real128,6.68950291344912705758811805409037e+0198_real128,8.09429852527344373968162284544935e+0200_real128,9.87504420083360136241157987144820e+0202_real128,1.21463043670253296757662432418812e+0205_real128,1.50614174151114087979501416199328e+0207_real128,1.88267717688892609974376770249160e+0209_real128,2.37217324288004688567714730513941e+0211_real128,3.01266001845765954480997707752705e+0213_real128,3.85620482362580421735677065923463e+0215_real128,4.97450422247728744039023415041268e+0217_real128,6.46685548922047367250730439553648e+0219_real128,8.47158069087882051098456875815279e+0221_real128,1.11824865119600430744996307607616e+0224_real128,1.48727070609068572890845089118130e+0226_real128,1.99294274616151887673732419418294e+0228_real128,2.69047270731805048359538766214698e+0230_real128,3.65904288195254865768972722051989e+0232_real128,5.01288874827499166103492629211225e+0234_real128,6.91778647261948849222819828311491e+0236_real128,9.61572319694108900419719561352972e+0238_real128,1.34620124757175246058760738589416e+0241_real128,1.89814375907617096942852641411076e+0243_real128,2.69536413788816277658850750803729e+0245_real128,3.85437071718007277052156573649332e+0247_real128,5.55029383273930478955105466055038e+0249_real128,8.04792605747199194484902925779806e+0251_real128,1.17499720439091082394795827163851e+0254_real128,1.72724589045463891120349865930862e+0256_real128,2.55632391787286558858117801577675e+0258_real128,3.80892263763056972698595524350736e+0260_real128,5.71338395644585459047893286526105e+0262_real128,8.62720977423324043162318862654419e+0264_real128,1.31133588568345254560672467123471e+0267_real128,2.00634390509568239477828874698911e+0269_real128,3.08976961384735088795856467036324e+0271_real128,4.78914290146339387633577523906302e+0273_real128,7.47106292628289444708380937293831e+0275_real128,1.17295687942641442819215807155131e+0278_real128,1.85327186949373479654360975305107e+0280_real128,2.94670227249503832650433950735121e+0282_real128,4.71472363599206132240694321176194e+0284_real128,7.59070505394721872907517857093672e+0286_real128,1.22969421873944943411017892849175e+0289_real128,2.00440157654530257759959165344155e+0291_real128,3.28721858553429622726333031164414e+0293_real128,5.42391066613158877498449501421284e+0295_real128,9.00369170577843736647426172359331e+0297_real128,1.50361651486499904020120170784008e+0300_real128,2.52607574497319838753801886917134e+0302_real128,4.26906800900470527493925188889956e+0304_real128,7.25741561530799896739672821112926e+0306_real128,1.24101807021766782342484052410310e+0309_real128,2.13455108077438865629072570145733e+0311_real128,3.69277336973969237538295546352119e+0313_real128,6.42542566334706473316634250652688e+0315_real128,1.12444949108573632830410993864220e+0318_real128,1.97903110431089593781523349201027e+0320_real128,3.50288505463028580993296328085819e+0322_real128,6.23513539724190874168067463992758e+0324_real128,1.11608923610630166476084076054703e+0327_real128,2.00896062499134299656951336898466e+0329_real128,3.63621873123433082379081919786224e+0331_real128,6.61791809084648209929929094010929e+0333_real128,1.21107901062490622417177024204000e+0336_real128,2.22838537954982745247605724535360e+0338_real128,4.12251295216718078708070590390416e+0340_real128,7.66787409103095626397011298126174e+0342_real128,1.43389245502278882136241112749594e+0345_real128,2.69571781544284298416133291969237e+0347_real128,5.09490667118697324006491921821859e+0349_real128,9.68032267525524915612334651461533e+0351_real128,1.84894163097375258881955918429152e+0354_real128,3.54996793146960497053355363383973e+0356_real128,6.85143810773633759312975851331068e+0358_real128,1.32917899290084949306717315158227e+0361_real128,2.59189903615665651148098764558543e+0363_real128,5.08012211086704676250273578534744e+0365_real128,1.00078405584080821221303894971344e+0368_real128,1.98155243056480026018181712043262e+0370_real128,3.94328933682395251776181606966092e+0372_real128,7.88657867364790503552363213932185e+0374_real128,1.58520231340322891214025006000369e+0377_real128,3.20210867307452240252330512120745e+0379_real128,6.50028060634128047712230939605113e+0381_real128,1.32605724369362121733295111679443e+0384_real128,2.71841734957192349553254978942858e+0386_real128,5.59993974011816240079705256622288e+0388_real128,1.15918752620445961696498988120813e+0391_real128,2.41111005450527600328717895291292e+0393_real128,5.03922001391602684687020401158801e+0395_real128,1.05823620292236563784274284243348e+0398_real128,2.23287838816619149584818739753465e+0400_real128,4.73370218291232597119815728277345e+0402_real128,1.00827856496032543186520750123074e+0405_real128,2.15771612901509642419154405263379e+0407_real128,4.63908967738245731201181971316266e+0409_real128,1.00204337031461077939455305804313e+0412_real128,2.17443411358270539128618013595360e+0414_real128,4.74026636761029775300387269637885e+0416_real128,1.03811833450665520790784812050696e+0419_real128,2.28386033591464145739726586511533e+0421_real128,5.04733134237135762084795756190488e+0423_real128,1.12050755800644139182824657874288e+0426_real128,2.49873185435436430377698987059663e+0428_real128,5.59715935375377604046045731013645e+0430_real128,1.25936085459459960910360289478070e+0433_real128,2.84615553138379511657414254220438e+0435_real128,6.46077305624121491462330357080396e+0437_real128,1.47305625682299700053411321414330e+0440_real128,3.37329882812466313122311926038816e+0442_real128,7.75858730468672520181317429889278e+0444_real128,1.79223366738263352161884326304423e+0447_real128,4.15798210832770977015571637026261e+0449_real128,9.68809831240356376446281914271190e+0451_real128,2.26701500510243392088429967939458e+0454_real128,5.32748526199071971407810424657727e+0456_real128,1.25728652182980985252243260219223e+0459_real128,2.97976905673664935047816526719560e+0461_real128,7.09185035503322545413803333592553e+0463_real128,1.69495223485294088353898996728620e+0466_real128,4.06788536364705812049357592148688e+0468_real128,9.80360372638941007038951797078339e+0470_real128,2.37247210178623723703426334892958e+0473_real128,5.76510720734055648599325993789888e+0475_real128,1.40668615859109578258235542484732e+0478_real128,3.44638108854818466732677079087595e+0480_real128,8.47809747782853428162385614555484e+0482_real128,2.09409007702364796756109246795204e+0485_real128,5.19334339101864695955150932052107e+0487_real128,1.29314250436364309292832582080974e+0490_real128,3.23285626090910773232081455202436e+0492_real128,8.11446921488186040812524452558116e+0494_real128,2.04484624215022882284756162044645e+0497_real128,5.17346099264007892180433089972952e+0499_real128,1.31405909213058004613830004853129e+0502_real128,3.35085068493297911765266512375481e+0504_real128,8.57817775342842654119082271681232e+0506_real128,2.20459168263110562108604143822076e+0509_real128,5.68784654118825250240198691060958e+0511_real128,1.47315225416775739812211460984788e+0514_real128,3.83019586083616923511749798560449e+0516_real128,9.99681119678240170365666974242772e+0518_real128,2.61916453355698924635804747251606e+0521_real128,6.88840272325488171792166485271724e+0523_real128,1.81853831893928877353131952111735e+0526_real128,4.81912654518911524985799673096098e+0528_real128,1.28188766102030465646222713043562e+0531_real128,3.42264005492421343275414643826311e+0533_real128,9.17267534719689199978111245454513e+0535_real128,2.46744966839596394794111925027264e+0538_real128,6.66211410466910265944102197573613e+0540_real128,1.80543292236532682070851695542449e+0543_real128,4.91077754883368895232716611875461e+0545_real128,1.34064227083159708398531635042001e+0548_real128,3.67335982207857601011976680015083e+0550_real128,1.01017395107160840278293587004147e+0553_real128,2.78808010495763919168090300131448e+0555_real128,7.72298189073266056095610131364111e+0557_real128,2.14698896562367963594579616519222e+0560_real128,5.99009921409006618428877130088631e+0562_real128,1.67722777994521853160085596424816e+0565_real128,4.71301006164606407379840525953735e+0567_real128,1.32906883738419006881115028318953e+0570_real128,3.76126480979725789473555530142638e+0572_real128,1.06819920598242124210489770560509e+0575_real128,3.04436773704990053999895846097451e+0577_real128,8.70689172796271554439702119838710e+0579_real128,2.49887792592529936124194508393710e+0582_real128,7.19676842666486216037680184173884e+0584_real128,2.07986607530614516434889573226252e+0587_real128,6.03161161838782097661179762356132e+0589_real128,1.75519898095085590419403310845634e+0592_real128,5.12518102437649924024657667669253e+0594_real128,1.50167804014231427739224696627091e+0597_real128,4.41493343801840397553320608083648e+0599_real128,1.30240536421542917278229579384676e+0602_real128,3.85511987807767035143559554978641e+0604_real128,1.14497060378906809437637187828656e+0607_real128,3.41201239929142292124158819729396e+0609_real128,1.02019170738813545345123487099089e+0612_real128,3.06057512216440636035370461297268e+0614_real128,9.21233111771486314466465088504778e+0616_real128,2.78212399754988866968872456728443e+0619_real128,8.42983571257616266915683543887182e+0621_real128,2.56267005662315345142367797341703e+0624_real128,7.81614367270061802684221781892195e+0626_real128,2.39173996384638911621371865259011e+0629_real128,7.34264168900841458677611626345166e+0631_real128,2.26153364021459169272704380914311e+0634_real128,6.98813894826308833052656537025221e+0636_real128,2.16632307396155738246323526477818e+0639_real128,6.73726476002044345946066167346016e+0641_real128,2.10202660512637835935172644211957e+0644_real128,6.57934327404556426477090376383425e+0646_real128,2.06591378805030717913806378184395e+0649_real128,6.50762843235846761428490091280846e+0651_real128,2.05641058462527576611402868844747e+0654_real128,6.51882155326212417858147094237849e+0656_real128,2.07298525393735548878890775967636e+0659_real128,6.61282296006016400923661575336759e+0661_real128,2.11610334721925248295571704107762e+0664_real128,6.79269174457380047028785170185919e+0666_real128,2.18724674175276375143268824799865e+0669_real128,7.06480697586142691712758304103567e+0671_real128,2.28899746017910232114933690529555e+0674_real128,7.43924174558208254373534494221056e+0676_real128,2.42519280905975890925772245116064e+0679_real128,7.93038048562541163327275241529530e+0681_real128,2.60116479928513501571346279221685e+0684_real128,8.55783218964809420169729258639346e+0686_real128,2.82408462258387108656010655350984e+0689_real128,9.34772010075261329651395269211758e+0691_real128,3.10344307344986761444263229378303e+0694_real128,1.03344654345880591560939655382975e+0697_real128,3.45171145515241175813538448979137e+0699_real128,1.15632333747605793897535380408010e+0702_real128,3.88524641391955467495718878170916e+0704_real128,1.30932804149088992546057261943598e+0707_real128,4.42552878023920794805673545369364e+0709_real128,1.50025425650109149439123331880214e+0712_real128,5.10086447210371108093019328392729e+0714_real128,1.73939478498736547859719590981920e+0717_real128,5.94873016465678993680241001158168e+0719_real128,2.04041444647727894832322663397251e+0722_real128,7.01902569588183958223189962086546e+0724_real128,2.42156386507923465587000536919858e+0727_real128,8.37861097317415190931021857742710e+0729_real128,2.90737800769143071253064584636720e+0732_real128,1.01176754667661788796066475453578e+0735_real128,3.53106873790139642898271999332989e+0737_real128,1.23587405826548875014395199766546e+0740_real128,4.33791794451186551300527151180578e+0742_real128,1.52694711646817666057785557215563e+0745_real128,5.39012332113266361183983016970939e+0747_real128,1.90810365568096291859129988007712e+0750_real128,6.77376797766741836099911457427379e+0752_real128,2.41146140004960093651568478844146e+0755_real128,8.60891719817707534336099469473604e+0757_real128,3.08199235694739297292323610071550e+0760_real128,1.10643525614411407727944176015686e+0763_real128,3.98316692211881067820599033656471e+0765_real128,1.43792325888489065483236251149986e+0768_real128,5.20528219716330417049315229162950e+0770_real128,1.88951743757027941388901428186151e+0773_real128,6.87784347275581706655601198597589e+0775_real128,2.51041286755587322929294437488120e+0778_real128,9.18811109525449601921217641206520e+0780_real128,3.37203677195840003905086874322792e+0783_real128,1.24090953208069121437071969750787e+0786_real128,4.57895617337775058102795568380406e+0788_real128,1.69421378414976771498034360300750e+0791_real128,6.28553313919563822257707476715784e+0793_real128,2.33821832778077741879867181338271e+0796_real128,8.72155436262229977211904586391754e+0798_real128,3.26186133162074011477252315310516e+0801_real128,1.22319799935777754303969618241443e+0804_real128,4.59922447758524356182925764587827e+0806_real128,1.73390762804963682280963013249611e+0809_real128,6.55417083402762719022040190083529e+0811_real128,2.48403074609647070509353232041657e+0814_real128,9.43931683516658867935542281758299e+0816_real128,3.59637971419847028683441609349912e+0819_real128,1.37381705082381564957074694771666e+0822_real128,5.26171930465521393785596080975482e+0824_real128,2.02050021298760215213668895094585e+0827_real128,7.77892582000226828572625246114153e+0829_real128,3.00266536652087555829033345000063e+0832_real128,1.16203149684357884105835904515024e+0835_real128,4.50868220775308590330643309518294e+0837_real128,1.75387737881595041638620247402616e+0840_real128,6.84012177738220662390618964870204e+0842_real128,2.67448761495644278994732015264250e+0845_real128,1.04839914506292557365934949983586e+0848_real128,4.12020864009729750448124353435493e+0850_real128,1.62336220419833521676560995253584e+0853_real128,6.41228070658342410622415931251658e+0855_real128,2.53926315980703594606476708775656e+0858_real128,1.00808747444339327058771253383935e+0861_real128,4.01218814828470521693909588468063e+0863_real128,1.60086307116559738155869925798757e+0866_real128,6.40345228466238952623479703195030e+0868_real128,2.56778436614961820002015360981207e+0871_real128,1.03224931519214651640810175114445e+0874_real128,4.15996474022435046112465005711214e+0876_real128,1.68062575505063758629435862307330e+0879_real128,6.80653430795508222449215242344688e+0881_real128,2.76345292902976338314381388391943e+0884_real128,1.12472534211511369693953225075521e+0887_real128,4.58887939582966388351329158308125e+0889_real128,1.87685167289433252835693625748023e+0892_real128,7.69509185886676336626343865566896e+0894_real128,3.16268275399423974353427328747994e+0897_real128,1.30302529464562677433612059444173e+0900_real128,5.38149446688643857800817805504437e+0902_real128,2.22793870929098557129538571478837e+0905_real128,9.24594564355759012087585071637173e+0907_real128,3.84631338771995749028435389801064e+0910_real128,1.60391268267922227344857557547043e+0913_real128,6.70435501359914910301504590546643e+0915_real128,2.80912475069804347416330423439043e+0918_real128,1.17983239529317825914858777844398e+0921_real128,4.96709438418428047101555454724916e+0923_real128,2.09611383012576635876856401893914e+0926_real128,8.86656150143199169759102580011259e+0928_real128,3.75942207660716447977859493924774e+0931_real128,1.59775438255804490390590284918029e+0934_real128,6.80643366969727129063914613750803e+0936_real128,2.90634717696073484110291540071593e+0939_real128,1.24391659173919451199204779150641e+0942_real128,5.33640217856114445644588502556253e+0944_real128,2.29465293678129211627173056099189e+0947_real128,9.88995415752736902113115871787504e+0949_real128,4.27246019605182341712866056612202e+0952_real128,1.84997526489043953961671002513083e+0955_real128,8.02889264962450760193652150906782e+0957_real128,3.49256830258666080684238685644450e+0960_real128,1.52275977992778411178328066940980e+0963_real128,6.65446023828441656849293652532084e+0965_real128,2.91465358436857445699990619809052e+0968_real128,1.27953292353780418662295882096174e+0971_real128,5.62994486356633842114101881223166e+0973_real128,2.48280568483275524372318929619416e+0976_real128,1.09740011269607781772564966891782e+0979_real128,4.86148249924362473252462803330594e+0981_real128,2.15849822966416938124093484678783e+0984_real128,9.60531712200555374652216006820588e+0986_real128,4.28397143641447697094888339041982e+0989_real128,1.91493523207727120601415087551766e+0992_real128,8.57890983970617500294339592231912e+0994_real128,3.85193051802807257632158476912128e+0997_real128,1.73336873311263265934471314610457e+1000_real128,7.81749298633797329364465628893165e+1002_real128,3.53350682982476392872738464259710e+1005_real128,1.60067859391061805971350524309648e+1008_real128,7.26708081635420599109931380365806e+1010_real128,3.30652177144116372595018778066441e+1013_real128,1.50777392777717065903328562798297e+1016_real128,6.89052684994166991178211531988219e+1018_real128,3.15586129727328481959620881650604e+1021_real128,1.44854033544843773219465984677627e+1024_real128,6.66328554306281356809543529517086e+1026_real128,3.07177463535195705489199567107376e+1029_real128,1.41915988153260415936010200003608e+1032_real128,6.57071025149595725783727226016705e+1034_real128,3.04880955669412416763649432871751e+1037_real128,1.41769644386276773795096986285364e+1040_real128,6.60646542840049765885151956089797e+1042_real128,3.08521935506303240668365963493935e+1045_real128,1.44388265816949916632795270915161e+1048_real128,6.77180966681495109007809820592109e+1050_real128,3.18275054340302701233670615678291e+1053_real128,1.49907550594282572281058859984475e+1056_real128,7.07563638805013741166597819126723e+1058_real128,3.34677601154771499571800768446940e+1061_real128,1.58637182947361690797033564243849e+1064_real128,7.53526618999968031285909430158285e+1066_real128,3.58678670643984782892092888755343e+1069_real128,1.71089725897180741439528307936299e+1072_real128,8.17808889788523944080945311935509e+1074_real128,3.91730458208702969214772804417108e+1077_real128,1.88030619940177425223090946120212e+1080_real128,9.04427281912253415323067450838221e+1082_real128,4.35933949881706146185718511304022e+1085_real128,2.10556097792864068607702040959842e+1088_real128,1.01909151331746209206127787824563e+1091_real128,4.94259383958969114649719770949135e+1093_real128,2.40210060604058989719763808681279e+1096_real128,1.16982299514176727993524974827783e+1099_real128,5.70873621629182432608401877159582e+1101_real128,2.79157200976670209545508517931035e+1104_real128,1.36787028478568402677299173786207e+1107_real128,6.71624309829770857145538943290278e+1109_real128,3.30439160436247261715605160098817e+1112_real128,1.62906506095069900025793343928716e+1115_real128,8.04758140109645306127419119007861e+1117_real128,3.98355279354274426533072463908891e+1120_real128,1.97584218559720115560403942098810e+1123_real128,9.81993566241808974335207592231086e+1125_real128,4.89032795988420869218933380931080e+1128_real128,2.44027365198222013740247757084609e+1131_real128,1.22013682599111006870123878542304e+1134_real128,6.11288549821546144419320631496946e+1136_real128,3.06866852010416164498498957011467e+1139_real128,1.54354026561239330742744975376767e+1142_real128,7.77944293868646226943434675898910e+1144_real128,3.92861868403666344606434511328949e+1147_real128,1.98788105412255170370855862732448e+1150_real128,1.00785569444013371378023922405351e+1153_real128,5.11990692775587926600361525819185e+1155_real128,2.60603262622774254639584016641965e+1158_real128,1.32907663937614869866187848487402e+1161_real128,6.79158162721211985016219905770625e+1163_real128,3.47728979313260536328304591754560e+1166_real128,1.78384966387702655136420255570089e+1169_real128,9.16898727232791647401200113630260e+1171_real128,4.72202844524887698411618058519583e+1174_real128,2.43656667774842052380394918196105e+1177_real128,1.25970497239593341080664172707386e+1180_real128,6.52527175701093506797840414624261e+1182_real128,3.38661604188867530028079175189991e+1185_real128,1.76104034178211115614601171098795e+1188_real128,9.17502018068479912352072101424726e+1190_real128,4.78936053431746514247781636943706e+1193_real128,2.50483555944803426951589796121558e+1196_real128,1.31253383315076995722633053167696e+1199_real128,6.89080262404154227543823529130408e+1201_real128,3.62456218024585123688051176322594e+1204_real128,1.91014426898956360183602969922007e+1207_real128,1.00855617402648958176942368118819e+1210_real128,5.33526216060012988756025127348557e+1212_real128,2.82768894511806884040693317494735e+1215_real128,1.50150282985769455425608151589704e+1218_real128,7.98799505484293502864235366457227e+1220_real128,4.25760136423128437026637450321702e+1223_real128,2.27355912849950585372224398471789e+1226_real128,1.21635413374723563174140053182407e+1229_real128,6.51965815688518298613390685057702e+1231_real128,3.50105643024734326355390797875986e+1234_real128,1.88356835947307067579200249257280e+1237_real128,1.01524334575598509425188934349674e+1240_real128,5.48231406708231950896020245488240e+1242_real128,2.96593191029153485434746952809138e+1245_real128,1.60753509537801189105632848422552e+1248_real128,8.72891556790260456843586366934462e+1250_real128,4.74853006893901688522910983612347e+1253_real128,2.58794888757176420244986486068729e+1256_real128,1.41302009261418325453762621393526e+1259_real128,7.72921990659958240232081539022588e+1261_real128,4.23561250881657115647180683384378e+1264_real128,2.32535126734029756490302195178023e+1267_real128,1.27894319703716366069666207347913e+1270_real128,7.04697701567477177043860802487001e+1272_real128,3.88993131265247401728211162972824e+1275_real128,2.15113201589681813155700773123972e+1278_real128,1.19172713680683724488258228310680e+1281_real128,6.61408560927794670909833167124276e+1283_real128,3.67743159875853837025867240921098e+1286_real128,2.04832940050850587223408053193051e+1289_real128,1.14296780548374627670661693681722e+1292_real128,6.38919003265414168678998867680830e+1294_real128,3.57794641828631934460239365901265e+1297_real128,2.00722794065862515232194284270609e+1300_real128,1.12806210265014733560493187760082e+1303_real128,6.35098963792032949945576647089265e+1305_real128,3.58195815578706583769305228958345e+1308_real128,2.02380635801969219829657454361465e+1311_real128,1.14547439863914578423586119168589e+1314_real128,6.49483984028395659661733295685901e+1316_real128,3.68906902928128734687864511949592e+1319_real128,2.09908027766105250037394907299317e+1322_real128,1.19647575826679992521315097160611e+1325_real128,6.83187657970342757296709204787089e+1327_real128,3.90783340359036057173717665138215e+1330_real128,2.23918854025727660760540222124197e+1333_real128,1.28529422210767677276550087499289e+1336_real128,7.39044177711914144340163003120913e+1338_real128,4.25689446362062547139933889797646e+1341_real128,2.45622810550910089699741854413241e+1344_real128,1.41969984498426031846450791850853e+1347_real128,8.22006210245886724390950084816443e+1349_real128,4.76763601942614300146751049193537e+1352_real128,2.76999652728658908385262359581445e+1355_real128,1.61213797888079484680222693276401e+1358_real128,9.39876441687503395685698301801418e+1360_real128,5.48887841945501983080447808252028e+1363_real128,3.21099387538118660102061967827436e+1366_real128,1.88164241097337534819808313146877e+1369_real128,1.10452409524137132939227479817217e+1372_real128,6.49460168001926341682657581325237e+1374_real128,3.82532038953134615251085315400564e+1377_real128,2.25693902982349422998140336086333e+1380_real128,1.33385096662568508991900938627022e+1383_real128,7.89639772242405573232053556671976e+1385_real128,4.68256384939746504926607759106481e+1388_real128,2.78144292654209423926405008909250e+1391_real128,1.65495854129254607236210980301003e+1394_real128,9.86355290610357459127817442593983e+1396_real128,5.88854108494383403099307013228607e+1399_real128,3.52134756879641275053385593910707e+1402_real128,2.10928719370905123756977970752513e+1405_real128,1.26557231622543074254186782451508e+1408_real128,7.60608962051483876267662562533564e+1410_real128,4.57886595154993293513132862645206e+1413_real128,2.76105616878460955988419116175059e+1416_real128,1.66767792594590417417005146169735e+1419_real128,1.00894514519727202537288113432690e+1422_real128,6.11420757989546847375965967402102e+1424_real128,3.71132400099654936357211342213076e+1427_real128,2.25648499260590201305184496065550e+1430_real128,1.37419936049699432594857358103920e+1433_real128,8.38261609903166538828629884433912e+1435_real128,5.12177843650834755224292859389120e+1438_real128,3.13452840314310870197267229946141e+1441_real128,1.92146591112672563430924811956984e+1444_real128,1.17978006943180953946587834541588e+1447_real128,7.25564742700562866771515182430770e+1449_real128,4.46947881503546725931253352377354e+1452_real128,2.75766842887688329899583318416827e+1455_real128,1.70423908904591387877942490781599e+1458_real128,1.05492399611942069096446401793810e+1461_real128,6.54052877594040828397967691121623e+1463_real128,4.06166836985899354435137936186528e+1466_real128,2.52635772605229398458655796308020e+1469_real128,1.57392086333057915239742561099896e+1472_real128,9.82126618718281391095993581263355e+1474_real128,6.13829136698925869434995988289597e+1477_real128,3.84257039573527594266307488669287e+1480_real128,2.40929163812601801604974795395643e+1483_real128,1.51303514874313931407924171508464e+1486_real128,9.51699108559434628555843038788239e+1488_real128,5.99570438392443815990181114436590e+1491_real128,3.78328946625632047889804283209488e+1494_real128,2.39103894267399454266356306988396e+1497_real128,1.51352765071263854550603542323655e+1500_real128,9.59576530551812837850826458331974e+1502_real128,6.09331096900401152035274801040803e+1505_real128,3.87534577628655132694434773461951e+1508_real128,2.46859525949453319526354950695262e+1511_real128,1.57496377555751217857814458543577e+1514_real128,1.00640185258125028211143439009346e+1517_real128,6.44097185652000180551318009659815e+1519_real128,4.12866296002932115733394844191941e+1522_real128,2.65060162033882418300839489971226e+1525_real128,1.70433684187786394967439792051498e+1528_real128,1.09759292616934438359031226081165e+1531_real128,7.07947437379227127415751408223515e+1533_real128,4.57334044546980724310575409712390e+1536_real128,2.95895126821896528628942290083916e+1539_real128,1.91740042180588950551554603974378e+1542_real128,1.24439287375202228907958937979371e+1545_real128,8.08855367938814487901733096865914e+1547_real128,5.26564844528168231624028246059710e+1550_real128,3.43320278632365687018866416430930e+1553_real128,2.24188141946934793623319769929397e+1556_real128,1.46619044833295355029651129533826e+1559_real128,9.60354743658084575444214898446561e+1561_real128,6.29992711839703481491404973380944e+1564_real128,4.13905211678685187339853067511280e+1567_real128,2.72349629284574853269623318422422e+1570_real128,1.79478405698534828304681766840376e+1573_real128,1.18455747761032986681089966114648e+1576_real128,7.82992492700428041962004676017826e+1578_real128,5.18341030167683363778847095523801e+1581_real128,3.43660103001174070185375624332280e+1584_real128,2.28190308392779582603089414556634e+1587_real128,1.51746555081198422431054460680161e+1590_real128,1.01063205684078149339082270812987e+1593_real128,6.74091581912801256091678746322627e+1595_real128,4.50293176717751239069241402543515e+1598_real128,3.01246135224175578937322498301611e+1601_real128,2.01834910600197637888006073862079e+1604_real128,1.35431225012732615022852075561455e+1607_real128,9.10097832085563172953565947772981e+1609_real128,6.12495840993584015397749882851216e+1612_real128,4.12822196829675626378083421041719e+1615_real128,2.78654982860031047805206309203160e+1618_real128,1.88370768413380988316319465021336e+1621_real128,1.27527010215858929090148277819445e+1624_real128,8.64633129263523539231205323615837e+1626_real128,5.87085894769932483137988414735153e+1629_real128,3.99218408443554088533832122019904e+1632_real128,2.71867736150060334291539675095554e+1635_real128,1.85413796054341147986830058415168e+1638_real128,1.26637622705115004075004929897560e+1641_real128,8.66201339302986627873033720499310e+1643_real128,5.93347917422545840093028098542027e+1646_real128,4.07036671351866446303817275599831e+1649_real128,2.79634193218732248610722468337083e+1652_real128,1.92388324934487787044177058215913e+1655_real128,1.32555555879862085273437993110764e+1658_real128,9.14633335571048388386722152464275e+1660_real128,6.32011634879594436375225007352814e+1663_real128,4.37352051336679349971655705088147e+1666_real128,3.03084971576318789530357403626086e+1669_real128,2.10340970273965239934068038116503e+1672_real128,1.46186974340405841754177286490970e+1675_real128,1.01746134140922465860907391397715e+1678_real128,7.09170554962229587050524518042075e+1680_real128,4.95001047363636251761266113593368e+1683_real128,3.46005732107181739981125013401764e+1686_real128,2.42204012475027217986787509381235e+1689_real128,1.69785012744994079808738044076245e+1692_real128,1.19189078946985844025734106941524e+1695_real128,8.37899224997310483500910771798918e+1697_real128,5.89881054398106580384641183346438e+1700_real128,4.15866143350665139171172034259239e+1703_real128,2.93601497205569588254847456187022e+1706_real128,2.07576258524337698896177151524225e+1709_real128,1.46963991035231090818493423279151e+1712_real128,1.04197469643978843390311837104918e+1715_real128,7.39802034472249788071214043444919e+1717_real128,5.25999246509769599318633184889338e+1720_real128,3.74511463514955954714866827641208e+1723_real128,2.67026673486163595711700048108181e+1726_real128,1.90657044869120807338153834349241e+1729_real128,1.36319787081421377246779991559707e+1732_real128,9.76049675502977061086944739567508e+1734_real128,6.99827617335634552799339378269903e+1737_real128,5.02476229246985608909925673597790e+1740_real128,3.61280408828582652806236559316811e+1743_real128,2.60121894356579510020490322708104e+1746_real128,1.87547885831093826724773522672543e+1749_real128,1.35409573570049742895286483369576e+1752_real128,9.79011216911459641132921274762036e+1754_real128,7.08804121043896780180235002927714e+1757_real128,5.13882987756825165630670377122592e+1760_real128,3.73079049111455070247866693791002e+1763_real128,2.71228468704027836070199086386058e+1766_real128,1.97454325216532264659104934889050e+1769_real128,1.43944203082852020936487497534117e+1772_real128,1.05079268250481975283635873199906e+1775_real128,7.68129450911023239323378233091313e+1777_real128,5.62270758066869011184712866622841e+1780_real128,4.12144465663014985198394531234542e+1783_real128,3.02514037796652999135621585926154e+1786_real128,2.22347817780539954364681865655723e+1789_real128,1.63647993886477406412405853122612e+1792_real128,1.20608571494333848525943113751365e+1795_real128,8.90091257628183802121460179485077e+1797_real128,6.57777439387227829767759072639471e+1800_real128,4.86755305146548594028141713753209e+1803_real128,3.60685681113592508174853009891128e+1806_real128,2.67628775386285641065740933339217e+1809_real128,1.98848180112010231311845513471038e+1812_real128,1.47943046003335612096013062022452e+1815_real128,1.10217569272485031011529731206727e+1818_real128,8.22223066772738331346011794802183e+1820_real128,6.14200630879235533515470810717231e+1823_real128,4.59422071897668179069572166416489e+1826_real128,3.44107131851353466123109552645950e+1829_real128,2.58080348888515099592332164484462e+1832_real128,1.93818342015274839793841455527831e+1835_real128,1.45751393195486679524968774556929e+1838_real128,1.09750799076201469682301487241367e+1841_real128,8.27521025034559081404553213799912e+1843_real128,6.24778373901092106460437676418934e+1846_real128,4.72332450669225632484090883372714e+1849_real128,3.57555665156603803790456798713144e+1852_real128,2.71027194188705683273166253424563e+1855_real128,2.05709640389227613604333186349243e+1858_real128,1.56339326695812986339293221625425e+1861_real128,1.18974227615513682604202141656948e+1864_real128,9.06583614430214261444020319425948e+1866_real128,6.91723297810253481481787503721999e+1869_real128,5.28476599527033659852085652843607e+1872_real128,4.04284598638180749786845524425359e+1875_real128,3.09682002556846454336723671709825e+1878_real128,2.37526095961101230476267056201436e+1881_real128,1.82420041698125745005773099162702e+1884_real128,1.40281012065858697909439513256118e+1887_real128,1.08016379290711197390268425207211e+1890_real128,8.32806284331383331878969558347599e+1892_real128,6.42926451503827932210564499044346e+1895_real128,4.96982147012458991598766357761279e+1898_real128,3.84664181787643259497445160907230e+1901_real128,2.98114740885423526110519999703103e+1904_real128,2.31337038927088656261763519769608e+1907_real128,1.79748879246347885915390254860985e+1910_real128,1.39844628053658655242173618281846e+1913_real128,1.08938965253800092433653248641558e+1916_real128,8.49723928979640720982495339404158e+1918_real128,6.63634388533099403087328860074647e+1921_real128,5.18962091832883733214291168578374e+1924_real128,4.06347317905147963106789984996867e+1927_real128,3.18576297237636003075723348237543e+1930_real128,2.50082393331544262414442828366471e+1933_real128,1.96564761158593790257752063096046e+1936_real128,1.54696467031813312932850873656588e+1939_real128,1.21900816021068890591086488441392e+1942_real128,9.61797438406233546763672393802583e+1944_real128,7.59819976340924501943301191104041e+1947_real128,6.01017601285671281037151242163296e+1950_real128,4.76005940218251654581423783793330e+1953_real128,3.77472710593073562083069060548111e+1956_real128,2.99713332210900408293956834075200e+1959_real128,2.38272099107665824593695683089784e+1962_real128,1.89664590889701996376581763739468e+1965_real128,1.51162678939092491112135665700356e+1968_real128,1.20627817793395807907484261228884e+1971_real128,9.63816264169232505180799247218785e+1973_real128,7.71053011335386004144639397775028e+1976_real128,6.17613462079644189319856157617797e+1979_real128,4.95325996587874639834524638409473e+1982_real128,3.97746775260063335787123284642807e+1985_real128,3.19788407309090921972847120852817e+1988_real128,2.57429667883818192188141932286517e+1991_real128,2.07488312314357462903642397422933e+1994_real128,1.67443068037686472563239414720307e+1997_real128,1.35293998974450669831097447094008e+2000_real128,1.09452845170330591893357834699052e+2003_real128,8.86568045879677794336198461062326e+2005_real128,7.19006685208418691206656951921546e+2008_real128,5.83833428389235977259805444960296e+2011_real128,4.74656577280448849512221826752720e+2014_real128,3.86370453906285363502948566976714e+2017_real128,3.14891919933622571254903082086022e+2020_real128,2.56951806665836018144000914982194e+2023_real128,2.09929626045988026823648747540452e+2026_real128,1.71722434105618205941744675488090e+2029_real128,1.40640673532501310666288889224745e+2032_real128,1.15325352296651074746356889164291e+2035_real128,9.46821142355505323667590060038835e+2037_real128,7.78286979016225376054759029351922e+2040_real128,6.40530183730353484493066681156632e+2043_real128,5.27796871393811271222286945273064e+2046_real128,4.35432418899894298758386729850278e+2049_real128,3.59667178011312690774427438856330e+2052_real128,2.97444756215355595270451491934184e+2055_real128,2.46284258146314432883933835321505e+2058_real128,2.04169650003294664860781149481527e+2061_real128,1.69460809502734571834448354069668e+2064_real128,1.40821932696772429194426582231894e+2067_real128,1.17163848003714661089762916416935e+2070_real128,9.75974853870943126877725093753076e+2072_real128,8.13963028128366567816022728190065e+2075_real128,6.79659128487186084126378978038704e+2078_real128,5.68195031415287566329652825640357e+2081_real128,4.75579241294595693017919415060978e+2084_real128,3.98535404204871190749016469821100e+2087_real128,3.34371204127886929038424818179903e+2090_real128,2.80871811467425020392276847271118e+2093_real128,2.36213193444104442149904828555010e+2096_real128,1.98891508879935940290219865643319e+2099_real128,1.67665541985785997664655346737318e+2102_real128,1.41509717436003382028969112646296e+2105_real128,1.19575711233422857814478900186120e+2108_real128,1.01161051703475737711049149557457e+2111_real128,8.56834107928439498412586296751668e+2113_real128,7.26595323523316694653873179645414e+2116_real128,6.16879429671295873761138329518957e+2119_real128,5.24347515220601492696967580091113e+2122_real128,4.46219735452731870285119410657537e+2125_real128,3.80179214605727553482921737880222e+2128_real128,3.24292870058685603120932242411829e+2131_real128,2.76946111030117505065276135019702e+2134_real128,2.36788924930750466830811095441845e+2137_real128,2.02691319740722399607174297698219e+2140_real128,1.73706461017799096463348373127374e+2143_real128,1.49040143553271624765552904143287e+2146_real128,1.28025483312260325673609944659083e+2149_real128,1.10101915648543880079304552406811e+2152_real128,9.47977493733962807482812196222651e+2154_real128,8.17156599598675940050184113143925e+2157_real128,7.05206145453657336263308889643207e+2160_real128,6.09298109671959938531498880651731e+2163_real128,5.27042864866245346829746531763747e+2166_real128,4.56419120974168470354560496507405e+2169_real128,3.95715377884604063797403950471920e+2172_real128,3.43480948003836327376146629009626e+2175_real128,2.98484943815333768489871420609365e+2178_real128,2.59681901119340378586188135930148e+2181_real128,2.26182935874945469748569866395159e+2184_real128,1.97231520082952449620752923496578e+2187_real128,1.72183117032417488518917302212513e+2190_real128,1.50488044286332884965533722133736e+2193_real128,1.31677038750541274344842006867019e+2196_real128,1.15349085945474156326081598015509e+2199_real128,1.01161148374180835097973561459601e+2202_real128,8.88194882725307732160207869615301e+2204_real128,7.80723301915545496568822717391849e+2207_real128,6.87036505685680036980563991304827e+2210_real128,6.05279161509084112579876876339553e+2213_real128,5.33856220451012187295451404931485e+2216_real128,4.71395042658243761381883590554502e+2219_real128,4.16713217709887485061585094050179e+2222_real128,3.68791197673250424279502808234409e+2225_real128,3.26749001138499875911639488095686e+2228_real128,2.89826364009849389933624225940873e+2231_real128,2.57365811240746258261058312635496e+2234_real128,2.28798206193023423594080839932955e+2237_real128,2.03630403511790846998731947540330e+2240_real128,1.81434689529005644675870165258434e+2243_real128,1.61839743059873035050876187410523e+2246_real128,1.44522890552466620300432435357597e+2249_real128,1.29203464153905158548586597209692e+2252_real128,1.15637100417745116900985004502674e+2255_real128,1.03610841974299624743282564034396e+2258_real128,9.29389252509467633947244599388536e+2260_real128,8.34591548753501935284625650250906e+2263_real128,7.50297802329398239820878459575564e+2266_real128,6.75268022096458415838790613618008e+2269_real128,6.08416487908909032670750342869825e+2272_real128,5.48791672093835947469016809268582e+2275_real128,4.95558879900733860564522178769529e+2278_real128,4.47985227430263409950328049607655e+2281_real128,4.05426630824388386005046884894927e+2284_real128,3.67316527526895877720572477714804e+2287_real128,3.33156090466894561092559237287327e+2290_real128,3.02505730143940261472043787456893e+2293_real128,2.74977708700841697678087802798316e+2296_real128,2.50229714917765944887059900546467e+2299_real128,2.27959270290084775792111569397832e+2302_real128,2.07898854504557315522405751290822e+2305_real128,1.89811654162660829071956450928521e+2308_real128,1.73487851904671997771768196148668e+2311_real128,1.58741384492774877961167899476031e+2314_real128,1.45407108195381788212429795920045e+2317_real128,1.33338318215165099790798122858681e+2320_real128,1.22404576121521561607952676784269e+2323_real128,1.12489805455678315117708509964743e+2326_real128,1.03490621019224049908291829167564e+2329_real128,9.53148619587053499655367746633265e+2331_real128,8.78803027259263326682249062395870e+2334_real128,8.11135194160300050527715884591388e+2337_real128,7.49488919404117246687609477362443e+2340_real128,6.93277250448808453186038766560260e+2343_real128,6.41974733915596627650271897834800e+2346_real128,5.95110578339758073831802049292860e+2349_real128,5.52262616699295492515912301743774e+2352_real128,5.13051970913645512547282528319966e+2355_real128,4.77138332949690326668972751337568e+2358_real128,4.44215787976161694128813631495276e+2361_real128,4.14009114393782698928054304553597e+2364_real128,3.86270503729399258099874666148506e+2367_real128,3.60776650483258907065282938182705e+2370_real128,3.37326168201847078106039547200829e+2373_real128,3.15737293436928865107253016179976e+2376_real128,2.95845843950402346605496076160637e+2379_real128,2.77503401625477401115955319438678e+2382_real128,2.60575694126323279647882044952918e+2385_real128,2.44941152478743882869009122255743e+2388_real128,2.30489624482497993779737584042654e+2391_real128,2.17121226262513110140512804168180e+2394_real128,2.04745316365549862862503574330594e+2397_real128,1.93279578649079070542203374168081e+2400_real128,1.82649201823379721662382188588836e+2403_real128,1.72786144924917216692613550405039e+2406_real128,1.63628479243896604207905032233572e+2409_real128,1.55119798323213980789093970557426e+2412_real128,1.47208688608730067768850178058997e+2415_real128,1.39848254178293564380407669156048e+2418_real128,1.32995689723557179725767693367401e+2421_real128,1.26611896616826435098930844085766e+2424_real128,1.20661137475835592649281094413735e+2427_real128,1.15110725151947155387414164070703e+2430_real128,1.09930742520109533394980526687521e+2433_real128,1.05093789849224713925601383513270e+2436_real128,1.00574756885708051226800524022200e+2439_real128,9.63506170965083130752749020132679e+2441_real128,9.24002417955514722391886310307239e+2444_real128,8.87042321237294133496210857894949e+2447_real128,8.52447670709039662289858634437046e+2450_real128,8.20054659222096155122844006328438e+2453_real128,7.89712636830878597383298778094286e+2456_real128,7.61282981904966967877500022082892e+2459_real128,7.34638077538293124001787521309991e+2462_real128,7.09660382901991157785726745585451e+2465_real128,6.86241590266225449578797762981131e+2468_real128,6.64281859377706235192276234565735e+2471_real128,6.43689121736997341901315671294197e+2474_real128,6.24378448084887421644276201155371e+2477_real128,6.06271473090425686416592191321865e+2480_real128,5.89295871843893767196927609964853e+2483_real128,5.73384883304108635482610564495802e+2486_real128,5.58476876338201810960062689818911e+2489_real128,5.44514954429746765686061122573438e+2492_real128,5.31446595523432843309595655631676e+2495_real128,5.19223323826393887913474955552147e+2498_real128,5.07800410702213222379378506530000e+2501_real128,4.97136602077466744709411557892870e+2504_real128,4.87193870035917409815223326735013e+2507_real128,4.77937186505234979028734083527047e+2510_real128,4.69334317148140749406216870023560e+2513_real128,4.61355633756622356666311183233160e+2516_real128,4.53973943616516398959650204301429e+2519_real128,4.47164334462268652975255451236908e+2522_real128,4.40904033779796891833601874919591e+2525_real128,4.35172281340659532239765050545636e+2528_real128,4.29950213964571617852887869939089e+2531_real128,4.25220761610961330056506103369759e+2534_real128,4.20968553994851716755941042336061e+2537_real128,4.17179837008898051305137572955037e+2540_real128,4.13842398312826866894696472371396e+2543_real128,4.10945501524637078826433597064797e+2546_real128,4.08479828515489256353474995482408e+2549_real128,4.06437429372911810071707620504996e+2552_real128,4.04811679655420162831420790022976e+2555_real128,4.03597244616453902342926527652907e+2558_real128,4.02790050127220994538240674597601e+2561_real128,4.02387260077093773543702433923003e+2564_real128,4.02387260077093773543702433923003e+2567_real128,4.02789647337170867317246136356926e+2570_real128,4.03595226631845209051880628629640e+2573_real128,4.04806012311740744679036270515529e+2576_real128,4.06425236360987707657752415597591e+2579_real128,4.08457362542792646196041177675579e+2582_real128,4.10908106718049402073217424741633e+2585_real128,4.13784463465075747887729946714824e+2588_real128,4.17094739172796353870831786288543e+2591_real128,4.20848591825351521055669272365140e+2594_real128,4.25057077743605036266225965088791e+2597_real128,4.29732705598784691665154450704768e+2600_real128,4.34889498065970107965136304113225e+2603_real128,4.40543061540827719368683076066697e+2606_real128,4.46710664402399307439844639131631e+2609_real128,4.53411324368435297051442308718605e+2612_real128,4.60665905558330261804265385658103e+2615_real128,4.68497225952821876254937897214291e+2618_real128,4.76930176019972670027526779364148e+2621_real128,4.85991849364352150758049788172067e+2624_real128,4.95711686351639193773210783935508e+2627_real128,5.06121631765023616842448210398154e+2630_real128,5.17256307663854136412982071026913e+2633_real128,5.29153202740122781550480658660532e+2636_real128,5.41852879605885728307692194468385e+2639_real128,5.55399201596032871515384499330095e+2642_real128,5.69839580837529726174784496312677e+2645_real128,5.85225249520143028781503677713119e+2648_real128,6.01611556506707033587385780689087e+2651_real128,6.19058291645401537561419968329070e+2654_real128,6.37630040394763583688262567378942e+2657_real128,6.57396571647001254782598706967690e+2660_real128,6.78433261939705294935641865590656e+2663_real128,7.00821559583715569668518047155147e+2666_real128,7.24649492609561899037247660758422e+2669_real128,7.50012224850896565503551328884967e+2672_real128,7.77012664945528841861679176724826e+2675_real128,8.05762133548513409010561306263645e+2678_real128,8.36381094623356918552962635901663e+2681_real128,8.68999957313667838376528178701828e+2684_real128,9.03759955606214551911589305849901e+2687_real128,9.40814113786069348539964467389747e+2690_real128,9.80328306565084261178642975020117e+2693_real128,1.02248242374738288440932462294598e+2697_real128,1.06747165039226773132333490635560e+2700_real128,1.11550787465991977923288497714160e+2703_real128,1.16682123689427608907759768609012e+2706_real128,1.22166183502830706526424477733635e+2709_real128,1.28030160310966580439692852664850e+2712_real128,1.34303638166203942881237802445427e+2715_real128,1.41018820074514140025299692567699e+2718_real128,1.48210779898314361166589976888651e+2721_real128,1.55917740453026707947252655686861e+2724_real128,1.64181380697037123468457046438265e+2727_real128,1.73047175254677128135753726945931e+2730_real128,1.82564769893684370183220181927958e+2733_real128,1.92788397007730694913480512115923e+2736_real128,2.03777335637171344523548901306531e+2739_real128,2.15596421104127282505914737582310e+2742_real128,2.28316609949270792173763707099666e+2745_real128,2.42015606546227039704189529525646e+2748_real128,2.56778558545546889126145090826710e+2751_real128,2.72698829175370796251966086457967e+2754_real128,2.89878855413419156415839949904818e+2757_real128,3.08431102159877982426453706698727e+2760_real128,3.28479123800270051284173197634144e+2763_real128,3.50158745971087874668928628677998e+2766_real128,3.73619381951150762271746846799424e+2769_real128,3.99025499923829014106225632381784e+2772_real128,4.26558259418573216079555201016128e+2775_real128,4.56417337577873341205124065087257e+2778_real128,4.88822968545902348430687873708452e+2781_real128,5.24018222281207317517697400615460e+2784_real128,5.62271552507735451696489310860389e+2787_real128,6.03879647393307875122029519864058e+2790_real128,6.49170620947805965756181733853862e+2793_real128,6.98507588139839219153651545626756e+2796_real128,7.52292672426606839028482714640016e+2799_real128,8.10971500875882172472704366381937e+2802_real128,8.75038249445076864098048011326110e+2805_real128,9.45041309400683013225891852232199e+2808_real128,1.02158965546213833729718909226300e+2812_real128,1.10536000721003368095555859782857e+2815_real128,1.19710488780846647647486996144834e+2818_real128,1.29766169838437766049875903821000e+2821_real128,1.40796294274704976164115355645785e+2824_real128,1.52904775582329604114229276231323e+2827_real128,1.66207491057992279672167223263448e+2830_real128,1.80833750271095600283317938910631e+2833_real128,1.96927954045223108708533235473678e+2836_real128,2.14651469909293188492301226666309e+2839_real128,2.34184753671038868645100638292943e+2842_real128,2.55729751008774444560449897015894e+2845_real128,2.79512617852590467904571737438372e+2848_real128,3.05786803930733971887601480757579e+2851_real128,3.34836550304153699216923621429549e+2854_real128,3.66980859133352454341748289086786e+2857_real128,4.02578002469287642412897873128204e+2860_real128,4.42030646711277831369361864694768e+2863_real128,4.85791680735694336674928689299550e+2866_real128,5.34370848809263770342421558229505e+2869_real128,5.88342304538999411147006135610685e+2872_real128,6.48353219601977351084000761442975e+2875_real128,7.15133601220981018245652839871602e+2878_real128,7.89507495747963044143200735218248e+2881_real128,8.72405782801499163778236812416164e+2884_real128,9.64880795778458075138729914532278e+2887_real128,1.06812304092675308917857401538723e+2891_real128,1.18348032934684242280986000904905e+2894_real128,1.31247968524564824689613475003539e+2897_real128,1.45685245062266955405470957253929e+2900_real128,1.61856307264178587455478233509115e+2903_real128,1.79984213677766589250491795662136e+2906_real128,2.00322429823354213835797368571957e+2909_real128,2.23159186823216594213078268589161e+2912_real128,2.48822493307886502547582269476914e+2915_real128,2.77685902531601336843101812736236e+2918_real128,3.10175153127798693253744724826376e+2921_real128,3.46775821196878939057686602355888e+2924_real128,3.88042143919307532805551308036239e+2927_real128,4.34607201189624436742217465000588e+2930_real128,4.87194672533568993588025778265659e+2933_real128,5.46632422582664410805764923214070e+2936_real128,6.13868210560332133334874008769400e+2939_real128,6.89987868669813317868398385856806e+2942_real128,7.76236352253539982601948184088907e+2945_real128,8.74042132637486020409793655284109e+2948_real128,9.85045483482446745001837449505191e+2951_real128,1.11113130536819992836207264304185e+2955_real128,1.25446724376069771912078001399425e+2958_real128,1.41754798544958842260648141581350e+2961_real128,1.60324677154348450596793048128507e+2964_real128,1.81487534538722446075569730481470e+2967_real128,2.05625376632372531403620504635506e+2970_real128,2.33179177101110450611705652256664e+2973_real128,2.64658366009760361444285915311314e+2976_real128,3.00651903787087770600708799793652e+2979_real128,3.41841214605918795173005905365383e+2982_real128,3.89015302221535588906880720305806e+2985_real128,4.43088429230329035764937140428313e+2988_real128,5.05120809322575100772028340088276e+2991_real128,5.76342843437058189980884336040723e+2994_real128,6.58183527205120452958169911758506e+2997_real128,7.52303771595452677731188209139973e+3000_real128,8.60635514705197863324479311256129e+3003_real128,9.85427664337451553506528811388268e+3006_real128,1.12930010333071948031848201785095e+3010_real128,1.29530721852033524392529887447504e+3013_real128,1.48701268686134486002624310789735e+3016_real128,1.70857757720368524417015333097405e+3019_real128,1.96486421378423803079567633062016e+3022_real128,2.26155871006565797344582345654381e+3025_real128,2.60531563399563798540958862193847e+3028_real128,3.00392892599697059717725568109505e+3031_real128,3.46653398060050406914255305598369e+3034_real128,4.00384674759358219985964877966116e+3037_real128,4.62844684021818102303775398928831e+3040_real128,5.35511299413243544365468136560657e+3043_real128,6.20122084720536024375212102137241e+3046_real128,7.18721496191101252250870826377062e+3049_real128,8.33716935581677452611010158597392e+3052_real128,9.67945362210327522481382794131573e+3055_real128,1.12475251088840058112336680678088e+3059_real128,1.30808717016320987584647559628617e+3062_real128,1.52261346606997629548529759407710e+3065_real128,1.77384468797152238424037169709982e+3068_real128,2.06830290617479510002427339881839e+3071_real128,2.41370949150598588172832705642107e+3074_real128,2.81921268607899150985868600189981e+3077_real128,3.29565963002634107502480393622087e+3080_real128,3.85592176713081905777902060537842e+3083_real128,4.51528438931018911665923312889814e+3086_real128,5.29191330427154164472462122706862e+3089_real128,6.20741430591051834926198069935149e+3092_real128,7.28750439513894854203356534103865e+3095_real128,8.56281766428826453688943927572041e+3098_real128,1.00698735732029990953819805882472e+3102_real128,1.18522411956599299352645911523669e+3105_real128,1.39619401284873974637416883774882e+3108_real128,1.64611274114866416097514505970586e+3111_real128,1.94241303455542370995067117045292e+3114_real128,2.29398979380995540145174265230490e+3117_real128,2.71149593628336728451595981502439e+3120_real128,3.20769969262322349758238046117386e+3123_real128,3.79791643606589662113753846602985e+3126_real128,4.50053097673808749604798308224537e+3129_real128,5.33762973841137177031290793554301e+3132_real128,6.33576649949429829136142171948955e+3135_real128,7.52689060139922637013736900275359e+3138_real128,8.94947292506368015409333174427402e+3141_real128,1.06498727808257793833710647756860e+3145_real128,1.26839984819635032455949381478421e+3148_real128,1.51193261905004958687491662722278e+3151_real128,1.80373561452670915714177553627677e+3154_real128,2.15366032374489073362727999031447e+3157_real128,2.57362408687514442668459958842579e+3160_real128,3.07805440790267273431478110775725e+3163_real128,3.68443112625949926297479298598543e+3166_real128,4.41394848925888011704380199721054e+3169_real128,5.29232423862139726033551859465544e+3172_real128,6.35078908634567671240262231358653e+3175_real128,7.62729769270115773159554939861743e+3178_real128,9.16801182662679159337785037713815e+3181_real128,1.10291182274320302868335540036971e+3185_real128,1.32790583458281644653475990204514e+3188_real128,1.60012653067229381807438568196439e+3191_real128,1.92975259599078634459770913244906e+3194_real128,2.32921138336087911792943492286601e+3197_real128,2.81368735109994197445875738682214e+3200_real128,3.40174800747982984712063768066797e+3203_real128,4.11611508905059411501597159360825e+3206_real128,4.98461537284026947328434159985959e+3209_real128,6.04135383188240660162062201902983e+3212_real128,7.32816219807335920776581450908318e+3215_real128,8.89638890846105807822769881402698e+3218_real128,1.08091125237801855650466540590427e+3222_real128,1.31438808289167056470967313357960e+3225_real128,1.59961029687916307725167220356637e+3228_real128,1.94832534159882062809253674394384e+3231_real128,2.37500859140896234564480229086754e+3234_real128,2.89751048151893406168665879485841e+3237_real128,3.53786029793461848931941038852211e+3240_real128,4.32326528407610379394831949477402e+3243_real128,5.28735344242507493999879474210863e+3246_real128,6.47172061352829172655852476434097e+3249_real128,7.92785775157215736503419283631769e+3252_real128,9.71955360342746492953192041732549e+3255_real128,1.19258922714054994685356663520583e+3259_real128,1.46449957092859533473617982803276e+3262_real128,1.79986997267124366639076500865227e+3265_real128,2.21384006638562970966064096064229e+3268_real128,2.72523712172071017259224902255066e+3271_real128,3.35749213395991493263365079578242e+3274_real128,4.13978780117257511193729143119972e+3277_real128,5.10849814664695768813061762610045e+3280_real128,6.30899521110899274484131276823406e+3283_real128,7.79791808093071503262386258153730e+3286_real128,9.64602466611129449535571801336164e+3289_real128,1.19417785366457825852503789005417e+3293_real128,1.47958636069041246231252194577711e+3296_real128,1.83468708725611145326752721276362e+3299_real128,2.27684667528483431350500127103966e+3302_real128,2.82784357070376421737321157863126e+3305_real128,3.51500955838477892219490199223865e+3308_real128,4.37267189063066497921045807834488e+3311_real128,5.44397650383517789911702030753938e+3314_real128,6.78319472377863166229980730319407e+3317_real128,8.45864382055195368288785970708301e+3320_real128,1.05563874880488381962440489144396e+3324_real128,1.31849279725729989071088170941350e+3327_real128,1.64811599657162486338860213676688e+3330_real128,2.06179311171110270409914127309537e+3333_real128,2.58136497586230058553212487391540e+3336_real128,3.23445031475546263367175246701600e+3339_real128,4.05600069470335014262437759363806e+3342_real128,5.09028087185270442899359388001577e+3345_real128,6.39339277504699676281595391329980e+3348_real128,8.03649471823407493085965406901785e+3351_real128,1.01099103555384662630214448188244e+3355_real128,1.27283771376229290251439990269000e+3358_real128,1.60377551934048905716814387738940e+3361_real128,2.02236092988835670108902942938803e+3364_real128,2.55221949351910615677435513988769e+3367_real128,3.22345322031463107600601054167816e+3370_real128,4.07444487047769368007159732468119e+3373_real128,5.15417276115428250529057061572171e+3376_real128,6.52518271562132165169786239950369e+3379_real128,8.26740650069221453270119166017118e+3382_real128,1.04830714428777280274651110250970e+3386_real128,1.33030176610118368668532258908481e+3389_real128,1.68948324294850328209035968813771e+3392_real128,2.14733320178754767153684716362303e+3395_real128,2.73140783267376063819486959212850e+3398_real128,3.47708217099369729242206899077958e+3401_real128,4.42980268584597035054571589425319e+3404_real128,5.64799842445361219694578776517282e+3407_real128,7.20684598960280916330282518836051e+3410_real128,9.20314232872278730153770776553638e+3413_real128,1.17616158961077221713651905243554e+3417_real128,1.50431067311217766571760786806506e+3420_real128,1.92551766158358741211853807112328e+3423_real128,2.46658812448857547492384726910893e+3426_real128,3.16216597559435375885237219899764e+3429_real128,4.05705894668755587260759353131398e+3432_real128,5.20926368754682174042815009420715e+3435_real128,6.69390383849766593645017287105619e+3438_real128,8.60836033630799839427492231217826e+3441_real128,1.10789597528283939334318250157734e+3445_real128,1.42697001616429713862601906203161e+3448_real128,1.83936435083577901168893857095875e+3451_real128,2.37278001257815492507873075653679e+3454_real128,3.06325899623839800827664140668900e+3457_real128,3.95773062314001022669342069744219e+3460_real128,5.11734569572003322311459296179275e+3463_real128,6.62184533026172299071028329255982e+3466_real128,8.57528970268893127296981686386496e+3469_real128,1.11135754546848549297688826555689e+3473_real128,1.44143073647262568439102408042729e+3476_real128,1.87097709594146813833954925639463e+3479_real128,2.43039924762796711170307448405662e+3482_real128,3.15951902191635724521399682927361e+3485_real128,4.11053424751318077602340987488497e+3488_real128,5.35191559026216137038247965710024e+3491_real128,6.97354601411159626560837099320161e+3494_real128,9.09350400240152153035331577513490e+3497_real128,1.18670227231339855971110770865510e+3501_real128,1.54983316764129851898270666750356e+3504_real128,2.02563195010717716431039761442716e+3507_real128,2.64952659074018773091800007967072e+3510_real128,3.46823030727890573977166210428898e+3513_real128,4.54338170253536651910087735661856e+3516_real128,5.95637341202386550654125021452694e+3519_real128,7.81476191657531154458212028145934e+3522_real128,1.02607823964633840580363239295561e+3526_real128,1.34826680689528866522597296434367e+3529_real128,1.77297085106730459477215444811193e+3532_real128,2.33322964000457284672015525371530e+3535_real128,3.07286343588602243913044446914305e+3538_real128,4.05003400849777757477392581033054e+3541_real128,5.34199485720856862112680814382598e+3544_real128,7.05143321151531057988738674985030e+3547_real128,9.31494327241172527603123789655225e+3550_real128,1.23143550061283008149132964992420e+3554_real128,1.62918916731077419781302912684972e+3557_real128,2.15704645751946503790445056394903e+3560_real128,2.85808655621329117522339699723247e+3563_real128,3.78982277353882409834622441833026e+3566_real128,5.02909482048601957850543980312426e+3569_real128,6.67863792160543400025522405854901e+3572_real128,8.87590979781362178633919277381164e+3575_real128,1.18049600310921169758311263891694e+3579_real128,1.57124018013836076948312292239845e+3582_real128,2.09289191994429654495151973263474e+3585_real128,2.78982492928574729442037580360211e+3588_real128,3.72162645566718689075678132200522e+3591_real128,4.96837131831569449916030306487697e+3594_real128,6.63774408126976785087816489467563e+3597_real128,8.87466383665767961662410646418133e+3600_real128,1.18743002134479753270430544490746e+3604_real128,1.58996879858068389629106499073109e+3607_real128,2.13055819009811642103002708757966e+3610_real128,2.85707853292157412060126632444432e+3613_real128,3.83419939118075246984689940740428e+3616_real128,5.14932978235575056700438590414395e+3619_real128,6.92069922748612876205389465516948e+3622_real128,9.30834046096884318496248831120295e+3625_real128,1.25290262604640629269595092668791e+3629_real128,1.68765983728450927626144589824862e+3632_real128,2.27496546065951850440042907083914e+3635_real128,3.06892840642969046243617881656200e+3638_real128,4.14305334868008212428884140235871e+3641_real128,5.59726507406679094991422473458661e+3644_real128,7.56750238013830136428403184116110e+3647_real128,1.02388307203271217458762950810909e+3651_real128,1.38633767953229228439165035397971e+3654_real128,1.87848755576625604535068622964251e+3657_real128,2.54722912561904319749553052739525e+3660_real128,3.45658992346504161900143492567536e+3663_real128,4.69404911606552651860394862906714e+3666_real128,6.37921274873305053878276618690224e+3669_real128,8.67572933827694873274456201418705e+3672_real128,1.18076676293949272252653489013085e+3676_real128,1.60820433112358908808114052035822e+3679_real128,2.19198250332145192705459452924826e+3682_real128,2.98986413453046042850246693789463e+3685_real128,4.08116454363407848490586737022617e+3688_real128,5.57487076660415121038141482772895e+3691_real128,7.62084833794787470459139406950548e+3694_real128,1.04253205263126925958810270870834e+3698_real128,1.42722638005220761637611260822173e+3701_real128,1.95530014067152443443527427326377e+3704_real128,2.68071649286065999961076102864463e+3707_real128,3.67794302820482551946596413130043e+3710_real128,5.04981577772522543822676875227549e+3713_real128,6.93844687859445975212358026562652e+3716_real128,9.54036445806738215916992286523647e+3719_real128,1.31275414943007178510178138625653e+3723_real128,1.80766246376520884808515296887525e+3726_real128,2.49095887506845779266134079111010e+3729_real128,3.43503228871940329607998895094082e+3732_real128,4.74034455843277654859038475229834e+3735_real128,6.54641583519566441360332134292401e+3738_real128,9.04714668424040821959979009592098e+3741_real128,1.25122038643044845677065097026587e+3745_real128,1.73168901481974066417058094284796e+3748_real128,2.39838928552534081987625460584443e+3751_real128,3.32416754973812237634848888370038e+3754_real128,4.61062039148677573599535408169243e+3757_real128,6.39954110338364472156155146538910e+3760_real128,8.88896259259988251824899498542546e+3763_real128,1.23556580037138367003661030297413e+3767_real128,1.71867202831659468502092493143702e+3770_real128,2.39239146341669980154912750456034e+3773_real128,3.33260130853946282355793461385255e+3776_real128,4.64564622410401117603976085171046e+3779_real128,6.48067648262509559057546638813609e+3782_real128,9.04702436974463344444335107783799e+3785_real128,1.26386930445332529218873614557396e+3789_real128,1.76688928762574875847985313151240e+3792_real128,2.47187811338842251311331453098585e+3795_real128,3.46062935874379151835864034338020e+3798_real128,4.84834173160005191722045512107566e+3801_real128,6.79737510770327278794307807974807e+3804_real128,9.53671727610769172148413854588655e+3807_real128,1.33895510556551991769637305184247e+3811_real128,1.88123192331955548436340413783867e+3814_real128,2.64501208418729501101494621780117e+3817_real128,3.72153200245152408049802932844625e+3820_real128,5.23991705945174590534122529445232e+3823_real128,7.38304313676750998062578643988332e+3826_real128,1.04100908228421890726823588802354e+3830_real128,1.46886381510303287815548083800122e+3833_real128,2.07403570692548242395553894325773e+3836_real128,2.93061245388570666504917652682317e+3839_real128,4.14388600979438922437953560892797e+3842_real128,5.86359870385906075249704288663307e+3845_real128,8.30285576466443002553581272747243e+3848_real128,1.17651466185294973461842466348284e+3852_real128,1.66829779050748272368892617281867e+3855_real128,2.36731456473011798491458623922969e+3858_real128,3.36158668191676753857871245970617e+3861_real128,4.77681467500372667232035040524246e+3864_real128,6.79263046785529932803953827625479e+3867_real128,9.66591315575809094380026296711056e+3870_real128,1.37642603337995215039715744651654e+3874_real128,1.96140709756643181431594936128607e+3877_real128,2.79696652112973176721454378919394e+3880_real128,3.99127122565212723181515398717975e+3883_real128,5.69953531023123768703203989369269e+3886_real128,8.14463595832043865476878500808686e+3889_real128,1.16468294203982272763193625615642e+3893_real128,1.66666129005898632324130078255983e+3896_real128,2.38665896736446841488154272062568e+3899_real128,3.42008230023328323852525071865661e+3902_real128,4.90439801853452816404520953055358e+3905_real128,7.03781115659704791540487567634439e+3908_real128,1.01062968208733608065214014712305e+3912_real128,1.45227485315950194789712539141582e+3915_real128,2.08837123884336380107606631285596e+3918_real128,3.00516621269560050974845942419973e+3921_real128,4.32743934628166473403778157084761e+3924_real128,6.23584009799187888174844324359140e+3927_real128,8.99208142130428934748125515725881e+3930_real128,1.29755734909420895284154511919244e+3934_real128,1.87367281209203772790319115211389e+3937_real128,2.70745721347299451682011121480457e+3940_real128,3.91498313068195007132188081660741e+3943_real128,5.66498059009678175320276154163092e+3946_real128,8.20289189446013997863759871228158e+3949_real128,1.18859903550727428290458805340960e+3953_real128,1.72346860148554771021165267744392e+3956_real128,2.50075294075552972751710803497113e+3959_real128,3.63109326997702916435484086677808e+3962_real128,5.27597852127662337580758377942855e+3965_real128,7.67127276993621038842422681528911e+3968_real128,1.11617018802571861151572500162456e+3972_real128,1.62514379376544629836689560236536e+3975_real128,2.36783450751625525672056689264634e+3978_real128,3.45230271195870016429858652947836e+3981_real128,5.03690965674774353971163774650893e+3984_real128,7.35388809885170556797899110990305e+3987_real128,1.07440305124223418348173060115683e+3991_real128,1.57077726091614637625029013889129e+3994_real128,2.29804713272032214845417447319796e+3997_real128,3.36434100230255162533691142876181e+4000_real128,4.92875956837323813111857524313606e+4003_real128,7.22556152723516710021983130643746e+4006_real128,1.05998987604539901360224925265437e+4010_real128,1.55606513803464575196810190289662e+4013_real128,2.28585968777289460964114169535514e+4016_real128,3.36021374102615507617247829217205e+4019_real128,4.94287441304947411704971556778509e+4022_real128,7.27591113600882590029718131577966e+4025_real128,1.07174171033410005511377480781434e+4029_real128,1.57974728103246348123770406671834e+4032_real128,2.33012723952288363482561349840955e+4035_real128,3.43926780553577624500260552365250e+4038_real128,5.07979854877634151386884835843475e+4041_real128,7.50794225509143275749815787376656e+4044_real128,1.11042465952802290483397754953007e+4048_real128,1.64342849610147389915428677330451e+4051_real128,2.43391760272628284464749871126398e+4054_real128,3.60706588724035117576759309009321e+4057_real128,5.34927871077744079366334055260824e+4060_real128,7.93832960679372213779639738007063e+4063_real128,1.17884194660886773746276501094048e+4067_real128,1.75175913266077745786966880625756e+4070_real128,2.60486583026657607985219751490500e+4073_real128,3.87604035543666520682006990217864e+4076_real128,5.77142408924519449295508408434399e+4079_real128,8.59942189297533979450307528567255e+4082_real128,1.28217380424262316336040852509377e+4086_real128,1.91300331592999375973372951943991e+4089_real128,2.85611395068348068328245817252379e+4092_real128,4.26703424232112014082399250975055e+4095_real128,6.37921619227007461053186880207707e+4098_real128,9.54330742363603161735567572790730e+4101_real128,1.42863312131831393311814465646772e+4105_real128,2.14009241573483427181098069538865e+4108_real128,3.20799853118651657344466006238758e+4111_real128,4.81199779677977486016699009358137e+4114_real128,7.22280869296644206511065213046565e+4117_real128,1.08486586568355959817961994999594e+4121_real128,1.63055339612239007606396878484389e+4124_real128,2.45235230776807467440020905240522e+4127_real128,3.69079022319095238497231462386986e+4130_real128,5.55833007612557429176830582354801e+4133_real128,8.37640342472124045769483687608685e+4136_real128,1.26316163644796306102038140091389e+4140_real128,1.90611090939997625907975553397907e+4143_real128,2.87822747319396415121043085630839e+4146_real128,4.34900171199607983247896102388198e+4149_real128,6.57569058853807270670818906810956e+4152_real128,9.94901986045810400524949006004977e+4155_real128,1.50628160687335694639477279509153e+4159_real128,2.28201663441313577378808078456367e+4162_real128,3.45953721777031383306273046939853e+4165_real128,5.24811795935756608475616212207757e+4168_real128,7.96664306230478531665985410131376e+4171_real128,1.21013308116409688960063183798956e+4175_real128,1.83940228336942727219296039374413e+4178_real128,2.79773087300489888100549275888482e+4181_real128,4.25814638871345609689035997902270e+4184_real128,6.48515695001059363556401824805157e+4187_real128,9.88337919181614470059956381003060e+4190_real128,1.50721532675196206684143348102966e+4194_real128,2.30001058862349411400002749205127e+4197_real128,3.51211616882807551207804198036229e+4200_real128,5.36651350596929938245524814599358e+4203_real128,8.20539915062705875577407441522418e+4206_real128,1.25542607004593998963343338552930e+4210_real128,1.92205731324033412412878651324535e+4213_real128,2.94459180388419187816530093829189e+4216_real128,4.51405923535446614922740633840146e+4219_real128,6.92456686703375107291484132310785e+4222_real128,1.06292101408968078969242814309705e+4226_real128,1.63264667764174969296756962779707e+4229_real128,2.50937794353536927809115451792410e+4232_real128,3.85942327715739794970419564856727e+4235_real128,5.93965242354523544459475710314503e+4238_real128,9.14706473225966258467592593884336e+4241_real128,1.40956267524121400429856018717576e+4245_real128,2.17354564522195199462837980862502e+4248_real128,3.35378093057747192771159004470841e+4251_real128,5.17823775681161665638669502902979e+4254_real128,8.00037733427394773411744381985102e+4257_real128,1.23685833587875231969455681454896e+4261_real128,1.91341984560442983856747939210725e+4264_real128,2.96197392099565739010245809898202e+4267_real128,4.58809760362227329726870759532316e+4270_real128,7.11155128561452361076649677275090e+4273_real128,1.10300160439881261202988364945366e+4277_real128,1.71185849002695717387037942395208e+4280_real128,2.65851623501186449102069924539759e+4283_real128,4.13133422920843741904616662734786e+4286_real128,6.42422472641912018661678910552592e+4289_real128,9.99609367430815101037572384819833e+4292_real128,1.55639178508977911231550020316448e+4296_real128,2.42485840116987585698754931653026e+4299_real128,3.78035424742383646104358938447067e+4302_real128,5.89735262598118487922799943977425e+4305_real128,9.20576744915662959647490712548761e+4308_real128,1.43794087555826554296938049300116e+4312_real128,2.24750158849756904366114171056082e+4315_real128,3.51509248441019798428602563531712e+4318_real128,5.50111973810195984540763011927130e+4321_real128,8.61475350986766911790834876677885e+4324_real128,1.34993187499626375077623825175424e+4328_real128,2.11669317999414156121714157875065e+4331_real128,3.32109159941080810954969513705978e+4334_real128,5.21411381107496873199302136518386e+4337_real128,8.19137279719877587796103656470384e+4340_real128,1.28768380371964756801547494797144e+4344_real128,2.02552662325100562448834209315908e+4347_real128,3.18817890499708285294465045463239e+4350_real128,5.02138177537040549338782446604602e+4353_real128,7.91369767798375905757921135848853e+4356_real128,1.24799012381803880338024163123364e+4360_real128,1.96932841538486523173402129408668e+4363_real128,3.10956956789270220090801962336287e+4366_real128,4.91311991727046947743467100491334e+4369_real128,7.76764258920461224382421485876800e+4372_real128,1.22884105761216965697299079065709e+4376_real128,1.94525539420006456698824442161018e+4379_real128,3.08128454441290227410937916383053e+4382_real128,4.88383600289445010446336597467139e+4385_real128,7.74576390059059786567889843582883e+4388_real128,1.22925273102372788128324118176603e+4392_real128,1.95205333686567987547778699664446e+4395_real128,3.10181275227956532213420353766805e+4398_real128,4.93188227612450886219338362489220e+4401_real128,7.84662470131409359974967334720350e+4404_real128,1.24918265244920370108014799687479e+4408_real128,1.98994796535158149582067575902155e+4411_real128,3.17197705677042090433815715988035e+4414_real128,5.05930340554882134241936067000916e+4417_real128,8.07464823525591886250129962933462e+4420_real128,1.28952132317037024234145755080474e+4424_real128,2.06065507442625164726164916618597e+4427_real128,3.29498746400757638397137701673137e+4430_real128,5.27197994241212221435420322677019e+4433_real128,8.44043988780180766518107936605908e+4436_real128,1.35215847002584958796200891444266e+4440_real128,2.16751002745143688950310028985159e+4443_real128,3.47668608403210477076297286492195e+4446_real128,5.58008116487152815707457144819973e+4449_real128,8.96161035078367422026176174580878e+4452_real128,1.44013078337093644719606511255147e+4456_real128,2.31573029966046580709127270098276e+4459_real128,3.72601005215368948360985777588126e+4462_real128,5.99887618396744006861187101916884e+4465_real128,9.66418953237154595053372421188100e+4468_real128,1.55786735261829320722603634295521e+4472_real128,2.51284003977330694325559662118676e+4475_real128,4.05572382419411740641453294659544e+4478_real128,6.54999397607349961135947070875163e+4481_real128,1.05847902653347753719569046653426e+4485_real128,1.71156058590463317764543148438590e+4488_real128,2.76930502799369648143030814173639e+4491_real128,4.48350484032179460343566888147122e+4494_real128,7.26327784132130725756578358798338e+4497_real128,1.17737733807818390645141351961210e+4501_real128,1.90970604236281429626419272881083e+4504_real128,3.09945290675484760283678479885998e+4507_real128,5.03351152056987250700693851334862e+4510_real128,8.17945622092604282388627508419151e+4513_real128,1.32997958152257456316390832868953e+4517_real128,2.16387677913722881426767885077788e+4520_real128,3.52279139643540850962778116906639e+4523_real128,5.73862718479328046218365552440915e+4526_real128,9.35396231121304715335935850478691e+4529_real128,1.52563125295884799071291137213074e+4533_real128,2.48983020482883992084347135931737e+4536_real128,4.06589272448549559073738872976527e+4539_real128,6.64366871180929979526489318443646e+4542_real128,1.08623983438082051652581003565536e+4546_real128,1.77708836904702236503622521833217e+4549_real128,2.90909366012997561156430068240976e+4552_real128,4.76509541529290005174232451778719e+4555_real128,7.80999138566506318480566988465321e+4558_real128,1.28083858724907036230812986108312e+4562_real128,2.10185612167572446454764110203741e+4565_real128,3.45124775179153957078722668954542e+4568_real128,5.67040005619349951480341345092314e+4571_real128,9.32213769238211320233681171331764e+4574_real128,1.53349165039685762178440552684075e+4578_real128,2.52412725655322764545713149717987e+4581_real128,4.15723759154316593206789557585525e+4584_real128,6.85112755086313745604789190900946e+4587_real128,1.12975093313733136650229737579566e+4591_real128,1.86408903967659675472879067006284e+4594_real128,3.07761100450606124205723339627375e+4597_real128,5.08421337944401317187854957064423e+4600_real128,8.40420471622095377311524244027492e+4603_real128,1.39005546006294575407326109962147e+4607_real128,2.30054178640417522299124711987353e+4610_real128,3.80969719828531416927350523051057e+4613_real128,6.31266825755876557848619816695602e+4616_real128,1.04664039710324333291301165608130e+4620_real128,1.73637641879428068930268633743889e+4623_real128,2.88238485519850594424245932014855e+4626_real128,4.78764124448471837338672493076675e+4629_real128,7.95705974833360193656873683493435e+4632_real128,1.32325903614787800205138093564958e+4636_real128,2.20190303615006899541349787692090e+4639_real128,3.66616855518986487736347396507330e+4642_real128,6.10783681294631488568754762581213e+4645_real128,1.01817639671815069144411418922288e+4649_real128,1.69831822972587535332878246762376e+4652_real128,2.83449312541248596470573793846406e+4655_real128,4.73360351943885156105858235723499e+4658_real128,7.90985148098232095852889111893967e+4661_real128,1.32252716762024406426603059508671e+4665_real128,2.21258795142866831951706918558007e+4668_real128,3.70387223069159076687157381666103e+4671_real128,6.20398598640841453450988614290724e+4674_real128,1.03978805132205027598385691755125e+4678_real128,1.74372456206707831282492805073345e+4681_real128,2.92596981514855740892022926913073e+4684_real128,4.91270331963442788957706494287050e+4687_real128,8.25334157698583885448946910402244e+4690_real128,1.38738671909131951143967975638617e+4694_real128,2.33358446151159941824154135024154e+4697_real128,3.92742264872402182090051409245651e+4700_real128,6.61377974045125274639646573169677e+4703_real128,1.11442188626603608776780447579090e+4707_real128,1.87891530024453684397651834618346e+4710_real128,3.16973011151253365578838645001150e+4713_real128,5.35050442823315681097079632761942e+4716_real128,9.03700197928580185372967499734921e+4719_real128,1.52725333449930051328031507455201e+4723_real128,2.58258538863831716795701279106746e+4726_real128,4.36973447757603264818326564248614e+4729_real128,7.39796047053622327337426873272904e+4732_real128,1.25321450370883622250960112332429e+4736_real128,2.12419858378647739715377390403468e+4739_real128,3.60264079810186566557280054124283e+4742_real128,6.11368143437886603447704251848908e+4745_real128,1.03810310755753145265420181963944e+4749_real128,1.76373717974024593805948889156741e+4752_real128,2.99835320555841809470113111566461e+4755_real128,5.10019880265486917908662402774550e+4758_real128,8.68053836211858734280543409522285e+4761_real128,1.47829568306879542447976542641645e+4765_real128,2.51901584394922740331352028661363e+4768_real128,4.29492201393343272264955208867624e+4771_real128,7.32713695577043622484013586328167e+4774_real128,1.25074227835001346358021119186218e+4778_real128,2.13626781142182299579500071570060e+4781_real128,3.65088168971989549981365622313233e+4784_real128,6.24300768942102130468135214155629e+4787_real128,1.06817861565993674523097935142028e+4791_real128,1.82872179000981170783543664963152e+4794_real128,3.13260042628680745552210298081879e+4797_real128,5.36927713065558797876488450912342e+4800_real128,9.20831027907433338358177693314667e+4803_real128,1.58014604388915560862263292172796e+4807_real128,2.71311075735768018000506072660692e+4810_real128,4.66112428114049454924869432831069e+4813_real128,8.01247263928051013015850555036607e+4816_real128,1.37814529395624774238726295466296e+4820_real128,2.37178805089870236464847954497496e+4823_real128,4.08421902364756547192468177644688e+4826_real128,7.03710937774475530812622670081798e+4829_real128,1.21319765672319581512096148322102e+4833_real128,2.09276595784751278108365855855626e+4836_real128,3.61211404324480706015039467206810e+4839_real128,6.23812095268378179287973159866162e+4842_real128,1.07794730062375749380961762024872e+4846_real128,1.86377088277847670679682886541005e+4849_real128,3.22432362720676470275851393715938e+4852_real128,5.58130419869490970047498762522290e+4855_real128,9.66681887213958360122267856688606e+4858_real128,1.67525971054178983809189019564135e+4862_real128,2.90490033807946357925133759924210e+4865_real128,5.04000208656786931000107073468506e+4868_real128,8.74944362228182112216185879541326e+4871_real128,1.51977835719035232891951487276328e+4875_real128,2.64137478479683234766211684886258e+4878_real128,4.59335075076169145258442120017203e+4881_real128,7.99243030632534312749689288829934e+4884_real128,1.39148211633124223849720905185291e+4888_real128,2.42396184664902397946213816832778e+4891_real128,4.22496549870924879620250682739532e+4894_real128,7.36833982974892990057717190697744e+4897_real128,1.28577530029118826765071649776756e+4901_real128,2.24496367430841471531815100510216e+4904_real128,3.92195153901680050766080980591348e+4907_real128,6.85557129020136728739109554073677e+4910_real128,1.19903941865621913856470261007486e+4914_real128,2.09831898264838349248822956763100e+4917_real128,3.67415653861731949534688997292189e+4920_real128,6.43712225565754375584775123255915e+4923_real128,1.12842753141676742040011079106762e+4927_real128,1.97926189010501005538179432753260e+4930_real128/)]

• mod_safe/const_factorial_real32 (35) [real,parameter=(/1.000000e+0000_real32,1.000000e+0000_real32,2.000000e+0000_real32,6.000000e+0000_real32,2.400000e+0001_real32,1.200000e+0002_real32,7.200000e+0002_real32,5.040000e+0003_real32,4.032000e+0004_real32,3.628800e+0005_real32,3.628800e+0006_real32,3.991680e+0007_real32,4.790016e+0008_real32,6.227020e+0009_real32,8.717829e+0010_real32,1.307674e+0012_real32,2.092278e+0013_real32,3.556874e+0014_real32,6.402373e+0015_real32,1.216451e+0017_real32,2.432902e+0018_real32,5.109094e+0019_real32,1.124000e+0021_real32,2.585201e+0022_real32,6.204484e+0023_real32,1.551121e+0025_real32,4.032914e+0026_real32,1.088886e+0028_real32,3.048883e+0029_real32,8.841761e+0030_real32,2.652528e+0032_real32,8.222838e+0033_real32,2.631308e+0035_real32,8.683317e+0036_real32,2.952327e+0038_real32/)]

• mod_safe/const_factorial_real64 (171) [real,parameter=(/1.000000000000000e+0000_real64,1.000000000000000e+0000_real64,2.000000000000000e+0000_real64,6.000000000000000e+0000_real64,2.400000000000000e+0001_real64,1.200000000000000e+0002_real64,7.200000000000000e+0002_real64,5.040000000000000e+0003_real64,4.032000000000000e+0004_real64,3.628800000000000e+0005_real64,3.628800000000000e+0006_real64,3.991680000000000e+0007_real64,4.790016000000000e+0008_real64,6.227020800000000e+0009_real64,8.717829120000000e+0010_real64,1.307674368000000e+0012_real64,2.092278988800000e+0013_real64,3.556874280960000e+0014_real64,6.402373705728000e+0015_real64,1.216451004088320e+0017_real64,2.432902008176640e+0018_real64,5.109094217170944e+0019_real64,1.124000727777607e+0021_real64,2.585201673888497e+0022_real64,6.204484017332394e+0023_real64,1.551121004333098e+0025_real64,4.032914611266056e+0026_real64,1.088886945041835e+0028_real64,3.048883446117138e+0029_real64,8.841761993739701e+0030_real64,2.652528598121910e+0032_real64,8.222838654177922e+0033_real64,2.631308369336935e+0035_real64,8.683317618811886e+0036_real64,2.952327990396041e+0038_real64,1.033314796638614e+0040_real64,3.719933267899012e+0041_real64,1.376375309122634e+0043_real64,5.230226174666011e+0044_real64,2.039788208119744e+0046_real64,8.159152832478977e+0047_real64,3.345252661316380e+0049_real64,1.405006117752879e+0051_real64,6.041526306337383e+0052_real64,2.658271574788448e+0054_real64,1.196222208654801e+0056_real64,5.502622159812088e+0057_real64,2.586232415111681e+0059_real64,1.241391559253607e+0061_real64,6.082818640342675e+0062_real64,3.041409320171337e+0064_real64,1.551118753287382e+0066_real64,8.065817517094387e+0067_real64,4.274883284060025e+0069_real64,2.308436973392413e+0071_real64,1.269640335365827e+0073_real64,7.109985878048634e+0074_real64,4.052691950487721e+0076_real64,2.350561331282878e+0078_real64,1.386831185456898e+0080_real64,8.320987112741390e+0081_real64,5.075802138772247e+0083_real64,3.146997326038793e+0085_real64,1.982608315404440e+0087_real64,1.268869321858841e+0089_real64,8.247650592082470e+0090_real64,5.443449390774430e+0092_real64,3.647111091818868e+0094_real64,2.480035542436830e+0096_real64,1.711224524281413e+0098_real64,1.197857166996989e+0100_real64,8.504785885678623e+0101_real64,6.123445837688608e+0103_real64,4.470115461512684e+0105_real64,3.307885441519386e+0107_real64,2.480914081139539e+0109_real64,1.885494701666050e+0111_real64,1.451830920282858e+0113_real64,1.132428117820629e+0115_real64,8.946182130782975e+0116_real64,7.156945704626380e+0118_real64,5.797126020747367e+0120_real64,4.753643337012841e+0122_real64,3.945523969720658e+0124_real64,3.314240134565353e+0126_real64,2.817104114380550e+0128_real64,2.422709538367273e+0130_real64,2.107757298379527e+0132_real64,1.854826422573984e+0134_real64,1.650795516090846e+0136_real64,1.485715964481761e+0138_real64,1.352001527678402e+0140_real64,1.243841405464130e+0142_real64,1.156772507081641e+0144_real64,1.087366156656743e+0146_real64,1.032997848823905e+0148_real64,9.916779348709496e+0149_real64,9.619275968248211e+0151_real64,9.426890448883247e+0153_real64,9.332621544394415e+0155_real64,9.332621544394415e+0157_real64,9.425947759838359e+0159_real64,9.614466715035126e+0161_real64,9.902900716486180e+0163_real64,1.029901674514562e+0166_real64,1.081396758240290e+0168_real64,1.146280563734708e+0170_real64,1.226520203196137e+0172_real64,1.324641819451828e+0174_real64,1.443859583202493e+0176_real64,1.588245541522742e+0178_real64,1.762952551090244e+0180_real64,1.974506857221074e+0182_real64,2.231192748659813e+0184_real64,2.543559733472187e+0186_real64,2.925093693493015e+0188_real64,3.393108684451898e+0190_real64,3.969937160808720e+0192_real64,4.684525849754290e+0194_real64,5.574585761207605e+0196_real64,6.689502913449127e+0198_real64,8.094298525273443e+0200_real64,9.875044200833601e+0202_real64,1.214630436702532e+0205_real64,1.506141741511140e+0207_real64,1.882677176888926e+0209_real64,2.372173242880046e+0211_real64,3.012660018457659e+0213_real64,3.856204823625804e+0215_real64,4.974504222477287e+0217_real64,6.466855489220473e+0219_real64,8.471580690878820e+0221_real64,1.118248651196004e+0224_real64,1.487270706090685e+0226_real64,1.992942746161518e+0228_real64,2.690472707318050e+0230_real64,3.659042881952548e+0232_real64,5.012888748274991e+0234_real64,6.917786472619488e+0236_real64,9.615723196941089e+0238_real64,1.346201247571752e+0241_real64,1.898143759076170e+0243_real64,2.695364137888162e+0245_real64,3.854370717180072e+0247_real64,5.550293832739304e+0249_real64,8.047926057471991e+0251_real64,1.174997204390910e+0254_real64,1.727245890454638e+0256_real64,2.556323917872865e+0258_real64,3.808922637630569e+0260_real64,5.713383956445854e+0262_real64,8.627209774233240e+0264_real64,1.311335885683452e+0267_real64,2.006343905095682e+0269_real64,3.089769613847350e+0271_real64,4.789142901463393e+0273_real64,7.471062926282894e+0275_real64,1.172956879426414e+0278_real64,1.853271869493734e+0280_real64,2.946702272495038e+0282_real64,4.714723635992061e+0284_real64,7.590705053947218e+0286_real64,1.229694218739449e+0289_real64,2.004401576545302e+0291_real64,3.287218585534296e+0293_real64,5.423910666131588e+0295_real64,9.003691705778437e+0297_real64,1.503616514864999e+0300_real64,2.526075744973198e+0302_real64,4.269068009004705e+0304_real64,7.257415615307998e+0306_real64/)]

• mod_safe/const_g [real,parameter=9.806649999999999e+00_real64]

• mod_safe/const_h [real,parameter=6.626070150000000e-34_real64]

• mod_safe/const_kb [real,parameter=1.380649000000000e-23_real64]

• mod_safe/const_me [real,parameter=9.109383713900000e-31_real64]

• mod_safe/const_mn [real,parameter=1.674927500560000e-27_real64]

• mod_safe/const_mp [real,parameter=1.672621925950000e-27_real64]

• mod_safe/const_mu0 [real,parameter=1.256637061270000e-06_real64]

• mod_safe/const_na [real,parameter=6.022140760000000e+23_real64]

• mod_safe/const_pi [real,parameter=3.141592653589793e+00_real64]

• mod_safe/const_sig [real,parameter=5.670374419184431e-08_real64]

Subroutines and functions

function  mod_safe/func_degrees(x)

Parameters:

x [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_factorial(x)

Parameters:

x [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_falling_factorial(x, n)

Parameters:

• x [real ,in]

• n [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_hypergeometric(a, b, c, z)

Parameters:

• a [real ,in]

• b [real ,in]

• c [real ,in]

• z [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_integrate_1d_real32_real_array(n1, x1, arr)

Parameters:

• n1 [integer ,in,]

• x1 (n1) [real ,in]

• arr (n1) [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_integrate_1d_real64_real_array(n1, x1, arr)

Parameters:

• n1 [integer ,in,]

• x1 (n1) [real ,in]

• arr (n1) [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_integrate_1d_real128_real_array(n1, x1, arr)

Parameters:

• n1 [integer ,in,]

• x1 (n1) [real ,in]

• arr (n1) [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_integrate_2d_real32_real_array(n1, n2, x1, x2, arr)

Parameters:

• n1 [integer ,in,]

• n2 [integer ,in,]

• x1 (n1) [real ,in]

• x2 (n2) [real ,in]

• arr (n1,n2) [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_integrate_2d_real64_real_array(n1, n2, x1, x2, arr)

Parameters:

• n1 [integer ,in,]

• n2 [integer ,in,]

• x1 (n1) [real ,in]

• x2 (n2) [real ,in]

• arr (n1,n2) [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_integrate_2d_real128_real_array(n1, n2, x1, x2, arr)

Parameters:

• n1 [integer ,in,]

• n2 [integer ,in,]

• x1 (n1) [real ,in]

• x2 (n2) [real ,in]

• arr (n1,n2) [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_interpolate_real32_points(x1, x2, y1, y2, x)

Parameters:

• x1 [real ,in]

• x2 [real ,in]

• y1 [real ,in]

• y2 [real ,in]

• x [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_interpolate_real64_points(x1, x2, y1, y2, x)

Parameters:

• x1 [real ,in]

• x2 [real ,in]

• y1 [real ,in]

• y2 [real ,in]

• x [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_interpolate_real128_points(x1, x2, y1, y2, x)

Parameters:

• x1 [real ,in]

• x2 [real ,in]

• y1 [real ,in]

• y2 [real ,in]

• x [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_mean_1d_int16_integer(n1, arr[, dof])

Parameters:

• n1 [integer ,in,]

• arr (n1) [integer ,in]

Options:

dof [integer ,in,]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_mean_1d_int32_integer(n1, arr[, dof])

Parameters:

• n1 [integer ,in,]

• arr (n1) [integer ,in]

Options:

dof [integer ,in,]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_mean_1d_int64_integer(n1, arr[, dof])

Parameters:

• n1 [integer ,in,]

• arr (n1) [integer ,in]

Options:

dof [integer ,in,]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_mean_1d_real32_real(n1, arr[, dof])

Parameters:

• n1 [integer ,in,]

• arr (n1) [real ,in]

Options:

dof [integer ,in,]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_mean_1d_real64_real(n1, arr[, dof])

Parameters:

• n1 [integer ,in,]

• arr (n1) [real ,in]

Options:

dof [integer ,in,]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_mean_2d_int16_integer(n1, n2, arr[, dof])

Parameters:

• n1 [integer ,in,]

• n2 [integer ,in,]

• arr (n1,n2) [integer ,in]

Options:

dof [integer ,in,]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_mean_2d_int32_integer(n1, n2, arr[, dof])

Parameters:

• n1 [integer ,in,]

• n2 [integer ,in,]

• arr (n1,n2) [integer ,in]

Options:

dof [integer ,in,]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_mean_2d_int64_integer(n1, n2, arr[, dof])

Parameters:

• n1 [integer ,in,]

• n2 [integer ,in,]

• arr (n1,n2) [integer ,in]

Options:

dof [integer ,in,]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_mean_2d_real32_real(n1, n2, arr[, dof])

Parameters:

• n1 [integer ,in,]

• n2 [integer ,in,]

• arr (n1,n2) [real ,in]

Options:

dof [integer ,in,]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_mean_2d_real64_real(n1, n2, arr[, dof])

Parameters:

• n1 [integer ,in,]

• n2 [integer ,in,]

• arr (n1,n2) [real ,in]

Options:

dof [integer ,in,]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_normal_cdf(x, mean, stddev)

Parameters:

• x [real ,in]

• mean [real ,in]

• stddev [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_normal_pdf(x, mean, stddev)

Parameters:

• x [real ,in]

• mean [real ,in]

• stddev [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_overall_index_2loops(i1, i2, n2)

Parameters:

• i1 [integer ,in]

• i2 [integer ,in]

• n2 [integer ,in]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_overall_index_3loops(i1, i2, i3, n2, n3)

Parameters:

• i1 [integer ,in]

• i2 [integer ,in]

• i3 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_overall_index_4loops(i1, i2, i3, i4, n2, n3, n4)

Parameters:

• i1 [integer ,in]

• i2 [integer ,in]

• i3 [integer ,in]

• i4 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_overall_index_5loops(i1, i2, i3, i4, i5, n2, n3, n4, n5)

Parameters:

• i1 [integer ,in]

• i2 [integer ,in]

• i3 [integer ,in]

• i4 [integer ,in]

• i5 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_overall_index_6loops(i1, i2, i3, i4, i5, i6, n2, n3, n4, n5, n6)

Parameters:

• i1 [integer ,in]

• i2 [integer ,in]

• i3 [integer ,in]

• i4 [integer ,in]

• i5 [integer ,in]

• i6 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_overall_index_7loops(i1, i2, i3, i4, i5, i6, i7, n2, n3, n4, n5, n6, n7)

Parameters:

• i1 [integer ,in]

• i2 [integer ,in]

• i3 [integer ,in]

• i4 [integer ,in]

• i5 [integer ,in]

• i6 [integer ,in]

• i7 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

Return:

ans [integer ]

Use :

iso_fortran_env

function  mod_safe/func_radians(x)

Parameters:

x [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_rising_factorial(x, n)

Parameters:

• x [real ,in]

• n [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_stddev(n, arr[, dof])

Parameters:

• n [integer ,in,]

• arr (n) [real ,in]

Options:

dof [integer ,in,]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_stderr(n, arr[, dof])

Parameters:

• n [integer ,in,]

• arr (n) [real ,in]

Options:

dof [integer ,in,]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_t_cdf(x, dof)

Parameters:

• x [real ,in]

• dof [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_t_pdf(x, dof)

Parameters:

• x [real ,in]

• dof [real ,in]

Return:

ans [real ]

Use :

iso_fortran_env

function  mod_safe/func_var(n, arr[, dof])

Parameters:

• n [integer ,in,]

• arr (n) [real ,in]

Options:

dof [integer ,in,]

Return:

ans [real ]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_1d_int8_integer_array(arr, name, n1, debug)

Parameters:

• arr (*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_2d_int8_integer_array(arr, name, n1, n2, debug)

Parameters:

• arr (*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_3d_int8_integer_array(arr, name, n1, n2, n3, debug)

Parameters:

• arr (*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_4d_int8_integer_array(arr, name, n1, n2, n3, n4, debug)

Parameters:

• arr (*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_5d_int8_integer_array(arr, name, n1, n2, n3, n4, n5, debug)

Parameters:

• arr (*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_6d_int8_integer_array(arr, name, n1, n2, n3, n4, n5, n6, debug)

Parameters:

• arr (*,*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_7d_int8_integer_array(arr, name, n1, n2, n3, n4, n5, n6, n7, debug)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_1d_int16_integer_array(arr, name, n1, debug)

Parameters:

• arr (*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_2d_int16_integer_array(arr, name, n1, n2, debug)

Parameters:

• arr (*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_3d_int16_integer_array(arr, name, n1, n2, n3, debug)

Parameters:

• arr (*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_4d_int16_integer_array(arr, name, n1, n2, n3, n4, debug)

Parameters:

• arr (*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_5d_int16_integer_array(arr, name, n1, n2, n3, n4, n5, debug)

Parameters:

• arr (*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_6d_int16_integer_array(arr, name, n1, n2, n3, n4, n5, n6, debug)

Parameters:

• arr (*,*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_7d_int16_integer_array(arr, name, n1, n2, n3, n4, n5, n6, n7, debug)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_1d_int32_integer_array(arr, name, n1, debug)

Parameters:

• arr (*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_2d_int32_integer_array(arr, name, n1, n2, debug)

Parameters:

• arr (*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_3d_int32_integer_array(arr, name, n1, n2, n3, debug)

Parameters:

• arr (*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_4d_int32_integer_array(arr, name, n1, n2, n3, n4, debug)

Parameters:

• arr (*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_5d_int32_integer_array(arr, name, n1, n2, n3, n4, n5, debug)

Parameters:

• arr (*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_6d_int32_integer_array(arr, name, n1, n2, n3, n4, n5, n6, debug)

Parameters:

• arr (*,*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_7d_int32_integer_array(arr, name, n1, n2, n3, n4, n5, n6, n7, debug)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_1d_int64_integer_array(arr, name, n1, debug)

Parameters:

• arr (*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_2d_int64_integer_array(arr, name, n1, n2, debug)

Parameters:

• arr (*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_3d_int64_integer_array(arr, name, n1, n2, n3, debug)

Parameters:

• arr (*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_4d_int64_integer_array(arr, name, n1, n2, n3, n4, debug)

Parameters:

• arr (*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_5d_int64_integer_array(arr, name, n1, n2, n3, n4, n5, debug)

Parameters:

• arr (*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_6d_int64_integer_array(arr, name, n1, n2, n3, n4, n5, n6, debug)

Parameters:

• arr (*,*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_7d_int64_integer_array(arr, name, n1, n2, n3, n4, n5, n6, n7, debug)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_1d_int8_logical_array(arr, name, n1, debug)

Parameters:

• arr (*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_2d_int8_logical_array(arr, name, n1, n2, debug)

Parameters:

• arr (*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_3d_int8_logical_array(arr, name, n1, n2, n3, debug)

Parameters:

• arr (*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_4d_int8_logical_array(arr, name, n1, n2, n3, n4, debug)

Parameters:

• arr (*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_5d_int8_logical_array(arr, name, n1, n2, n3, n4, n5, debug)

Parameters:

• arr (*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_6d_int8_logical_array(arr, name, n1, n2, n3, n4, n5, n6, debug)

Parameters:

• arr (*,*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_7d_int8_logical_array(arr, name, n1, n2, n3, n4, n5, n6, n7, debug)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_1d_int16_logical_array(arr, name, n1, debug)

Parameters:

• arr (*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_2d_int16_logical_array(arr, name, n1, n2, debug)

Parameters:

• arr (*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_3d_int16_logical_array(arr, name, n1, n2, n3, debug)

Parameters:

• arr (*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_4d_int16_logical_array(arr, name, n1, n2, n3, n4, debug)

Parameters:

• arr (*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_5d_int16_logical_array(arr, name, n1, n2, n3, n4, n5, debug)

Parameters:

• arr (*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_6d_int16_logical_array(arr, name, n1, n2, n3, n4, n5, n6, debug)

Parameters:

• arr (*,*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_7d_int16_logical_array(arr, name, n1, n2, n3, n4, n5, n6, n7, debug)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_1d_int32_logical_array(arr, name, n1, debug)

Parameters:

• arr (*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_2d_int32_logical_array(arr, name, n1, n2, debug)

Parameters:

• arr (*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_3d_int32_logical_array(arr, name, n1, n2, n3, debug)

Parameters:

• arr (*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_4d_int32_logical_array(arr, name, n1, n2, n3, n4, debug)

Parameters:

• arr (*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_5d_int32_logical_array(arr, name, n1, n2, n3, n4, n5, debug)

Parameters:

• arr (*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_6d_int32_logical_array(arr, name, n1, n2, n3, n4, n5, n6, debug)

Parameters:

• arr (*,*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_7d_int32_logical_array(arr, name, n1, n2, n3, n4, n5, n6, n7, debug)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_1d_int64_logical_array(arr, name, n1, debug)

Parameters:

• arr (*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_2d_int64_logical_array(arr, name, n1, n2, debug)

Parameters:

• arr (*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_3d_int64_logical_array(arr, name, n1, n2, n3, debug)

Parameters:

• arr (*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_4d_int64_logical_array(arr, name, n1, n2, n3, n4, debug)

Parameters:

• arr (*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_5d_int64_logical_array(arr, name, n1, n2, n3, n4, n5, debug)

Parameters:

• arr (*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_6d_int64_logical_array(arr, name, n1, n2, n3, n4, n5, n6, debug)

Parameters:

• arr (*,*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_7d_int64_logical_array(arr, name, n1, n2, n3, n4, n5, n6, n7, debug)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_1d_real32_real_array(arr, name, n1, debug)

Parameters:

• arr (*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_2d_real32_real_array(arr, name, n1, n2, debug)

Parameters:

• arr (*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_3d_real32_real_array(arr, name, n1, n2, n3, debug)

Parameters:

• arr (*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_4d_real32_real_array(arr, name, n1, n2, n3, n4, debug)

Parameters:

• arr (*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_5d_real32_real_array(arr, name, n1, n2, n3, n4, n5, debug)

Parameters:

• arr (*,*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_6d_real32_real_array(arr, name, n1, n2, n3, n4, n5, n6, debug)

Parameters:

• arr (*,*,*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_7d_real32_real_array(arr, name, n1, n2, n3, n4, n5, n6, n7, debug)

Parameters:

• arr (*,*,*,*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_1d_real64_real_array(arr, name, n1, debug)

Parameters:

• arr (*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_2d_real64_real_array(arr, name, n1, n2, debug)

Parameters:

• arr (*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_3d_real64_real_array(arr, name, n1, n2, n3, debug)

Parameters:

• arr (*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_4d_real64_real_array(arr, name, n1, n2, n3, n4, debug)

Parameters:

• arr (*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_5d_real64_real_array(arr, name, n1, n2, n3, n4, n5, debug)

Parameters:

• arr (*,*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_6d_real64_real_array(arr, name, n1, n2, n3, n4, n5, n6, debug)

Parameters:

• arr (*,*,*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_7d_real64_real_array(arr, name, n1, n2, n3, n4, n5, n6, n7, debug)

Parameters:

• arr (*,*,*,*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_1d_real128_real_array(arr, name, n1, debug)

Parameters:

• arr (*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_2d_real128_real_array(arr, name, n1, n2, debug)

Parameters:

• arr (*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_3d_real128_real_array(arr, name, n1, n2, n3, debug)

Parameters:

• arr (*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_4d_real128_real_array(arr, name, n1, n2, n3, n4, debug)

Parameters:

• arr (*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_5d_real128_real_array(arr, name, n1, n2, n3, n4, n5, debug)

Parameters:

• arr (*,*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_6d_real128_real_array(arr, name, n1, n2, n3, n4, n5, n6, debug)

Parameters:

• arr (*,*,*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_allocate_7d_real128_real_array(arr, name, n1, n2, n3, n4, n5, n6, n7, debug)

Parameters:

• arr (*,*,*,*,*,*,*) [real ,inout,allocatable]

• name [character(len=*),in]

• n1 [integer ,in]

• n2 [integer ,in]

• n3 [integer ,in]

• n4 [integer ,in]

• n5 [integer ,in]

• n6 [integer ,in]

• n7 [integer ,in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_border_2d_real32_real_array(n1, n2, arr, borderedarr, name, debug)

Parameters:

• n1 [integer ,in,]

• n2 [integer ,in,]

• arr (n1,n2) [real ,in]

• borderedarr (*,*) [real ,out,allocatable]

• name [character(len=*),in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_border_2d_real64_real_array(n1, n2, arr, borderedarr, name, debug)

Parameters:

• n1 [integer ,in,]

• n2 [integer ,in,]

• arr (n1,n2) [real ,in]

• borderedarr (*,*) [real ,out,allocatable]

• name [character(len=*),in]

• debug [logical ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_calc_dist_between_two_locs(lon1_deg, lat1_deg, lon2_deg, lat2_deg, s_m, alpha1_deg, alpha2_deg[, eps[, nmax]])

Parameters:

• lon1_deg [real ,in]

• lat1_deg [real ,in]

• lon2_deg [real ,in]

• lat2_deg [real ,in]

• s_m [real ,out]

• alpha1_deg [real ,out]

• alpha2_deg [real ,out]

Options:

• eps [real ,in,]

• nmax [integer ,in,]

Use :

iso_fortran_env

subroutine  mod_safe/sub_calc_loc_from_loc_and_bearing_and_dist(lon1_deg, lat1_deg, alpha1_deg, s_m, lon2_deg, lat2_deg, alpha2_deg[, eps[, nmax]])

Parameters:

• lon1_deg [real ,in]

• lat1_deg [real ,in]

• alpha1_deg [real ,in]

• s_m [real ,in]

• lon2_deg [real ,out]

• lat2_deg [real ,out]

• alpha2_deg [real ,out]

Options:

• eps [real ,in,]

• nmax [integer ,in,]

Use :

iso_fortran_env

subroutine  mod_safe/sub_find_middle_of_locs_euclideanbox(n, lons, lats, midlon, midlat, maxdist)

Parameters:

• n [integer ,in,]

• lons (n) [real ,in]

• lats (n) [real ,in]

• midlon [real ,out]

• midlat [real ,out]

• maxdist [real ,out]

Use :

iso_fortran_env

subroutine  mod_safe/sub_find_middle_of_locs_euclideancircle(n, lons, lats, midlon, midlat, maxdist[, angconv[, debug[, dist[, irefine[, nang[, nangiter[, ndistiter[, nrefine]]]]]]]])

Parameters:

• n [integer ,in,]

• lons (n) [real ,in]

• lats (n) [real ,in]

• midlon [real ,inout]

• midlat [real ,inout]

• maxdist [real ,out]

Options:

• angconv [real ,in,]

• debug [logical ,in,]

• dist [real ,in,]

• irefine [integer ,in,]

• nang [integer ,in,]

• nangiter [integer ,in,]

• ndistiter [integer ,in,]

• nrefine [integer ,in,]

Use :

iso_fortran_env

subroutine  mod_safe/sub_find_middle_of_locs_geodesicbox(n, lons, lats, midlon, midlat, maxdist[, angconv[, debug[, dist[, eps[, irefine[, nang[, nangiter[, ndistiter[, nmax[, nrefine]]]]]]]]]])

Parameters:

• n [integer ,in,]

• lons (n) [real ,in]

• lats (n) [real ,in]

• midlon [real ,inout]

• midlat [real ,inout]

• maxdist [real ,out]

Options:

• angconv [real ,in,]

• debug [logical ,in,]

• dist [real ,in,]

• eps [real ,in,]

• irefine [integer ,in,]

• nang [integer ,in,]

• nangiter [integer ,in,]

• ndistiter [integer ,in,]

• nmax [integer ,in,]

• nrefine [integer ,in,]

Use :

iso_fortran_env

subroutine  mod_safe/sub_find_middle_of_locs_geodesiccircle(n, lons, lats, midlon, midlat, maxdist[, angconv[, debug[, dist[, eps[, irefine[, nang[, nangiter[, ndistiter[, nmax[, nrefine]]]]]]]]]])

Parameters:

• n [integer ,in,]

• lons (n) [real ,in]

• lats (n) [real ,in]

• midlon [real ,inout]

• midlat [real ,inout]

• maxdist [real ,out]

Options:

• angconv [real ,in,]

• debug [logical ,in,]

• dist [real ,in,]

• eps [real ,in,]

• irefine [integer ,in,]

• nang [integer ,in,]

• nangiter [integer ,in,]

• ndistiter [integer ,in,]

• nmax [integer ,in,]

• nrefine [integer ,in,]

Use :

iso_fortran_env

subroutine  mod_safe/sub_find_min_max_dist_bearing_euclideanspace(n, midlon, midlat, lons, lats, bestang[, angconv[, anghalfrange[, debug[, dist[, iangiter[, idistiter[, irefine[, nang[, nangiter[, ndistiter[, nrefine[, startang]]]]]]]]]]]])

Parameters:

• n [integer ,in,]

• midlon [real ,in]

• midlat [real ,in]

• lons (n) [real ,in]

• lats (n) [real ,in]

• bestang [real ,out]

Options:

• angconv [real ,in,]

• anghalfrange [real ,in,]

• debug [logical ,in,]

• dist [real ,in,]

• iangiter [integer ,in,]

• idistiter [integer ,in,]

• irefine [integer ,in,]

• nang [integer ,in,]

• nangiter [integer ,in,]

• ndistiter [integer ,in,]

• nrefine [integer ,in,]

• startang [real ,in,]

Use :

iso_fortran_env

subroutine  mod_safe/sub_find_min_max_dist_bearing_geodesicspace(n, midlon, midlat, lons, lats, bestang[, angconv[, anghalfrange[, debug[, dist[, eps[, iangiter[, idistiter[, irefine[, nang[, nangiter[, ndistiter[, nmax[, nrefine[, startang]]]]]]]]]]]]]])

Parameters:

• n [integer ,in,]

• midlon [real ,in]

• midlat [real ,in]

• lons (n) [real ,in]

• lats (n) [real ,in]

• bestang [real ,out]

Options:

• angconv [real ,in,]

• anghalfrange [real ,in,]

• debug [logical ,in,]

• dist [real ,in,]

• eps [real ,in,]

• iangiter [integer ,in,]

• idistiter [integer ,in,]

• irefine [integer ,in,]

• nang [integer ,in,]

• nangiter [integer ,in,]

• ndistiter [integer ,in,]

• nmax [integer ,in,]

• nrefine [integer ,in,]

• startang [real ,in,]

Use :

iso_fortran_env

subroutine  mod_safe/sub_flood_int16_integer_array(nx, ny, elev, sealevel, flooded, tilescale, tot)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• elev (nx,ny) [integer ,in]

• sealevel [integer ,in]

• flooded (nx,ny) [logical ,inout]

• tilescale [integer ,in]

• tot (*) [integer ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_flood_int32_integer_array(nx, ny, elev, sealevel, flooded, tilescale, tot)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• elev (nx,ny) [integer ,in]

• sealevel [integer ,in]

• flooded (nx,ny) [logical ,inout]

• tilescale [integer ,in]

• tot (*) [integer ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_flood_int64_integer_array(nx, ny, elev, sealevel, flooded, tilescale, tot)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• elev (nx,ny) [integer ,in]

• sealevel [integer ,in]

• flooded (nx,ny) [logical ,inout]

• tilescale [integer ,in]

• tot (*) [integer ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_flood_real32_real_array(nx, ny, elev, sealevel, flooded, tilescale, tot)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• elev (nx,ny) [real ,in]

• sealevel [real ,in]

• flooded (nx,ny) [logical ,inout]

• tilescale [integer ,in]

• tot (*) [integer ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_flood_real64_real_array(nx, ny, elev, sealevel, flooded, tilescale, tot)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• elev (nx,ny) [real ,in]

• sealevel [real ,in]

• flooded (nx,ny) [logical ,inout]

• tilescale [integer ,in]

• tot (*) [integer ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_flood_int16_integer_array_iter(nx, ny, elev, sealevel, flooded, ixlo, ixhi, iylo, iyhi)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• elev (nx,ny) [integer ,in]

• sealevel [integer ,in]

• flooded (nx,ny) [logical ,inout]

• ixlo [integer ,in]

• ixhi [integer ,in]

• iylo [integer ,in]

• iyhi [integer ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_flood_int32_integer_array_iter(nx, ny, elev, sealevel, flooded, ixlo, ixhi, iylo, iyhi)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• elev (nx,ny) [integer ,in]

• sealevel [integer ,in]

• flooded (nx,ny) [logical ,inout]

• ixlo [integer ,in]

• ixhi [integer ,in]

• iylo [integer ,in]

• iyhi [integer ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_flood_int64_integer_array_iter(nx, ny, elev, sealevel, flooded, ixlo, ixhi, iylo, iyhi)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• elev (nx,ny) [integer ,in]

• sealevel [integer ,in]

• flooded (nx,ny) [logical ,inout]

• ixlo [integer ,in]

• ixhi [integer ,in]

• iylo [integer ,in]

• iyhi [integer ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_flood_real32_real_array_iter(nx, ny, elev, sealevel, flooded, ixlo, ixhi, iylo, iyhi)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• elev (nx,ny) [real ,in]

• sealevel [real ,in]

• flooded (nx,ny) [logical ,inout]

• ixlo [integer ,in]

• ixhi [integer ,in]

• iylo [integer ,in]

• iyhi [integer ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_flood_real64_real_array_iter(nx, ny, elev, sealevel, flooded, ixlo, ixhi, iylo, iyhi)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• elev (nx,ny) [real ,in]

• sealevel [real ,in]

• flooded (nx,ny) [logical ,inout]

• ixlo [integer ,in]

• ixhi [integer ,in]

• iylo [integer ,in]

• iyhi [integer ,in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_linearregression(n, x, y, m, c)

Parameters:

• n [integer ,in,]

• x (n) [real ,in]

• y (n) [real ,in]

• m [real ,out]

• c [real ,out]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_1d_int8_integer_array_from_bin(arr, fname)

Parameters:

• arr (*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_2d_int8_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_3d_int8_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_4d_int8_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_5d_int8_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_6d_int8_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_7d_int8_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_1d_int16_integer_array_from_bin(arr, fname)

Parameters:

• arr (*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_2d_int16_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_3d_int16_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_4d_int16_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_5d_int16_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_6d_int16_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_7d_int16_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_1d_int32_integer_array_from_bin(arr, fname)

Parameters:

• arr (*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_2d_int32_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_3d_int32_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_4d_int32_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_5d_int32_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_6d_int32_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_7d_int32_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_1d_int64_integer_array_from_bin(arr, fname)

Parameters:

• arr (*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_2d_int64_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_3d_int64_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_4d_int64_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_5d_int64_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_6d_int64_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_7d_int64_integer_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_1d_int8_logical_array_from_bin(arr, fname)

Parameters:

• arr (*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_2d_int8_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_3d_int8_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_4d_int8_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_5d_int8_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_6d_int8_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_7d_int8_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_1d_int16_logical_array_from_bin(arr, fname)

Parameters:

• arr (*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_2d_int16_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_3d_int16_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_4d_int16_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_5d_int16_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_6d_int16_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_7d_int16_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_1d_int32_logical_array_from_bin(arr, fname)

Parameters:

• arr (*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_2d_int32_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_3d_int32_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_4d_int32_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_5d_int32_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_6d_int32_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_7d_int32_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_1d_int64_logical_array_from_bin(arr, fname)

Parameters:

• arr (*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_2d_int64_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_3d_int64_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_4d_int64_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_5d_int64_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_6d_int64_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_7d_int64_logical_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_1d_real32_real_array_from_bin(arr, fname)

Parameters:

• arr (*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_2d_real32_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_3d_real32_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_4d_real32_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_5d_real32_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_6d_real32_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_7d_real32_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_1d_real64_real_array_from_bin(arr, fname)

Parameters:

• arr (*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_2d_real64_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_3d_real64_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_4d_real64_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_5d_real64_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_6d_real64_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_7d_real64_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_1d_real128_real_array_from_bin(arr, fname)

Parameters:

• arr (*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_2d_real128_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_3d_real128_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_4d_real128_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_5d_real128_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_6d_real128_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_load_7d_real128_real_array_from_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [real ,out]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_max_dist_euclideanspace(n, midlon, midlat, lons, lats, maxdist)

Parameters:

• n [integer ,in,]

• midlon [real ,in]

• midlat [real ,in]

• lons (n) [real ,in]

• lats (n) [real ,in]

• maxdist [real ,out]

Use :

iso_fortran_env

subroutine  mod_safe/sub_max_dist_geodesicspace(n, midlon, midlat, lons, lats, maxdist[, eps[, nmax]])

Parameters:

• n [integer ,in,]

• midlon [real ,in]

• midlat [real ,in]

• lons (n) [real ,in]

• lats (n) [real ,in]

• maxdist [real ,out]

Options:

• eps [real ,in,]

• nmax [integer ,in,]

Use :

iso_fortran_env

subroutine  mod_safe/sub_quadraticregression(n, x, y, a, b, c)

Parameters:

• n [integer ,in,]

• x (n) [real ,in]

• y (n) [real ,in]

• a [real ,out]

• b [real ,out]

• c [real ,out]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_1d_int8_integer_array_as_bin(arr, fname)

Parameters:

• arr (*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int8_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_3d_int8_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_4d_int8_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_5d_int8_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_6d_int8_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_7d_int8_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_1d_int16_integer_array_as_bin(arr, fname)

Parameters:

• arr (*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int16_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_3d_int16_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_4d_int16_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_5d_int16_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_6d_int16_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_7d_int16_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_1d_int32_integer_array_as_bin(arr, fname)

Parameters:

• arr (*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int32_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_3d_int32_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_4d_int32_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_5d_int32_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_6d_int32_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_7d_int32_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_1d_int64_integer_array_as_bin(arr, fname)

Parameters:

• arr (*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int64_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_3d_int64_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_4d_int64_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_5d_int64_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_6d_int64_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_7d_int64_integer_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_1d_int8_logical_array_as_bin(arr, fname)

Parameters:

• arr (*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int8_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_3d_int8_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_4d_int8_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_5d_int8_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_6d_int8_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_7d_int8_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_1d_int16_logical_array_as_bin(arr, fname)

Parameters:

• arr (*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int16_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_3d_int16_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_4d_int16_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_5d_int16_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_6d_int16_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_7d_int16_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_1d_int32_logical_array_as_bin(arr, fname)

Parameters:

• arr (*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int32_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_3d_int32_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_4d_int32_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_5d_int32_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_6d_int32_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_7d_int32_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_1d_int64_logical_array_as_bin(arr, fname)

Parameters:

• arr (*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int64_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_3d_int64_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_4d_int64_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_5d_int64_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_6d_int64_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_7d_int64_logical_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_1d_real32_real_array_as_bin(arr, fname)

Parameters:

• arr (*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_real32_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_3d_real32_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_4d_real32_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_5d_real32_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_6d_real32_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_7d_real32_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_1d_real64_real_array_as_bin(arr, fname)

Parameters:

• arr (*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_real64_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_3d_real64_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_4d_real64_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_5d_real64_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_6d_real64_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_7d_real64_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_1d_real128_real_array_as_bin(arr, fname)

Parameters:

• arr (*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_real128_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_3d_real128_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_4d_real128_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_5d_real128_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_6d_real128_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_7d_real128_real_array_as_bin(arr, fname)

Parameters:

• arr (*,*,*,*,*,*,*) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int8_logical_array_as_pbm(nx, ny, arr, fname)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int16_logical_array_as_pbm(nx, ny, arr, fname)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int32_logical_array_as_pbm(nx, ny, arr, fname)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int64_logical_array_as_pbm(nx, ny, arr, fname)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [logical ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int8_integer_array_as_pgm(nx, ny, arr, fname)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int16_integer_array_as_pgm(nx, ny, arr, fname)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int32_integer_array_as_pgm(nx, ny, arr, fname)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int64_integer_array_as_pgm(nx, ny, arr, fname)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_real32_real_array_as_pgm(nx, ny, arr, fname)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_real64_real_array_as_pgm(nx, ny, arr, fname)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_real128_real_array_as_pgm(nx, ny, arr, fname)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [real ,in]

• fname [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int8_integer_array_as_ppm(nx, ny, arr, fname, cm)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• fname [character(len=*),in]

• cm [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int16_integer_array_as_ppm(nx, ny, arr, fname, cm)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• fname [character(len=*),in]

• cm [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int32_integer_array_as_ppm(nx, ny, arr, fname, cm)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• fname [character(len=*),in]

• cm [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_int64_integer_array_as_ppm(nx, ny, arr, fname, cm)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• fname [character(len=*),in]

• cm [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_real32_real_array_as_ppm(nx, ny, arr, fname, cm)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [real ,in]

• fname [character(len=*),in]

• cm [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_real64_real_array_as_ppm(nx, ny, arr, fname, cm)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [real ,in]

• fname [character(len=*),in]

• cm [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_save_2d_real128_real_array_as_ppm(nx, ny, arr, fname, cm)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [real ,in]

• fname [character(len=*),in]

• cm [character(len=*),in]

Use :

iso_fortran_env

subroutine  mod_safe/sub_shrink_2d_int8_integer_array_to_2d_real32_real_array(nx, ny, arr, shrinkscale, shrunkenarr)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• shrinkscale [integer ,in]

• shrunkenarr (*,*) [real ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_shrink_2d_int8_integer_array_to_2d_real64_real_array(nx, ny, arr, shrinkscale, shrunkenarr)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• shrinkscale [integer ,in]

• shrunkenarr (*,*) [real ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_shrink_2d_int8_logical_array_to_2d_real32_real_array(nx, ny, arr, shrinkscale, shrunkenarr)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [logical ,in]

• shrinkscale [integer ,in]

• shrunkenarr (*,*) [real ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_shrink_2d_int8_logical_array_to_2d_real64_real_array(nx, ny, arr, shrinkscale, shrunkenarr)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [logical ,in]

• shrinkscale [integer ,in]

• shrunkenarr (*,*) [real ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_shrink_2d_int16_integer_array(nx, ny, arr, shrinkscale, shrunkenarr)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• shrinkscale [integer ,in]

• shrunkenarr (*,*) [integer ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_shrink_2d_int32_integer_array(nx, ny, arr, shrinkscale, shrunkenarr)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• shrinkscale [integer ,in]

• shrunkenarr (*,*) [integer ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_shrink_2d_int64_integer_array(nx, ny, arr, shrinkscale, shrunkenarr)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [integer ,in]

• shrinkscale [integer ,in]

• shrunkenarr (*,*) [integer ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_shrink_2d_real32_real_array(nx, ny, arr, shrinkscale, shrunkenarr)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [real ,in]

• shrinkscale [integer ,in]

• shrunkenarr (*,*) [real ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_shrink_2d_real64_real_array(nx, ny, arr, shrinkscale, shrunkenarr)

Parameters:

• nx [integer ,in,]

• ny [integer ,in,]

• arr (nx,ny) [real ,in]

• shrinkscale [integer ,in]

• shrunkenarr (*,*) [real ,out,allocatable]

Use :

iso_fortran_env

subroutine  mod_safe/sub_solve_quadratic_real32_equation(a, b, c, x1, x2)

Parameters:

• a [real ,in]

• b [real ,in]

• c [real ,in]

• x1 [real ,out]

• x2 [real ,out]

Use :

iso_fortran_env

subroutine  mod_safe/sub_solve_quadratic_real64_equation(a, b, c, x1, x2)

Parameters:

• a [real ,in]

• b [real ,in]

• c [real ,in]

• x1 [real ,out]

• x2 [real ,out]

Use :

iso_fortran_env

subroutine  mod_safe/sub_solve_quadratic_real128_equation(a, b, c, x1, x2)

Parameters:

• a [real ,in]

• b [real ,in]

• c [real ,in]

• x1 [real ,out]

• x2 [real ,out]

Use :

iso_fortran_env

subroutine  mod_safe/sub_ttest_ind(n1, n2, arr1, arr2, similarvar, t, p)

Parameters:

• n1 [integer ,in,]

• n2 [integer ,in,]

• arr1 (n1) [real ,in]

• arr2 (n2) [real ,in]

• similarvar [logical ,in]

• t [real ,out]

• p [real ,out]

Use :

iso_fortran_env