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

used fortran 2003 GET_ENVIRONMENT_VARIABLE

Browse source
This commit is contained in:
edoapra 2023-10-13 12:02:11 -07:00
parent a238bd67e7
commit 2b89f717db
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/util/util_getenv.F
View file

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