!-----------------------------------------------------------------
!
!  This file is (or was) part of SPLASH, a visualisation tool
!  for Smoothed Particle Hydrodynamics written by Daniel Price:
!
!  http://users.monash.edu.au/~dprice/splash
!
!  SPLASH comes with ABSOLUTELY NO WARRANTY.
!  This is free software; and you are welcome to redistribute
!  it under the terms of the GNU General Public License
!  (see LICENSE file for details) and the provision that
!  this notice remains intact. If you modify this file, please
!  note section 2a) of the GPLv2 states that:
!
!  a) You must cause the modified files to carry prominent notices
!     stating that you changed the files and the date of any change.
!
!  Copyright (C) 2005-2009 Daniel Price. All rights reserved.
!  Contact: daniel.price@sci.monash.edu.au
!
!-----------------------------------------------------------------

!
! this module contains wrappers for all of the
! system and compiler dependent routines
!
! these are called from the main program by their generic names,
! and in here the actual call to the system is performed
!
! THIS ONE IS FOR MANY UNIX COMPILERS
!
module system_commands
 implicit none

contains

subroutine get_number_arguments(nargs)
 integer, intent(out) :: nargs
 integer :: iargc

 nargs = iargc()

end subroutine get_number_arguments

subroutine get_argument(iarg,argstring)
 integer, intent(in) :: iarg
 character(len=*), intent(out) :: argstring

 call getarg(iarg,argstring)

end subroutine get_argument

subroutine get_environment(variable,value)
 character(len=*), intent(in) :: variable
 character(len=*), intent(out) :: value

 call getenv(variable,value)

end subroutine get_environment

end module system_commands
