source: palm/trunk/SOURCE/local_system.f90 @ 4

Last change on this file since 4 was 4, checked in by raasch, 18 years ago

Id keyword set as property for all *.f90 files

  • Property svn:keywords set to Id
File size: 832 bytes
Line 
1 SUBROUTINE local_system( command )
2
3!------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: local_system.f90 4 2007-02-13 11:33:16Z raasch $
11! RCS Log replace by Id keyword, revision history cleaned up
12!
13! Revision 1.4  2003/03/16 09:40:33  raasch
14! Two underscores (_) are placed in front of all define-strings
15!
16! Revision 1.1  1997/09/03 06:27:27  raasch
17! Initial revision
18!
19!
20! Description:
21! ------------
22! System calls for different operating systems
23!------------------------------------------------------------------------------!
24
25    CHARACTER (LEN=*) ::  command
26
27#if defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej2 ) || defined( __t3ej5 )
28    CALL ISHELL( command )
29#else
30    CALL SYSTEM( command )
31#endif
32
33 END SUBROUTINE local_system   
Note: See TracBrowser for help on using the repository browser.