diff --git a/example/concurrent-inferences.f90 b/example/concurrent-inferences.f90 index e6aaef9da..996d4c97d 100644 --- a/example/concurrent-inferences.f90 +++ b/example/concurrent-inferences.f90 @@ -20,7 +20,7 @@ program concurrent_inferences end if block - type(inference_engine_t) network, inference_engine + type(inference_engine_t) inference_engine type(tensor_t), allocatable :: inputs(:,:,:), outputs(:,:,:) real, allocatable :: input_components(:,:,:,:) integer, parameter :: lat=263, lon=317, lev=15 ! latitudes, longitudes, levels (elevations) diff --git a/example/learn-saturated-mixing-ratio.F90 b/example/learn-saturated-mixing-ratio.F90 index 10784e9e4..1302bde97 100644 --- a/example/learn-saturated-mixing-ratio.F90 +++ b/example/learn-saturated-mixing-ratio.F90 @@ -24,7 +24,7 @@ program train_saturated_mixture_ratio call system_clock(counter_start, clock_rate) block - integer, parameter :: max_num_epochs = 10000000, num_mini_batches = 6 + integer, parameter :: max_num_epochs = 10000000, num_mini_batches = 7 integer num_pairs ! number of input/output pairs type(mini_batch_t), allocatable :: mini_batches(:) @@ -35,7 +35,7 @@ program train_saturated_mixture_ratio real, allocatable :: cost(:), random_numbers(:) integer io_status, network_unit, plot_unit integer, parameter :: io_success=0, diagnostics_print_interval = 1000, network_save_interval = 10000 - integer, parameter :: nodes_per_layer(*) = [2, 72, 1] + integer, parameter :: nodes_per_layer(*) = [2, 4, 72, 2, 1] real, parameter :: cost_tolerance = 1.E-08 call random_init(image_distinct=.true., repeatable=.true.) diff --git a/example/supporting-modules/saturated_mixing_ratio_m.f90 b/example/supporting-modules/saturated_mixing_ratio_m.f90 index 3836dce91..e888f652d 100644 --- a/example/supporting-modules/saturated_mixing_ratio_m.f90 +++ b/example/supporting-modules/saturated_mixing_ratio_m.f90 @@ -37,7 +37,7 @@ module saturated_mixing_ratio_m real, parameter :: freezing_threshold = 273.15 ! [K] real, parameter :: T_min = 236.352524, T_max = 307.610779 real, parameter :: p_min = 29671.1348, p_max = 98596.7578 - integer, parameter :: resolution = 10 + integer, parameter :: resolution = 20 integer i real, parameter :: T(*) = [(real(i)/real(resolution), i=0,resolution)] real, parameter :: p(*) = [(real(i)/real(resolution), i=0,resolution)] diff --git a/fpm.toml b/fpm.toml index 660058e62..d5cb38030 100644 --- a/fpm.toml +++ b/fpm.toml @@ -6,4 +6,6 @@ maintainer = "rouson@lbl.gov" [dependencies] assert = {git = "https://github.com/sourceryinstitute/assert", tag = "1.7.0"} + +[dev-dependencies] julienne = {git = "https://github.com/berkeleylab/julienne"}