V3FIT
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