Ошибка сегментации (С + MPI)

[Nelly_S]

Всем привет, просьба проверить код.
Прога в несколько процессов обрабатывает массив.
При запуске выводит:
mpirun noticed that process rank 0 with PID 19558 on node hex exited on signal 11 (Segmentation fault).

#include <stdio.h>
#include <stdlib.h>
#include <mpi.h>
#include <math.h>
#define ISIZE  10000
#define JSIZE  10000


int main(int argc, char **argv)
{
   printf("prints\n");
   int myid, nums;
   int i, j, k;
   double a[ISIZE][JSIZE];
   FILE *ff;
   MPI_Status status;
   MPI_Init(&argc, &argv);
   MPI_Comm_rank(MPI_COMM_WORLD, &myid);
   MPI_Comm_size(MPI_COMM_WORLD, &nums);
  

   double time = MPI_Wtime();
   int begin = ISIZE / nums * myid;
   int end = ISIZE / nums * (myid+1);
   if (myid == nums-1) end = ISIZE;
   for (i=begin; i<end; i++){
      for (j = 0; j < JSIZE; j++){
          a[i][j] = 10*i +j; 
          a[i][j] = sin(0.00001*a[i][j]); 
      }
   }

   if (myid != 0)
   {
	MPI_Send(&a[begin][0], (end-begin)*JSIZE, MPI_DOUBLE, 0, 0, MPI_COMM_WORLD);	
   }
   else
   {
    for (k = 1; k < nums; k++)
    {

        begin = ISIZE / nums * k;
        end = ISIZE / nums * (k+1);
        if (k == nums-1) end = ISIZE;
	MPI_Recv(&a[begin][0], (end-begin)*JSIZE, MPI_DOUBLE, k, 0, MPI_COMM_WORLD, &status);	
    }
    time = MPI_Wtime() - time;
    ff = fopen("aaas","w");   
    for(i=0; i < ISIZE; i++){
      for (j=0; j < JSIZE; j++){
          fprintf(ff,"%f ",a[i][j]);
      }
      fprintf(ff,"\n");
    }     
    fclose(ff);

    printf("time %f\n", time); 
   }