comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 22:25:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

util_getenv https://github.com/nwchemgit/nwchem/pull/887#issuecomment-1771380763

Browse source
This commit is contained in:
edoapra 2023-10-19 16:06:02 -07:00
parent 2b30fc57cd
commit dc4a04bda8
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
2 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/argos/argos_prepare_wrttop.F
View file

@ -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

1
src/argos/argos_space_wtrst.F
View file

@ -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