vmec_system.f

      SUBROUTINE vmec_system(cmd, ierror)
      INTEGER, OPTIONAL :: ierror
      INTEGER :: ireturn
      CHARACTER(LEN=*), INTENT(in) :: cmd
 
#if defined(CRAY)
      INTEGER, EXTERNAL :: ishell
      ireturn = ishell(trim(cmd))
#elif defined(RISC)
      CALL system(trim(cmd), ireturn)
#elif defined(IRIX64)
      CALL system(trim(cmd))
      ireturn = 0
#elif defined(LINUX) || defined(OSF1) || defined(DARWIN)
!      INTEGER, EXTERNAL :: system
      INTEGER :: system
      ireturn = system(trim(cmd))
#elif defined(WIN32) || defined(SUNOS)
      INTEGER, EXTERNAL :: system
      ireturn = system(trim(cmd))
#else
      INTEGER, EXTERNAL :: system
      CHARACTER(LEN=LEN_TRIM(cmd)+1) :: cmd1
      cmd1 = trim(cmd) // char(0)
      ireturn = system(trim(cmd1))
#endif
      IF (PRESENT(ierror)) ierror = ireturn
 
      END SUBROUTINE vmec_system