From c493170e73506e974a0644452fc5a334c08171bc Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 7 Apr 2021 14:21:35 -0400
Subject: Fixed many issues related to reporting status.  Initial debugging of
 titan upload handling.

---
 common/network.F90 | 2 --
 1 file changed, 2 deletions(-)

(limited to 'common/network.F90')

diff --git a/common/network.F90 b/common/network.F90
index 860830b..f986275 100644
--- a/common/network.F90
+++ b/common/network.F90
@@ -238,8 +238,6 @@ implicit none
         type(sockaddr_in), target::sock_addr
         logical::connect
 
-        !print *, c_sizeof(sock_addr)
-
         connect = (connect_c(int(sockfd, kind=c_int), &
                              c_loc(sock_addr), &
                              sockaddr_size) .eq. 0)
-- 
cgit v1.2.3