%N shell %F $MIR/src/prog/misc/rmdata.for
%D Issue a shell command
%P pjt
%: utilities
%B
      SUBROUTINE shell(cmd)

      CHARACTER cmd*(*)

 SHELL issues a shell command, as supplied by the input
 character string 'cmd'

 Input:
     cmd       character string of the shell command to be performed
               (probably the shell pointed to by the SHELL environment)

 The following implemention dependant operating system routines are called:

 UNICOS(cft):     CALL ``ishell(cmd)''
 VMS              CALL ``lib$spawn(cmd)''
 All other:       CALL ``system(cmd)''
