V3FIT
LIBSTELL
Sources
Miscel
vmec_getenv.f90
1
SUBROUTINE
vmec_getenv(ename, evalue)
2
IMPLICIT NONE
3
CHARACTER(LEN=*)
:: ename, evalue
4
#if defined(CRAY)
5
INTEGER
:: lenname=0, lenval, ierror
6
CALL
pxfgetenv(ename, lenname, evalue, lenval, ierror)
7
#else
8
CALL
getenv(ename, evalue)
9
#endif
10
END SUBROUTINE
vmec_getenv
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17