Searched defs:coordsFromSocket (Results 1 – 1 of 1) sorted by relevance
99 subroutine coordsFromSocket( na, xa, cell ) subroutine107 character(len=*),parameter:: myName='coordsFromSocket ' argument110 logical, save :: firstTime = .true.111 CHARACTER(len=MSGLEN) :: header, message112 CHARACTER(len=1024) :: host113 INTEGER :: inet, port, n114 REAL(dp) :: aux(9), c(9)115 REAL(dp),ALLOCATABLE :: x(:)