V3FIT
LIBSTELL
Sources
Miscel
vmec_putenv.f
1
SUBROUTINE
vmec_putenv(ename, evalue, ierror)
2
IMPLICIT NONE
3
INTEGER
:: ierror
4
CHARACTER(LEN=*)
,
INTENT(in)
:: ename, evalue
5
CHARACTER(LEN=LEN_TRIM(ename)+LEN_TRIM(evalue)+2)
:: temp
6
INTEGER
,
EXTERNAL
:: putenv
7
8
temp = trim(ename) //
"="
// trim(evalue) // char(0)
9
10
ierror = putenv(temp)
11
12
END SUBROUTINE
vmec_putenv
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17