var/da/da_par_util/da_system.inc

   1 subroutine da_system(cmd)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: TBD
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    character (len=*) , intent(in) :: cmd
  10
  11 #ifdef crayx1
  12    call pxfsystem(cmd, len(cmd), ierr)
  13 #else
  14    call system(cmd)
  15 #endif
  16
  17 end subroutine da_system
  18
  19