From 8789c9de6dbfbf70f8252de0f7c6f82daaccb415 Mon Sep 17 00:00:00 2001 From: Jack Foster Date: Tue, 9 Apr 2024 13:30:17 +0100 Subject: [PATCH] Made rjconpf and cptdin explicit arrays to allow for writing new IN.DAT from IN.DAT with indexed values --- source/fortran/pfcoil_variables.f90 | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/source/fortran/pfcoil_variables.f90 b/source/fortran/pfcoil_variables.f90 index 06d464e731..9a88e5004b 100644 --- a/source/fortran/pfcoil_variables.f90 +++ b/source/fortran/pfcoil_variables.f90 @@ -419,7 +419,10 @@ subroutine init_pfcoil_variables cohbop = 0.0D0 coheof = 1.85D7 cpt = 0.0D0 - cptdin = 4.0D4 + cptdin = (/4.0D4, 4.0D4, 4.0D4, & + 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, & + 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, & + 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4/) curpfb = 0.0D0 curpff = 0.0D0 curpfs = 0.0D0 @@ -458,7 +461,10 @@ subroutine init_pfcoil_variables ra = 0.0D0 rb = 0.0D0 ric = 0.0D0 - rjconpf = 3.0D7 + rjconpf = (/3.0D7, 3.0D7, 3.0D7, & + 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, & + 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, & + 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7/) rjohc = 0.0D0 rjohc0 = 0.0D0 rjpfalw = 0.0D0