DO i = 1, nomi, 1
IF (MOD(i-1,world_size) /= world_rank) CYCLE
kkim = kkimp(i,
CALL proce(i,ndegen,nbc,npo,kkim,hil,thil,tecv,teve,bcb,eni,er,pi,nne,hb,bcp1)
IF (world_rank == 0) THEN
bcp2 = bcp1 !The 6th line
DO j = 1, world_size-1, 1
IF (i-1+j == nomi) EXIT
k = i + j + 1000
CALL MPI_RECV(bcp3,nomi*nne*6,MPI_DOUBLE_COMPLEX,j,k,MPI_COMM_WORLD,MPI_STATUS_IGNORE,ierr)
bcp2 = bcp2 + bcp3
END DO
ELSE
k = i + 1000
CALL MPI_SEND(bcp1,nomi*nne*6,MPI_DOUBLE_COMPLEX,0,k,MPI_COMM_WORLD,ierr)
END IF
END DO