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