xcoll 0.6.1__py3-none-any.whl → 0.6.2__py3-none-any.whl

xcoll/scattering_routines/fluka/flukaio/samples/ClientTest.c

@@ -1,156 +0,0 @@
-#include <stdio.h>
-#include <stdlib.h>
-#include <stdbool.h>
-#include <signal.h>
-#include <string.h>
-#include <assert.h>
-
-#include <unistd.h>
-
-#include "FlukaIO.h"
-
-#define NPARTS 20000
-#define NTURNS 150
-#define PORT 14999
-
-static flukaio_connection_t *conn = NULL;
-
-void die(char *msg);
-void sigint_handler(int sig_no);
-
-int main(int argc, char *argv[]) {
-
-	int port = PORT;
-	long i, j;
-	int n;
-	flukaio_message_t msg;
-	particle_info_t part;
-
-	part.id =   0;
-	part.gen =   1;
-	part.weight = 1.0;
-	part.x =   -6.319439221E-01;
-	part.y =   1.147679085E+00;
-	part.z =   1.0;
-	part.tx =   -3.856529999E-05;
-	part.ty =   -2.004572999E-06;
-	part.tz =    5.004483739E-06;
-	part.aa =   1;
-	part.zz =   1;
-	part.m =    450e0;
-	part.pc =  4520e0;
-	part.t =  5E-3;
-
-	/* Install signal handler */
-	struct sigaction action;
-	memset(&action, 0, sizeof(action));
-	action.sa_handler = &sigint_handler;
-	action.sa_flags   = SA_RESTART;
-	sigaction(SIGINT, &action, NULL);
-	action.sa_handler = SIG_IGN;
-	sigaction(SIGPIPE, &action, NULL);
-
-	/* Main */
-	conn = flukaio_connect(flukaio_conn(), "localhost", port);
-	if (conn == NULL)
-	{
-		die("Error connecting to server, wrong protocol version?");
-	}
-
-	printf("Connected to server\n");
-	for (j = 0; j < NTURNS; ++j)
-	{
-		printf("IPT %ld\n", j+1);
-		n = flukaio_send_ipt(conn, j+1, 0);
-		if (n < 0) {
-			die("Error occurred sending IPT");
-			break;
-		}
-		for (i = 0; i < NPARTS; ++i)
-		{
-			part.id = (unsigned int)i+1;
-			n = flukaio_send_particle(conn, &part);
-			if (n < 0) {
-				die("Error occurred sending P");
-				break;
-			}
-#ifdef VERBOSE
-			printf(">");
-#endif
-			// Read incomming messages
-			while (flukaio_receive_message(conn, &msg) > 0) {
-#ifdef VERBOSE
-				if (msg.type == N_PART)
-					printf("<");
-#endif
-			}
-		}
-		n = flukaio_send_eob(conn);
-		if (n < 0) {
-			die("Error occurred sending EOB");
-			break;
-		}
-#ifdef VERBOSE
-		printf("EOB\n");
-#endif
-		// Read incomming messages until end of turn
-		do {
-			n = flukaio_wait_message(conn, &msg);
-			if (n == -1) {
-				die("Server timeout when waiting end of computation");
-			}
-#ifdef VERBOSE
-			if (msg.type == N_PART)
-				printf("<");
-#endif
-		} while (msg.type != N_EOB);
-#ifdef VERBOSE
-		printf("t\n");
-#endif
-		printf("Turn %ld finished\n", j+1);
-	}
-
-	printf("\nDone sending particles\n");
-	printf("Closing connection...\n");
-
-#ifdef VERBOSE
-	printf("f\n");
-#endif
-	n = flukaio_send_eoc(conn);
-	if (n < 0) {
-		die("Error occurred sending");
-	}
-
-	n = flukaio_wait_message(conn, &msg);
-	if (n == -1) {
-		die("Server timeout when waiting end of computation");
-	}
-	if (msg.type != N_END) {
-		die("Unexpected message received");
-	}
-
-	flukaio_disconnect(conn);
-	conn = NULL;
-
-	return 0;
-}
-
-/* Close */
-void die(char *msg) {
-	perror(msg);
-
-	if (conn)
-	{
-		flukaio_disconnect(conn);
-		conn = NULL;
-	}
-
-	exit(1);
-}
-
-/* Signal handlers */
-void sigint_handler(int sig_no)
-{
-	die("Interrupted: Ending connection");
-}
-

xcoll/scattering_routines/fluka/flukaio/samples/ServerTest.c

@@ -1,123 +0,0 @@
-#include <stdlib.h>
-#include <stdio.h>
-
-#include <unistd.h>
-#include <string.h>
-#include <signal.h>
-
-#include "FlukaIO.h"
-#include "FlukaIOServer.h"
-
-#define PORT 14999
-
-static flukaio_connection_t *conn = NULL;
-static flukaio_server_t *server = NULL;
-void die(char *msg);
-void sigint_handler(int sig_no);
-
-/* */
-int main(int argc, char *argv[]) {
-
-	int n;
-	flukaio_message_t msg;
-	uint32_t turn  = 0;
-	uint32_t count = 0;
-	uint32_t total = 0;
-
-	/* Install signal handlers */
-	struct sigaction action;
-	memset(&action, 0, sizeof(action));
-	action.sa_handler = &sigint_handler;
-	action.sa_flags   = SA_RESTART;
-	sigaction(SIGINT, &action, NULL);
-	action.sa_handler = SIG_IGN;
-	sigaction(SIGPIPE, &action, NULL);
-
-	server = flukaio_server_create();
-	if (!server)
-	{
-		die("** Error, create server object\n");
-	}
-
-	n = flukaio_server_start(server, PORT);
-	if (n == -1)
-	{
-		die("** Error, could not start server\n");
-	}
-
-	printf("Listening on port %d\n", n);
-
-	while(1) {
-
-		printf("Waiting new connection...\n");
-		conn = flukaio_server_accept(server);
-		if (!conn) {
-			printf("Failed connection attempt, wrong protocol version?\n");
-		} else {
-			printf("New connection accepted\n");
-			count = 0;
-			//connection_set_read_timeout(conn, 20);
-
-			while (1) {
-				n = flukaio_wait_message(conn, &msg);
-
-				if (n < 0) {
-					printf("** Client timeout\n");
-					break;
-				}
-
-				if (msg.type == N_IPT) {
-					turn = msg.data.ipt.turn;
-					printf("Starting turn %d\n", turn);
-				}
-				else if (msg.type == N_PART) {
-					count++;
-					n = flukaio_send_particle(conn, &msg.data.particle);
-					if (n < 0) {
-						printf("** Error occurred sending\n");
-						break;
-					}
-				}
-				else if (msg.type == N_EOB) {
-					printf("End of turn %d, received %d particles\n", turn, count);
-					flukaio_send_eob(conn);
-					total += count;
-					count = 0;
-				}
-				else if (msg.type == N_END) {
-					flukaio_send_eoc(conn);
-					printf("Connection finished\n");
-					break;
-				}
-			}
-
-			flukaio_disconnect(conn);
-			conn = NULL;
-		}
-	}
-
-	flukaio_server_shutdown(server);
-
-	return 0;
-}
-
-/* Close */
-void die(char *msg) {
-	printf(msg);
-
-	if(conn)
-	{
-		flukaio_disconnect(conn);
-		conn = NULL;
-	}
-	flukaio_server_shutdown(server);
-
-	exit(1);
-}
-
-/* Signal handlers */
-void sigint_handler(int sig_no)
-{
-	die("\n** Shuting down server...");
-}
-

xcoll/scattering_routines/fluka/flukaio/samples/fclient.f

@@ -1,149 +0,0 @@
-      program client
-      implicit none
-
-      integer PORT
-      integer NPARTS, NTURNS
-      parameter (PORT = 14999)
-      parameter (NPARTS = 20000, NTURNS = 150)
-
-      integer i, j, n
-      integer cid
-
-      integer mtype
-      integer turn, id, gen
-      double precision wgt, x, y, z, tx, ty, tz, m, pc, t
-      integer aa, zz
-      integer ntconnect, ntsendp, ntsendeob, ntsendipt
-      integer ntsendeoc, ntrecv, ntwait, ntend
-      integer ntsendnpart, ntnpart
-      integer ntsendbrhono, ntbrho
-
-      integer N_PART, N_EOB, N_END
-      parameter (N_PART = 1)
-      parameter (N_EOB = 2)
-      parameter (N_END  = 3)
-
-      integer npart
-      double precision brho
-
-      turn = 0
-      id   = 0
-      gen  = 1
-      wgt  = 1.0D+0
-      x    = -6.319439221D-01
-      y    = 1.147679085D+00
-      z    = 1.0D+0
-      tx   = -3.856529999D-05
-      ty   = -2.004572999D-06
-      tz   =  5.004483739D-06
-      aa   = 1
-      zz   = 1
-      m    = 450.0D+0
-      pc   = 4520.0D+0
-      t   = 5.0D-3
-
-      call ntinit()
-      cid = ntconnect("localhost", PORT)
-      if (cid.eq.-1) then
-        write(*,*) "Error connecting to server"
-        goto 1000
-      end if
-
-      write(*,*) "Connected to server"
-
-      npart = 56000
-      n = ntsendnpart(cid, npart)
-      brho = 1.2345d0
-      n = ntsendbrhono(cid, brho)
-
-      do j = 1,NTURNS
-
-        turn = j
-c       Send ipt
-        write(*,*) "IPT ", j
-        n = ntsendipt(cid, j, 0)
-        if(n.lt.0) then
-          write(*,*) "Error sending IPT"
-          goto 900
-        end if
-
-        do i = 1,NPARTS
-          id = i
-
-c         Send particle
-          n = ntsendp(cid, id, gen, wgt,
-     &                x, y, z, tx, ty, tz, aa, zz, m, pc, t)
-          if(n.lt.0) then
-            write(*,*) "Error sending P"
-            write(*,*) id, wgt, x, y, z, tx, ty, tz, aa, zz, m, pc, t
-            goto 900
-          end if
-
-c         Read all incoming particles to release server out buffer
-100       continue
-          n = ntrecv(cid, mtype, id, gen, wgt,
-     &               x, y, z, tx, ty, tz, aa, zz, m, pc, t)
-          if(n.gt.0) then
-            goto 100
-          end if
-c         End of reading incoming particles
-
-        end do ! Done sending current turn particles
-
-c       Send end of turn
-        write(*,*) "End of turn ", j
-        n = ntsendeob(cid)
-        if(n.lt.0) then
-          write(*,*) "Error sending T"
-          goto 900
-        end if
-
-c     + Wait until end of turn (Synchronize)
-c     |
-200     continue
-          n = ntwait(cid, mtype, id, gen, wgt,
-     &               x, y, z, tx, ty, tz, aa, zz, m, pc, t)
-          if(n.eq.-1) then
-            write(*,*) "Server timed out while waiting end of turn"
-            goto 900
-          end if
-          if(mtype.ne.N_EOB) then
-            goto 200
-          end if
-c     |
-c     + Finished waiting end of turn
-
-
-      end do ! Turn loop
-
-      write(*,*) "Done sending particles"
-      write(*,*) "Closing connection..."
-
-c     Send end of computation
-      n = ntsendeoc(cid)
-      if(n.lt.0) then
-        write(*,*) "Error sending F"
-        goto 900
-      end if
-
-c     Wait end of comp
-      n = ntwait(cid, mtype, id, gen, wgt,
-     &           x, y, z, tx, ty, tz, aa, zz, m, pc, t)
-      if(n.eq.-1) then
-        write(*,*) "Server timed out while waiting end of comp"
-        goto 900
-      end if
-      if(mtype.ne.N_END) then
-        write(*,*) "Unexpected message received"
-      end if
-c     Both ends agreed to disconnect
-
-900   continue ! Error while connected
-
-c     Finish connection
-      n = ntend(cid)
-
-1000  continue ! Error connecting
-
-      stop
-      end

xcoll/scattering_routines/fluka/flukaio/samples/fserver.f

@@ -1,118 +0,0 @@
-      program server
-      implicit none
-
-      integer sid ! Server id
-      integer cid ! Connection id
-      integer n
-      integer count
-      integer total
-      integer PORT
-      parameter (PORT = 14999)
-
-      integer mtype
-      integer turn, id, gen
-      double precision wgt, x, y, z, tx, ty, tz, m, pc, t
-      integer aa, zz
-      integer ntaccept, ntstart, ntsendp, ntsendeob, ntserver
-      integer ntsendeoc, ntshdwn, ntwait, ntend
-      integer ntsendnpart, ntnpart
-      integer ntsendbrhono, ntbrho
-
-      integer N_PART, N_EOB, N_END, N_IPT
-      parameter (N_PART = 1)
-      parameter (N_EOB  = 2)
-      parameter (N_END  = 3)
-      parameter (N_IPT  = 5)
-
-      integer npart
-      double precision brho
-
-      ! Initialize fluka connections
-      call ntinit()
-
-      sid = ntserver()
-      if(sid.eq.-1) then
-        write(*,*) "Error creating the server"
-        stop
-      end if
-      ! Listen
-      n = ntstart(sid, PORT)
-      if(n.eq.-1) then
-        write(*,*) "Error cannot start server"
-        stop
-      end if
-
-      write(*,*) "Listening on port ", n
-
-
-100   continue ! while(1)
-        write(*,*) "** Waiting for new connection"
-        cid = ntaccept(sid)
-
-        npart = ntnpart(cid)
-        write(*,*) ">>>>>>>>> npart=",npart
-        n  = ntbrho(cid, brho)
-        write(*,*) ">>>>>>>>> brho=",brho, n
-
-        if(.not.cid.lt.0) then
-          write(*,*) "** New connection accepted"
-!          n = nttimeout(cid, 20)
-
-            total = 0
-            count = 0
-
-200         continue ! while(1)
-
-              n = ntwait(cid,
-     &              mtype, id, gen, wgt,
-     &              x, y, z, tx, ty, tz, aa, zz, m, pc, t)
-              if(n.lt.0) then
-                write(*,*) "Client timeout"
-                goto 900
-              end if
-
-              if(mtype.eq.N_PART) then
-                count = count + 1
-!                write(*,*) "<"
-                n = ntsendp(cid,
-     &                id, gen, wgt,
-     &                x, y, z, tx, ty, tz, aa, zz, m, pc, t)
-
-                if(n.lt.0) then
-                  write(*,*) "Error sending"
-                  goto 900
-                end if
-!                write(*,*) ">"
-              else if(mtype.eq.N_IPT) then
-                !ipt = id
-                turn = gen
-              else if(mtype.eq.N_EOB) then
-!                write(*,*) "T"
-                write(*,*) "  End of turn ", turn, " received ", count,
-     &                     " particles"
-                n = ntsendeob(cid)
-                total = total + count
-                count = 0
-              else if(mtype.eq.N_END) then
-!                write(*,*) "F"
-                n = ntsendeoc(cid)
-!                write(*,*) "f"
-                write(*,*) "** Connection closed"
-                goto 900
-              end if
-
-            goto 200
-
-900         continue
-
-            n = ntend(cid)
-            cid = -1
-
-        end if
-
-      goto 100
-
-! Finished shutdown server
-      n = ntshdwn(sid)
-
-      end