SUBROUTINE local_system( command )

!------------------------------------------------------------------------------!
! Current revisions:
! -----------------
! 
!
! Former revisions:
! -----------------
! $Id: local_system.f90 484 2010-02-05 07:36:54Z witha $
!
! 82 2007-04-16 15:40:52Z raasch
! Preprocessor directives for old systems removed
!
! RCS Log replace by Id keyword, revision history cleaned up
!
! Revision 1.4  2003/03/16 09:40:33  raasch
! Two underscores (_) are placed in front of all define-strings
!
! Revision 1.1  1997/09/03 06:27:27  raasch
! Initial revision
!
!
! Description:
! ------------
! System calls for different operating systems
!------------------------------------------------------------------------------!

    CHARACTER (LEN=*) ::  command

    CALL SYSTEM( command )

 END SUBROUTINE local_system