blacs_pinfo_()

F_VOID_FUNC blacs_pinfo_	(	Int *	mypnum,
		Int *	nprocs
	)

Definition at line 6 of file blacs_pinfo_.c.

{
   Int ierr;
   extern Int BI_Iam, BI_Np;
   MpiInt flag, Iam = BI_Iam, Np = BI_Np;
   MpiInt argc=0;
   char **argv=NULL;
   if (BI_COMM_WORLD == NULL)
   {
      MPI_Initialized(&flag);
 
      if (!flag) 
         ierr = MPI_Init(&argc,&argv);  // call Init and ignore argc and argv
 
      BI_COMM_WORLD = (Int *) malloc(sizeof(Int));
      *BI_COMM_WORLD = MPI_Comm_c2f(MPI_COMM_WORLD);
   }
   MPI_Comm_size(MPI_COMM_WORLD, &Np);
   MPI_Comm_rank(MPI_COMM_WORLD, &Iam);
   *mypnum = BI_Iam = Iam;
   *nprocs = BI_Np  = Np;
}