MPI Fortran

runme.mpi.f90

program simple

implicit none

include 'mpif.h'

integer :: indx

integer rank,nproc,ierr

call mpi_init(ierr)

call mpi_comm_size(MPI_COMM_WORLD,nproc,ierr)

call mpi_comm_rank(MPI_COMM_WORLD,rank,ierr)

open(123,file='writehere_'//char(48+rank)//'.log',ACCESS='APPEND')

do indx=rank*100,rank*100+99

write(123,*) indx*5

enddo

call mpi_finalize(ierr)

end program simple

compile

mpig90 runme.mpi.f90

Job file

#PBS -q @queuename.school.edu

#PBS -m abe

#PBS -M email@address.edu

#PBS -V

#PBS -l nodes=4

#PBS -l walltime=0:10:00

#PBS -d /nethome/users/username/

/share/apps/job_data_prerun.py

mpiexec -np 4 ./a.out