aboutsummaryrefslogtreecommitdiff
path: root/player
diff options
context:
space:
mode:
Diffstat (limited to 'player')
-rw-r--r--player/levitating-player.prj109
-rw-r--r--player/player.F903
-rw-r--r--player/talking.f901
3 files changed, 60 insertions, 53 deletions
diff --git a/player/levitating-player.prj b/player/levitating-player.prj
index fef15ef..7e1cc28 100644
--- a/player/levitating-player.prj
+++ b/player/levitating-player.prj
@@ -1,8 +1,26 @@
{
"Root":{
+ "Files":[{
+ "filename":"config.f90",
+ "enabled":"1"
+ },{
+ "filename":"endpoints.f90",
+ "enabled":"1"
+ },{
+ "filename":"instructions.f90",
+ "enabled":"1"
+ },{
+ "filename":"player.F90",
+ "enabled":"1"
+ },{
+ "filename":"talking.f90",
+ "enabled":"1"
+ },{
+ "filename":"tasks.f90",
+ "enabled":"1"
+ }],
+ "Name":"+levitating-player (levitating-player)",
"Folders":[{
- "Folders":[],
- "Name":"+common",
"Files":[{
"filename":"../common/jessl.f90",
"enabled":"1"
@@ -16,87 +34,72 @@
"filename":"../common/request.f90",
"enabled":"1"
},{
+ "filename":"../common/testnum.c",
+ "enabled":"0"
+ },{
"filename":"../common/utilities.F90",
"enabled":"1"
},{
"filename":"../common/wsa.f90",
"enabled":"0"
- }]
- }],
- "Name":"+levitating-player (levitating-player.exe)",
- "Files":[{
- "filename":"config.f90",
- "enabled":"1"
- },{
- "filename":"endpoints.f90",
- "enabled":"1"
- },{
- "filename":"instructions.f90",
- "enabled":"1"
- },{
- "filename":"player.F90",
- "enabled":"1"
- },{
- "filename":"talking.f90",
- "enabled":"1"
- },{
- "filename":"tasks.f90",
- "enabled":"1"
+ }],
+ "Name":"+common",
+ "Folders":[]
}]
},
- "Name":"levitating-player (levitating-player.exe)",
+ "Name":"levitating-player (levitating-player)",
"Options":{
"Compiler Options":{
- "Fortran Flags":"-DGNU",
"Link Flags":"-ljsonfortran -lssl -lcrypto",
- "C Flags":""
+ "C Flags":"",
+ "Fortran Flags":"-DGNU"
},
- "Architecture":1,
- "Type":0,
"Revision":2,
- "Windows GUI":0,
- "File Options":{
- "Library Directories":["Default Add-On Directory","../support/lib"],
- "Build Directory":"build",
- "Module Directory":"modules",
- "Include Directories":["Default Add-On Include Directory","../support/include"]
- },
- "Target":"levitating-player.exe",
"Fortran Options":{
- "Use C Preprocessor":"false",
- "Runtime Diagnostics":"false",
- "Floating Point Exception Trap":0,
- "Cray Pointers":"false",
"Enable Coarrays":"false",
+ "Cray Pointers":"false",
+ "Runtime Diagnostics":"false",
"Enable OpenMP":"false",
"Initialize Variables to Zero":"false",
- "Default Double for Real":"false"
+ "Floating Point Exception Trap":0,
+ "Default Double for Real":"false",
+ "Use C Preprocessor":"false"
},
"Code Generation Options":{
- "CPU Specific":"false",
- "Processor":"generic",
- "Aggressive Loops":"false",
"Debugging":"true",
+ "Profiling":"false",
"Optimization Mode":0,
- "Profiling":"false"
+ "Aggressive Loops":"false",
+ "Processor":"generic",
+ "CPU Specific":"false"
},
- "Build Dependencies":1,
"Launch Options":{
- "Working Directory":"/tmp/example",
- "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",
- "Build Before Launch":"true"
+ "External Console":"false",
+ "Keep Console":"true",
+ "Launch Using MPI":"false",
+ "Build Before Launch":"true",
+ "Working Directory":"/tmp/example"
},
"Build Options":{
"Makefile":"Makefile",
"Auto Makefile":"true"
},
+ "Type":0,
+ "Build Dependencies":1,
"Linker Options":{
"Static Linking Mode":3,
- "Link MPI Library":"false",
- "Link LAPACK":0
+ "Link LAPACK":0,
+ "Link MPI Library":"false"
+ },
+ "Target":"levitating-player",
+ "Architecture":1,
+ "Windows GUI":0,
+ "File Options":{
+ "Module Directory":"modules",
+ "Library Directories":["Default Add-On Directory","../support/lib","/opt/homebrew/opt/openssl@1.1/lib"],
+ "Build Directory":"build",
+ "Include Directories":["Default Add-On Include Directory","../support/include"]
}
}
} \ No newline at end of file
diff --git a/player/player.F90 b/player/player.F90
index dc05619..49803c5 100644
--- a/player/player.F90
+++ b/player/player.F90
@@ -58,6 +58,9 @@ implicit none
checkin_json_available = request_json(url, j_checkin)
if(checkin_json_available) then
work_to_do = work_available(j_checkin)
+ else
+ Print *, "Checkin failed: "//trim(url)
+ work_to_do = .false.
end if
if(work_to_do) then
diff --git a/player/talking.f90 b/player/talking.f90
index c33e059..42b6451 100644
--- a/player/talking.f90
+++ b/player/talking.f90
@@ -51,6 +51,7 @@ contains
status_code = request_url(mod_url, unit_number, return_type)
else
status_code = STATUS_LOCALFAIL
+ Print *, "Failed to open: "//trim(filename)
end if
close(unit_number)