Commit 3eb270a6 authored by Matthias Redies's avatar Matthias Redies

just makes me feel better

parent 3dda18cc
......@@ -41,7 +41,7 @@ CONTAINS
no_keys=no_keys+1
IF (no_keys>MAX_NO_KEYS) STOP "BUG, too many keys in usage_data"
keys(no_keys) = key
IF(add_quotes) THEN
values(no_keys) = '"' // strip(VALUE) // '"'
ELSE
......@@ -58,7 +58,7 @@ CONTAINS
WRITE(txt,*) VALUE
CALL add_usage_data_s(key,txt, string_val=.False.)
END SUBROUTINE add_usage_data_i
SUBROUTINE add_usage_data_r(key,VALUE)
IMPLICIT NONE
CHARACTER(len=*),INTENT(IN):: key
......@@ -149,7 +149,7 @@ CONTAINS
ENDIF
#else
CALL system('curl --output /dev/null -m 5 -X POST -H "Content-Type: application/json" -d @usage.json https://docker.iff.kfa-juelich.de/fleur-usage-stats/')
#endif
#endif
#endif
ENDIF
......@@ -207,7 +207,7 @@ CONTAINS
done = found_modelname .and. found_model
cycle
endif
if(index(line, "model") /= 0) then
model = trim(line(index(line,":")+1:1000))
......@@ -230,10 +230,10 @@ CONTAINS
character(len=1000) :: line
integer :: openstat, readstat
VmPeak = ""
VmSize = ""
VmHWM = ""
VmHWM = ""
VmData = ""
VmStk = ""
VmExe = ""
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment