From f04f93ef60801622e6d84ca2a96878d87c3200b4 Mon Sep 17 00:00:00 2001
From: Richard Jones <rjones30@gmail.com>
Date: Mon, 6 Nov 2023 14:03:20 -0500
Subject: [PATCH] * fix passing scalar values for array arguments with length
 1,   which is ok in principle but now gets a compiler warning under  
 gfortran version 11. [rtj]

---
 hdds-geant.cpp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hdds-geant.cpp b/hdds-geant.cpp
index 399858356..11b226713 100644
--- a/hdds-geant.cpp
+++ b/hdds-geant.cpp
@@ -213,12 +213,12 @@ int FortranWriter::createMaterial(DOMElement* el)
               << std::endl
               << "      imate = " << imate << std::endl
               << "      namate = \'" << S(matS) << "\'" << std::endl
-              << "      a = " << a << std::endl
-              << "      z = " << z << std::endl
+              << "      amat(1) = " << a << std::endl
+              << "      zmat(1) = " << z << std::endl
               << "      dens = " << dens << std::endl
               << "      nlmat = 1" << std::endl
               << "      wmat(1) = 1" << std::endl
-              << "      call gsmixt(imate,namate,a,z,dens,nlmat,wmat)"
+              << "      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)"
               << std::endl;
       }
       else