time00=tcpu()
#endif
call MPI_Bcast(10,1,MPI_INTEGER,king,FG_COMM,IERROR)
time00=tcpu()
#endif
call MPI_Bcast(10,1,MPI_INTEGER,king,FG_COMM,IERROR)
c print *,"Processor",myrank,
c & " BROADCAST iorder in SETUP_FRICMAT"
endif
c licznik=licznik+1
c write (iout,*) "setup_fricmat licznik",licznik
c print *,"Processor",myrank,
c & " BROADCAST iorder in SETUP_FRICMAT"
endif
c licznik=licznik+1
c write (iout,*) "setup_fricmat licznik",licznik
c Scatter the friction matrix
call MPI_Scatterv(fricmat(1,1),nginv_counts(0),
& nginv_start(0),MPI_DOUBLE_PRECISION,fcopy(1,1),
& myginv_ng_count,MPI_DOUBLE_PRECISION,king,FG_COMM,IERROR)
c Scatter the friction matrix
call MPI_Scatterv(fricmat(1,1),nginv_counts(0),
& nginv_start(0),MPI_DOUBLE_PRECISION,fcopy(1,1),
& myginv_ng_count,MPI_DOUBLE_PRECISION,king,FG_COMM,IERROR)
include 'COMMON.NAMES'
double precision radius(maxres2),gamvec(maxres2)
parameter (twosix=1.122462048309372981d0)
include 'COMMON.NAMES'
double precision radius(maxres2),gamvec(maxres2)
parameter (twosix=1.122462048309372981d0)