GET_COMMAND — Get the entire command lineCALL GET_COMMAND([COMMAND, LENGTH, STATUS])
     | COMMAND | (Optional) shall be of type CHARACTERand
of default kind. | 
| LENGTH | (Optional) Shall be of type INTEGERand of
default kind. | 
| STATUS | (Optional) Shall be of type INTEGERand of
default kind. | 
          PROGRAM test_get_command
            CHARACTER(len=255) :: cmd
            CALL get_command(cmd)
            WRITE (*,*) TRIM(cmd)
          END PROGRAM