program main
  implicit none
  integer argc, n, m
  real p
  CHARACTER argv*32
  
  argc = COMMAND_ARGUMENT_COUNT()
  call GET_COMMAND_ARGUMENT ( 0, argv )
  if (argc<3) then
    write (*,*) "Benutzung: ", trim(argv), " n m p"
    stop
  endif
  
  call GET_COMMAND_ARGUMENT ( 1, argv )
  read (argv, *) n
  
  call GET_COMMAND_ARGUMENT ( 2, argv )
  read (argv, *) m
  
  call GET_COMMAND_ARGUMENT ( 3, argv )
  read (argv, *) p
  
  write (*,*) n,m,p
end program