MCS 572 T3D PVM Fortran & C Source Code Examples

PVM Fortran Timer NQS Job Script with Receive Test Example:

click for (C Calling) Fortran PVM NQS T3D Generic Job Script:   pgmt.job


click for PVM Fortran Receive & Timer Test Source Code:   recvtime.f

click for C Microsecond Wall Timer Function Source Code:   timeofday.c

click for T3D PVM Fortran Receive& Timer Test Output:   recvtime.output


(The NQS Job Script is Meant for Executing any Fortran Code Names `pgm.f', so all you need to do for this recvtime.f example is copy the `pgmt.job', `recvtime.f' and `timeofday.c' to your C90 account; copy the fortran source code `cp recvtime.f   pgm.f'; enter `qsub pgmt.job' on the C90 command line; `qstat -a' until "no batch queue entries" found; then `vi pgm.output'.)

PVM Fortran Generic NQS Job Script Example:

click for Fortran PVM NQS T3D Generic Job Script:   pgm.job


(This NQS Job Script is Meant for Executing any Fortran Code Names `pgm.f', so all you need to do is copy your fortran code `cp [yourfile].f   pgm.f'; enter `qsub pgm.job' on the C90 command line; `qstat -a' until "no batch queue entries" found; then `vi pgm.output'.)

PVM C Generic NQS Job Script Example:

click for C Version of PVM NQS T3D Generic Job Script:   cpgm.job

(This NQS Job Script is Meant for Executing any CC Code Names `cpgm.c'; just `cp [yourfile].c cpgm.c'; 'qsub cpgm.job' on C90 Command line; `qstat -a' until "no batch queue entries" found; then `vi cpgm.output'.)

PVM Fortran Receive Example:

click for PVM Fortran Receive Test Source Code:   recvtest.f

click for T3D PVM Fortran Receive Test Output:   recvtest.output


(Copy `cp recvtest.f pgm.f' and Use `qsub pgm.job' Above on C90 to Execute; Output Will be Found in `pgm.output'. Caution: T3D PVM Fortran codes use 8 byte integers since that is the default for the Cray `integer' declaration, so `INTEGER8' type must be used in PVMF pack and unpack functions in place of the nonCray standard `INTEGER4' type.)

PVM C Receive Example:

click for PVM C Receive Test Source Code
(Caution: broken with stdC change, so use crecvtemp.c):   crecvtest.c

click for T3D PVM C Receive Test Output (Obsolete):   crecvtest.output

click for PVM C Receive Test Source Code (Temporary Fix):   crecvtemp.c

click for T3D PVM C Receive Test Output (Temporary Fix):   crecvtemp.output


(Copy `cp crecvtest.c cpgm.c' and Use `qsub cpgm.job' Above on C90 to Execute; Output Will be Found in `cpgm.output'. Caution: T3D PVM C codes need `#include statement.)

PVM Fortran Laplace Class Example:

click for Fortran PVM Laplace Source Code:   laplace.f

click for Fortran PVM T3D Laplace Output:   laplace.output


(Copy `cp laplace.f pgm.f' and Use `qsub pgm.job' Above on C90 to Execute; Output Will be Found in `pgm.output'.)

F90 Circular Shift `cshift' Function:

click for CM5 Converted to C90 Fortran Laplace Source Code:   laplace-cm-c90.f


(Copy `cp laplace-cm-c90.f pgm.f' and Use `qsub pgm.job' Above C90 to Execute.)

click for CM5 Converted to C90 Fortran Laplace Output:   laplace-cm-c90.output

Experimental, Untested C Code and Job Scripts:

(Use at Your Own risk; Am in the Process of Converted to Executable Current PVM Form)

click for Old PSC C90 Parallel C Code Laplace Source Code for Both Master and Slaves:   laplace.parallel.c

click for Old PSC C90 Serial C Code Laplace Source Code:   laplace.serial.c

click for Old PSC T3D Parallel C Code Laplace Source Code for Both Master and Slaves:   laplace.t3d.c

PVM Book Examples (Untested on T3D):

(Caution: Codes are for general PVM distributed computing and not specialized to T3D, so will need revision to run.)

click for PVM DotProduct Fortran Code Example:   psdot.f

click for PVM Matrix Multiply C Code Example:   mmult.c


(Caution: Not good for T3D since uses pvm_spawn.)

click for PVM 1_Dim Heat Equation C Master's Code Example:   heat.c

click for PVM 1_Dim Heat Equation C Slaves' Code Example:   heatslv.c


(Required with `heat.c' since slave procedure is called by the master's `heat.c'.)