PETSc solution 1

C

#include "petsc.h"

#undef __FUNCT__
#define __FUNCT__ "main"
int main(int argc,char **args)
{
   PetscErrorCode ierr;
   PetscMPIInt    rank;

   PetscInitialize(&argc,&args,(char *)0,PETSC_NULL);

   MPI_Comm_rank(PETSC_COMM_WORLD, &rank);
   ierr = PetscPrintf(PETSC_COMM_SELF,"Hello by procs %d!\n", rank);CHKERRQ(ierr);

   ierr = PetscFinalize(); CHKERRQ(ierr);
   return 0;
}

FORTRAN

program main

integer :: ierr, rank
character(len=6)  :: num
character(len=30) :: hello

#include "finclude/petsc.h"

call PetscInitialize( PETSC_NULL_CHARACTER,ierr )

call MPI_Comm_rank( PETSC_COMM_WORLD, rank, ierr )

write(num,'(I4)') rank
hello = 'Hello by process '//num

call PetscPrintf( PETSC_COMM_SELF, hello//achar(10), ierr )

call PetscFinalize(ierr)
end program