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