+-------------------------------IBM Extension--------------------------------+
Purpose
Passes a command to the operating system for execution. The current process pauses until the command is completed and control is returned from the operating system. An added, optional argument to the subroutine will allow recovery of any return code information from the operating system.
Class
Subroutine
Argument Type and Attributes
Examples
INTEGER ULIMIT CHARACTER(32) CMD ... ! Check the system ulimit. CMD = 'ulimit > ./fort.99' CALL SYSTEM(CMD) READ(99, *) ULIMIT IF (ULIMIT .LT. 2097151) THEN ...
INTEGER RC RC=99 CALL SYSTEM("/bin/test 1 -EQ 2",RC) IF (IAND(RC,'ff'z) .EQ. 0) then RC = IAND( ISHFT(RC,-8), 'ff'z ) ELSE RC = -1 ENDIF
+----------------------------End of IBM Extension----------------------------+