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