V3FIT
vmec_chdir.f
1  INTEGER FUNCTION vmec_chdir(new_path)
2  IMPLICIT NONE
3  CHARACTER*(*), INTENT(in) :: new_path
4 #if defined(CRAY)
5  INTEGER :: ilen
6  ilen = 0
7  CALL pxfchdir(new_path, ilen, vmec_chdir)
8 #else
9  INTEGER :: chdir
10  vmec_chdir = chdir(trim(new_path))
11 #endif
12  END FUNCTION vmec_chdir