From 0a4f8eb2e77488cd095c1f4c36d1fb33c79b1540 Mon Sep 17 00:00:00 2001 From: Dominick Date: Thu, 16 Jun 2022 00:18:37 -0600 Subject: [PATCH] parallelize(main): fix issue #20 --- app/main.f90 | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/app/main.f90 b/app/main.f90 index 15fb1cb..ba88d92 100644 --- a/app/main.f90 +++ b/app/main.f90 @@ -9,10 +9,15 @@ program tcell double precision vel(nintervals) double precision cumulative_distribution(0:nintervals) - double precision random_number_table(ncells,npositions,4) - double precision x(ncells,npositions) - double precision y(ncells,npositions) - double precision z(ncells,npositions) + double precision, allocatable :: random_number_table(:,:,:) + double precision, allocatable :: x(:,:) + double precision, allocatable :: y(:,:) + double precision, allocatable :: z(:,:) + + allocate(random_number_table(ncells,npositions,4)) + allocate(x(ncells,npositions)) + allocate(y(ncells,npositions)) + allocate(z(ncells,npositions)) call initialize_positions(x,y,z,ncells,npositions)