From 2b89f717dba9c12486f671796752ea7bf2de4085 Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Fri, 13 Oct 2023 12:02:11 -0700
Subject: [PATCH] used fortran 2003 GET_ENVIRONMENT_VARIABLE

---
 src/util/util_getenv.F | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/util/util_getenv.F b/src/util/util_getenv.F
index e0f66238a8..8f7820c07c 100644
--- a/src/util/util_getenv.F
+++ b/src/util/util_getenv.F
@@ -7,6 +7,8 @@
       character*(*) env_value ! [output] the value of the named environement variable
 #if defined(CRAY)
       integer*4 lname, lvalue, lerror
+#else
+      integer len,status
 #endif
 *
 #if defined(CRAY)
@@ -24,7 +26,8 @@
      *        lerror, UNKNOWN_ERR)
       endif
 #else
-      call getenv(env_name, env_value)
+cold      call getenv(env_name, env_value)
+      call GET_ENVIRONMENT_VARIABLE(env_name, env_value, len, status)
 #endif
 *
       end