Broadcasting characters to other processes`

[GunAndRose]

Is there any function that I can use to broacast characters among the grid in Scalapack? In BLACS:

vGESD2D( ICONTXT, M, N, A, LDA, RDEST, CDEST )
vTRSD2D( ICONTXT, UPLO, DIAG, M, N, A, LDA, RDEST, CDEST )

v does not apply to CHAR type.

I tried

Code: Select all

   

...

character (len=100) :: JOBRUNPATH
...
     
CALL MPI_INIT(err)

        call MPI_COMM_DUP(MPI_COMM_WORLD,MCW,err)
CALL MPI_COMM_RANK(MCW, IAM,err)
...
      CALL PZINVINFO( OUTFILE, NOUT, NMTYP, MATTYP,NTESTS,NMAT, NVAL,
     $                NTESTS, NNB, NBVAL, NTESTS,NGRIDS,PVAL, NTESTS,
     $                QVAL, NTESTS,THRESH,IAM, NPROCS, RUNonCRAY,
     $                JOBRUNPATH)
...
   if (IAM==0) then
        call MPI_BCAST(JOBRUNPATH,100,MPI_CHARACTER,IAM,MCW,err)
      endif
      call MPI_BARRIER(MCW,err)

      WRITE(*,'(A,I4 )')   trim(JOBRUNPATH), IAM


But it didn't work. What are other possibilities?

Thanks a lot!