+c WRITE (iout,*) "Wychodze z call MPI_Gatherv (Propabl)"
+ if (refstr) then
+ do i=1,scount(me)
+ buffer(i)=gdt_ts_tb(i)
+ enddo
+ call MPI_Gatherv(buffer(1),scount(me),MPI_DOUBLE_PRECISION,
+ & gdt_ts_tb(1),scount(0),idispl(0),MPI_DOUBLE_PRECISION,Master,
+ & MPI_COMM_WORLD,IERROR)
+ do i=1,scount(me)
+ buffer(i)=gdt_ha_tb(i)
+ enddo
+ call MPI_Gatherv(buffer(1),scount(me),MPI_DOUBLE_PRECISION,
+ & gdt_ha_tb(1),scount(0),idispl(0),MPI_DOUBLE_PRECISION,Master,
+ & MPI_COMM_WORLD,IERROR)
+ do i=1,scount(me)
+ buffer(i)=tmscore_tb(i)
+ enddo
+ call MPI_Gatherv(buffer(1),scount(me),MPI_DOUBLE_PRECISION,
+ & tmscore_tb(1),scount(0),idispl(0),MPI_DOUBLE_PRECISION,Master,
+ & MPI_COMM_WORLD,IERROR)
+ endif