diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-07 14:21:35 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-07 14:21:35 -0400 |
commit | c493170e73506e974a0644452fc5a334c08171bc (patch) | |
tree | 7cfbbde04f5e3263092118dbabf843fbe68d93ad /common/network.F90 | |
parent | 1de4bd52574599452f9e92c8e36381a4797563fb (diff) | |
download | levitating-c493170e73506e974a0644452fc5a334c08171bc.tar.gz levitating-c493170e73506e974a0644452fc5a334c08171bc.zip |
Fixed many issues related to reporting status. Initial debugging of titan upload handling.
Diffstat (limited to 'common/network.F90')
-rw-r--r-- | common/network.F90 | 2 |
1 files changed, 0 insertions, 2 deletions
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) |