* 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]
JeffersonLab · Nov 6, 2023 · f04f93e · f04f93e
1 parent eeb8a2c
commit f04f93e
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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