[torqueusers] Problem with jobs MPI (MPBSJobLoad)

Abraham Zamudio abraham.zamudio at gmail.com
Thu Sep 9 16:15:58 MDT 2010


Hi Torque-Users , i am have a following problem with my MPI-JOB

[root at master ~]# grep 35.master /var/spool/maui/log/maui.log
09/09 16:47:09 MPBSJobLoad(35,35.master,J,TaskList,0)
09/09 16:47:16 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:47:47 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:48:18 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:48:49 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:49:20 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:49:51 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:50:22 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:50:53 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:51:24 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:51:55 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:52:26 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:52:57 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:53:28 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:53:59 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:54:30 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:55:01 MPBSJobUpdate(35,35.master,TaskList,0)
09/09 16:55:32 MPBSJobUpdate(35,35.master,TaskList,0)
.
.
.

I use :

   - torque-2.4.5.tar.gz
   - mpich2-1.2.1p1.tar.gz
   - mpiexec-0.83.tgz
   - maui-3.3.tar.gz

My job is a very simple sum (1 to 1000)  with mpi .

My source


*#include<stdio.h>*
*#include<mpi.h>*
*
*
*int main(int argc, char ** argv){*
*int mynode, totalnodes;*
*int sum,startval,endval,accum;*
*int i,j;*
*MPI_Status status;*
*
*
*MPI_Init(&argc,&argv);*
*MPI_Comm_size(MPI_COMM_WORLD, &totalnodes);*
*MPI_Comm_rank(MPI_COMM_WORLD, &mynode);*
*
*
*
*
*
*
*sum = 0;*
*
*
*startval = 1000*mynode/totalnodes+1;*
*endval = 1000*(mynode+1)/totalnodes;*
*
*
*
*
*/********************************************/*
*printf("\n");*
*printf("StartVal =%d\n",startval);*
*printf("EndVal =%d\n",endval);*
*printf("\n");*
*/********************************************/*
*
*
*for(i=startval;i<=endval;i=i+1)*
*sum = sum + i;*
*
*
*if(mynode!=0)*
* **MPI_Send(&sum,1,MPI_INT,0,1,MPI_COMM_WORLD);*
*else*
*for(j=1;j<totalnodes;j=j+1)*
* **{*
* **MPI_Recv(&accum,1,MPI_INT,j,1,MPI_COMM_WORLD, &status);*
* **/********************************************/*
* **printf("Mi status es : %d \n ", status.MPI_TAG);*
* **/********************************************/*
* **sum = sum + accum;*
* **}*
*
*
*if(mynode == 0)*
*printf("La suma total es %d\n",sum);*
*
*
*MPI_Finalize();*
*
*
*}*



My qsub file

*#PBS -S /bin/bash*
*#PBS -N suma_paralela*
*#PBS -q batch*
*#PBS -l nodes=quad4:ppn=8+quad2:ppn=4+gauss:ppn=2*
*#PBS -j oe*
*#PBS -o $PBS_JOBID_3NODOS.output*
*
*
*echo "Empieza a Correr el programa paralelo"*
*/usr/local/mpiexec83/bin/mpiexec -np 14 /jro_cluster/mpiX/MPI/suma_paralela
*


-- 
Abraham Zamudio Ch.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.supercluster.org/pipermail/torqueusers/attachments/20100909/b82058b2/attachment.html 


More information about the torqueusers mailing list