Changeset 7296 in project


Ignore:
Timestamp:
01/07/08 07:19:20 (12 years ago)
Author:
Ivan Raikov
Message:

Removed debugging statements.

Location:
mpi/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • mpi/trunk/collcomm.scm

    r7284 r7296  
    5454  n = data;
    5555
    56   printf ("MPI_broadcast_fixnum: before MPI_Bcast: n = %d\n", n);
    57   printf ("MPI_broadcast_fixnum: comm = %p\n", comm);
    58 
    5956  MPI_Bcast(&n, 1, MPI_INT, root, Comm_val(comm));
    60 
    61   printf ("MPI_broadcast_fixnum: after MPI_Bcast: n = %d\n", n);
    6257
    6358  result = C_fix(n);
     
    740735     MPI_counts_displs(len, vsendlengths, vsendcounts, vdispls);
    741736
    742      printf ("scatterv_bytevector: vsendlengths [0] = %d\n", vsendlengths [0]);
    743      printf ("scatterv_bytevector: vsendlengths [1] = %d\n", vsendlengths [1]);
    744      printf ("scatterv_bytevector: vsendcounts [0] = %d\n", vsendcounts [0]);
    745      printf ("scatterv_bytevector: vsendcounts [1] = %d\n", vsendcounts [1]);
    746      printf ("scatterv_bytevector: vdispls [0] = %d\n", vdispls [0]);
    747      printf ("scatterv_bytevector: vdispls [1] = %d\n", vdispls [1]);
    748 
    749737     MPI_Scatterv(C_c_bytevector(sendbuf), vsendcounts, vdispls, MPI_BYTE,
    750738                  C_c_bytevector(recvbuf), C_bytevector_length(recvbuf), MPI_BYTE,
     
    11561144                       " data length = " data-len))
    11571145            (let ((sendlengths (map vlen data)))
    1158               (print "scatterv: sendlengths = " sendlengths)
    11591146              ;; Scatter the lengths of the buffers to all the processes
    11601147              (let ((mylen (MPI_scatter_int (list->s32vector sendlengths) root comm)))
     
    12891276    rlen   = C_bytevector_length (recv);
    12901277   
    1291     printf ("MPI_gather_bytevector: slen = %d\n", slen);
    1292     printf ("MPI_gather_bytevector: rlen = %d\n", rlen);
    1293 
    12941278    MPI_Gather(vsend, slen, MPI_BYTE, vrecv, slen, MPI_BYTE, vroot, Comm_val(comm));
    1295 
    1296     printf ("MPI_gather_bytevector: vrecv = %s\n", vrecv);
    12971279
    12981280    result = recv;
     
    18801862          ;; receives the data
    18811863          (let ((recv  (make-obj (* nprocs sendcount))))
    1882             (print "gather: recv = " (if (blob? recv) (blob->string recv) recv))
    18831864            (gather v sendcount recv root comm))))))
    18841865
     
    19701951          (nprocs (MPI:comm-size comm))
    19711952          (mylen (vlen data)))
    1972       (print "gatherv: data = " data)
    1973       (print "gatherv: mylen = " mylen)
    19741953      (if (= root myself)
    19751954          ;; Gather the lengths of the data from all processes
    19761955          (let ((recvlengths (MPI_gather_int mylen (make-s32vector nprocs) root comm)))
    1977             (print "gatherv: recvlengths = " recvlengths)
    19781956            ;; Allocate receive buffer
    19791957            (let* ((total    (apply + (s32vector->list recvlengths)))
  • mpi/trunk/comm.scm

    r7285 r7296  
    4242static C_word MPI_check_comm (C_word obj)
    4343{
    44   printf ("MPI_check_comm: obj = %p\n", obj);
    4544  if (C_immediatep(obj))
    4645  {
     
    9089(define (MPI:get-comm-world)
    9190  (let ((w     (MPI_comm_world)))
    92     (print "get-comm-world: w = " w)
    9391    (MPI_alloc_comm w)))
    9492
     
    103101   if (MPI_comm_p (x))
    104102     {
    105        printf ("comm-size: comm = %d\n", Comm_val(x));
    106103       MPI_Comm_size (Comm_val(x), &size);
    107        printf ("comm-size: size = %d\n", size);
    108104       ptr = C_alloc (C_SIZEOF_FLONUM);
    109105       result = C_int_to_num (&ptr, size);
     
    128124   if (MPI_comm_p (x))
    129125     {
    130        printf ("comm-rank: comm = %d\n", Comm_val(x));
    131126       MPI_Comm_rank (Comm_val(x), &rank);
    132        printf ("comm-rank: rank = %d\n", rank);
    133127       ptr = C_alloc (C_SIZEOF_FLONUM);
    134128       result = C_int_to_num (&ptr, rank);
     
    155149    MPI_Comm_compare(Comm_val(comm1), Comm_val(comm2), &res);
    156150  }
    157 
    158   printf ("comm_compare: res = %d\n", res);
    159151
    160152  if (res == 0)
  • mpi/trunk/msgs.scm

    r7285 r7296  
    3131  int n, vdest, vtag;
    3232
    33   printf ("MPI_send_fixnum: \n");
    34 
    3533  MPI_check_comm(comm);
    3634
     
    3937  vtag  = (int)C_num_to_int (tag);
    4038
    41   printf ("MPI_send_fixnum: comm = %d\n", Comm_val(comm));
    42   printf ("MPI_send_fixnum: n = %d\n", n);
    43 
    4439  MPI_Send(&n, 1, MPI_INT, vdest, vtag, Comm_val(comm));
    4540
    46   printf ("MPI_send_fixnum: after MPI_Send\n");
    47 
    4841  C_return(C_SCHEME_UNDEFINED);
    4942}
     
    6053  vtag  = (int)C_num_to_int (tag);
    6154
    62   printf ("MPI_send_int: n = %d\n", n);
    6355  MPI_Send(&n, 1, MPI_LONG, vdest, vtag, Comm_val(comm));
    6456
    65   printf ("MPI_send_int: after MPI_Send\n");
    66 
    6757  C_return(C_SCHEME_UNDEFINED);
    6858}
     
    7262  double n; int vdest, vtag;
    7363
    74   printf ("MPI_send_flonum: \n");
    75 
    7664  MPI_check_comm(comm);
    7765
     
    8068  vtag  = (int)C_num_to_int (tag);
    8169
    82   printf ("MPI_send_flonum: n = %g\n", n);
    83 
    8470  MPI_Send(&n, 1, MPI_DOUBLE, vdest, vtag, Comm_val(comm));
    8571
    86   printf ("MPI_send_flonum: after MPI_Send\n");
    87 
    8872  C_return(C_SCHEME_UNDEFINED);
    8973}
     
    9478
    9579  MPI_check_comm(comm);
    96 
    97   printf ("MPI_send_u8vector: data = %p\n", data);
    9880
    9981  vect  = C_c_u8vector(data);
     
    10284  vtag  = (int)C_num_to_int (tag);
    10385
    104   printf ("MPI_send_u8vector: len = %d\n", len);
    105   printf ("MPI_send_u8vector: vect = %p\n", vect);
    106 
    107   printf ("MPI_send_u8vector: vect[0] = %d\n", vect[0]);
    108   printf ("MPI_send_u8vector: vect[1] = %d\n", vect[1]);
    109   printf ("MPI_send_u8vector: vect[2] = %d\n", vect[2]);
    110 
    11186  MPI_Send(vect, len, MPI_UNSIGNED_CHAR, vdest, vtag, Comm_val(comm));
    112 
    113   printf ("MPI_send_u8vector: after MPI_Send\n");
    11487
    11588  C_return(C_SCHEME_UNDEFINED);
     
    249222  buffer = C_c_bytevector (data);
    250223
    251   printf ("send_bytevector: buffer = %p\n", buffer);
    252   printf ("send_bytevector: len = %d\n", len);
    253   printf ("send_bytevector: vdest = %d\n", vdest);
    254   printf ("send_bytevector: vtag = %d\n", vtag);
    255   printf ("send_bytevector: Comm_val(comm) = %d\n", Comm_val(comm));
    256 
    257224  MPI_Send(buffer, len, MPI_BYTE, vdest, vtag, Comm_val(comm));
    258 
    259   printf ("send_bytevector: after MPI_Send\n");
    260225
    261226  C_return(C_SCHEME_UNDEFINED);
     
    326291  MPI_check_comm(comm);
    327292
    328   printf ("MPI:probe: source = %d\n ", source);
    329   printf ("MPI:probe: tag = %d\n ", tag);
    330 
    331293  MPI_Probe(source, tag, Comm_val(comm), &status);
    332294  MPI_Get_count(&status, MPI_BYTE, &count);
    333 
    334   printf ("MPI:probe: count = %d\n ", count);
    335295
    336296  status_count = C_fix(count);
     
    356316  MPI_check_comm(comm);
    357317
    358   printf ("MPI:receive-int: before MPI_Recv\n");
    359 
    360318  MPI_Recv(&n, 1, MPI_LONG, source, tag, Comm_val(comm), MPI_STATUS_IGNORE);
    361 
    362   printf ("MPI:receive-int: after MPI_Recv\n");
    363   printf ("MPI:receive-int: n = %d\n", n);
    364319
    365320  ptr = C_alloc (C_SIZEOF_FLONUM);
     
    380335  MPI_check_comm(comm);
    381336
    382   printf ("MPI:receive-flonum: before MPI_Recv\n");
    383 
    384337  MPI_Recv(&n, 1, MPI_DOUBLE, source, tag, Comm_val(comm), MPI_STATUS_IGNORE);
    385 
    386   printf ("MPI:receive-flonum: after MPI_Recv\n");
    387   printf ("MPI:receive-flonum: n = %g\n", n);
    388338
    389339  ptr = C_alloc (C_SIZEOF_FLONUM);
    390340  result = C_flonum (&ptr, n);
    391341
    392   printf ("MPI:receive-flonum: after C_flonum\n");
    393  
    394342  C_return(result);
    395343EOF
     
    405353  C_word result;
    406354
    407   printf ("MPI:receive-fixnum:\n");
    408 
    409   MPI_check_comm(comm);
    410 
    411   printf ("MPI:receive-fixnum: before MPI_Recv\n");
     355  MPI_check_comm(comm);
    412356
    413357  MPI_Recv(&n, 1, MPI_INT, source, tag, Comm_val(comm), MPI_STATUS_IGNORE);
    414 
    415   printf ("MPI:receive-fixnum: after MPI_Recv\n");
    416358
    417359  C_return(C_fix(n));
     
    427369  MPI_check_comm(comm);
    428370
    429   printf ("MPI:receive_u8vector: \n");
    430   printf ("MPI:receive_u8vector: data = %p\n", data);
    431 
    432   vsource = (int)C_num_to_int (source);
    433   vtag    = (int)C_num_to_int (tag);
    434 
    435   printf ("MPI:receive_u8vector: source = %d\n", vsource);
    436   printf ("MPI:receive_u8vector: tag = %d\n", vtag);
     371  vsource = (int)C_num_to_int (source);
     372  vtag    = (int)C_num_to_int (tag);
    437373
    438374  vect    = C_c_u8vector(data);
    439375  len     = C_8vector_length(data);
    440376
    441   printf ("MPI:receive_u8vector: before MPI_Recv\n");
    442   printf ("MPI:receive_u8vector: len = %d\n", len);
    443   printf ("MPI:receive_u8vector: vect = %p\n", vect);
    444 
    445   printf ("MPI_receive_u8vector: vect[0] = %d\n", vect[0]);
    446   printf ("MPI_receive_u8vector: vect[1] = %d\n", vect[1]);
    447   printf ("MPI_receive_u8vector: vect[2] = %d\n", vect[2]);
    448 
    449377  MPI_Recv(vect, len, MPI_UNSIGNED_CHAR, vsource, vtag, Comm_val(comm), MPI_STATUS_IGNORE);
    450 
    451   printf ("MPI:receive_u8vector: after MPI_Recv\n");
    452 
    453   printf ("MPI:receive_u8vector: vect = %p\n", vect);
    454   printf ("MPI_receive_u8vector: vect[0] = %d\n", vect[0]);
    455   printf ("MPI_receive_u8vector: vect[1] = %d\n", vect[1]);
    456   printf ("MPI_receive_u8vector: vect[2] = %d\n", vect[2]);
    457378
    458379  C_return(data);
     
    589510  vsource = (int)C_num_to_int (source);
    590511  vtag  = (int)C_num_to_int (tag);
    591 
    592   printf ("receive_bytevector: vsource = %d\n", vsource);
    593   printf ("receive_bytevector: vtag = %d\n", vtag);
    594512
    595513  len = C_bytevector_length (data);
     
    654572(define (MPI:receive source tag comm)
    655573  (let-values (((len actual-source actual-tag) (MPI:probe source tag comm)))
    656     (print "MPI:receive: after probe")
    657     (print "MPI:receive: len = " len)
    658     (print "MPI:receive: actual-source = " actual-source)
    659     (print "MPI:receive: actual-tag = " actual-tag)
    660574    (MPI:receive-bytevector len actual-source actual-tag comm)))
    661575
Note: See TracChangeset for help on using the changeset viewer.