V3FIT
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