From dc4a04bda86c1cafa21367330e2f8ad59dbfffac Mon Sep 17 00:00:00 2001 From: edoapra Date: Thu, 19 Oct 2023 16:06:02 -0700 Subject: [PATCH] util_getenv https://github.com/nwchemgit/nwchem/pull/887#issuecomment-1771380763 --- src/argos/argos_prepare_wrttop.F | 1 + src/argos/argos_space_wtrst.F | 1 + 2 files changed, 2 insertions(+) diff --git a/src/argos/argos_prepare_wrttop.F b/src/argos/argos_prepare_wrttop.F index 2982c302fb..4a0c412dd0 100644 --- a/src/argos/argos_prepare_wrttop.F +++ b/src/argos/argos_prepare_wrttop.F @@ -187,6 +187,7 @@ c ! For most purposes, it is more useful to use the environment variable ! LOGNAME to find out who the user is. This is more flexible precisely ! because the user can set LOGNAME arbitrarily. + call util_getenv('LOGNAME',user) #else call getlog(user) #endif diff --git a/src/argos/argos_space_wtrst.F b/src/argos/argos_space_wtrst.F index 23f7f60ad9..6a732bbd07 100644 --- a/src/argos/argos_space_wtrst.F +++ b/src/argos/argos_space_wtrst.F @@ -44,6 +44,7 @@ c ! For most purposes, it is more useful to use the environment variable ! LOGNAME to find out who the user is. This is more flexible precisely ! because the user can set LOGNAME arbitrarily. + call util_getenv('LOGNAME',user) #else call getlog(user) #endif