From b45b2dd73587abeeb0351bf35a2b20d6afddff24 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Fri, 20 Aug 2021 10:07:15 -0400 Subject: Added token to launch of example player. Improved stdout messages for players. --- player/instructions.f90 | 2 +- player/levitating-player.prj | 2 +- player/tasks.f90 | 2 ++ 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/player/instructions.f90 b/player/instructions.f90 index 65b392d..300fa2a 100644 --- a/player/instructions.f90 +++ b/player/instructions.f90 @@ -285,7 +285,7 @@ contains call get_task_operation(j, i, operation) - Print *, "Task: ", i + Write(*, '(1X, A5, 1X, I3, 2X)', advance='no') "Task:", i Print *, "Operation: "//trim(operation) if(len_trim(operation) == 0) then diff --git a/player/levitating-player.prj b/player/levitating-player.prj index b871c9a..12bb49f 100644 --- a/player/levitating-player.prj +++ b/player/levitating-player.prj @@ -92,7 +92,7 @@ "Launch Using MPI":"false", "Keep Console":"true", "External Console":"false", - "Command Line Arguments":"-i windows-1 -l /tmp/player.log -w /tmp/example 127.0.0.1", + "Command Line Arguments":"-i windows-1 -l /tmp/player.log -t abcd_password -w /tmp/example 127.0.0.1", "Build Before Launch":"true" }, "Build Options":{ diff --git a/player/tasks.f90 b/player/tasks.f90 index efc0fe4..de73b01 100644 --- a/player/tasks.f90 +++ b/player/tasks.f90 @@ -42,6 +42,8 @@ contains shell = .false. + Print *, "Command: "//trim(command) + if(is_absolute_path(directory)) then call chdir(directory) else -- cgit v1.2.3