From c493170e73506e974a0644452fc5a334c08171bc Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 7 Apr 2021 14:21:35 -0400 Subject: Fixed many issues related to reporting status. Initial debugging of titan upload handling. --- common/jessl.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'common/jessl.f90') diff --git a/common/jessl.f90 b/common/jessl.f90 index 223fd14..a03df09 100644 --- a/common/jessl.f90 +++ b/common/jessl.f90 @@ -208,7 +208,7 @@ contains implicit none type(c_ptr)::ssl - character, dimension(:), intent(inout)::buf + character, dimension(:), intent(out)::buf integer::ssl_read integer::bufsize -- cgit v1.2.3