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

Last change on this file since 2 was 1, checked in by raasch, 17 years ago

Initial repository layout and content

File size: 968 bytes
Line 
1 SUBROUTINE local_system( command )
2
3!-------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Log: local_system.f90,v $
11! Revision 1.4  2003/03/16 09:40:33  raasch
12! Two underscores (_) are placed in front of all define-strings
13!
14! Revision 1.3  2001/01/22 07:25:35  raasch
15! Comments translated into English
16!
17! Revision 1.2  1998/07/16 06:51:19  raasch
18! cpp-Direktiven fuer t3ej2 und t3ej5 erweitert
19!
20! Revision 1.1  1997/09/03 06:27:27  raasch
21! Initial revision
22!
23!
24! Description:
25! ------------
26! System calls for different operating systems
27!-------------------------------------------------------------------------------!
28
29    CHARACTER (LEN=*) ::  command
30
31#if defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej2 ) || defined( __t3ej5 )
32    CALL ISHELL( command )
33#else
34    CALL SYSTEM( command )
35#endif
36
37 END SUBROUTINE local_system   
Note: See TracBrowser for help on using the repository browser.