#! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh 'pvm2.4/Files' <<'END_OF_FILE' XFiles Makefile Readme UpdMakfs aimk chol/cholhost.c chol/cholnode.c chol/makefile doc/Arches doc/FAQ doc/MsgFormats doc/PvmPic doc/Version f2c/CRAY/Makefile f2c/CRAYSMP/Makefile f2c/HP9K/Makefile f2c/I860/Makefile f2c/Makefile.body f2c/Makefile.custom f2c/NEXT/Makefile f2c/PMAX/Makefile f2c/RIOS/Makefile f2c/Readme f2c/SUN3/Makefile f2c/SUN4/Makefile f2c/fbarrier.c f2c/fenroll.c f2c/fgetbytes.c f2c/fgetncplx.c f2c/fgetndcplx.c f2c/fgetndfloat.c f2c/fgetnfloat.c f2c/fgetnint.c f2c/fgetnlong.c f2c/fgetnshort.c f2c/fgetstring.c f2c/fgetstringl.c f2c/finithow.c f2c/finitiate.c f2c/finitiatem.c f2c/finitsend.c f2c/fleave.c f2c/fprobe.c f2c/fprobemulti.c f2c/fpstatus.c f2c/fputbytes.c f2c/fputncplx.c f2c/fputndcplx.c f2c/fputndfloat.c f2c/fputnfloat.c f2c/fputnint.c f2c/fputnlong.c f2c/fputnshort.c f2c/fputstring.c f2c/fputstringl.c f2c/fpvmperror.c f2c/frcv.c f2c/frcvinfo.c f2c/frcvmulti.c f2c/fready.c f2c/fsnd.c f2c/fstatus.c f2c/fterminate.c f2c/fvrcv.c f2c/fvrcvmulti.c f2c/fvsnd.c f2c/fwaituntil.c f2c/fwhoami.c f2c/namefix.h f2c/nulfix.h fort_examp/CRAY/Makefile fort_examp/HP9K/Makefile fort_examp/Makefile.body fort_examp/PMAX/Makefile fort_examp/RIOS/Makefile fort_examp/RT/Makefile fort_examp/Readme fort_examp/SGI/Makefile fort_examp/SUN3/Makefile fort_examp/SUN4/Makefile fort_examp/SYMM/Makefile fort_examp/TITN/fhost.f fort_examp/TITN/makefile fort_examp/TITN/node.f fort_examp/fhost.f fort_examp/node.f libfpvm/BALANCE/BALANCE.m4 libfpvm/BALANCE/Makefile libfpvm/CRAY/CRAY.m4 libfpvm/CRAY/Makefile libfpvm/HP9K/HP9K.m4 libfpvm/HP9K/Makefile libfpvm/I860/I860.m4 libfpvm/I860/Makefile libfpvm/Makefile.body libfpvm/Makefile.custom libfpvm/NEXT/Makefile libfpvm/NEXT/NEXT.m4 libfpvm/PMAX/Makefile libfpvm/PMAX/PMAX.m4 libfpvm/RIOS/Makefile libfpvm/RIOS/RIOS.m4 libfpvm/RT/Makefile libfpvm/RT/RT.m4 libfpvm/Readme libfpvm/SGI/Makefile libfpvm/SGI/SGI.m4 libfpvm/SUN3/Makefile libfpvm/SUN3/SUN3.m4 libfpvm/SUN4/Makefile libfpvm/SUN4/SUN4.m4 libfpvm/SYMM/Makefile libfpvm/SYMM/SYMM.m4 libfpvm/TITN/Makefile libfpvm/TITN/TITN.m4 libfpvm/U370/Makefile libfpvm/U370/U370.m4 libfpvm/UVAX/Makefile libfpvm/UVAX/UVAX.m4 libfpvm/fbarrier.m4 libfpvm/fenroll.m4 libfpvm/fgetbytes.m4 libfpvm/fgetncplx.m4 libfpvm/fgetndcplx.m4 libfpvm/fgetndfloat.m4 libfpvm/fgetnfloat.m4 libfpvm/fgetnint.m4 libfpvm/fgetnlong.m4 libfpvm/fgetnshort.m4 libfpvm/fgetstring.m4 libfpvm/finithow.m4 libfpvm/finitiate.m4 libfpvm/finitiatem.m4 libfpvm/finitsend.m4 libfpvm/fleave.m4 libfpvm/fprobe.m4 libfpvm/fprobemulti.m4 libfpvm/fpstatus.m4 libfpvm/fputbytes.m4 libfpvm/fputncplx.m4 libfpvm/fputndcplx.m4 libfpvm/fputndfloat.m4 libfpvm/fputnfloat.m4 libfpvm/fputnint.m4 libfpvm/fputnlong.m4 libfpvm/fputnshort.m4 libfpvm/fputstring.m4 libfpvm/fpvmperror.m4 libfpvm/frcv.m4 libfpvm/frcvinfo.m4 libfpvm/frcvmulti.m4 libfpvm/fready.m4 libfpvm/fsnd.m4 libfpvm/fstatus.m4 libfpvm/fterminate.m4 libfpvm/ftocstr.c libfpvm/fvrcv.m4 libfpvm/fvrcvmulti.m4 libfpvm/fvsnd.m4 libfpvm/fwaituntil.m4 libfpvm/fwhoami.m4 libfpvm/pvm_consts.h man/MkZeroes man/man1/pvm_intro.1 man/man1/pvmd.1 man/man3/barrier.3 man/man3/enroll.3 man/man3/get.3 man/man3/initiate.3 man/man3/initsend.3 man/man3/leave.3 man/man3/libpvm.3 man/man3/probe.3 man/man3/pstatus.3 man/man3/put.3 man/man3/pvm_mstat.3 man/man3/pvm_perror.3 man/man3/rcv.3 man/man3/rcvinfo.3 man/man3/ready.3 man/man3/snd.3 man/man3/status.3 man/man3/terminate.3 man/man3/vrcv.3 man/man3/vsnd.3 man/man3/waituntil.3 man/man3/whoami.3 mandel/Makefile mandel/Readme mandel/mandel_main.c mandel/mandel_tile.c mandel/xpx.c src/AFX8/Makefile src/ALPHA/Makefile src/BFLY/Makefile src/C2MP/Makefile src/C2MPCXFP/Makefile src/CM2/Makefile src/CM5/Makefile src/CRAY/Makefile src/CRAYSMP/Makefile src/DGAV/Makefile src/HP9K/Makefile src/I386/Makefile src/I860/Makefile src/IPSC/Makefile src/KSR1/Makefile src/Makefile.body src/Makefile.custom src/NEXT/Makefile src/PMAX/Makefile src/RIOS/Makefile src/RT/Makefile src/SGI/Makefile src/SUN3/Makefile src/SUN3_3_5/Makefile src/SUN4/Makefile src/SYMM/Makefile src/TITN/Makefile src/UVAX/Makefile src/VCM2/Makefile src/archequiv.c src/cmd.c src/craypatch.h src/crunch.c src/fdsetpatch.h src/global.h src/host.c src/imalloc.c src/loclcomm.c src/loclcomm.h src/micomm.c src/micomm.h src/netside.c src/proc.c src/proc.h src/putenv.c src/pvmd.c src/pvmd.h src/pvmuser.h src/rem.h src/startup.c src/sunos3patch.h src/titanpatch.h src/ulib.c src/uliberr.c src/uside.c src/util.c src/wait.c src/wait.h src/xenixpatch.h tsts/Makefile tsts/Readme tsts/askinit.c tsts/barrtest.c tsts/check.c tsts/check_slave.c tsts/conf.c tsts/enrolltest.c tsts/timing.c tsts/timing_slave.c tsts/whome.c END_OF_FILE if test 4638 -ne `wc -c <'pvm2.4/Files'`; then echo shar: \"'pvm2.4/Files'\" unpacked with wrong size! fi # end of 'pvm2.4/Files' fi if test -f 'pvm2.4/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/Makefile'\" else echo shar: Extracting \"'pvm2.4/Makefile'\" \(514 characters\) sed "s/^X//" >'pvm2.4/Makefile' <<'END_OF_FILE' X# X# Top-level makefile for PVM X# ARCH = UNKNOWN X default: s f X all: s f oldf X tidy: X cd src ; ../aimk tidy X cd libfpvm ; ../aimk tidy X cd f2c ; ../aimk tidy X clean: X cd src ; ../aimk clean X cd libfpvm ; ../aimk clean X cd f2c ; ../aimk clean X X# X# targets called when running "make" X# X s: X ./aimk -here i_s X f: X ./aimk -here i_f X oldf: X ./aimk -here i_oldf X X# X# targets when running "aimk" (run by make) X# X i_s: $(LIBDIR) X cd src ; ../aimk X i_f: $(LIBDIR) X cd libfpvm ; ../aimk X i_oldf: $(LIBDIR) X cd f2c ; ../aimk X END_OF_FILE if test 514 -ne `wc -c <'pvm2.4/Makefile'`; then echo shar: \"'pvm2.4/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/Makefile' fi if test -f 'pvm2.4/Readme' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/Readme'\" else echo shar: Extracting \"'pvm2.4/Readme'\" \(7891 characters\) sed "s/^X//" >'pvm2.4/Readme' <<'END_OF_FILE' X Readme file for PVM Version 2.4.2 X22 Dec 1992 X PVM - Parallel Virtual Machine University of Tennessee, Knoxville, TN. Oak Ridge National Laboratory, Oak Ridge, TN. XEmory University, Atlanta, GA. X X________________________________________________________________________ NOTE X This version (2.4.2) is semi-compatible with version 2.4.1. Pvmds of the two versions should interoperate correctly. Programs linked with one version of the library will not work with a (local) pvmd of the other however. This is because the libpvm-pvmd protocol has changed. X X________________________________________________________________________ UNPACKING X This directory should be available at ~/pvm. Make a symlink: X X cd ; ln -s pvm2.4 pvm X The doc directory contains a few files describing PVM design and implementation. X The src directory contains source code for the PVM daemon (pvmd) and C programming library (libpvm.a). There are subdirs in src named for machines (SUN4, PMAX, etc), with makefiles for specific architectures. X The libfpvm directory contains code for a Fortran programming library, which when used with the C library allows one to link Fortran programs with PVM. This library should be used instead of the old f2c library. It handles Fortran strings correctly (the trailing '\0' is no longer required). X The f2c directory contains source for the old Fortran library that doesn't work very well, but may still be useful. X The man directory contains source for manual pages on the PVM system and C programming library. The remaining directories contain source for simple example programs. X X________________________________________________________________________ BUILDING X Just type "make" in this directory to build pvmd, libpvm.a, and libfpvm.a. If that doesn't work, keep reading. X Check in the src directory for a subdirectory named for your machine. Check the doc/Arches file if you can't guess the name. If the correct one does not exist, you will have to make a new directory. The name choice is arbitrary, but should be concise and accurate (PVM will be using the name to identify the machine type it is running on). X Note: If you are running on a group of similar machines, but which have different operating system versions installed (f.e. SunOS4.0 vs. X4.1), binary executables may not be compatible across the entire group due to shared library differences or incompatible system calls. In this case you will need to define different architecture names to distinguish the correct executables. So, instead of architecture type X"SUN4" you might have "SUN4-4.0" and "SUN4-4.1". X If you need to make an architecture directory, follow these steps: X X + mkdir NAME X + cp Makefile.generic NAME/Makefile X + cd NAME X + vi Makefile X When customizing the Makefile, the only thing you definitely have to set is the ARCH definition. You may additionally need to define certain switches from the list given, or compiler/loader flags. X To make the PVM daemon (pvmd) and user library (libpvm.a), type X"make" in the appropriate subdirectory of src. X Check out the "aimk" program in this directory. This is a shell script that automatically sets the ARCH environment variable to the appropriate PVM machine type and then calls make. You can use it to build the pvm distribution (by typing only "cd src;aimk"). It can also be used to build your applications without the need for architecture-specific subdirectories or separate makefiles. It also sets the environment variable PVMLFLAGS, which can be used to include libraries needed by libpvm. X X________________________________________________________________________ INSTALLATION X The PVM daemon (pvmd) file should be named "/tmp/pvm/pvmd" so that the master pvmd can find it. If necessary, you can give the master an alternate path to use. Check the manual page for pvmd. X X________________________________________________________________________ WRITING APPLICATIONS X Syntax and semantics of the library functions are described in the manual pages in man/. User code must be linked with libpvm.a (in the machine-architecture src directory), and possibly with other libraries X(check doc/Arches for notes about this). X Your executables should be in directory ~/pvm/NAME/ (where NAME is the PVM name for an architecture) on each host in order for the pvmd to find them. You can change the default path if you wish; check the pvmd manual page. X Check out the makefile in mandel/ for a simple example of how to write a machine-independent makefile to use with "aimk". X In the directories chol/ , fort_examp/ , mandel/ , and tsts/ are some applications that demonstrate how to write simple PVM programs. X X________________________________________________________________________ OPERATION X Before you can run any PVM applications, you must start the pvm daemon(s), one on each machine in the group of hosts you want to use. The "master" pvmd is started manually on one host, and it uses rexec() or rsh to start the "slave" pvmds on the rest. X Make a file called "myhosts" (or whatever) that contains the names of all the hosts in the group, one per line. The host running the "master" pvmd must be the first one in the file. Lines in the host file beginning with '#' are ignored. Host names should be fully qualified DOMAIN names, to avoid confusion, f.e.: X X thud.cs.utk.edu X gus.epm.ornl.gov X You will need to have a .rhosts file on each machine running a slave pvmd. They should contain the hostname of the machine running the master. X Start the pvmds with "/tmp/pvm/pvmd myhosts". The master pvmd will start up all the slaves. X If for some reason, you can't or don't want to use .rhosts files for some of the machines, you will have to type your password when starting up pvm. Append the word 'pw' to entries for those machines in you host file. For example: X X thud.cs.utk.edu X gus.epm.ornl.gov X rx.epm.ornl.gov pw X Once all the pvmds are running you may start pvm client programs. X Normally, pvmd runs in the background, and requires no input once it has started up the slave pvmds. If "-i" is specified on the command line, however, the master pvmd will provide a command mode, which allows the user to interactively monitor and control the pvmd. X To shut off PVM, kill the master pvmd. It will kill the slave daemons, and any processes initiated by them. X Currently, standard out and standard error streams of the slave pvmds (and client programs they initiate) are passed back to the master pvmd and then to its standard out. X X________________________________________________________________________ XFILES AND DIRECTORIES X X Readme This file X aimk Script to determine machine type and run make X doc/Arches List of architecture ports X doc/FAQ Answers to frequently asked questions X doc/PvmPic Sketch of PVM system organization (Postscript) X doc/Version Terse description of changes between releases X man/ Manual pages for Daemon and User Library X src/ Source for the PVM system X f2c/ Fortran user lib interface (old, cruddy) X libfpvm/ A much better Fortran user lib interface X chol/ Example PVM application (Cholesky factorization) X fort_examp/ A simple example in fortran X mandel/ Another example (Mandelbrot set calculation) X tsts/ Some simple test programs X X /tmp/pvm/pvmd The default pvmd executable (installed on every machine) X ~/pvm/ARCH/ Where user executables go (for machine type ARCH) X X________________________________________________________________________ QUESTIONS X If you have problems using PVM, check the FAQ file in doc/FAQ. If this doesn't help, send mail to the address below. X X________________________________________________________________________ CONTACT X Please direct any email (questions, bug fixes, etc) to: X X pvm@msr.EPM.ORNL.GOV. X END_OF_FILE if test 7891 -ne `wc -c <'pvm2.4/Readme'`; then echo shar: \"'pvm2.4/Readme'\" unpacked with wrong size! fi # end of 'pvm2.4/Readme' fi if test -f 'pvm2.4/UpdMakfs' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/UpdMakfs'\" else echo shar: Extracting \"'pvm2.4/UpdMakfs'\" \(298 characters\) sed "s/^X//" >'pvm2.4/UpdMakfs' <<'END_OF_FILE' X#!/bin/csh -f X# X# Rewrite all subdir makefiles with new generic body X set files=(*/Makefile) X foreach x ($files) X echo $x X rm -f $x'-' X mv $x $x'-' X# head -12 $x'-' | cat - Makefile.body > $x X awk '{print}/^# END of custom section/{exit(0)}' $x'-' | \ X cat - Makefile.body > $x X chmod 444 $x end X END_OF_FILE if test 298 -ne `wc -c <'pvm2.4/UpdMakfs'`; then echo shar: \"'pvm2.4/UpdMakfs'\" unpacked with wrong size! fi chmod +x 'pvm2.4/UpdMakfs' # end of 'pvm2.4/UpdMakfs' fi if test -f 'pvm2.4/aimk' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/aimk'\" else echo shar: Extracting \"'pvm2.4/aimk'\" \(3373 characters\) sed "s/^X//" >'pvm2.4/aimk' <<'END_OF_FILE' X#!/bin/csh -fb X# X# aimk [-here] [-nomk] [ make args ... ] X# X# Architecture Dependent Make Facility. Automatically sets PVM X# machine-type for make to use. X# X# This is a heuristic thing that may need to be tuned from time X# to time. I don't know of a real solution to determining the X# machine type. Claims to pick one of: X# ALPHA, AFX8, BFLY, C2MP, CM2, CM5, CRAY, CRAYSMP, HP300, HP9K, I386, I860, X# KSR1, NEXT, PMAX, RIOS, SGI, SUN2, SUN3, SUN4, SYMM, TITN, UVAX, VAX, X# UNKNOWN X# Need to do: X# IPSC X# X# Aimk exports environment variables that can be used in makefiles X# ARCH = the selected architecture X# PVMLFLAGS = loader flags needed when using libpvm X# X# Notes: X# 1. The output of things like uname seems to change from time to time. X# 2. Local people mess with things. X# 3. It's good to try a few things for robustness. X# X# 22 Jul 1991 Robert Manchek manchek@CS.UTK.EDU. X# X set noglob X unset makeincwd unset nomk set found while ($#argv >= 1 && $?found) X switch ("$argv[1]") X case "-here": X set makeincwd X set argv=($argv[2-]) X breaksw X case "-nomk": X set nomk X set argv=($argv[2-]) X breaksw X default: X unset found X breaksw X endsw end X X# X# begin section that may need to be tuned. X# set ARCH=UNKNOWN X if (-x /bin/uname) then X set os="`/bin/uname -s`" X set ht="`/bin/uname -m`" X set osht="$os,$ht" X X switch ("$osht") X case SunOS,sun3*: X set ARCH=SUN3 X breaksw X case SunOS,sun4*: X set ARCH=SUN4 X breaksw X case ULTRIX,RISC: X set ARCH=PMAX X breaksw X case ULTRIX,VAX: X set ARCH=UVAX X breaksw X case AIX,*: X set ARCH=RIOS X breaksw X case *,9000/*: X set ARCH=HP9K X breaksw X case IRIX,*: X case IRIX,*: X set ARCH=SGI X breaksw X case *,alpha: X set ARCH=ALPHA X breaksw X case CRSOS,smp: X set ARCH=CRAYSMP X breaksw X endsw endif X if ($ARCH != UNKNOWN) goto endarch if (-x /bin/arch) then X switch (`/bin/arch`) X case ksr1: X set ARCH=KSR1 X breaksw X case sun2: X set ARCH=SUN2 X breaksw X case sun3: X set ARCH=SUN3 X breaksw X case sun4: X set ARCH=SUN4 X default: X breaksw X endsw endif X if ($ARCH == SUN4 && -e /dev/cm) set ARCH=CM2 if ($ARCH == SUN4 && -e /dev/cmni) set ARCH=CM5 if (-e /usr/bin/getcube) set ARCH=I860 X if ($ARCH != UNKNOWN) goto endarch if (-e /ultrixboot) then X if (-e /pcs750.bin) then X set ARCH=UVAX X else X set ARCH=PMAX X endif else X if (-e /pcs750.bin) set ARCH=VAX endif if (-e /hp-ux) set ARCH=HP300 if (-e /etc/vg) set ARCH=RIOS if (-e /dynix) set ARCH=SYMM if (-e /bin/titan) set ARCH=TITN if (-e /unicos) set ARCH=CRAY if (-e /usr/bin/cluster) set ARCH=BFLY if (-e /usr/bin/asm56000) set ARCH=NEXT if (-e /usr/convex) set ARCH=C2MP if (-e /usr/alliant) set ARCH=AFX8 if (-d /usr/include/caif) set ARCH=RT if (-x /usr/bin/machine) then X switch (`/usr/bin/machine`) X case i386: X set ARCH=I386 X breaksw X default: X breaksw X endsw endif X endarch: X X# X# ugh, done. X# X X# X# get lflags X# X switch ($ARCH) case I386: X setenv PVMLFLAGS -lrpc X breaksw X case I860: case IPSC: X setenv PVMLFLAGS "-lrpc -lsocket" X breaksw X case SGI: X setenv PVMLFLAGS -lsun X breaksw X default: X set PVMLFLAGS endsw X X# X# run make in cwd or subdir if exists. X# X if ($?nomk) then X echo $ARCH X exit 0 endif X if (! $?makeincwd && -d $ARCH) then X echo making in $ARCH/ for $ARCH X (cd $ARCH; make ARCH=$ARCH "PVMLFLAGS=$PVMLFLAGS" $argv) else X echo making in . for $ARCH X make ARCH=$ARCH "PVMLFLAGS=$PVMLFLAGS" $argv endif X echo done. exit 0 X END_OF_FILE if test 3373 -ne `wc -c <'pvm2.4/aimk'`; then echo shar: \"'pvm2.4/aimk'\" unpacked with wrong size! fi chmod +x 'pvm2.4/aimk' # end of 'pvm2.4/aimk' fi if test ! -d 'pvm2.4/chol' ; then echo shar: Creating directory \"'pvm2.4/chol'\" mkdir 'pvm2.4/chol' fi if test -f 'pvm2.4/chol/cholhost.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/chol/cholhost.c'\" else echo shar: Extracting \"'pvm2.4/chol/cholhost.c'\" \(2310 characters\) sed "s/^X//" >'pvm2.4/chol/cholhost.c' <<'END_OF_FILE' X#include X#include X X/* X Host program driver for column Cholesky factorization X of a symmetric matrix partitioned by vertical strips X USAGE: cholhost X*/ X main(argc,argv) int argc; char **argv; X/* host process */ X{ X char temp[32]; X int tmp; X float f0, f1[4], err, secs[4], mflops[3], eff[3] ; X int info[3], *map ; X int me, p, n, blksize, i, j, nprocs; X X if (argc < 4) { X printf("Usage: cholhost #procs N blksize \n"); X exit(0); X } X nprocs = atoi(*++argv); X p = nprocs; X n = atoi(*++argv); X if (n < p) { X printf("Problem size (%d) < nprocs (%d)\n",n,p); X exit(1); X } X blksize = atoi(*++argv); X if (blksize > n/p) blksize = n/p ; X X me = enroll("cholhost"); X for (i=0;i err) err=f0; X } X printf("maxerr\t%e\n", err) ; X X for (i=0;i<4;i++) secs[i]=0.0; X X for (i=0;i secs[j]) secs[j] = f1[j]; X } X X printf(" \t factor\t fsolve\t bsolve\t total\n") ; X printf("secs \t%7.2f\t%7.2f\t%7.2f\t%7.2f\n", secs[0], secs[1], X secs[2], secs[3]) ; X free(map) ; X X leave(); X} END_OF_FILE if test 2310 -ne `wc -c <'pvm2.4/chol/cholhost.c'`; then echo shar: \"'pvm2.4/chol/cholhost.c'\" unpacked with wrong size! fi # end of 'pvm2.4/chol/cholhost.c' fi if test -f 'pvm2.4/chol/cholnode.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/chol/cholnode.c'\" else echo shar: Extracting \"'pvm2.4/chol/cholnode.c'\" \(5165 characters\) sed "s/^X//" >'pvm2.4/chol/cholnode.c' <<'END_OF_FILE' X#include X#include X X/* X Node program for column Cholesky factorization of X a symmetric matrix partitioned by vertical strips X using synchronous fan-out broadcast communication X*/ X main() X/* node process */ X{ X char temp[32]; X int tmp; X long ti[8] ; X int n, i, ncols, p, me, alg, *map, *mycols, info[3] ; X float *b, **col, tm[4], err, maxerr ; X X me=enroll("cholnode"); X X whoami(temp,&tmp); X fprintf(stderr, "I am %s, instance %d\n",temp,tmp); X X#ifdef USE_VC X vrcv(16001); X#else X rcv(16001); X#endif X ti[6] = time(0); X getnint(info,3); X X n = info[0] ; X alg = info[1] ; X p = info[2]; X if (n == 0 || n < p) { X fprintf(stderr,"Node no %d : n=%d; p=%d\n",me,n,p); X exit(1); X } X map = (int *)malloc(n*sizeof(int)) ; X X#ifdef USE_VC X vrcv(16002); X#else X rcv(16002); X#endif X getnint(map,n); X fprintf(stderr, "Received 16002\n"); X X ncols = 0 ; X for ( i = 0 ; i < n; i++ ) if (map[i] == me) ncols++ ; X X /* allocate storage */ X mycols = (int *)malloc(ncols*sizeof(int)) ; X b = (float *)malloc(ncols*sizeof(float)) ; X col = (float * *)malloc(ncols*sizeof(float *)) ; X X /* set up data structures for problem to be solved */ X prob1(me, n, ncols, map, mycols, col, b) ; X X /* Cholesky factorization - fan-out synchronous algorithm */ X ti[0] = time(0); X cholfo(n, ncols, map, mycols, col, me, p) ; X ti[1] = time(0); X X /* forward substitution */ X ti[2] = time(0); X forsub(n, ncols, map, mycols, col, b, me,p) ; X ti[3] = time(0); X X /* back substitution */ X ti[4] = time(0); X backsub(n, ncols, map, mycols, col, b, me,p) ; X ti[5] = time(0); X X /* compute maximum error in solution and send to cholhost */ X maxerr = 0 ; X for ( i = 0 ; i < ncols ; i++ ) { X err = b[i] ; X err -= mycols[i]+1 ; X maxerr = maxerr < fabs(err) ? fabs(err) : maxerr ; X } X initsend(); X putnfloat(&maxerr,1); X#ifdef USE_VC X vsnd("cholhost",0,16003); X#else X snd("cholhost",0,16003); X#endif X X /* send local times to host */ X ti[7] = time(0); X initsend(); X for ( i = 0 ; i < 4 ; i++ ) { X tm[i] = ti[2*i+1]-ti[2*i] ; X putnfloat(&tm[i],1); X } X#ifdef USE_VC X vsnd("cholhost",0,16004); X#else X snd("cholhost",0,16004); X#endif X X /* free storage */ X for ( i = 0 ; i < ncols ; i++ ) free(col[i]) ; X free(col) ; X free(b) ; X free(mycols) ; X free(map) ; X X leave(); X exit(0); X} X X prob1 ( me, n, ncols, map, mycols, col, b ) X int me, n, ncols, *map, *mycols ; X float **col, *b ; X X/* X * Set up data structures for problem to be solved X */ X{ X int i, j, k ; X float *p, t ; X X j = 0 ; X for ( k = 0 ; k < n ; k++ ) X if ( map[k] == me ) { X p = (float *)malloc((n-k)*sizeof(float)) ; X col[j] = p ; X mycols[j] = k ; X j++ ; X if ( k == 0 ) { X t = n ; X *p++ = t*(t+1)/2 ; X for ( i = 1 ; i < n ; i++ ) *p++ = -1 ; X } X else { X *p++ = 2 ; X for ( i = 1 ; i < n-k ; i++ ) *p++ = 0 ; X } X } X for ( i = 0 ; i < ncols ; i++ ) b[i] = 2*mycols[i]+1 ; X} X cholfo ( n, ncols, map, mycols, col ,me,nprocs) X int n, ncols, *map, *mycols ,me; X float **col ; X int nprocs; X X/* synchronous Cholesky factorization */ X{ X int i, j, k ; X float t, *p, *q, *colk ; X X colk = (float *)malloc(n*sizeof(float)) ; X j = 0 ; X for ( k = 0 ; k < n ; k++ ) { X if (map[k] == me) { X t = 1.0/sqrt(*col[j]) ; X for ( p = col[j] , q = colk ; p < col[j]+n-mycols[j] ; X p++ , q++ ) { X *p *= t ; X *q = *p ; X } X j++ ; X } X if (map[k] == me) { X if (nprocs > 1) { X initsend(); X putnfloat(colk,(n-k)); X#ifdef USE_VC X vsnd("cholnode",-1,k); X#else X snd("cholnode",-1,k); X#endif X } X } X else { X#ifdef USE_VC X vrcv(k); X#else X rcv(k); X#endif X getnfloat(colk,(n-k)); X } X X for ( i = j ; i < ncols ; i++ ) { X for ( p = col[i] , q = colk+mycols[i]-k , t = *q ; X p < col[i]+n-mycols[i] ; p++ , q++ ) X *p -= *q * t ; X } X } X free(colk) ; X} X X forsub ( n, ncols, map, mycols, col, b ,me,nprocs) X int me, n, ncols, *map, *mycols ; X float **col, *b ; X int nprocs; X X/* lower triangular forward solve */ X/* column-oriented fan-in algorithm */ X X{ X int i, j, k ; X float t ,t2; X X j = 0 ; X if (map[0] == me) { X b[j] /= *col[j] ; X j++ ; X } X for ( k = 1 ; k < n ; k++ ) { X t = 0 ; X for ( i = 0 ; i < j ; i++ ) t += b[i] * *(col[i]+k-mycols[i]) ; X if (map[k] == me) { X for (i=0;i<(nprocs-1);i++) { X#ifdef USE_VC X vrcv(k); X#else X rcv(k); X#endif X getnfloat(&t2,1); X t+=t2; X } X } X else { X initsend(); X putnfloat(&t,1); X#ifdef USE_VC X vsnd("cholnode",map[k],k); X#else X snd("cholnode",map[k],k); X#endif X } X X if (map[k] == me) { X b[j] -= t ; X b[j] /= *col[j] ; X j++ ; X } X } X} X X backsub ( n, nrows, map, myrows, row, b ,me, nprocs) X int me, n, nrows, *map, *myrows ; X float **row, *b ; X int nprocs; X X/* upper triangular backward solve */ X/* row-oriented fan-out algorithm */ X X{ X int host, dir, i, j, k ; X float x ; X X j = nrows-1 ; X for ( k = n-1 ; k > 0 ; k-- ) { X if (map[k] == me) { X b[j] /= *row[j] ; X x = b[j] ; X j-- ; X } X if (map[k] == me) { X initsend(0); X putnfloat(&x,1); X#ifdef USE_VC X vsnd("cholnode",-1,k); X#else X snd("cholnode",-1,k); X#endif X } X else { X#ifdef USE_VC X vrcv(k); X#else X rcv(k); X#endif X getnfloat(&x,1); X } X for ( i = j ; i >= 0 ; i-- ) b[i] -= x * *(row[i]+k-myrows[i]) ; X } X if (map[0] == me) b[j] /= *row[j] ; X} X END_OF_FILE if test 5165 -ne `wc -c <'pvm2.4/chol/cholnode.c'`; then echo shar: \"'pvm2.4/chol/cholnode.c'\" unpacked with wrong size! fi # end of 'pvm2.4/chol/cholnode.c' fi if test -f 'pvm2.4/chol/makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/chol/makefile'\" else echo shar: Extracting \"'pvm2.4/chol/makefile'\" \(400 characters\) sed "s/^X//" >'pvm2.4/chol/makefile' <<'END_OF_FILE' X# X#ARCH = WHATAMI X PLIB = ../src/$(ARCH)/libpvm.a IDIR = ../$(ARCH) SDIR = . X CC = cc CFLAGS = -g -DUSE_VC X#CFLAGS = LIBS = X all: cholhost cholnode X cholhost: $(SDIR)/cholhost.c $(PLIB) X $(CC) $(CFLAGS) -o cholhost $(SDIR)/cholhost.c $(PLIB) $(LIBS) X mv cholhost $(IDIR) X cholnode: $(SDIR)/cholnode.c $(PLIB) X $(CC) $(CFLAGS) -o cholnode $(SDIR)/cholnode.c $(PLIB) $(LIBS) -lm X mv cholnode $(IDIR) X END_OF_FILE if test 400 -ne `wc -c <'pvm2.4/chol/makefile'`; then echo shar: \"'pvm2.4/chol/makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/chol/makefile' fi if test ! -d 'pvm2.4/doc' ; then echo shar: Creating directory \"'pvm2.4/doc'\" mkdir 'pvm2.4/doc' fi if test -f 'pvm2.4/doc/Arches' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/doc/Arches'\" else echo shar: Extracting \"'pvm2.4/doc/Arches'\" \(2795 characters\) sed "s/^X//" >'pvm2.4/doc/Arches' <<'END_OF_FILE' X Architecture list for PVM Version 2.4.1 X22 Dec 1992 X X________________________________________________________________________ X X PVM name Machine X -------- ------- X AFX8 Alliant FX/8 X ALPHA DEC/Alpha X BFLY BBN Butterfly TC2000 X C2MP Convex using IEEE floating-point X C2MPCXFP Convex using native f.p. X CM2 Thinking Machines CM-2 Sun front [5] X CM5 Thinking Machines CM-5 X CRAY Cray X CRAYSMP Cray S-MP X DGAV Data General Aviion [7] X HP9K HP 9000 (Snake) X KSR1 Kendall Square X I386 80[34]86 running BSDI [6] X I860 Intel RX Hypercube [4] X IPSC Intel IPSC/2 X NEXT NeXT X PMAX DEC/Mips arch (3100, 5000, etc.) X RIOS IBM/RS6000 X RT IBM/RT X SGI Silicon Graphics IRIS [3] X SUN3 Sun 3 [2] X SUN4 Sun 4, 4c, sparc, etc. X SYMM Sequent Symmetry X TITN Stardent Titan [1] X UVAX DEC/Microvax X VCM2 Thinking Machines CM-2 Vax front [5] X X[7] I'm told it works with DG/UX 5.4.1, haven't seen it in person. X X[6] Add "-lrpc" to loader libs when using libpvm. X - rexec() doesn't exist, so startup is restricted to the rsh method. X - XDR routines for floats and double floats don't exist, so they X were faked using the one for long ints. This should work. X X[5] In v2.4.1, equated CM2 (SUN4) data format to all other IEEE machines. X X[4] Add "-lrpc -lsocket" to loader libs when using libpvm. X X[3] Add "-lsun" to loader libs when using libpvm. X If using YP, may have to add "-lsun" to ARCHDLIBS in Makefile. X X[2] Works fine under SunOS 4.[01] X Had some problems with 3.x and ran out of time, so the stuff X isn't officially included. X X Problems were: X - h_addr_list[0] should change to h_addr in pvmd.c This is X backwards compatible on most machines so could be left that X way. X X - can't setsockopt(SO_SNDBUF), and the man page for udp(4) X says that changing the buffer size via ioctl() isn't X supported. :-) So just #ifdef it out in pvmd.c and ulib.c. X X[1] Now 'ported', but very untested. Have fun. X The f2c library probably will not work, as Fortran string args X are not compatible with C on a Titan. X X Problems were: X - rexec() doesn't exist, so startup is restricted to the rsh X method. Had to #ifdef out the rexec stuff in pvmd.c X X - Couldn't get setsockopt() to work. #ifdef'ed it out in X pvmd.c and ulib.c. X X - select() is somewhat broken. If you call it with X FD_SETSIZE you lose. Solution was to find the max X open fd and use that as the size. X END_OF_FILE if test 2795 -ne `wc -c <'pvm2.4/doc/Arches'`; then echo shar: \"'pvm2.4/doc/Arches'\" unpacked with wrong size! fi # end of 'pvm2.4/doc/Arches' fi if test -f 'pvm2.4/doc/FAQ' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/doc/FAQ'\" else echo shar: Extracting \"'pvm2.4/doc/FAQ'\" \(12071 characters\) sed "s/^X//" >'pvm2.4/doc/FAQ' <<'END_OF_FILE' X PVM/Frequently Asked Questions X18 Aug 1992 X X________________________________________________________________________ X Questions: X X1. What happened to XPVM? X2. What happened to the shared memory extensions? X3. What does the message "initiate: No such File" mean? X4. I can't get pvmd to start up. X5. How do I look at the output of the mandel demo? X6. Why don't I see output from certain processes right away or at all? X7. What does "xfermess() frg out of order" mean? X8. What do messages like "resend to seq=223, retry=9" mean? X9. Will PVM automatically use the individual processors on my X {Hypercube, N-Cube, CM-2, Sequent}? X10. Is the PICL/PVM library available? X X________________________________________________________________________ X1. What happened to XPVM? X X XPVM was an X windows interface (primarily) for administrative X tasks such as virtual machine configuration, multiple initiates, X and primitive debugging. It was developed for PVM1.0, and never X ported to PVM2.x, and therefore was never released. Many of the X functions supported by XPVM are now included in HeNCE. X X________________________________________________________________________ X2. What happened to the shared memory extensions? X X A distributed-shared memory facility was tried in PVM1.0; some X preliminary results and experiences on this may be found in the X "Concurrency: Practice and Experience (December 1990)" paper. X Since an overwhelming majority of PVM use was, and was anticipated X to be, based on message passing, shared-memory support was never X implemented in the released versions of PVM. However, there have X been recent efforts to incorporate a shared-address space model, X using objects and C++ interfaces, into PVM. For more details, X please contact vss@mathcs.emory.edu. X X________________________________________________________________________ X3. What does the message "initiate: No such File" mean? X X It means that a pvmd failed to find a file in response to an X initiate() call. X X By default, pvmd searches the directory $HOME/pvm/ARCH (where ARCH X is the PVM architecture name for a host) when initiating processes. X You can change this by using the "ep=" option in the pvm hosts file. X X Note that if you don't specify the host on which to initiate a X component PVM will pick one. The file must be available on that X host, as PVM will not try another once it has decided. X X________________________________________________________________________ X4. I can't get pvmd to start up. X X PVM can fail to start up for a number of reasons. Besides those X out of your control, such as a host or network being down, the X following are the most common. X X When a pvmd fails to start up, you may not get the entire error X message. Try running pvm on the remote host by hand by typing (to X the shell): X X rsh hostname /tmp/pvm/pvmd X X On some machines, you need to use "remsh" rather than "rsh". X X * If you get "Permission denied", it probably means that your .rhosts X file on the remote machine doesn't include your local host name. X You need to add a line like: X X local-host local-user-name X X to your .rhosts file on the remote machine. X X Sometimes a machine has more than one name, and the remote machine X may think your local machine has a different name than you do. To X find out what the remote machine thinks is the name of your local X machine, log in to the remote machine and type: X X who am i X X This will show you what the remote host thinks is the name of the X local host (it may be truncated to 16 characters). Make sure you X put this name (in full, not truncated) in your .rhosts file on the X remote machine. Some older machines will insist that you spell the X name exactly the same, including getting the case right; newer X machines will let you spell it in either upper or lower case. X X * If you get "Login incorrect", it probably means that there isn't an X account on the remote machine with the same login name you're using X the local machine. You need to add a "lo=username" option to your X pvm hosts file. X X If you get something like X X pvmd version <2.4.1> arch maxml <4096> X X then pvmd is starting up fine on the remote machine. However, make X sure that the version number of the remote pvmd matches the version X of the local pvmd. If the two pvmd's aren't the same version, they X will refuse to talk to each other. X X * If you get a message like: X X /tmp/pvm/pvmd: No Such File X X the master pvmd is reaching the remote host but can't start the X slave pvmd. Make sure the executable file is installed in X /tmp/pvm/pvmd or use the "dx=" option in the pvm hosts file to X choose a different pathname. X X * If you get something else, or *any* other output appears before the X "pvmd version" line, make sure your .cshrc on the remote machine X isn't either (a) printing something out when you log in, or (b) X trying to set your terminal characteristics (e.g. erase key) (usually X with the "stty" or "tset" commands). Doing either of these things X in your .cshrc is generally a Bad Idea. X X If you want to print out stuff when you log in, you should either X do it in your .login script or put the commands in an if statement X to ensure that stuff only gets printed when you are logging in X interactively, not when you're running a csh commands script. X Something like this should do the trick: X X if ( { tty -s } && $?prompt ) then X echo terminal type is $TERM X stty erase '^?' kill '^u' intr '^c' echo X endif X X________________________________________________________________________ X5. How do I look at the output of the mandel demo? X X Compile and use the 'xpx' program in the mandel directory. We X haven't previously included this file, but everyone has been X wanting it. X X________________________________________________________________________ X6. Why don't I see output from certain processes right away or at all? X X The stdio library (fgets, printf, etc.) buffers input and output X for efficiency whenever possible. That is, it tries to reduce the X frequency of actual read() or write() system calls. It decides X whether to buffer by looking at the underlying file descriptor of a X stream. If the descriptor is for a tty, it buffers only a line at X a time, that is, the buffer is flushed whenever the character '\n' X is encountered. If the descriptor is a file, pipe, or socket, X however, stdio buffers up much more, like 4k bytes. X X The processes started by pvmd on the 'master' machine inherit its X stdout/err files and so their stdio libs decide to flush output X every line. Processes started by other ('slave') pvmds inherit X their stdout/err files, which are sockets back to the master pvmd. X Thus their stdio libs buffer more than a line before writing to the X socket (because they don't know they're talking to a human). X X There are a few ways to see your output at the correct time. You X can put "fflush(stdout);" after each printf(). Or, change the X buffering mode of stdout to line-oriented for the entire program by X putting: X X setlinebuf(stdout); X X near the top of the program. X X________________________________________________________________________ X7. What does "xfermess() frg out of order" mean? X X This is the message fragment reassembly code in libpvm X complaining. Xfermess() is called by rcv(), rcvmulti(), and X probe(). Messages longer than 4k bytes (sometimes other values X depending on what host types you're using) are fragmented in X the originating process for transmission, then reassembled in X the receiving process. X X This used to happen a lot, mostly due to bugs in libpvm, but X the code has been cleaned up, and we haven't seen the problem X in quite a while, except when caused by... X X One mistake PVM users commonly make is to give a byte count X instead of object count to a function like getnint(). This X can result in two, four, or eight times too many bytes being X unpacked, thus writing off the end of the space reserved for X the data. X X If the buffer was obtained by malloc and you scribble past the X end of it, you may corrupt the contents of other malloc'd space X or housekeeping information. Libpvm functions, especially X snd() and rcv(), make extensive use of malloc when buffering X messages. There is almost no code in the library to do sanity X checking, mostly because there's no good way to do it. Of X course, the side effects are chaotic and may come and go X seemingly randomly. X X There's no good solution, other than to carefully check your X code. If you're interested, there is an instrumented malloc X library that can detect problems like overwriting buffers, X accessing buffers after freeing them, and so on. To use it, X replace all calls to malloc(), realloc() or free() in your code X with i_malloc(), i_realloc(), and i_free(). Then link with X imalloc.c (found in the PVM src directory). X X________________________________________________________________________ X8. What do messages like "resend to seq=223, retry=9" mean? X X These are pvmd-to-pvmd packets being resent. Packets are sometimes X dropped either by the network or the destination host due to X glitches or lack of resources. X X While they do impact the performance somewhat, messages like the X above are no cause for alarm unless the retry count gets down to or X near zero. Each packet is allowed ten retries, after which it is X discarded. When packets get discarded, things will start to hang X or break. X X________________________________________________________________________ X9. Will PVM automatically use the individual processors on my X {Hypercube, N-Cube, CM-2, Sequent}? X X PVM can only manage Unix processes right now, that is, a PVM X 'process' is required to be a Unix process, with all its X resources. In addition, PVM treats each host as a single machine, X and does not consider underlying structure. X X * On a Sequent, for example, the Unix process scheduler assigns X processes to each of the physical processors in order to balance X the load. Thus, simply starting multiple processes gives X parallelism. X X * On other types of machines, such as Alliants and CM-2s, the X programmer must write code to take advantage of the parallel X features of the machine. The PVM system will simply think it's X managing normal processes. X X * On machines like Hypercubes, however, node processors present a X restricted environment (without sockets or file access for example) X that PVM can not deal with. When using these machines, the user is X usually required to write both 'host' and 'node' programs. The X host program links with libpvm and the manufacturer's custom X library and provides communication between the PVM machine and the X node program, as well as any special control, such as allocating a X partition. The node program then does the calculation. X X Future versions of PVM will in fact be able to manage PVM 'tasks' X that are not full-fledged Unix processes, in some host-specific X way. X X________________________________________________________________________ X10. Is the PICL/PVM library available? X X There was a PICL library that worked with an old version of PVM, X but was never ported to version 2 (the first one released to the X world). The PICL model is intended for a homogeneous environment, X and so is more limited than PVM. More importantly, since the X clocks on a group of workstations are not synchronized, the trace X files produced by PICL cannot be reliably displayed using X ParaGraph. X X We have a package called 'xab' that can be linked with user code to X generate trace files usable with ParaGraph. X END_OF_FILE if test 12071 -ne `wc -c <'pvm2.4/doc/FAQ'`; then echo shar: \"'pvm2.4/doc/FAQ'\" unpacked with wrong size! fi # end of 'pvm2.4/doc/FAQ' fi if test -f 'pvm2.4/doc/MsgFormats' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/doc/MsgFormats'\" else echo shar: Extracting \"'pvm2.4/doc/MsgFormats'\" \(7169 characters\) sed "s/^X//" >'pvm2.4/doc/MsgFormats' <<'END_OF_FILE' X Message Formats for PVM 2.4.0 X22 Dec 1992 X X________________________________________________________________________ BETWEEN MASTER PVMD AND EACH SLAVE AT STARTUP TIME X XFrom From Slave Master X X[Phase 1 connect to each host and establish arch, address, port] X X"pvmd version <2.3.4> arch maxml <4096>" X X[The following two are used if starting up via rsh instead of rexec] X X "reconnect addr <%08x> port <%04x>" X X[On the new socket now] X"pvmd version <2.3.4> arch maxml <4096>" X X "nhosts <%d> yourhost <%d>" X "name <%s> addr <%08x>" [for each host in the grp] X ... X X"myport <%04x>" X X[Phase 2 complete the config/host table for all slaves] X X "maxml <%d>" X "port <%04x> arch <%s> epath <%s>" [for each host in the grp] X ... X X"ok nhosts <%d> im <%d>" X X________________________________________________________________________ BETWEEN PVMDs X Message Header - 12 bytes, all multibyte values are nbo (most sig first) X X Byte 0 1 2 3 X +---------------+---------------+---------------+---------------+ X | Type | Flags | Broadcast Root | X +---------------+---------------+---------------+---------------+ X | Sequence Number | X +---------------+---------------+---------------+---------------+ X | Remote Wait Channel | X +---------------+---------------+---------------+---------------+ X Message body formats - miint data type is a 4 byte integer X X1 FORUSER // pass user message X string name // process name to X miint inum // process inum to X string name // process name from X miint inum // process inum from X [message] X X2 INUMGET // query pvmd[0] instance number for new process X string name // process name to create X X3 INUMACK // return instance number new process X miint inum // given instance number X X4 INOTIFY // notify everyone of existence of new process X string name // process name X miint inum // instance X X5 XNOTIFY // notify everyone of process exit X string name // process name X miint inum // instance X X6 ISPROC // query pvmd[0] of existence and location of a process X string name X miint inum X X7 LOCATE // return process location X string name X miint inum X miint host X miint flags X X8 INIT // create a process X string name X XXX This message needs to be extended X X9 HOSTGET // query where to initiate new process X string arch // requested architecture or NULL X X10 HOSTACK // reply where to initiate new process X miint host X X11 READY // user has signaled with ready() X string name // channel name X X12 EPOCH // pvmd[0] signalling to reset procs, barriers, etc. X X13 TERM // command to terminate a process X string name // process name X miint inum // instance number X X14 BARRIER // user has called barrier() X string name // channel name X int quorum // number needed to meet X X15 PS // request for local process list X X16 PSACK // reply to PS X int num // number of entries X { X string name // process name X int inum // instance number X int flags // process flags X } [num] X X17 CNT // get num of instances of process X string name // process name X X18 CNTACK // num of instances of proc X string name X miint count X X19 VCNOT // announce virt ckt addr for proc X string name // process name X miint inum // process instance X miint addr // ip address XXX scary to use int? X miint port // port X X________________________________________________________________________ XFROM CLIENT TO PVMD X X(Values are in machine-specific format) X Header X int pid // user proc id X int type // message type X int seq // sequence number X int flags X X1 UMC_ENROLL // enroll this process X string name // requested process name X X2 UMC_INIT // initiate another process X // specify UF_IN, UF_OUT, UF_ERR X string name // requested process name X string arch // maybe null X string host // maybe null X string stdin // optional if set in flags Not Implemented X string stdout // optional if set in flags Not Implemented X string stderr // optional if set in flags Not Implemented X int argc // arg count Not Implemented X string argv[] // optional if argc > 0 Not Implemented X X3 UMC_TERM // terminate a process X string name // process name X int inum // process inum X X4 UMC_WHOAMI // get name and instance of this process X no body X X5 UMC_LEAVE // exit this process from pvm X no body X X6 UMC_SEND // send message to a process or broadcast X string proc // process name X int inum // instance or -1 to broadcast X [data] X X7 UMC_RECV // download queued messages to this process X // specify UF_BLOCK X X8 UMC_BARR // participate in barrier X // specify UF_BARR, UF_RDY X string name // barrier/semaphore name X int count // optional how many if flags&barrier X X9 UMC_STAT // get status of a process X string name // process name X int inum // instance X X10 UMC_PSTAT // get virtual machine params X no body X X11 UMC_INST // get max instance of process name X string name // process name X X12 UMC_GETVC // get virt ckt addr for a process X string name // process name X int inum // instance X X13 UMC_SETVC // set the virt ckt addr of this process X sockaddr_in addr // the address X X14 UMC_VERSION // compare rev levels with pvmd X string version // ulib version X X15 UMC_MSTAT // get more virtual machine params X no body X X________________________________________________________________________ X XFROM PVMD TO CLIENT PROCESS X X(Values are in machine-specific format) X Header X int pid // user proc id - not used X int type // message type - not used X int seq // sequence number - matches request X int flags // command modifiers/return status bits X X1 UMC_ENROLL X // status in UF_ACK and UF_ALRDY X int inum // if ACK&!ALRDY X int maxmsglength // if ACK&!ALRDY X in_addr ad // if ACK&!ALRDY, our IP address X X2 UMC_INIT X // status in UF_ACK, UF_NEXE, UF_NHOST X int inum // if ACK X X3 UMC_TERM X // status in UF_ACK, UF_NPROC X X4 UMC_WHOAMI X // status in UF_ACK X string name // optional if ACK X int inum // optional if ACK X int maxmsglength // if ACK X in_addr ad // if ACK, our IP address X X5 UMC_LEAVE X X6 UMC_SEND X // status in UF_ACK, UF_NPROC X X7 UMC_RECV X // status in UF_ACK, UF_NMSG X string fromname X int frominum X uuheader X [data] // if ACK, !NMSG X X8 UMC_BARR X // status in UF_ACK X X9 UMC_STAT X // status in UF_ACK, UF_RUN X X10 UMC_PSTAT X // status in UF_ACK X int ncpus // optional if ACK X int nclasses // optional if ACK X X11 UMC_INST X int max // optional if ACK, 0 = no instances X X12 UMC_GETVC X sockaddr_in addr // optional if ACK and !NPROC X X13 UMC_SETVC X // status in UF_ACK X X14 UMC_VERSION X // status in UF_ACK X string version // pvmd version whether ack or not X int ndf // our native data format X X15 UMC_MSTAT X // status in UF_ACK X int ncpus // optional if ACK X int mycpu // host number X { X int stat // 0 if no procs running, 1 if any procs running X string name // host name X string arch // host architecture X } [ncpus] X X________________________________________________________________________ X END_OF_FILE if test 7169 -ne `wc -c <'pvm2.4/doc/MsgFormats'`; then echo shar: \"'pvm2.4/doc/MsgFormats'\" unpacked with wrong size! fi # end of 'pvm2.4/doc/MsgFormats' fi if test -f 'pvm2.4/doc/PvmPic' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/doc/PvmPic'\" else echo shar: Extracting \"'pvm2.4/doc/PvmPic'\" \(38246 characters\) sed "s/^X//" >'pvm2.4/doc/PvmPic' <<'END_OF_FILE' X%!PS-Adobe-2.0 EPSF-1.2 X%%DocumentFonts: Courier Times-Roman X%%Pages: 1 X%%BoundingBox: 44 59 513 725 X%%EndComments X X/arrowHeight 10 def X/arrowWidth 5 def X X/IdrawDict 52 dict def IdrawDict begin X X/reencodeISO { dup dup findfont dup length dict begin X{ 1 index /FID ne { def }{ pop pop } ifelse } forall X/Encoding ISOLatin1Encoding def currentdict end definefont X} def X X/ISOLatin1Encoding [ X/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef X/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef X/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef X/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef X/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright X/parenleft/parenright/asterisk/plus/comma/minus/period/slash X/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon X/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N X/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright X/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m X/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde X/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef X/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef X/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve X/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut X/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar X/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot X/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior X/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine X/guillemotright/onequarter/onehalf/threequarters/questiondown X/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla X/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex X/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis X/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute X/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis X/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave X/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex X/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis X/yacute/thorn/ydieresis X] def X/Courier reencodeISO def X/Times-Roman reencodeISO def X X/none null def X/numGraphicParameters 17 def X/stringLimit 65535 def X X/Begin { save numGraphicParameters dict begin X} def X X/End { end restore X} def X X/SetB { dup type /nulltype eq { pop false /brushRightArrow idef false /brushLeftArrow idef true /brushNone idef X} { X/brushDashOffset idef X/brushDashArray idef X0 ne /brushRightArrow idef X0 ne /brushLeftArrow idef X/brushWidth idef false /brushNone idef X} ifelse X} def X X/SetCFg { X/fgblue idef X/fggreen idef X/fgred idef X} def X X/SetCBg { X/bgblue idef X/bggreen idef X/bgred idef X} def X X/SetF { X/printSize idef X/printFont idef X} def X X/SetP { dup type /nulltype eq { pop true /patternNone idef X} { dup -1 eq { X/patternGrayLevel idef X/patternString idef X} { X/patternGrayLevel idef X} ifelse false /patternNone idef X} ifelse X} def X X/BSpl { X0 begin storexyn newpath n 1 gt { X0 0 0 0 0 0 1 1 true subspline n 2 gt { X0 0 0 0 1 1 2 2 false subspline X1 1 n 3 sub { X/i exch def i 1 sub dup i dup i 1 add dup i 2 add dup false subspline X} for n 3 sub dup n 2 sub dup n 1 sub dup 2 copy false subspline X} if n 2 sub dup n 1 sub dup 2 copy 2 copy false subspline patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if brushNone not { istroke } if X0 0 1 1 leftarrow n 2 sub dup n 1 sub dup rightarrow X} if end X} dup 0 4 dict put def X X/Circ { newpath X0 360 arc patternNone not { ifill } if brushNone not { istroke } if X} def X X/CBSpl { X0 begin dup 2 gt { storexyn newpath n 1 sub dup 0 0 1 1 2 2 true subspline X1 1 n 3 sub { X/i exch def i 1 sub dup i dup i 1 add dup i 2 add dup false subspline X} for n 3 sub dup n 2 sub dup n 1 sub dup 0 0 false subspline n 2 sub dup n 1 sub dup 0 0 1 1 false subspline patternNone not { ifill } if brushNone not { istroke } if X} { Poly X} ifelse end X} dup 0 4 dict put def X X/Elli { X0 begin newpath X4 2 roll translate scale X0 0 1 0 360 arc patternNone not { ifill } if brushNone not { istroke } if end X} dup 0 1 dict put def X X/Line { X0 begin X2 storexyn newpath x 0 get y 0 get moveto x 1 get y 1 get lineto brushNone not { istroke } if X0 0 1 1 leftarrow X0 0 1 1 rightarrow end X} dup 0 4 dict put def X X/MLine { X0 begin storexyn newpath n 1 gt { x 0 get y 0 get moveto X1 1 n 1 sub { X/i exch def x i get y i get lineto X} for patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if brushNone not { istroke } if X0 0 1 1 leftarrow n 2 sub dup n 1 sub dup rightarrow X} if end X} dup 0 4 dict put def X X/Poly { X3 1 roll newpath moveto X-1 add X{ lineto } repeat closepath patternNone not { ifill } if brushNone not { istroke } if X} def X X/Rect { X0 begin X/t exch def X/r exch def X/b exch def X/l exch def newpath l b moveto l t lineto r t lineto r b lineto closepath patternNone not { ifill } if brushNone not { istroke } if end X} dup 0 4 dict put def X X/Text { ishow X} def X X/idef { dup where { pop pop pop } { exch def } ifelse X} def X X/ifill { X0 begin gsave patternGrayLevel -1 ne { fgred bgred fgred sub patternGrayLevel mul add fggreen bggreen fggreen sub patternGrayLevel mul add fgblue bgblue fgblue sub patternGrayLevel mul add setrgbcolor eofill X} { eoclip originalCTM setmatrix pathbbox /t exch def /r exch def /b exch def /l exch def X/w r l sub ceiling cvi def X/h t b sub ceiling cvi def X/imageByteWidth w 8 div ceiling cvi def X/imageHeight h def bgred bggreen bgblue setrgbcolor eofill fgred fggreen fgblue setrgbcolor w 0 gt h 0 gt and { l b translate w h scale w h true [w 0 0 h neg 0 h] { patternproc } imagemask X} if X} ifelse grestore end X} dup 0 8 dict put def X X/istroke { gsave brushDashOffset -1 eq { X[] 0 setdash X1 setgray X} { brushDashArray brushDashOffset setdash fgred fggreen fgblue setrgbcolor X} ifelse brushWidth setlinewidth originalCTM setmatrix stroke grestore X} def X X/ishow { X0 begin gsave fgred fggreen fgblue setrgbcolor X/fontDict printFont printSize scalefont dup setfont def X/descender fontDict begin 0 [FontBBox] 1 get FontMatrix end transform exch pop def X/vertoffset 1 printSize sub descender sub def { X0 vertoffset moveto show X/vertoffset vertoffset printSize sub def X} forall grestore end X} dup 0 3 dict put def X/patternproc { X0 begin X/patternByteLength patternString length def X/patternHeight patternByteLength 8 mul sqrt cvi def X/patternWidth patternHeight def X/patternByteWidth patternWidth 8 idiv def X/imageByteMaxLength imageByteWidth imageHeight mul stringLimit patternByteWidth sub min def X/imageMaxHeight imageByteMaxLength imageByteWidth idiv patternHeight idiv patternHeight mul patternHeight max def X/imageHeight imageHeight imageMaxHeight sub store X/imageString imageByteWidth imageMaxHeight mul patternByteWidth add string def X0 1 imageMaxHeight 1 sub { X/y exch def X/patternRow y patternByteWidth mul patternByteLength mod def X/patternRowString patternString patternRow patternByteWidth getinterval def X/imageRow y imageByteWidth mul def X0 patternByteWidth imageByteWidth 1 sub { X/x exch def imageString imageRow x add patternRowString putinterval X} for X} for imageString end X} dup 0 12 dict put def X X/min { dup 3 2 roll dup 4 3 roll lt { exch } if pop X} def X X/max { dup 3 2 roll dup 4 3 roll gt { exch } if pop X} def X X/midpoint { X0 begin X/y1 exch def X/x1 exch def X/y0 exch def X/x0 exch def x0 x1 add 2 div y0 y1 add 2 div end X} dup 0 4 dict put def X X/thirdpoint { X0 begin X/y1 exch def X/x1 exch def X/y0 exch def X/x0 exch def x0 2 mul x1 add 3 div y0 2 mul y1 add 3 div end X} dup 0 4 dict put def X X/subspline { X0 begin X/movetoNeeded exch def y exch get /y3 exch def x exch get /x3 exch def y exch get /y2 exch def x exch get /x2 exch def y exch get /y1 exch def x exch get /x1 exch def y exch get /y0 exch def x exch get /x0 exch def x1 y1 x2 y2 thirdpoint X/p1y exch def X/p1x exch def x2 y2 x1 y1 thirdpoint X/p2y exch def X/p2x exch def x1 y1 x0 y0 thirdpoint p1x p1y midpoint X/p0y exch def X/p0x exch def x2 y2 x3 y3 thirdpoint p2x p2y midpoint X/p3y exch def X/p3x exch def movetoNeeded { p0x p0y moveto } if p1x p1y p2x p2y p3x p3y curveto end X} dup 0 17 dict put def X X/storexyn { X/n exch def X/y n array def X/x n array def n 1 sub -1 0 { X/i exch def y i 3 2 roll put x i 3 2 roll put X} for X} def X X%%EndProlog X X%%BeginIdrawPrologue X/arrowhead { X0 begin transform originalCTM itransform X/taily exch def X/tailx exch def transform originalCTM itransform X/tipy exch def X/tipx exch def X/dy tipy taily sub def X/dx tipx tailx sub def X/angle dx 0 ne dy 0 ne or { dy dx atan } { 90 } ifelse def gsave originalCTM setmatrix tipx tipy translate angle rotate newpath arrowHeight neg arrowWidth 2 div moveto X0 0 lineto arrowHeight neg arrowWidth 2 div neg lineto patternNone not { originalCTM setmatrix X/padtip arrowHeight 2 exp 0.25 arrowWidth 2 exp mul add sqrt brushWidth mul arrowWidth div def X/padtail brushWidth 2 div def tipx tipy translate angle rotate padtip 0 translate arrowHeight padtip add padtail add arrowHeight div dup scale arrowheadpath ifill X} if brushNone not { originalCTM setmatrix tipx tipy translate angle rotate arrowheadpath istroke X} if grestore end X} dup 0 9 dict put def X X/arrowheadpath { newpath arrowHeight neg arrowWidth 2 div moveto X0 0 lineto arrowHeight neg arrowWidth 2 div neg lineto X} def X X/leftarrow { X0 begin y exch get /taily exch def x exch get /tailx exch def y exch get /tipy exch def x exch get /tipx exch def brushLeftArrow { tipx tipy tailx taily arrowhead } if end X} dup 0 4 dict put def X X/rightarrow { X0 begin y exch get /tipy exch def x exch get /tipx exch def y exch get /taily exch def x exch get /tailx exch def brushRightArrow { tipx tipy tailx taily arrowhead } if end X} dup 0 4 dict put def X X%%EndIdrawPrologue X X%I Idraw 10 Grid 8 8 X X%%Page: 1 1 X Begin X%I b u X%I cfg u X%I cbg u X%I f u X%I p u X%I t X[ 0.799705 0 0 0.799705 0 0 ] concat X/originalCTM matrix currentmatrix def X Begin %I Poly X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 0 0 0.5 371.5 392 ] concat X%I 6 X150 392 X214 392 X247 343 X215 296 X150 296 X119 344 X6 Poly XEnd X Begin %I Poly X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 0 0 0.5 252.5 480.5 ] concat X%I 6 X150 392 X214 392 X247 343 X215 296 X150 296 X119 344 X6 Poly XEnd X Begin %I Poly X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 0 0 0.5 264 253 ] concat X%I 6 X150 392 X214 392 X247 343 X215 296 X150 296 X119 344 X6 Poly XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 274 470 ] concat X%I X281 633 281 569 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 274 418.5 ] concat X%I X312 181 312 121 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 217 404 ] concat X%I X216 621 285 620 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 294.25 418.5 ] concat X%I X546 582 477 582 Line X%I 4 XEnd X Begin %I Line X%I b 65520 X2 0 0 [12 4] 17 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 213.25 315.25 ] concat X%I X262 569 279 326 Line X%I 2 XEnd X Begin %I Line X%I b 65520 X2 0 0 [12 4] 17 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 213.25 315.25 ] concat X%I X292 322 376 483 Line X%I 2 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 294.25 315.5 ] concat X%I X237 341 237 278 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 294.25 315.5 ] concat X%I X105 158 82 125 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 294.25 315.5 ] concat X%I X286 159 295 127 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 294.25 315.5 ] concat X%I X494 143 546 99 Line X%I 4 XEnd X Begin %I Line X%I b 65520 X2 0 0 [12 4] 17 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 294.25 315.5 ] concat X%I X128 183 203 245 Line X%I 4 XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-courier-medium-r-*-80-* Courier 8 SetF X%I t X[ 1 0 0 1 446 575 ] concat X%I X[ X(pvmd 3) X(rhubarb) X(UVAX) X] Text XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-courier-medium-r-*-80-* Courier 8 SetF X%I t X[ 1 0 0 1 330 663 ] concat X%I X[ X(pvmd 0) X(thud) X(SUN4) X] Text XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-courier-medium-r-*-80-* Courier 8 SetF X%I t X[ 1 0 0 1 224 572 ] concat X%I X[ X(pvmd 1) X(tonka) X(SYMM) X] Text XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-courier-medium-r-*-80-* Courier 8 SetF X%I t X[ 1 0 0 1 341 437 ] concat X%I X[ X(pvmd 2) X(speedy) X(RIOS) X] Text XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 136 195 ] concat X%I X[ X(UDP socket) X] Text XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 136 177 ] concat X%I X[ X(UDP traffic) X] Text XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-courier-medium-r-*-80-* Courier 8 SetF X%I t X[ 1 0 0 1 352 620 ] concat X%I X[ X(128.169.201.228:5001) X] Text XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1.18539 -0 -0 0.489779 232.121 161.613 ] concat X%I X87 329 134 378 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1.18539 -0 -0 0.489779 328.121 166.613 ] concat X%I X87 329 134 378 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1.18539 -0 -0 0.489779 165.621 161.613 ] concat X%I X87 329 134 378 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1.18539 -0 -0 0.489779 184.121 582.113 ] concat X%I X87 329 134 378 Rect XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-courier-medium-r-*-80-* Courier 8 SetF X%I t X[ 1 0 0 1 274 341.5 ] concat X%I X[ X(factor,0) X] Text XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-courier-medium-r-*-80-* Courier 8 SetF X%I t X[ 1 0 0 1 340.5 342 ] concat X%I X[ X(factor,1) X] Text XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-courier-medium-r-*-80-* Courier 8 SetF X%I t X[ 1 0 0 1 440 345 ] concat X%I X[ X(factor,2) X] Text XEnd X Begin %I Poly X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.144458 0 0 0.144458 81.814 103.807 ] concat X%I 6 X150 392 X214 392 X247 343 X215 296 X150 296 X119 344 X6 Poly XEnd X Begin %I Poly X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 0 0 0.5 147.5 388 ] concat X%I 6 X150 392 X214 392 X247 343 X215 296 X150 296 X119 344 X6 Poly XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 136.5 158.75 ] concat X%I X[ X(PVM Daemon) X] Text XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.346096 -0.00635404 0.00635403 0.346096 337.582 287.373 ] concat X%I X41 272 30 11 Elli XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.254448 0.234688 -0.234688 0.254448 468.153 274.668 ] concat X%I X41 272 30 11 Elli XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.346145 -0.00246215 0.00246215 0.346145 350.138 265.199 ] concat X%I X41 272 30 11 Elli XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.30496 -0.163775 0.163775 0.30496 265.7 282.016 ] concat X%I X41 272 30 11 Elli XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.346153 0.000932626 -0.000932623 0.346153 338.061 374.308 ] concat X%I X41 272 30 11 Elli XEnd X Begin %I Line X%I b 65520 X2 0 0 [12 4] 17 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 253.75 315.5 ] concat X%I X415 240 432 198 Line X%I 4 XEnd X Begin %I Line X%I b 65520 X2 0 0 [12 4] 17 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 274 315.5 ] concat X%I X364 248 537 167 Line X%I 4 XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ -0.0242888 -0.345301 0.345301 -0.0242888 199.824 580.514 ] concat X%I X41 272 30 11 Elli XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.00910097 -0.346034 0.346034 0.00910097 315.506 575.962 ] concat X%I X41 272 30 11 Elli XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.346023 -0.00950985 0.00950985 0.346023 90.726 96.397 ] concat X%I X41 272 30 11 Elli XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.346133 -0.00379276 0.00379275 0.346133 329.027 514.007 ] concat X%I X41 272 30 11 Elli XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-courier-medium-r-*-80-* Courier 8 SetF X%I t X[ 1 0 0 1 425.5 366.75 ] concat X%I X[ X(/tmp/pvmu.2505) X] Text XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.344916 0.029244 -0.029244 0.344916 315.313 625.984 ] concat X%I X41 272 30 11 Elli XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 243.625 560.125 ] concat X%I X292 733 307 661 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 243.625 560.125 ] concat X%I X391 530 391 467 Line X%I 4 XEnd X Begin %I Line X%I b 65520 X2 0 0 [12 4] 17 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 243.625 560.125 ] concat X%I X331 617 365 570 Line X%I 4 XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-courier-medium-r-*-80-* Courier 8 SetF X%I t X[ 1 0 0 1 294.5 761 ] concat X%I X[ X(main,0) X] Text XEnd X Begin %I Line X%I b 65520 X2 0 0 [12 4] 17 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 162.625 456.875 ] concat X%I X346 287 285 227 Line X%I 2 XEnd X Begin %I Line X%I b 65520 X2 0 0 [12 4] 17 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 162.625 456.875 ] concat X%I X277 187 367 39 Line X%I 2 XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.346152 -0.00109666 0.00109667 0.346152 327.009 602.142 ] concat X%I X41 272 30 11 Elli XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 136 139.75 ] concat X%I X[ X(TCP socket) X] Text XEnd X Begin %I Line X%I b 65535 X1 1 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 64.875 97.125 ] concat X%I X114 97 243 97 Line X%I 4 XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 136 124.75 ] concat X%I X[ X(TCP connection) X] Text XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.14531 -0.203433 0.203433 0.14531 342.541 457.171 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.214694 0.128088 -0.128088 0.214694 369.098 621.837 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 352.625 616.125 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 430.125 564.125 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 200.625 557.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.202772 0.146231 -0.146231 0.202772 296.696 582.612 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I BSpl X%I b 65535 X1 1 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 162.625 302.375 ] concat X%I 3 X274 660 X204 650 X168 605 X3 BSpl X%I 2 XEnd X Begin %I BSpl X%I b 65535 X1 1 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 243.625 302.375 ] concat X%I 3 X324 699 X478 706 X461 619 X3 BSpl X%I 2 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 324.625 482.875 ] concat X%I X172 727 228 758 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 324.625 482.875 ] concat X%I X207 676 259 676 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 324.625 482.875 ] concat X%I X587 454 587 421 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 203.125 482.875 ] concat X%I X152 427 152 428 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 203.125 482.875 ] concat X%I X153 429 153 404 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 203.125 482.875 ] concat X%I X436 623 463 640 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 284.125 405.625 ] concat X%I X433 149 387 115 Line X%I 4 XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-courier-medium-r-*-80-* Courier 8 SetF X%I t X[ 1 0 0 1 366.5 390.5 ] concat X%I X[ X(/tmp/pvmd.manchek) X] Text XEnd X Begin %I BSpl X%I b 65535 X1 1 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 243.625 173.625 ] concat X%I 5 X296 516 X358 454 X531 437 X531 342 X494 336 X5 BSpl X%I 2 XEnd X Begin %I BSpl X%I b 65535 X1 1 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 243.625 173.625 ] concat X%I 6 X306 519 X380 477 X556 445 X562 258 X302 270 X288 292 X6 BSpl X%I 2 XEnd X Begin %I BSpl X%I b 65535 X1 1 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 243.625 173.625 ] concat X%I 6 X319 525 X455 479 X567 466 X590 226 X147 266 X144 293 X6 BSpl X%I 2 XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 523 461 ] concat X%I X[ X(inherited) X(stdout/err) X(streams) X] Text XEnd X Begin %I Line X%I b 65520 X2 0 0 [12 4] 17 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 162.625 276.625 ] concat X%I X283 566 476 575 Line X%I 2 XEnd X Begin %I Line X%I b 65520 X2 0 0 [12 4] 17 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 162.625 276.625 ] concat X%I X379 649 480 592 Line X%I 2 XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 136 502 ] concat X%I X[ X(inter-pvmd) X(control, data) X(traffic) X] Text XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 150 416 ] concat X%I X[ X(client-pvmd) X(control, data) X(traffic) X] Text XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 414 755 ] concat X%I X[ X(control/debugging) X(streams) X(\(one per slave host\)) X] Text XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.533959 -0 -0 0.220621 51.6042 23.7604 ] concat X%I X87 329 134 378 Rect XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 137 106.5 ] concat X%I X[ X(Client process) X] Text XEnd X Begin %I BSpl X%I b 65535 X1 1 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 36 79 ] concat X%I 4 X360 599 X481 621 X512 432 X370 372 X4 BSpl X%I 1 XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 68.625 98.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 296.625 752.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 281.625 752.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 268.625 752.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 245.625 752.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 431.625 247.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 336.625 250.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 255.625 264.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 404.625 247.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 310.625 250.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.25 -0 -0 0.25 233.625 264.625 ] concat X%I X147 130 180 162 Rect XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 123 389.5 ] concat X%I X336 756 328 791 Line X%I 2 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 123 389.5 ] concat X%I X374 755 374 791 Line X%I 2 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 123 389.5 ] concat X%I X400 756 400 791 Line X%I 2 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 123 389.5 ] concat X%I X430 756 430 790 Line X%I 2 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 166 235 ] concat X%I X217 176 217 140 Line X%I 2 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 166 235 ] concat X%I X261 175 261 140 Line X%I 2 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 166 235 ] concat X%I X370 175 370 113 Line X%I 2 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 166 235 ] concat X%I X423 176 423 112 Line X%I 2 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 166 235 ] concat X%I X558 185 558 107 Line X%I 2 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 166 235 ] concat X%I X613 186 613 106 Line X%I 2 XEnd X Begin %I BSpl X%I b 65535 X1 1 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -7 27.5 ] concat X%I 7 X349 772 X375 793 X584 774 X609 509 X604 230 X486 223 X482 249 X7 BSpl X%I 1 XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -7 27.5 ] concat X%I X522 103 51 26 Elli XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -7 27.5 ] concat X%I X189 371 49 26 Elli XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -7 27.5 ] concat X%I X172 459 44 27 Elli XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -32 49.5 ] concat X%I X493 687 64 29 Elli XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -21 79.5 ] concat X%I X567 365 33 25 Elli XEnd X Begin %I Line X%I b 65535 X0 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -7 27.5 ] concat X%I X522 427 484 393 Line X%I 1 XEnd X Begin %I Line X%I b 65535 X0 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -7 27.5 ] concat X%I X475 114 508 191 Line X%I 1 XEnd X Begin %I Line X%I b 65535 X0 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -7 27.5 ] concat X%I X227 388 330 350 Line X%I 1 XEnd X Begin %I Line X%I b 65535 X0 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -7 27.5 ] concat X%I X190 484 313 488 Line X%I 1 XEnd X Begin %I BSpl X%I b 65535 X1 1 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -7 27.5 ] concat X%I 7 X332 772 X353 816 X611 786 X621 475 X625 212 X407 205 X387 252 X7 BSpl X%I 1 XEnd X Begin %I BSpl X%I b 65535 X1 1 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -7 27.5 ] concat X%I 7 X317 772 X340 823 X609 812 X647 490 X627 161 X318 226 X305 264 X7 BSpl X%I 1 XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 257 896 ] concat X%I X[ X(socket to) X(accept new) X(connections) X] Text XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 116 147.5 ] concat X%I X168 731 41 26 Elli XEnd X Begin %I Line X%I b 65535 X0 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 36 79 ] concat X%I X490 655 484 570 Line X%I 1 XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 481 148 ] concat X%I X[ X(client-client) X(message) X(virtual circuits) X] Text XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-140-* Times-Roman 14 SetF X%I t X[ 1 0 0 1 309 104 ] concat X%I X[ X(PVM 2.4.0 System) X(December 1991) X] Text XEnd X Begin %I Pict X%I b u X%I cfg u X%I cbg u X%I f u X%I p u X%I t X[ 0.646941 0 0 0.646941 24.2236 421.391 ] concat X Begin %I Poly X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.495203 -0 -0 0.581834 49.7395 348.094 ] concat X%I 4 X137 519 X277 519 X277 607 X137 607 X4 Poly XEnd X Begin %I Poly X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.498715 -0 -0 0.498715 48.732 391.114 ] concat X%I 8 X143 492 X106 468 X123 468 X115 463 X172 463 X178 467 X218 467 X255 492 X8 Poly XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.249357 -0 -0 0.249357 70.2223 520.239 ] concat X%I X346 387 346 358 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.249357 -0 -0 0.249357 70.231 520.32 ] concat X%I X223 498 496 498 Line X%I 4 XEnd X Begin %I MLine X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.249357 -0 -0 0.249357 70.1796 520.294 ] concat X%I 5 X61 388 X346 388 X498 498 X498 528 X470 520 X5 MLine X%I 4 XEnd X Begin %I MLine X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.249357 -0 -0 0.249357 70.2075 520.348 ] concat X%I 8 X470 725 X586 656 X586 494 X346 358 X60 358 X60 388 X222 498 X222 516 X8 MLine X%I 4 XEnd X Begin %I CBSpl X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.249357 -0 -0 0.249357 70.2123 520.4 ] concat X%I 8 X204 695 X227 713 X429 714 X456 696 X457 552 X431 533 X225 533 X204 550 X8 CBSpl XEnd X XEnd %I eop X Begin %I Pict X%I b u X%I cfg u X%I cbg u X%I f u X%I p u X%I t X[ 0.646941 0 0 0.646941 3.22363 257.391 ] concat X Begin %I Poly X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.495203 -0 -0 0.581834 49.7395 348.094 ] concat X%I 4 X137 519 X277 519 X277 607 X137 607 X4 Poly XEnd X Begin %I Poly X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.498715 -0 -0 0.498715 48.732 391.114 ] concat X%I 8 X143 492 X106 468 X123 468 X115 463 X172 463 X178 467 X218 467 X255 492 X8 Poly XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.249357 -0 -0 0.249357 70.2223 520.239 ] concat X%I X346 387 346 358 Line X%I 4 XEnd X Begin %I Line X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.249357 -0 -0 0.249357 70.231 520.32 ] concat X%I X223 498 496 498 Line X%I 4 XEnd X Begin %I MLine X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.249357 -0 -0 0.249357 70.1796 520.294 ] concat X%I 5 X61 388 X346 388 X498 498 X498 528 X470 520 X5 MLine X%I 4 XEnd X Begin %I MLine X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.249357 -0 -0 0.249357 70.2075 520.348 ] concat X%I 8 X470 725 X586 656 X586 494 X346 358 X60 358 X60 388 X222 498 X222 516 X8 MLine X%I 4 XEnd X Begin %I CBSpl X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.249357 -0 -0 0.249357 70.2123 520.4 ] concat X%I 8 X204 695 X227 713 X429 714 X456 696 X457 552 X431 533 X225 533 X204 550 X8 CBSpl XEnd X XEnd %I eop X Begin %I Line X%I b 65535 X0 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -4.875 105.75 ] concat X%I X249 767 285 693 Line X%I 1 XEnd X Begin %I BSpl X%I b 65535 X1 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -4.875 105.75 ] concat X%I 3 X279 664 X208 732 X174 726 X3 BSpl X%I 1 XEnd X Begin %I BSpl X%I b 65535 X1 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -4.875 105.75 ] concat X%I 3 X277 651 X199 722 X163 717 X3 BSpl X%I 1 XEnd X Begin %I BSpl X%I b 65535 X1 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -4.875 105.75 ] concat X%I 3 X153 712 X245 633 X281 640 X3 BSpl X%I 1 XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 75 640 ] concat X%I X[ X(PVM) X(console) X] Text XEnd X Begin %I BSpl X%I b 65535 X1 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -4.875 208.75 ] concat X%I 3 X156 468 X287 438 X314 451 X3 BSpl X%I 1 XEnd X Begin %I BSpl X%I b 65535 X1 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -4.875 208.75 ] concat X%I 3 X322 469 X183 509 X154 491 X3 BSpl X%I 1 XEnd X Begin %I BSpl X%I b 65535 X1 0 1 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -4.875 208.75 ] concat X%I 3 X318 461 X183 496 X155 479 X3 BSpl X%I 1 XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 13.125 205.75 ] concat X%I X79 424 33 18 Elli XEnd X Begin %I Text X%I cfg Black X0 0 0 SetCFg X%I f *-times-medium-r-*-120-* Times-Roman 12 SetF X%I t X[ 1 0 0 1 86 802 ] concat X%I X[ X(application) X(console) X] Text XEnd X Begin %I Elli X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 -17.875 92.75 ] concat X%I X127 698 39 18 Elli XEnd X Begin %I Rect X%I b 65535 X0 0 0 [] 0 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 1 -0 -0 1 32 79 ] concat X%I X55 9 190 127 Rect XEnd X Begin %I Line X%I b 65520 X2 0 0 [12 4] 17 SetB X%I cfg Black X0 0 0 SetCFg X%I cbg White X1 1 1 SetCBg none SetP %I p n X%I t X[ 0.5 -0 -0 0.5 -10.5 29 ] concat X%I X206 283 262 283 Line X%I 2 XEnd X XEnd %I eop X showpage X X%%Trailer X end END_OF_FILE if test 38246 -ne `wc -c <'pvm2.4/doc/PvmPic'`; then echo shar: \"'pvm2.4/doc/PvmPic'\" unpacked with wrong size! fi # end of 'pvm2.4/doc/PvmPic' fi if test -f 'pvm2.4/doc/Version' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/doc/Version'\" else echo shar: Extracting \"'pvm2.4/doc/Version'\" \(4306 characters\) sed "s/^X//" >'pvm2.4/doc/Version' <<'END_OF_FILE' X Version info for PVM 2.4.2 X22 Dec 1992 X X________________________________________________________________________ PVM 2.4.2 [compatible with version 2.4.1 pvmds (*)] X + ALPHA port X + top-level makefile X . fixed libfpvm to truncate trailing spaces in strings X . fixed a few man pages X . moved C2MP arch to IEEE machine class, X . pvm_mstat now returns host index as it should X (*) created new class C2MPCXFP for native floating point. PVM 2.4.1 Patch 2 [never released] X + new fortran library libfpvm, much groovier. X + added DGAV arch class. X . pvmd doesn't catch already ignored signals (useful with bourne shell). PVM 2.4.1 Patch 1 X Improvements X + I386 port. X + 'aimk' sets variable PVMLFLAGS to correct loader flags for ARCH. X Fixes X . cleaned up src for better linting. X . lots of man pages. X . added to host.c. PVM 2.4.1 X Improvements X + KSR1 port. X + TITN port, untested and scary. X + CM5 port. X + pvmuser.h has extern "C" declaration for C++. X + can use pvm_mstat() to find host names, types, and status. X + can use pvm_inithow() to specify raw (non-XDR) message packing, X rcv() can return BadMsg if rx a raw msg from other host data class. X Fixes X . broke CM2 into CM2 and VCM2. X . pvmuser.h has check for multiple include. X . ep= default in host file now works correctly. X . unknown arch types now handled, i.e. pvm can still be homogeneous. X PVM 2.4.0 X Improvements X + added '-o' flag to pvmd ps command. X + user lib now prints error messages by default, turned off by pvm_aerr X + can now specify 'ep=path:path...' for each host in hostfile. X + hostnames (for initiateM, etc) now match the first part X in addition to the fully-qualified name, 'ps' shows short names. X + version checking between pvmd and user lib to prevent running X incompatible code X + direct-connect tcp message mech. available through vsnd() X and vrcv(). X + user lib returns error codes that can be compared to symbols X in "pvmuser.h". X + pvm_perror() function available to print error message. X + 'ps' command now queries remote pvmds to get more information. X + switched to defines for malloc, etc to allow instrumenting heap. X + better hostfile checking: multiple occ of a host, no master host, X master host not first, host '*' to set defaults X + Convex, HP Snake ports X Fixes X . user lib returns error code instead of exiting in case of X fatal error. X . whoami returns PvmNoComp instead of Syserr if process X not enrolled. X . implemented probemulti(). X . made rsh path absolute (/usr/ucb). X . improved signal handling, added arg to reap() and catch(). X . slave pvmd startup talks on stdout now and ignores stderr. X . added lread() function to read complete lines at slave startup. X . added u->u msg seq nos. to allow reassembly when >1 msg X from same process X PVM 2.3.4 X Improvements X + Silicon Graphics IRIS port X + pvmds negotiate maximum udp message length at startup. X Fixes X . fixed f2c f{get,put}n{short,long}() function names. X . removed static limitation on number of hosts (used to be 40). X PVM 2.3.3 X Improvements X + 'barr' command to check barrier/ready status X + pstatus() user call to return size of virtual machine X Fixes X . fixed fortran problem with closed stdin X . fixed malloc bug on process enroll X PVM 2.3.2 X Improvements X + password-less startup via rsh/rcmd X + per-host options in hostfile to X ask for password X specify alternate loginname X specify alternate pvmd executable path X + daemon-daemon version control to prevent mixed versions running X + added f{get,put}n{short,long}() to f2c library X + 'reset' pvmd command to reset the vm. X + can specify "." as host to initiateM() to create on localhost X Fixes X . fixed f{get,put}bytes() X . added status arg to frcv() X . added nulfix for mc in finitiate() X . closed many many fds that got left open before X . fixed incomplete lprocs caused by late messages X . now works with new (sun_family is a bit field X so can't use sizeof) X . fixed frag-out-of-order problem in ulib X PVM 2.2 X + XDR based pvmd-pvmd messages - totally non 2.1 compatible X + get*(), put*() --> getn*(), putn*() X + bcast() --> deprecated X + initiate*() --> initiate() X PVM 2.1 X + XDR based user messages - totally non 2.0 compatible X + initsend() now has no arg X + vestigial command mode on master pvmd X PVM 2.0 X + Complete rewrite X END_OF_FILE if test 4306 -ne `wc -c <'pvm2.4/doc/Version'`; then echo shar: \"'pvm2.4/doc/Version'\" unpacked with wrong size! fi # end of 'pvm2.4/doc/Version' fi if test ! -d 'pvm2.4/f2c' ; then echo shar: Creating directory \"'pvm2.4/f2c'\" mkdir 'pvm2.4/f2c' fi if test ! -d 'pvm2.4/f2c/CRAY' ; then echo shar: Creating directory \"'pvm2.4/f2c/CRAY'\" mkdir 'pvm2.4/f2c/CRAY' fi if test -f 'pvm2.4/f2c/CRAY/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/CRAY/Makefile'\" else echo shar: Extracting \"'pvm2.4/f2c/CRAY/Makefile'\" \(4222 characters\) sed "s/^X//" >'pvm2.4/f2c/CRAY/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/Cray X# ARCH = CRAY ARCHCFLAGS = HASRANLIB = f X# END of custom section - leave this line here X# X# Generic half makefile for Fortran to C lib for PVM. X# X# makefile to generate Fortran to C interface library for PVM (generic) X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X fgetstringl.o \ X finitiate.o \ X finitiatem.o \ X finithow.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fputstringl.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o X libf2c.a: $(LOBS) X ar cr libf2c.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libf2c.a ;; esac X clean: X rm -f $(LOBS) libf2c.a X tidy: X rm -f $(LOBS) X fbarrier.o: $(SDIR)/fbarrier.c X $(CC) $(CFLAGS) $(SDIR)/fbarrier.c fenroll.o: $(SDIR)/fenroll.c X $(CC) $(CFLAGS) $(SDIR)/fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.c X $(CC) $(CFLAGS) $(SDIR)/fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.c X $(CC) $(CFLAGS) $(SDIR)/fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.c X $(CC) $(CFLAGS) $(SDIR)/fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.c X $(CC) $(CFLAGS) $(SDIR)/fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.c X $(CC) $(CFLAGS) $(SDIR)/fgetstring.c fgetstringl.o: $(SDIR)/fgetstringl.c X $(CC) $(CFLAGS) $(SDIR)/fgetstringl.c finitiate.o: $(SDIR)/finitiate.c X $(CC) $(CFLAGS) $(SDIR)/finitiate.c finitiatem.o: $(SDIR)/finitiatem.c X $(CC) $(CFLAGS) $(SDIR)/finitiatem.c finithow.o: $(SDIR)/finithow.c X $(CC) $(CFLAGS) $(SDIR)/finithow.c finitsend.o: $(SDIR)/finitsend.c X $(CC) $(CFLAGS) $(SDIR)/finitsend.c fleave.o: $(SDIR)/fleave.c X $(CC) $(CFLAGS) $(SDIR)/fleave.c fprobe.o: $(SDIR)/fprobe.c X $(CC) $(CFLAGS) $(SDIR)/fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.c X $(CC) $(CFLAGS) $(SDIR)/fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.c X $(CC) $(CFLAGS) $(SDIR)/fpstatus.c fputbytes.o: $(SDIR)/fputbytes.c X $(CC) $(CFLAGS) $(SDIR)/fputbytes.c fputncplx.o: $(SDIR)/fputncplx.c X $(CC) $(CFLAGS) $(SDIR)/fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputnfloat.c fputnint.o: $(SDIR)/fputnint.c X $(CC) $(CFLAGS) $(SDIR)/fputnint.c fputnlong.o: $(SDIR)/fputnlong.c X $(CC) $(CFLAGS) $(SDIR)/fputnlong.c fputnshort.o: $(SDIR)/fputnshort.c X $(CC) $(CFLAGS) $(SDIR)/fputnshort.c fputstring.o: $(SDIR)/fputstring.c X $(CC) $(CFLAGS) $(SDIR)/fputstring.c fputstringl.o: $(SDIR)/fputstringl.c X $(CC) $(CFLAGS) $(SDIR)/fputstringl.c fpvmperror.o: $(SDIR)/fpvmperror.c X $(CC) $(CFLAGS) $(SDIR)/fpvmperror.c frcv.o: $(SDIR)/frcv.c X $(CC) $(CFLAGS) $(SDIR)/frcv.c frcvinfo.o: $(SDIR)/frcvinfo.c X $(CC) $(CFLAGS) $(SDIR)/frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/frcvmulti.c fready.o: $(SDIR)/fready.c X $(CC) $(CFLAGS) $(SDIR)/fready.c fsnd.o: $(SDIR)/fsnd.c X $(CC) $(CFLAGS) $(SDIR)/fsnd.c fstatus.o: $(SDIR)/fstatus.c X $(CC) $(CFLAGS) $(SDIR)/fstatus.c fterminate.o: $(SDIR)/fterminate.c X $(CC) $(CFLAGS) $(SDIR)/fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.c X $(CC) $(CFLAGS) $(SDIR)/fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.c X $(CC) $(CFLAGS) $(SDIR)/fwhoami.c fvrcv.o: $(SDIR)/fvrcv.c X $(CC) $(CFLAGS) $(SDIR)/fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.c X $(CC) $(CFLAGS) $(SDIR)/fvsnd.c X END_OF_FILE if test 4222 -ne `wc -c <'pvm2.4/f2c/CRAY/Makefile'`; then echo shar: \"'pvm2.4/f2c/CRAY/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/CRAY/Makefile' fi if test ! -d 'pvm2.4/f2c/CRAYSMP' ; then echo shar: Creating directory \"'pvm2.4/f2c/CRAYSMP'\" mkdir 'pvm2.4/f2c/CRAYSMP' fi if test -f 'pvm2.4/f2c/CRAYSMP/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/CRAYSMP/Makefile'\" else echo shar: Extracting \"'pvm2.4/f2c/CRAYSMP/Makefile'\" \(4230 characters\) sed "s/^X//" >'pvm2.4/f2c/CRAYSMP/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/Cray S-MP X# ARCH = CRAYSMP ARCHCFLAGS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for Fortran to C lib for PVM. X# X# makefile to generate Fortran to C interface library for PVM (generic) X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X fgetstringl.o \ X finitiate.o \ X finitiatem.o \ X finithow.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fputstringl.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o X libf2c.a: $(LOBS) X ar cr libf2c.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libf2c.a ;; esac X clean: X rm -f $(LOBS) libf2c.a X tidy: X rm -f $(LOBS) X fbarrier.o: $(SDIR)/fbarrier.c X $(CC) $(CFLAGS) $(SDIR)/fbarrier.c fenroll.o: $(SDIR)/fenroll.c X $(CC) $(CFLAGS) $(SDIR)/fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.c X $(CC) $(CFLAGS) $(SDIR)/fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.c X $(CC) $(CFLAGS) $(SDIR)/fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.c X $(CC) $(CFLAGS) $(SDIR)/fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.c X $(CC) $(CFLAGS) $(SDIR)/fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.c X $(CC) $(CFLAGS) $(SDIR)/fgetstring.c fgetstringl.o: $(SDIR)/fgetstringl.c X $(CC) $(CFLAGS) $(SDIR)/fgetstringl.c finitiate.o: $(SDIR)/finitiate.c X $(CC) $(CFLAGS) $(SDIR)/finitiate.c finitiatem.o: $(SDIR)/finitiatem.c X $(CC) $(CFLAGS) $(SDIR)/finitiatem.c finithow.o: $(SDIR)/finithow.c X $(CC) $(CFLAGS) $(SDIR)/finithow.c finitsend.o: $(SDIR)/finitsend.c X $(CC) $(CFLAGS) $(SDIR)/finitsend.c fleave.o: $(SDIR)/fleave.c X $(CC) $(CFLAGS) $(SDIR)/fleave.c fprobe.o: $(SDIR)/fprobe.c X $(CC) $(CFLAGS) $(SDIR)/fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.c X $(CC) $(CFLAGS) $(SDIR)/fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.c X $(CC) $(CFLAGS) $(SDIR)/fpstatus.c fputbytes.o: $(SDIR)/fputbytes.c X $(CC) $(CFLAGS) $(SDIR)/fputbytes.c fputncplx.o: $(SDIR)/fputncplx.c X $(CC) $(CFLAGS) $(SDIR)/fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputnfloat.c fputnint.o: $(SDIR)/fputnint.c X $(CC) $(CFLAGS) $(SDIR)/fputnint.c fputnlong.o: $(SDIR)/fputnlong.c X $(CC) $(CFLAGS) $(SDIR)/fputnlong.c fputnshort.o: $(SDIR)/fputnshort.c X $(CC) $(CFLAGS) $(SDIR)/fputnshort.c fputstring.o: $(SDIR)/fputstring.c X $(CC) $(CFLAGS) $(SDIR)/fputstring.c fputstringl.o: $(SDIR)/fputstringl.c X $(CC) $(CFLAGS) $(SDIR)/fputstringl.c fpvmperror.o: $(SDIR)/fpvmperror.c X $(CC) $(CFLAGS) $(SDIR)/fpvmperror.c frcv.o: $(SDIR)/frcv.c X $(CC) $(CFLAGS) $(SDIR)/frcv.c frcvinfo.o: $(SDIR)/frcvinfo.c X $(CC) $(CFLAGS) $(SDIR)/frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/frcvmulti.c fready.o: $(SDIR)/fready.c X $(CC) $(CFLAGS) $(SDIR)/fready.c fsnd.o: $(SDIR)/fsnd.c X $(CC) $(CFLAGS) $(SDIR)/fsnd.c fstatus.o: $(SDIR)/fstatus.c X $(CC) $(CFLAGS) $(SDIR)/fstatus.c fterminate.o: $(SDIR)/fterminate.c X $(CC) $(CFLAGS) $(SDIR)/fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.c X $(CC) $(CFLAGS) $(SDIR)/fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.c X $(CC) $(CFLAGS) $(SDIR)/fwhoami.c fvrcv.o: $(SDIR)/fvrcv.c X $(CC) $(CFLAGS) $(SDIR)/fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.c X $(CC) $(CFLAGS) $(SDIR)/fvsnd.c X END_OF_FILE if test 4230 -ne `wc -c <'pvm2.4/f2c/CRAYSMP/Makefile'`; then echo shar: \"'pvm2.4/f2c/CRAYSMP/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/CRAYSMP/Makefile' fi if test ! -d 'pvm2.4/f2c/HP9K' ; then echo shar: Creating directory \"'pvm2.4/f2c/HP9K'\" mkdir 'pvm2.4/f2c/HP9K' fi if test -f 'pvm2.4/f2c/HP9K/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/HP9K/Makefile'\" else echo shar: Extracting \"'pvm2.4/f2c/HP9K/Makefile'\" \(4229 characters\) sed "s/^X//" >'pvm2.4/f2c/HP9K/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/HP Snakeage X# ARCH = HP9K ARCHCFLAGS = HASRANLIB = f X# END of custom section - leave this line here X# X# Generic half makefile for Fortran to C lib for PVM. X# X# makefile to generate Fortran to C interface library for PVM (generic) X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X fgetstringl.o \ X finitiate.o \ X finitiatem.o \ X finithow.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fputstringl.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o X libf2c.a: $(LOBS) X ar cr libf2c.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libf2c.a ;; esac X clean: X rm -f $(LOBS) libf2c.a X tidy: X rm -f $(LOBS) X fbarrier.o: $(SDIR)/fbarrier.c X $(CC) $(CFLAGS) $(SDIR)/fbarrier.c fenroll.o: $(SDIR)/fenroll.c X $(CC) $(CFLAGS) $(SDIR)/fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.c X $(CC) $(CFLAGS) $(SDIR)/fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.c X $(CC) $(CFLAGS) $(SDIR)/fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.c X $(CC) $(CFLAGS) $(SDIR)/fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.c X $(CC) $(CFLAGS) $(SDIR)/fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.c X $(CC) $(CFLAGS) $(SDIR)/fgetstring.c fgetstringl.o: $(SDIR)/fgetstringl.c X $(CC) $(CFLAGS) $(SDIR)/fgetstringl.c finitiate.o: $(SDIR)/finitiate.c X $(CC) $(CFLAGS) $(SDIR)/finitiate.c finitiatem.o: $(SDIR)/finitiatem.c X $(CC) $(CFLAGS) $(SDIR)/finitiatem.c finithow.o: $(SDIR)/finithow.c X $(CC) $(CFLAGS) $(SDIR)/finithow.c finitsend.o: $(SDIR)/finitsend.c X $(CC) $(CFLAGS) $(SDIR)/finitsend.c fleave.o: $(SDIR)/fleave.c X $(CC) $(CFLAGS) $(SDIR)/fleave.c fprobe.o: $(SDIR)/fprobe.c X $(CC) $(CFLAGS) $(SDIR)/fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.c X $(CC) $(CFLAGS) $(SDIR)/fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.c X $(CC) $(CFLAGS) $(SDIR)/fpstatus.c fputbytes.o: $(SDIR)/fputbytes.c X $(CC) $(CFLAGS) $(SDIR)/fputbytes.c fputncplx.o: $(SDIR)/fputncplx.c X $(CC) $(CFLAGS) $(SDIR)/fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputnfloat.c fputnint.o: $(SDIR)/fputnint.c X $(CC) $(CFLAGS) $(SDIR)/fputnint.c fputnlong.o: $(SDIR)/fputnlong.c X $(CC) $(CFLAGS) $(SDIR)/fputnlong.c fputnshort.o: $(SDIR)/fputnshort.c X $(CC) $(CFLAGS) $(SDIR)/fputnshort.c fputstring.o: $(SDIR)/fputstring.c X $(CC) $(CFLAGS) $(SDIR)/fputstring.c fputstringl.o: $(SDIR)/fputstringl.c X $(CC) $(CFLAGS) $(SDIR)/fputstringl.c fpvmperror.o: $(SDIR)/fpvmperror.c X $(CC) $(CFLAGS) $(SDIR)/fpvmperror.c frcv.o: $(SDIR)/frcv.c X $(CC) $(CFLAGS) $(SDIR)/frcv.c frcvinfo.o: $(SDIR)/frcvinfo.c X $(CC) $(CFLAGS) $(SDIR)/frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/frcvmulti.c fready.o: $(SDIR)/fready.c X $(CC) $(CFLAGS) $(SDIR)/fready.c fsnd.o: $(SDIR)/fsnd.c X $(CC) $(CFLAGS) $(SDIR)/fsnd.c fstatus.o: $(SDIR)/fstatus.c X $(CC) $(CFLAGS) $(SDIR)/fstatus.c fterminate.o: $(SDIR)/fterminate.c X $(CC) $(CFLAGS) $(SDIR)/fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.c X $(CC) $(CFLAGS) $(SDIR)/fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.c X $(CC) $(CFLAGS) $(SDIR)/fwhoami.c fvrcv.o: $(SDIR)/fvrcv.c X $(CC) $(CFLAGS) $(SDIR)/fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.c X $(CC) $(CFLAGS) $(SDIR)/fvsnd.c X END_OF_FILE if test 4229 -ne `wc -c <'pvm2.4/f2c/HP9K/Makefile'`; then echo shar: \"'pvm2.4/f2c/HP9K/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/HP9K/Makefile' fi if test ! -d 'pvm2.4/f2c/I860' ; then echo shar: Creating directory \"'pvm2.4/f2c/I860'\" mkdir 'pvm2.4/f2c/I860' fi if test -f 'pvm2.4/f2c/I860/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/I860/Makefile'\" else echo shar: Extracting \"'pvm2.4/f2c/I860/Makefile'\" \(4227 characters\) sed "s/^X//" >'pvm2.4/f2c/I860/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/Intel 860 X# ARCH = I860 ARCHCFLAGS = HASRANLIB = f X# END of custom section - leave this line here X# X# Generic half makefile for Fortran to C lib for PVM. X# X# makefile to generate Fortran to C interface library for PVM (generic) X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X fgetstringl.o \ X finitiate.o \ X finitiatem.o \ X finithow.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fputstringl.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o X libf2c.a: $(LOBS) X ar cr libf2c.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libf2c.a ;; esac X clean: X rm -f $(LOBS) libf2c.a X tidy: X rm -f $(LOBS) X fbarrier.o: $(SDIR)/fbarrier.c X $(CC) $(CFLAGS) $(SDIR)/fbarrier.c fenroll.o: $(SDIR)/fenroll.c X $(CC) $(CFLAGS) $(SDIR)/fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.c X $(CC) $(CFLAGS) $(SDIR)/fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.c X $(CC) $(CFLAGS) $(SDIR)/fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.c X $(CC) $(CFLAGS) $(SDIR)/fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.c X $(CC) $(CFLAGS) $(SDIR)/fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.c X $(CC) $(CFLAGS) $(SDIR)/fgetstring.c fgetstringl.o: $(SDIR)/fgetstringl.c X $(CC) $(CFLAGS) $(SDIR)/fgetstringl.c finitiate.o: $(SDIR)/finitiate.c X $(CC) $(CFLAGS) $(SDIR)/finitiate.c finitiatem.o: $(SDIR)/finitiatem.c X $(CC) $(CFLAGS) $(SDIR)/finitiatem.c finithow.o: $(SDIR)/finithow.c X $(CC) $(CFLAGS) $(SDIR)/finithow.c finitsend.o: $(SDIR)/finitsend.c X $(CC) $(CFLAGS) $(SDIR)/finitsend.c fleave.o: $(SDIR)/fleave.c X $(CC) $(CFLAGS) $(SDIR)/fleave.c fprobe.o: $(SDIR)/fprobe.c X $(CC) $(CFLAGS) $(SDIR)/fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.c X $(CC) $(CFLAGS) $(SDIR)/fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.c X $(CC) $(CFLAGS) $(SDIR)/fpstatus.c fputbytes.o: $(SDIR)/fputbytes.c X $(CC) $(CFLAGS) $(SDIR)/fputbytes.c fputncplx.o: $(SDIR)/fputncplx.c X $(CC) $(CFLAGS) $(SDIR)/fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputnfloat.c fputnint.o: $(SDIR)/fputnint.c X $(CC) $(CFLAGS) $(SDIR)/fputnint.c fputnlong.o: $(SDIR)/fputnlong.c X $(CC) $(CFLAGS) $(SDIR)/fputnlong.c fputnshort.o: $(SDIR)/fputnshort.c X $(CC) $(CFLAGS) $(SDIR)/fputnshort.c fputstring.o: $(SDIR)/fputstring.c X $(CC) $(CFLAGS) $(SDIR)/fputstring.c fputstringl.o: $(SDIR)/fputstringl.c X $(CC) $(CFLAGS) $(SDIR)/fputstringl.c fpvmperror.o: $(SDIR)/fpvmperror.c X $(CC) $(CFLAGS) $(SDIR)/fpvmperror.c frcv.o: $(SDIR)/frcv.c X $(CC) $(CFLAGS) $(SDIR)/frcv.c frcvinfo.o: $(SDIR)/frcvinfo.c X $(CC) $(CFLAGS) $(SDIR)/frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/frcvmulti.c fready.o: $(SDIR)/fready.c X $(CC) $(CFLAGS) $(SDIR)/fready.c fsnd.o: $(SDIR)/fsnd.c X $(CC) $(CFLAGS) $(SDIR)/fsnd.c fstatus.o: $(SDIR)/fstatus.c X $(CC) $(CFLAGS) $(SDIR)/fstatus.c fterminate.o: $(SDIR)/fterminate.c X $(CC) $(CFLAGS) $(SDIR)/fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.c X $(CC) $(CFLAGS) $(SDIR)/fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.c X $(CC) $(CFLAGS) $(SDIR)/fwhoami.c fvrcv.o: $(SDIR)/fvrcv.c X $(CC) $(CFLAGS) $(SDIR)/fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.c X $(CC) $(CFLAGS) $(SDIR)/fvsnd.c X END_OF_FILE if test 4227 -ne `wc -c <'pvm2.4/f2c/I860/Makefile'`; then echo shar: \"'pvm2.4/f2c/I860/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/I860/Makefile' fi if test -f 'pvm2.4/f2c/Makefile.body' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/Makefile.body'\" else echo shar: Extracting \"'pvm2.4/f2c/Makefile.body'\" \(4007 characters\) sed "s/^X//" >'pvm2.4/f2c/Makefile.body' <<'END_OF_FILE' X# X# Generic half makefile for Fortran to C lib for PVM. X# X# makefile to generate Fortran to C interface library for PVM (generic) X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X fgetstringl.o \ X finitiate.o \ X finitiatem.o \ X finithow.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fputstringl.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o X libf2c.a: $(LOBS) X ar cr libf2c.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libf2c.a ;; esac X clean: X rm -f $(LOBS) libf2c.a X tidy: X rm -f $(LOBS) X fbarrier.o: $(SDIR)/fbarrier.c X $(CC) $(CFLAGS) $(SDIR)/fbarrier.c fenroll.o: $(SDIR)/fenroll.c X $(CC) $(CFLAGS) $(SDIR)/fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.c X $(CC) $(CFLAGS) $(SDIR)/fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.c X $(CC) $(CFLAGS) $(SDIR)/fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.c X $(CC) $(CFLAGS) $(SDIR)/fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.c X $(CC) $(CFLAGS) $(SDIR)/fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.c X $(CC) $(CFLAGS) $(SDIR)/fgetstring.c fgetstringl.o: $(SDIR)/fgetstringl.c X $(CC) $(CFLAGS) $(SDIR)/fgetstringl.c finitiate.o: $(SDIR)/finitiate.c X $(CC) $(CFLAGS) $(SDIR)/finitiate.c finitiatem.o: $(SDIR)/finitiatem.c X $(CC) $(CFLAGS) $(SDIR)/finitiatem.c finithow.o: $(SDIR)/finithow.c X $(CC) $(CFLAGS) $(SDIR)/finithow.c finitsend.o: $(SDIR)/finitsend.c X $(CC) $(CFLAGS) $(SDIR)/finitsend.c fleave.o: $(SDIR)/fleave.c X $(CC) $(CFLAGS) $(SDIR)/fleave.c fprobe.o: $(SDIR)/fprobe.c X $(CC) $(CFLAGS) $(SDIR)/fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.c X $(CC) $(CFLAGS) $(SDIR)/fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.c X $(CC) $(CFLAGS) $(SDIR)/fpstatus.c fputbytes.o: $(SDIR)/fputbytes.c X $(CC) $(CFLAGS) $(SDIR)/fputbytes.c fputncplx.o: $(SDIR)/fputncplx.c X $(CC) $(CFLAGS) $(SDIR)/fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputnfloat.c fputnint.o: $(SDIR)/fputnint.c X $(CC) $(CFLAGS) $(SDIR)/fputnint.c fputnlong.o: $(SDIR)/fputnlong.c X $(CC) $(CFLAGS) $(SDIR)/fputnlong.c fputnshort.o: $(SDIR)/fputnshort.c X $(CC) $(CFLAGS) $(SDIR)/fputnshort.c fputstring.o: $(SDIR)/fputstring.c X $(CC) $(CFLAGS) $(SDIR)/fputstring.c fputstringl.o: $(SDIR)/fputstringl.c X $(CC) $(CFLAGS) $(SDIR)/fputstringl.c fpvmperror.o: $(SDIR)/fpvmperror.c X $(CC) $(CFLAGS) $(SDIR)/fpvmperror.c frcv.o: $(SDIR)/frcv.c X $(CC) $(CFLAGS) $(SDIR)/frcv.c frcvinfo.o: $(SDIR)/frcvinfo.c X $(CC) $(CFLAGS) $(SDIR)/frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/frcvmulti.c fready.o: $(SDIR)/fready.c X $(CC) $(CFLAGS) $(SDIR)/fready.c fsnd.o: $(SDIR)/fsnd.c X $(CC) $(CFLAGS) $(SDIR)/fsnd.c fstatus.o: $(SDIR)/fstatus.c X $(CC) $(CFLAGS) $(SDIR)/fstatus.c fterminate.o: $(SDIR)/fterminate.c X $(CC) $(CFLAGS) $(SDIR)/fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.c X $(CC) $(CFLAGS) $(SDIR)/fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.c X $(CC) $(CFLAGS) $(SDIR)/fwhoami.c fvrcv.o: $(SDIR)/fvrcv.c X $(CC) $(CFLAGS) $(SDIR)/fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.c X $(CC) $(CFLAGS) $(SDIR)/fvsnd.c X END_OF_FILE if test 4007 -ne `wc -c <'pvm2.4/f2c/Makefile.body'`; then echo shar: \"'pvm2.4/f2c/Makefile.body'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/Makefile.body' fi if test -f 'pvm2.4/f2c/Makefile.custom' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/Makefile.custom'\" else echo shar: Extracting \"'pvm2.4/f2c/Makefile.custom'\" \(238 characters\) sed "s/^X//" >'pvm2.4/f2c/Makefile.custom' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/ X# ARCH = UNKNOWN ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here END_OF_FILE if test 238 -ne `wc -c <'pvm2.4/f2c/Makefile.custom'`; then echo shar: \"'pvm2.4/f2c/Makefile.custom'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/Makefile.custom' fi if test ! -d 'pvm2.4/f2c/NEXT' ; then echo shar: Creating directory \"'pvm2.4/f2c/NEXT'\" mkdir 'pvm2.4/f2c/NEXT' fi if test -f 'pvm2.4/f2c/NEXT/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/NEXT/Makefile'\" else echo shar: Extracting \"'pvm2.4/f2c/NEXT/Makefile'\" \(4222 characters\) sed "s/^X//" >'pvm2.4/f2c/NEXT/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/NeXT X# ARCH = NEXT ARCHCFLAGS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for Fortran to C lib for PVM. X# X# makefile to generate Fortran to C interface library for PVM (generic) X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X fgetstringl.o \ X finitiate.o \ X finitiatem.o \ X finithow.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fputstringl.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o X libf2c.a: $(LOBS) X ar cr libf2c.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libf2c.a ;; esac X clean: X rm -f $(LOBS) libf2c.a X tidy: X rm -f $(LOBS) X fbarrier.o: $(SDIR)/fbarrier.c X $(CC) $(CFLAGS) $(SDIR)/fbarrier.c fenroll.o: $(SDIR)/fenroll.c X $(CC) $(CFLAGS) $(SDIR)/fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.c X $(CC) $(CFLAGS) $(SDIR)/fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.c X $(CC) $(CFLAGS) $(SDIR)/fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.c X $(CC) $(CFLAGS) $(SDIR)/fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.c X $(CC) $(CFLAGS) $(SDIR)/fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.c X $(CC) $(CFLAGS) $(SDIR)/fgetstring.c fgetstringl.o: $(SDIR)/fgetstringl.c X $(CC) $(CFLAGS) $(SDIR)/fgetstringl.c finitiate.o: $(SDIR)/finitiate.c X $(CC) $(CFLAGS) $(SDIR)/finitiate.c finitiatem.o: $(SDIR)/finitiatem.c X $(CC) $(CFLAGS) $(SDIR)/finitiatem.c finithow.o: $(SDIR)/finithow.c X $(CC) $(CFLAGS) $(SDIR)/finithow.c finitsend.o: $(SDIR)/finitsend.c X $(CC) $(CFLAGS) $(SDIR)/finitsend.c fleave.o: $(SDIR)/fleave.c X $(CC) $(CFLAGS) $(SDIR)/fleave.c fprobe.o: $(SDIR)/fprobe.c X $(CC) $(CFLAGS) $(SDIR)/fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.c X $(CC) $(CFLAGS) $(SDIR)/fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.c X $(CC) $(CFLAGS) $(SDIR)/fpstatus.c fputbytes.o: $(SDIR)/fputbytes.c X $(CC) $(CFLAGS) $(SDIR)/fputbytes.c fputncplx.o: $(SDIR)/fputncplx.c X $(CC) $(CFLAGS) $(SDIR)/fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputnfloat.c fputnint.o: $(SDIR)/fputnint.c X $(CC) $(CFLAGS) $(SDIR)/fputnint.c fputnlong.o: $(SDIR)/fputnlong.c X $(CC) $(CFLAGS) $(SDIR)/fputnlong.c fputnshort.o: $(SDIR)/fputnshort.c X $(CC) $(CFLAGS) $(SDIR)/fputnshort.c fputstring.o: $(SDIR)/fputstring.c X $(CC) $(CFLAGS) $(SDIR)/fputstring.c fputstringl.o: $(SDIR)/fputstringl.c X $(CC) $(CFLAGS) $(SDIR)/fputstringl.c fpvmperror.o: $(SDIR)/fpvmperror.c X $(CC) $(CFLAGS) $(SDIR)/fpvmperror.c frcv.o: $(SDIR)/frcv.c X $(CC) $(CFLAGS) $(SDIR)/frcv.c frcvinfo.o: $(SDIR)/frcvinfo.c X $(CC) $(CFLAGS) $(SDIR)/frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/frcvmulti.c fready.o: $(SDIR)/fready.c X $(CC) $(CFLAGS) $(SDIR)/fready.c fsnd.o: $(SDIR)/fsnd.c X $(CC) $(CFLAGS) $(SDIR)/fsnd.c fstatus.o: $(SDIR)/fstatus.c X $(CC) $(CFLAGS) $(SDIR)/fstatus.c fterminate.o: $(SDIR)/fterminate.c X $(CC) $(CFLAGS) $(SDIR)/fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.c X $(CC) $(CFLAGS) $(SDIR)/fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.c X $(CC) $(CFLAGS) $(SDIR)/fwhoami.c fvrcv.o: $(SDIR)/fvrcv.c X $(CC) $(CFLAGS) $(SDIR)/fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.c X $(CC) $(CFLAGS) $(SDIR)/fvsnd.c X END_OF_FILE if test 4222 -ne `wc -c <'pvm2.4/f2c/NEXT/Makefile'`; then echo shar: \"'pvm2.4/f2c/NEXT/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/NEXT/Makefile' fi if test ! -d 'pvm2.4/f2c/PMAX' ; then echo shar: Creating directory \"'pvm2.4/f2c/PMAX'\" mkdir 'pvm2.4/f2c/PMAX' fi if test -f 'pvm2.4/f2c/PMAX/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/PMAX/Makefile'\" else echo shar: Extracting \"'pvm2.4/f2c/PMAX/Makefile'\" \(4226 characters\) sed "s/^X//" >'pvm2.4/f2c/PMAX/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/Dec Pmax X# ARCH = PMAX ARCHCFLAGS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for Fortran to C lib for PVM. X# X# makefile to generate Fortran to C interface library for PVM (generic) X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X fgetstringl.o \ X finitiate.o \ X finitiatem.o \ X finithow.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fputstringl.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o X libf2c.a: $(LOBS) X ar cr libf2c.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libf2c.a ;; esac X clean: X rm -f $(LOBS) libf2c.a X tidy: X rm -f $(LOBS) X fbarrier.o: $(SDIR)/fbarrier.c X $(CC) $(CFLAGS) $(SDIR)/fbarrier.c fenroll.o: $(SDIR)/fenroll.c X $(CC) $(CFLAGS) $(SDIR)/fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.c X $(CC) $(CFLAGS) $(SDIR)/fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.c X $(CC) $(CFLAGS) $(SDIR)/fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.c X $(CC) $(CFLAGS) $(SDIR)/fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.c X $(CC) $(CFLAGS) $(SDIR)/fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.c X $(CC) $(CFLAGS) $(SDIR)/fgetstring.c fgetstringl.o: $(SDIR)/fgetstringl.c X $(CC) $(CFLAGS) $(SDIR)/fgetstringl.c finitiate.o: $(SDIR)/finitiate.c X $(CC) $(CFLAGS) $(SDIR)/finitiate.c finitiatem.o: $(SDIR)/finitiatem.c X $(CC) $(CFLAGS) $(SDIR)/finitiatem.c finithow.o: $(SDIR)/finithow.c X $(CC) $(CFLAGS) $(SDIR)/finithow.c finitsend.o: $(SDIR)/finitsend.c X $(CC) $(CFLAGS) $(SDIR)/finitsend.c fleave.o: $(SDIR)/fleave.c X $(CC) $(CFLAGS) $(SDIR)/fleave.c fprobe.o: $(SDIR)/fprobe.c X $(CC) $(CFLAGS) $(SDIR)/fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.c X $(CC) $(CFLAGS) $(SDIR)/fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.c X $(CC) $(CFLAGS) $(SDIR)/fpstatus.c fputbytes.o: $(SDIR)/fputbytes.c X $(CC) $(CFLAGS) $(SDIR)/fputbytes.c fputncplx.o: $(SDIR)/fputncplx.c X $(CC) $(CFLAGS) $(SDIR)/fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputnfloat.c fputnint.o: $(SDIR)/fputnint.c X $(CC) $(CFLAGS) $(SDIR)/fputnint.c fputnlong.o: $(SDIR)/fputnlong.c X $(CC) $(CFLAGS) $(SDIR)/fputnlong.c fputnshort.o: $(SDIR)/fputnshort.c X $(CC) $(CFLAGS) $(SDIR)/fputnshort.c fputstring.o: $(SDIR)/fputstring.c X $(CC) $(CFLAGS) $(SDIR)/fputstring.c fputstringl.o: $(SDIR)/fputstringl.c X $(CC) $(CFLAGS) $(SDIR)/fputstringl.c fpvmperror.o: $(SDIR)/fpvmperror.c X $(CC) $(CFLAGS) $(SDIR)/fpvmperror.c frcv.o: $(SDIR)/frcv.c X $(CC) $(CFLAGS) $(SDIR)/frcv.c frcvinfo.o: $(SDIR)/frcvinfo.c X $(CC) $(CFLAGS) $(SDIR)/frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/frcvmulti.c fready.o: $(SDIR)/fready.c X $(CC) $(CFLAGS) $(SDIR)/fready.c fsnd.o: $(SDIR)/fsnd.c X $(CC) $(CFLAGS) $(SDIR)/fsnd.c fstatus.o: $(SDIR)/fstatus.c X $(CC) $(CFLAGS) $(SDIR)/fstatus.c fterminate.o: $(SDIR)/fterminate.c X $(CC) $(CFLAGS) $(SDIR)/fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.c X $(CC) $(CFLAGS) $(SDIR)/fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.c X $(CC) $(CFLAGS) $(SDIR)/fwhoami.c fvrcv.o: $(SDIR)/fvrcv.c X $(CC) $(CFLAGS) $(SDIR)/fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.c X $(CC) $(CFLAGS) $(SDIR)/fvsnd.c X END_OF_FILE if test 4226 -ne `wc -c <'pvm2.4/f2c/PMAX/Makefile'`; then echo shar: \"'pvm2.4/f2c/PMAX/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/PMAX/Makefile' fi if test ! -d 'pvm2.4/f2c/RIOS' ; then echo shar: Creating directory \"'pvm2.4/f2c/RIOS'\" mkdir 'pvm2.4/f2c/RIOS' fi if test -f 'pvm2.4/f2c/RIOS/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/RIOS/Makefile'\" else echo shar: Extracting \"'pvm2.4/f2c/RIOS/Makefile'\" \(4228 characters\) sed "s/^X//" >'pvm2.4/f2c/RIOS/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/IBM RS6000 X# ARCH = RIOS ARCHCFLAGS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for Fortran to C lib for PVM. X# X# makefile to generate Fortran to C interface library for PVM (generic) X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X fgetstringl.o \ X finitiate.o \ X finitiatem.o \ X finithow.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fputstringl.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o X libf2c.a: $(LOBS) X ar cr libf2c.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libf2c.a ;; esac X clean: X rm -f $(LOBS) libf2c.a X tidy: X rm -f $(LOBS) X fbarrier.o: $(SDIR)/fbarrier.c X $(CC) $(CFLAGS) $(SDIR)/fbarrier.c fenroll.o: $(SDIR)/fenroll.c X $(CC) $(CFLAGS) $(SDIR)/fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.c X $(CC) $(CFLAGS) $(SDIR)/fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.c X $(CC) $(CFLAGS) $(SDIR)/fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.c X $(CC) $(CFLAGS) $(SDIR)/fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.c X $(CC) $(CFLAGS) $(SDIR)/fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.c X $(CC) $(CFLAGS) $(SDIR)/fgetstring.c fgetstringl.o: $(SDIR)/fgetstringl.c X $(CC) $(CFLAGS) $(SDIR)/fgetstringl.c finitiate.o: $(SDIR)/finitiate.c X $(CC) $(CFLAGS) $(SDIR)/finitiate.c finitiatem.o: $(SDIR)/finitiatem.c X $(CC) $(CFLAGS) $(SDIR)/finitiatem.c finithow.o: $(SDIR)/finithow.c X $(CC) $(CFLAGS) $(SDIR)/finithow.c finitsend.o: $(SDIR)/finitsend.c X $(CC) $(CFLAGS) $(SDIR)/finitsend.c fleave.o: $(SDIR)/fleave.c X $(CC) $(CFLAGS) $(SDIR)/fleave.c fprobe.o: $(SDIR)/fprobe.c X $(CC) $(CFLAGS) $(SDIR)/fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.c X $(CC) $(CFLAGS) $(SDIR)/fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.c X $(CC) $(CFLAGS) $(SDIR)/fpstatus.c fputbytes.o: $(SDIR)/fputbytes.c X $(CC) $(CFLAGS) $(SDIR)/fputbytes.c fputncplx.o: $(SDIR)/fputncplx.c X $(CC) $(CFLAGS) $(SDIR)/fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputnfloat.c fputnint.o: $(SDIR)/fputnint.c X $(CC) $(CFLAGS) $(SDIR)/fputnint.c fputnlong.o: $(SDIR)/fputnlong.c X $(CC) $(CFLAGS) $(SDIR)/fputnlong.c fputnshort.o: $(SDIR)/fputnshort.c X $(CC) $(CFLAGS) $(SDIR)/fputnshort.c fputstring.o: $(SDIR)/fputstring.c X $(CC) $(CFLAGS) $(SDIR)/fputstring.c fputstringl.o: $(SDIR)/fputstringl.c X $(CC) $(CFLAGS) $(SDIR)/fputstringl.c fpvmperror.o: $(SDIR)/fpvmperror.c X $(CC) $(CFLAGS) $(SDIR)/fpvmperror.c frcv.o: $(SDIR)/frcv.c X $(CC) $(CFLAGS) $(SDIR)/frcv.c frcvinfo.o: $(SDIR)/frcvinfo.c X $(CC) $(CFLAGS) $(SDIR)/frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/frcvmulti.c fready.o: $(SDIR)/fready.c X $(CC) $(CFLAGS) $(SDIR)/fready.c fsnd.o: $(SDIR)/fsnd.c X $(CC) $(CFLAGS) $(SDIR)/fsnd.c fstatus.o: $(SDIR)/fstatus.c X $(CC) $(CFLAGS) $(SDIR)/fstatus.c fterminate.o: $(SDIR)/fterminate.c X $(CC) $(CFLAGS) $(SDIR)/fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.c X $(CC) $(CFLAGS) $(SDIR)/fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.c X $(CC) $(CFLAGS) $(SDIR)/fwhoami.c fvrcv.o: $(SDIR)/fvrcv.c X $(CC) $(CFLAGS) $(SDIR)/fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.c X $(CC) $(CFLAGS) $(SDIR)/fvsnd.c X END_OF_FILE if test 4228 -ne `wc -c <'pvm2.4/f2c/RIOS/Makefile'`; then echo shar: \"'pvm2.4/f2c/RIOS/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/RIOS/Makefile' fi if test -f 'pvm2.4/f2c/Readme' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/Readme'\" else echo shar: Extracting \"'pvm2.4/f2c/Readme'\" \(1020 characters\) sed "s/^X//" >'pvm2.4/f2c/Readme' <<'END_OF_FILE' X XFORTRAN interface info for PVM X29 Aug 1991 X X________________________________________________________________________ This directory contains the source to a FORTRAN to C interface that allows FORTRAN programs to access the functionality of pvm user routines. X XFORTRAN routines are prepended with an 'f' and are called like a FORTRAN subroutine. For example, call fsnd(proc,instance,msgid) X XFORTRAN subroutines do not return values so the C return values are returned as arguments. For example, call fenroll(proc,inum) and call fstatus(proc,inum,istatus) X There are some questions about how to map Fortran data types into C. The following table gives the appropriate names for the most common case: X X fortran name putn, getn... X ____________ __________ X LOGICAL int X CHARACTER string, stringl X INTEGER int X INTEGER*2 short X REAL float X REAL*8 dfloat X COMPLEX cplx X COMPLEX*16 dcplx X END_OF_FILE if test 1020 -ne `wc -c <'pvm2.4/f2c/Readme'`; then echo shar: \"'pvm2.4/f2c/Readme'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/Readme' fi if test ! -d 'pvm2.4/f2c/SUN3' ; then echo shar: Creating directory \"'pvm2.4/f2c/SUN3'\" mkdir 'pvm2.4/f2c/SUN3' fi if test -f 'pvm2.4/f2c/SUN3/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/SUN3/Makefile'\" else echo shar: Extracting \"'pvm2.4/f2c/SUN3/Makefile'\" \(4223 characters\) sed "s/^X//" >'pvm2.4/f2c/SUN3/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/Sun-3 X# ARCH = SUN3 ARCHCFLAGS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for Fortran to C lib for PVM. X# X# makefile to generate Fortran to C interface library for PVM (generic) X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X fgetstringl.o \ X finitiate.o \ X finitiatem.o \ X finithow.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fputstringl.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o X libf2c.a: $(LOBS) X ar cr libf2c.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libf2c.a ;; esac X clean: X rm -f $(LOBS) libf2c.a X tidy: X rm -f $(LOBS) X fbarrier.o: $(SDIR)/fbarrier.c X $(CC) $(CFLAGS) $(SDIR)/fbarrier.c fenroll.o: $(SDIR)/fenroll.c X $(CC) $(CFLAGS) $(SDIR)/fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.c X $(CC) $(CFLAGS) $(SDIR)/fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.c X $(CC) $(CFLAGS) $(SDIR)/fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.c X $(CC) $(CFLAGS) $(SDIR)/fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.c X $(CC) $(CFLAGS) $(SDIR)/fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.c X $(CC) $(CFLAGS) $(SDIR)/fgetstring.c fgetstringl.o: $(SDIR)/fgetstringl.c X $(CC) $(CFLAGS) $(SDIR)/fgetstringl.c finitiate.o: $(SDIR)/finitiate.c X $(CC) $(CFLAGS) $(SDIR)/finitiate.c finitiatem.o: $(SDIR)/finitiatem.c X $(CC) $(CFLAGS) $(SDIR)/finitiatem.c finithow.o: $(SDIR)/finithow.c X $(CC) $(CFLAGS) $(SDIR)/finithow.c finitsend.o: $(SDIR)/finitsend.c X $(CC) $(CFLAGS) $(SDIR)/finitsend.c fleave.o: $(SDIR)/fleave.c X $(CC) $(CFLAGS) $(SDIR)/fleave.c fprobe.o: $(SDIR)/fprobe.c X $(CC) $(CFLAGS) $(SDIR)/fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.c X $(CC) $(CFLAGS) $(SDIR)/fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.c X $(CC) $(CFLAGS) $(SDIR)/fpstatus.c fputbytes.o: $(SDIR)/fputbytes.c X $(CC) $(CFLAGS) $(SDIR)/fputbytes.c fputncplx.o: $(SDIR)/fputncplx.c X $(CC) $(CFLAGS) $(SDIR)/fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputnfloat.c fputnint.o: $(SDIR)/fputnint.c X $(CC) $(CFLAGS) $(SDIR)/fputnint.c fputnlong.o: $(SDIR)/fputnlong.c X $(CC) $(CFLAGS) $(SDIR)/fputnlong.c fputnshort.o: $(SDIR)/fputnshort.c X $(CC) $(CFLAGS) $(SDIR)/fputnshort.c fputstring.o: $(SDIR)/fputstring.c X $(CC) $(CFLAGS) $(SDIR)/fputstring.c fputstringl.o: $(SDIR)/fputstringl.c X $(CC) $(CFLAGS) $(SDIR)/fputstringl.c fpvmperror.o: $(SDIR)/fpvmperror.c X $(CC) $(CFLAGS) $(SDIR)/fpvmperror.c frcv.o: $(SDIR)/frcv.c X $(CC) $(CFLAGS) $(SDIR)/frcv.c frcvinfo.o: $(SDIR)/frcvinfo.c X $(CC) $(CFLAGS) $(SDIR)/frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/frcvmulti.c fready.o: $(SDIR)/fready.c X $(CC) $(CFLAGS) $(SDIR)/fready.c fsnd.o: $(SDIR)/fsnd.c X $(CC) $(CFLAGS) $(SDIR)/fsnd.c fstatus.o: $(SDIR)/fstatus.c X $(CC) $(CFLAGS) $(SDIR)/fstatus.c fterminate.o: $(SDIR)/fterminate.c X $(CC) $(CFLAGS) $(SDIR)/fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.c X $(CC) $(CFLAGS) $(SDIR)/fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.c X $(CC) $(CFLAGS) $(SDIR)/fwhoami.c fvrcv.o: $(SDIR)/fvrcv.c X $(CC) $(CFLAGS) $(SDIR)/fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.c X $(CC) $(CFLAGS) $(SDIR)/fvsnd.c X END_OF_FILE if test 4223 -ne `wc -c <'pvm2.4/f2c/SUN3/Makefile'`; then echo shar: \"'pvm2.4/f2c/SUN3/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/SUN3/Makefile' fi if test ! -d 'pvm2.4/f2c/SUN4' ; then echo shar: Creating directory \"'pvm2.4/f2c/SUN4'\" mkdir 'pvm2.4/f2c/SUN4' fi if test -f 'pvm2.4/f2c/SUN4/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/SUN4/Makefile'\" else echo shar: Extracting \"'pvm2.4/f2c/SUN4/Makefile'\" \(4236 characters\) sed "s/^X//" >'pvm2.4/f2c/SUN4/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/Sun-4, Sun-4c, etc X# ARCH = SUN4 ARCHCFLAGS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for Fortran to C lib for PVM. X# X# makefile to generate Fortran to C interface library for PVM (generic) X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X fgetstringl.o \ X finitiate.o \ X finitiatem.o \ X finithow.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fputstringl.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o X libf2c.a: $(LOBS) X ar cr libf2c.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libf2c.a ;; esac X clean: X rm -f $(LOBS) libf2c.a X tidy: X rm -f $(LOBS) X fbarrier.o: $(SDIR)/fbarrier.c X $(CC) $(CFLAGS) $(SDIR)/fbarrier.c fenroll.o: $(SDIR)/fenroll.c X $(CC) $(CFLAGS) $(SDIR)/fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.c X $(CC) $(CFLAGS) $(SDIR)/fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.c X $(CC) $(CFLAGS) $(SDIR)/fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.c X $(CC) $(CFLAGS) $(SDIR)/fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.c X $(CC) $(CFLAGS) $(SDIR)/fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.c X $(CC) $(CFLAGS) $(SDIR)/fgetstring.c fgetstringl.o: $(SDIR)/fgetstringl.c X $(CC) $(CFLAGS) $(SDIR)/fgetstringl.c finitiate.o: $(SDIR)/finitiate.c X $(CC) $(CFLAGS) $(SDIR)/finitiate.c finitiatem.o: $(SDIR)/finitiatem.c X $(CC) $(CFLAGS) $(SDIR)/finitiatem.c finithow.o: $(SDIR)/finithow.c X $(CC) $(CFLAGS) $(SDIR)/finithow.c finitsend.o: $(SDIR)/finitsend.c X $(CC) $(CFLAGS) $(SDIR)/finitsend.c fleave.o: $(SDIR)/fleave.c X $(CC) $(CFLAGS) $(SDIR)/fleave.c fprobe.o: $(SDIR)/fprobe.c X $(CC) $(CFLAGS) $(SDIR)/fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.c X $(CC) $(CFLAGS) $(SDIR)/fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.c X $(CC) $(CFLAGS) $(SDIR)/fpstatus.c fputbytes.o: $(SDIR)/fputbytes.c X $(CC) $(CFLAGS) $(SDIR)/fputbytes.c fputncplx.o: $(SDIR)/fputncplx.c X $(CC) $(CFLAGS) $(SDIR)/fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.c X $(CC) $(CFLAGS) $(SDIR)/fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.c X $(CC) $(CFLAGS) $(SDIR)/fputnfloat.c fputnint.o: $(SDIR)/fputnint.c X $(CC) $(CFLAGS) $(SDIR)/fputnint.c fputnlong.o: $(SDIR)/fputnlong.c X $(CC) $(CFLAGS) $(SDIR)/fputnlong.c fputnshort.o: $(SDIR)/fputnshort.c X $(CC) $(CFLAGS) $(SDIR)/fputnshort.c fputstring.o: $(SDIR)/fputstring.c X $(CC) $(CFLAGS) $(SDIR)/fputstring.c fputstringl.o: $(SDIR)/fputstringl.c X $(CC) $(CFLAGS) $(SDIR)/fputstringl.c fpvmperror.o: $(SDIR)/fpvmperror.c X $(CC) $(CFLAGS) $(SDIR)/fpvmperror.c frcv.o: $(SDIR)/frcv.c X $(CC) $(CFLAGS) $(SDIR)/frcv.c frcvinfo.o: $(SDIR)/frcvinfo.c X $(CC) $(CFLAGS) $(SDIR)/frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/frcvmulti.c fready.o: $(SDIR)/fready.c X $(CC) $(CFLAGS) $(SDIR)/fready.c fsnd.o: $(SDIR)/fsnd.c X $(CC) $(CFLAGS) $(SDIR)/fsnd.c fstatus.o: $(SDIR)/fstatus.c X $(CC) $(CFLAGS) $(SDIR)/fstatus.c fterminate.o: $(SDIR)/fterminate.c X $(CC) $(CFLAGS) $(SDIR)/fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.c X $(CC) $(CFLAGS) $(SDIR)/fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.c X $(CC) $(CFLAGS) $(SDIR)/fwhoami.c fvrcv.o: $(SDIR)/fvrcv.c X $(CC) $(CFLAGS) $(SDIR)/fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.c X $(CC) $(CFLAGS) $(SDIR)/fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.c X $(CC) $(CFLAGS) $(SDIR)/fvsnd.c X END_OF_FILE if test 4236 -ne `wc -c <'pvm2.4/f2c/SUN4/Makefile'`; then echo shar: \"'pvm2.4/f2c/SUN4/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/SUN4/Makefile' fi if test -f 'pvm2.4/f2c/fbarrier.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fbarrier.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fbarrier.c'\" \(294 characters\) sed "s/^X//" >'pvm2.4/f2c/fbarrier.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFBARRIER(name,n,info) X#endif X#if NAMESTYLE == PLAINNAME fbarrier(name,n,info) X#endif X#if NAMESTYLE == NAMEBAR fbarrier_( name,n,info ) X#endif X char *name ; X int *n, *info; X{ X NULFIX(name); X *info = barrier( name,*n ) ; X} END_OF_FILE if test 294 -ne `wc -c <'pvm2.4/f2c/fbarrier.c'`; then echo shar: \"'pvm2.4/f2c/fbarrier.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fbarrier.c' fi if test -f 'pvm2.4/f2c/fenroll.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fenroll.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fenroll.c'\" \(269 characters\) sed "s/^X//" >'pvm2.4/f2c/fenroll.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFENROLL(name,num) X#endif X#if NAMESTYLE == PLAINNAME fenroll(name,num) X#endif X#if NAMESTYLE == NAMEBAR fenroll_( name,num ) X#endif X int *num; X char *name ; X{ X NULFIX(name); X *num = enroll(name); X} END_OF_FILE if test 269 -ne `wc -c <'pvm2.4/f2c/fenroll.c'`; then echo shar: \"'pvm2.4/f2c/fenroll.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fenroll.c' fi if test -f 'pvm2.4/f2c/fgetbytes.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fgetbytes.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fgetbytes.c'\" \(264 characters\) sed "s/^X//" >'pvm2.4/f2c/fgetbytes.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFGETBYTES(p,len,info) X#endif X#if NAMESTYLE == PLAINNAME fgetbytes(p,len,info) X#endif X#if NAMESTYLE == NAMEBAR fgetbytes_(p,len,info) X#endif X int *len, *info ; X char *p ; X{ X *info = getbytes( p, *len ) ; X} END_OF_FILE if test 264 -ne `wc -c <'pvm2.4/f2c/fgetbytes.c'`; then echo shar: \"'pvm2.4/f2c/fgetbytes.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fgetbytes.c' fi if test -f 'pvm2.4/f2c/fgetncplx.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fgetncplx.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fgetncplx.c'\" \(258 characters\) sed "s/^X//" >'pvm2.4/f2c/fgetncplx.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFGETNCPLX(xp,num,info) X#endif X#if NAMESTYLE == PLAINNAME fgetncplx(xp,num,info) X#endif X#if NAMESTYLE == NAMEBAR fgetncplx_(xp,num,info) X#endif X float *xp; X int *num, *info; X{ X *info = getncplx(xp, *num); X} END_OF_FILE if test 258 -ne `wc -c <'pvm2.4/f2c/fgetncplx.c'`; then echo shar: \"'pvm2.4/f2c/fgetncplx.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fgetncplx.c' fi if test -f 'pvm2.4/f2c/fgetndcplx.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fgetndcplx.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fgetndcplx.c'\" \(263 characters\) sed "s/^X//" >'pvm2.4/f2c/fgetndcplx.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFGETNDCPLX(zp,num,info) X#endif X#if NAMESTYLE == PLAINNAME fgetndcplx(zp,num,info) X#endif X#if NAMESTYLE == NAMEBAR fgetndcplx_(zp,num,info) X#endif X double *zp; X int *num, *info; X{ X *info = getndcplx(zp, *num); X} END_OF_FILE if test 263 -ne `wc -c <'pvm2.4/f2c/fgetndcplx.c'`; then echo shar: \"'pvm2.4/f2c/fgetndcplx.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fgetndcplx.c' fi if test -f 'pvm2.4/f2c/fgetndfloat.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fgetndfloat.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fgetndfloat.c'\" \(267 characters\) sed "s/^X//" >'pvm2.4/f2c/fgetndfloat.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFGETNDFLOAT(dp,num,info) X#endif X#if NAMESTYLE == PLAINNAME fgetndfloat(dp,num,info) X#endif X#if NAMESTYLE == NAMEBAR fgetndfloat_(dp,num,info) X#endif X double *dp; X int *num, *info; X{ X *info = getndfloat(dp, *num); X} END_OF_FILE if test 267 -ne `wc -c <'pvm2.4/f2c/fgetndfloat.c'`; then echo shar: \"'pvm2.4/f2c/fgetndfloat.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fgetndfloat.c' fi if test -f 'pvm2.4/f2c/fgetnfloat.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fgetnfloat.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fgetnfloat.c'\" \(262 characters\) sed "s/^X//" >'pvm2.4/f2c/fgetnfloat.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFGETNFLOAT(fp,num,info) X#endif X#if NAMESTYLE == PLAINNAME fgetnfloat(fp,num,info) X#endif X#if NAMESTYLE == NAMEBAR fgetnfloat_(fp,num,info) X#endif X float *fp; X int *num, *info; X{ X *info = getnfloat(fp, *num); X} END_OF_FILE if test 262 -ne `wc -c <'pvm2.4/f2c/fgetnfloat.c'`; then echo shar: \"'pvm2.4/f2c/fgetnfloat.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fgetnfloat.c' fi if test -f 'pvm2.4/f2c/fgetnint.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fgetnint.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fgetnint.c'\" \(247 characters\) sed "s/^X//" >'pvm2.4/f2c/fgetnint.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFGETNINT(np,num,info) X#endif X#if NAMESTYLE == PLAINNAME fgetnint(np,num,info) X#endif X#if NAMESTYLE == NAMEBAR fgetnint_(np,num,info) X#endif X int *np, *num, *info; X{ X *info = getnint(np, *num); X} END_OF_FILE if test 247 -ne `wc -c <'pvm2.4/f2c/fgetnint.c'`; then echo shar: \"'pvm2.4/f2c/fgetnint.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fgetnint.c' fi if test -f 'pvm2.4/f2c/fgetnlong.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fgetnlong.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fgetnlong.c'\" \(257 characters\) sed "s/^X//" >'pvm2.4/f2c/fgetnlong.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFGETNLONG(np,num,info) X#endif X#if NAMESTYLE == PLAINNAME fgetnlong(np,num,info) X#endif X#if NAMESTYLE == NAMEBAR fgetnlong_(np,num,info) X#endif X long *np; X int *num, *info; X{ X *info = getnlong(np, *num); X} END_OF_FILE if test 257 -ne `wc -c <'pvm2.4/f2c/fgetnlong.c'`; then echo shar: \"'pvm2.4/f2c/fgetnlong.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fgetnlong.c' fi if test -f 'pvm2.4/f2c/fgetnshort.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fgetnshort.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fgetnshort.c'\" \(262 characters\) sed "s/^X//" >'pvm2.4/f2c/fgetnshort.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFGETNSHORT(np,num,info) X#endif X#if NAMESTYLE == PLAINNAME fgetnshort(np,num,info) X#endif X#if NAMESTYLE == NAMEBAR fgetnshort_(np,num,info) X#endif X short *np; X int *num, *info; X{ X *info = getnshort(np, *num); X} END_OF_FILE if test 262 -ne `wc -c <'pvm2.4/f2c/fgetnshort.c'`; then echo shar: \"'pvm2.4/f2c/fgetnshort.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fgetnshort.c' fi if test -f 'pvm2.4/f2c/fgetstring.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fgetstring.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fgetstring.c'\" \(245 characters\) sed "s/^X//" >'pvm2.4/f2c/fgetstring.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFGETSTRING(p,info) X#endif X#if NAMESTYLE == PLAINNAME fgetstring(p,info) X#endif X#if NAMESTYLE == NAMEBAR fgetstring_( p,info ) X#endif X int *info ; X char *p ; X{ X *info = getstring( p ) ; X} END_OF_FILE if test 245 -ne `wc -c <'pvm2.4/f2c/fgetstring.c'`; then echo shar: \"'pvm2.4/f2c/fgetstring.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fgetstring.c' fi if test -f 'pvm2.4/f2c/fgetstringl.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fgetstringl.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fgetstringl.c'\" \(441 characters\) sed "s/^X//" >'pvm2.4/f2c/fgetstringl.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFGETSTRINGL(p, len,info) X#endif X#if NAMESTYLE == PLAINNAME fgetstringl(p,len,info) X#endif X#if NAMESTYLE == NAMEBAR fgetstringl_(p,len,info) X#endif X char *p; X int *len, *info; X{ X static char *q = 0; X static int ql = 0; X int l = 2 * *len; X X if (!q) X q = (char*)malloc(ql = l); X else X if (l > ql) { X free(q); X q = (char*)malloc(ql = l); X } X *info = getstring(q); X bcopy(q, p, *len); X} END_OF_FILE if test 441 -ne `wc -c <'pvm2.4/f2c/fgetstringl.c'`; then echo shar: \"'pvm2.4/f2c/fgetstringl.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fgetstringl.c' fi if test -f 'pvm2.4/f2c/frcv.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/frcv.c'\" else echo shar: Extracting \"'pvm2.4/f2c/frcv.c'\" \(219 characters\) sed "s/^X//" >'pvm2.4/f2c/frcv.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFRCV(type,stat) X#endif X#if NAMESTYLE == PLAINNAME frcv(type,stat) X#endif X#if NAMESTYLE == NAMEBAR frcv_(type,stat) X#endif X int *type, *stat; X{ X *stat = rcv(*type); X} X END_OF_FILE if test 219 -ne `wc -c <'pvm2.4/f2c/frcv.c'`; then echo shar: \"'pvm2.4/f2c/frcv.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/frcv.c' fi if test -f 'pvm2.4/f2c/finithow.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/finithow.c'\" else echo shar: Extracting \"'pvm2.4/f2c/finithow.c'\" \(237 characters\) sed "s/^X//" >'pvm2.4/f2c/finithow.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFINITHOW(how, info) X#endif X#if NAMESTYLE == PLAINNAME finithow(how, info) X#endif X#if NAMESTYLE == NAMEBAR finithow_(how, info) X#endif X int *how, *info; X{ X *info = pvm_inithow(*how); X} X END_OF_FILE if test 237 -ne `wc -c <'pvm2.4/f2c/finithow.c'`; then echo shar: \"'pvm2.4/f2c/finithow.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/finithow.c' fi if test -f 'pvm2.4/f2c/finitiate.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/finitiate.c'\" else echo shar: Extracting \"'pvm2.4/f2c/finitiate.c'\" \(321 characters\) sed "s/^X//" >'pvm2.4/f2c/finitiate.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFINITIATE(aout, mc, inc) X#endif X#if NAMESTYLE == PLAINNAME finitiate(aout, mc, inc) X#endif X#if NAMESTYLE == NAMEBAR finitiate_(aout, mc, inc) X#endif X char *aout, *mc; X int *inc; X{ X NULFIX(aout); X if (mc) X NULFIX(mc); X *inc = initiate(aout, mc); X} END_OF_FILE if test 321 -ne `wc -c <'pvm2.4/f2c/finitiate.c'`; then echo shar: \"'pvm2.4/f2c/finitiate.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/finitiate.c' fi if test -f 'pvm2.4/f2c/finitiatem.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/finitiatem.c'\" else echo shar: Extracting \"'pvm2.4/f2c/finitiatem.c'\" \(325 characters\) sed "s/^X//" >'pvm2.4/f2c/finitiatem.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFINITIATEM(aout, mc, inc) X#endif X#if NAMESTYLE == PLAINNAME finitiatem(aout, mc, inc) X#endif X#if NAMESTYLE == NAMEBAR finitiatem_(aout, mc, inc) X#endif X char *aout, *mc; X int *inc; X{ X NULFIX(aout); X if (mc) X NULFIX(mc); X *inc = initiateM(aout, mc); X} END_OF_FILE if test 325 -ne `wc -c <'pvm2.4/f2c/finitiatem.c'`; then echo shar: \"'pvm2.4/f2c/finitiatem.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/finitiatem.c' fi if test -f 'pvm2.4/f2c/finitsend.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/finitsend.c'\" else echo shar: Extracting \"'pvm2.4/f2c/finitsend.c'\" \(182 characters\) sed "s/^X//" >'pvm2.4/f2c/finitsend.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFINITSEND() X#endif X#if NAMESTYLE == PLAINNAME finitsend() X#endif X#if NAMESTYLE == NAMEBAR finitsend_() X#endif X{ X initsend() ; X} END_OF_FILE if test 182 -ne `wc -c <'pvm2.4/f2c/finitsend.c'`; then echo shar: \"'pvm2.4/f2c/finitsend.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/finitsend.c' fi if test -f 'pvm2.4/f2c/fleave.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fleave.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fleave.c'\" \(170 characters\) sed "s/^X//" >'pvm2.4/f2c/fleave.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFLEAVE() X#endif X#if NAMESTYLE == PLAINNAME fleave() X#endif X#if NAMESTYLE == NAMEBAR fleave_() X#endif X{ X leave() ; X} END_OF_FILE if test 170 -ne `wc -c <'pvm2.4/f2c/fleave.c'`; then echo shar: \"'pvm2.4/f2c/fleave.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fleave.c' fi if test -f 'pvm2.4/f2c/fprobe.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fprobe.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fprobe.c'\" \(236 characters\) sed "s/^X//" >'pvm2.4/f2c/fprobe.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFPROBE(type,status) X#endif X#if NAMESTYLE == PLAINNAME fprobe(type,status) X#endif X#if NAMESTYLE == NAMEBAR fprobe_(type,status) X#endif X int *type, *status; X{ X *status = probe(*type); X} END_OF_FILE if test 236 -ne `wc -c <'pvm2.4/f2c/fprobe.c'`; then echo shar: \"'pvm2.4/f2c/fprobe.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fprobe.c' fi if test -f 'pvm2.4/f2c/fprobemulti.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fprobemulti.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fprobemulti.c'\" \(269 characters\) sed "s/^X//" >'pvm2.4/f2c/fprobemulti.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFPROBEMULTI(n,typs,type) X#endif X#if NAMESTYLE == PLAINNAME fprobemulti(n,typs,type) X#endif X#if NAMESTYLE == NAMEBAR fprobemulti_(n,typs,type) X#endif X int *n; X int *typs; X int *type; X{ X *type = probemulti(*n, typs); X} END_OF_FILE if test 269 -ne `wc -c <'pvm2.4/f2c/fprobemulti.c'`; then echo shar: \"'pvm2.4/f2c/fprobemulti.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fprobemulti.c' fi if test -f 'pvm2.4/f2c/fpstatus.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fpstatus.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fpstatus.c'\" \(279 characters\) sed "s/^X//" >'pvm2.4/f2c/fpstatus.c' <<'END_OF_FILE' X#include "namefix.h" X X#if NAMESTYLE == UPPERCASENAME XFPSTATUS(nproc, mixed, info) X#endif X#if NAMESTYLE == PLAINNAME fpstatus(nproc, mixed, info) X#endif X#if NAMESTYLE == NAMEBAR fpstatus_(nproc, mixed, info) X#endif X int *nproc, *mixed, *info; X{ X *info = pstatus(nproc, mixed); X} X END_OF_FILE if test 279 -ne `wc -c <'pvm2.4/f2c/fpstatus.c'`; then echo shar: \"'pvm2.4/f2c/fpstatus.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fpstatus.c' fi if test -f 'pvm2.4/f2c/fputbytes.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fputbytes.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fputbytes.c'\" \(264 characters\) sed "s/^X//" >'pvm2.4/f2c/fputbytes.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFPUTBYTES(p,len,info) X#endif X#if NAMESTYLE == PLAINNAME fputbytes(p,len,info) X#endif X#if NAMESTYLE == NAMEBAR fputbytes_(p,len,info) X#endif X int *len, *info ; X char *p ; X{ X *info = putbytes( p, *len ) ; X} END_OF_FILE if test 264 -ne `wc -c <'pvm2.4/f2c/fputbytes.c'`; then echo shar: \"'pvm2.4/f2c/fputbytes.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fputbytes.c' fi if test -f 'pvm2.4/f2c/fputncplx.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fputncplx.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fputncplx.c'\" \(258 characters\) sed "s/^X//" >'pvm2.4/f2c/fputncplx.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFPUTNCPLX(xp,num,info) X#endif X#if NAMESTYLE == PLAINNAME fputncplx(xp,num,info) X#endif X#if NAMESTYLE == NAMEBAR fputncplx_(xp,num,info) X#endif X float *xp; X int *num, *info; X{ X *info = putncplx(xp, *num); X} END_OF_FILE if test 258 -ne `wc -c <'pvm2.4/f2c/fputncplx.c'`; then echo shar: \"'pvm2.4/f2c/fputncplx.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fputncplx.c' fi if test -f 'pvm2.4/f2c/fputndcplx.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fputndcplx.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fputndcplx.c'\" \(263 characters\) sed "s/^X//" >'pvm2.4/f2c/fputndcplx.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFPUTNDCPLX(zp,num,info) X#endif X#if NAMESTYLE == PLAINNAME fputndcplx(zp,num,info) X#endif X#if NAMESTYLE == NAMEBAR fputndcplx_(zp,num,info) X#endif X double *zp; X int *num, *info; X{ X *info = putndcplx(zp, *num); X} END_OF_FILE if test 263 -ne `wc -c <'pvm2.4/f2c/fputndcplx.c'`; then echo shar: \"'pvm2.4/f2c/fputndcplx.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fputndcplx.c' fi if test -f 'pvm2.4/f2c/fputndfloat.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fputndfloat.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fputndfloat.c'\" \(267 characters\) sed "s/^X//" >'pvm2.4/f2c/fputndfloat.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFPUTNDFLOAT(dp,num,info) X#endif X#if NAMESTYLE == PLAINNAME fputndfloat(dp,num,info) X#endif X#if NAMESTYLE == NAMEBAR fputndfloat_(dp,num,info) X#endif X double *dp; X int *num, *info; X{ X *info = putndfloat(dp, *num); X} END_OF_FILE if test 267 -ne `wc -c <'pvm2.4/f2c/fputndfloat.c'`; then echo shar: \"'pvm2.4/f2c/fputndfloat.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fputndfloat.c' fi if test -f 'pvm2.4/f2c/fputnfloat.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fputnfloat.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fputnfloat.c'\" \(262 characters\) sed "s/^X//" >'pvm2.4/f2c/fputnfloat.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFPUTNFLOAT(fp,num,info) X#endif X#if NAMESTYLE == PLAINNAME fputnfloat(fp,num,info) X#endif X#if NAMESTYLE == NAMEBAR fputnfloat_(fp,num,info) X#endif X float *fp; X int *num, *info; X{ X *info = putnfloat(fp, *num); X} END_OF_FILE if test 262 -ne `wc -c <'pvm2.4/f2c/fputnfloat.c'`; then echo shar: \"'pvm2.4/f2c/fputnfloat.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fputnfloat.c' fi if test -f 'pvm2.4/f2c/fputnint.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fputnint.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fputnint.c'\" \(248 characters\) sed "s/^X//" >'pvm2.4/f2c/fputnint.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFPUTNINT(np,num,info) X#endif X#if NAMESTYLE == PLAINNAME fputnint(np,num,info) X#endif X#if NAMESTYLE == NAMEBAR fputnint_(np,num,info) X#endif X int *np, *num, *info ; X{ X *info = putnint(np, *num); X} END_OF_FILE if test 248 -ne `wc -c <'pvm2.4/f2c/fputnint.c'`; then echo shar: \"'pvm2.4/f2c/fputnint.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fputnint.c' fi if test -f 'pvm2.4/f2c/fputnlong.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fputnlong.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fputnlong.c'\" \(258 characters\) sed "s/^X//" >'pvm2.4/f2c/fputnlong.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFPUTNLONG(np,num,info) X#endif X#if NAMESTYLE == PLAINNAME fputnlong(np,num,info) X#endif X#if NAMESTYLE == NAMEBAR fputnlong_(np,num,info) X#endif X long *np; X int *num, *info ; X{ X *info = putnlong(np, *num); X} END_OF_FILE if test 258 -ne `wc -c <'pvm2.4/f2c/fputnlong.c'`; then echo shar: \"'pvm2.4/f2c/fputnlong.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fputnlong.c' fi if test -f 'pvm2.4/f2c/fputnshort.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fputnshort.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fputnshort.c'\" \(263 characters\) sed "s/^X//" >'pvm2.4/f2c/fputnshort.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFPUTNSHORT(np,num,info) X#endif X#if NAMESTYLE == PLAINNAME fputnshort(np,num,info) X#endif X#if NAMESTYLE == NAMEBAR fputnshort_(np,num,info) X#endif X short *np; X int *num, *info ; X{ X *info = putnshort(np, *num); X} END_OF_FILE if test 263 -ne `wc -c <'pvm2.4/f2c/fputnshort.c'`; then echo shar: \"'pvm2.4/f2c/fputnshort.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fputnshort.c' fi if test -f 'pvm2.4/f2c/fputstring.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fputstring.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fputstring.c'\" \(279 characters\) sed "s/^X//" >'pvm2.4/f2c/fputstring.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFPUTSTRING(p,info) X#endif X#if NAMESTYLE == PLAINNAME fputstring(p,info) X#endif X#if NAMESTYLE == NAMEBAR fputstring_( p,info ) X#endif X int *info ; X char *p ; X{ X NULFIX(p); X *info = putstring( p ) ; X} END_OF_FILE if test 279 -ne `wc -c <'pvm2.4/f2c/fputstring.c'`; then echo shar: \"'pvm2.4/f2c/fputstring.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fputstring.c' fi if test -f 'pvm2.4/f2c/fputstringl.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fputstringl.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fputstringl.c'\" \(457 characters\) sed "s/^X//" >'pvm2.4/f2c/fputstringl.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFPUTSTRINGL(p,len,info) X#endif X#if NAMESTYLE == PLAINNAME fputstringl(p,len,info) X#endif X#if NAMESTYLE == NAMEBAR fputstringl_(p,len,info) X#endif X char *p; X int *len, *info; X{ X static char *q = 0; X static int ql = 0; X int l = *len + 1; X X if (!q) X q = (char*)malloc(ql = l); X else X if (l > ql) { X free(q); X q = (char*)malloc(ql = l); X } X bcopy(p, q, --l); X *(q + l) = '\0'; X *info = putstring(q); X} END_OF_FILE if test 457 -ne `wc -c <'pvm2.4/f2c/fputstringl.c'`; then echo shar: \"'pvm2.4/f2c/fputstringl.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fputstringl.c' fi if test -f 'pvm2.4/f2c/fpvmperror.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fpvmperror.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fpvmperror.c'\" \(232 characters\) sed "s/^X//" >'pvm2.4/f2c/fpvmperror.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFPVMPERROR(p) X#endif X#if NAMESTYLE == PLAINNAME fpvmperror(p) X#endif X#if NAMESTYLE == NAMEBAR fpvmperror_(p) X#endif X char *p; X{ X NULFIX(p); X pvm_perror(p); X} X END_OF_FILE if test 232 -ne `wc -c <'pvm2.4/f2c/fpvmperror.c'`; then echo shar: \"'pvm2.4/f2c/fpvmperror.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fpvmperror.c' fi if test -f 'pvm2.4/f2c/frcvinfo.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/frcvinfo.c'\" else echo shar: Extracting \"'pvm2.4/f2c/frcvinfo.c'\" \(330 characters\) sed "s/^X//" >'pvm2.4/f2c/frcvinfo.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFRCVINFO(len, type, proc, inum, info) X#endif X#if NAMESTYLE == PLAINNAME frcvinfo(len, type, proc, inum, info) X#endif X#if NAMESTYLE == NAMEBAR frcvinfo_(len, type, proc, inum, info) X#endif X int *len, *type, *inum, *info; X char *proc; X{ X *info = rcvinfo(len, type, proc, inum); X} END_OF_FILE if test 330 -ne `wc -c <'pvm2.4/f2c/frcvinfo.c'`; then echo shar: \"'pvm2.4/f2c/frcvinfo.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/frcvinfo.c' fi if test -f 'pvm2.4/f2c/frcvmulti.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/frcvmulti.c'\" else echo shar: Extracting \"'pvm2.4/f2c/frcvmulti.c'\" \(267 characters\) sed "s/^X//" >'pvm2.4/f2c/frcvmulti.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFRCVMULTI(n, typs, stat) X#endif X#if NAMESTYLE == PLAINNAME frcvmulti(n, typs, stat) X#endif X#if NAMESTYLE == NAMEBAR frcvmulti_(n, typs, stat) X#endif X int *n; X int *typs; X int *stat; X{ X *stat = rcvmulti(*n, typs); X} END_OF_FILE if test 267 -ne `wc -c <'pvm2.4/f2c/frcvmulti.c'`; then echo shar: \"'pvm2.4/f2c/frcvmulti.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/frcvmulti.c' fi if test -f 'pvm2.4/f2c/fready.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fready.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fready.c'\" \(290 characters\) sed "s/^X//" >'pvm2.4/f2c/fready.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFREADY(event, info) X#endif X#if NAMESTYLE == PLAINNAME fready(event, info) X#endif X#if NAMESTYLE == NAMEBAR fready_( event, info ) X#endif X int *info ; X char *event ; X{ X NULFIX(event); X *info = ready( event ) ; X} END_OF_FILE if test 290 -ne `wc -c <'pvm2.4/f2c/fready.c'`; then echo shar: \"'pvm2.4/f2c/fready.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fready.c' fi if test -f 'pvm2.4/f2c/fsnd.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fsnd.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fsnd.c'\" \(326 characters\) sed "s/^X//" >'pvm2.4/f2c/fsnd.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFSND(proc, inum, type, info) X#endif X#if NAMESTYLE == PLAINNAME fsnd(proc, inum, type, info) X#endif X#if NAMESTYLE == NAMEBAR fsnd_(proc, inum, type, info) X#endif X char *proc; X int *inum, *type, *info; X{ X NULFIX(proc); X *info = snd(proc, *inum, *type); X} END_OF_FILE if test 326 -ne `wc -c <'pvm2.4/f2c/fsnd.c'`; then echo shar: \"'pvm2.4/f2c/fsnd.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fsnd.c' fi if test -f 'pvm2.4/f2c/fstatus.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fstatus.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fstatus.c'\" \(318 characters\) sed "s/^X//" >'pvm2.4/f2c/fstatus.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFSTATUS(name,inum,pstatus) X#endif X#if NAMESTYLE == PLAINNAME fstatus(name,inum,pstatus) X#endif X#if NAMESTYLE == NAMEBAR fstatus_( name,inum,pstatus ) X#endif X char *name ; X int *inum, *pstatus; X{ X NULFIX(name); X *pstatus = status(name,*inum); X} X END_OF_FILE if test 318 -ne `wc -c <'pvm2.4/f2c/fstatus.c'`; then echo shar: \"'pvm2.4/f2c/fstatus.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fstatus.c' fi if test -f 'pvm2.4/f2c/fterminate.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fterminate.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fterminate.c'\" \(317 characters\) sed "s/^X//" >'pvm2.4/f2c/fterminate.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFTERMINATE(proc,inc,info) X#endif X#if NAMESTYLE == PLAINNAME fterminate(proc,inc,info) X#endif X#if NAMESTYLE == NAMEBAR fterminate_( proc, inc, info ) X#endif X char *proc ; X int *inc, *info ; X{ X NULFIX(proc); X *info = terminate( proc, *inc ) ; X} END_OF_FILE if test 317 -ne `wc -c <'pvm2.4/f2c/fterminate.c'`; then echo shar: \"'pvm2.4/f2c/fterminate.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fterminate.c' fi if test -f 'pvm2.4/f2c/fvrcv.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fvrcv.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fvrcv.c'\" \(226 characters\) sed "s/^X//" >'pvm2.4/f2c/fvrcv.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFVRCV(type, stat) X#endif X#if NAMESTYLE == PLAINNAME fvrcv(type, stat) X#endif X#if NAMESTYLE == NAMEBAR fvrcv_(type, stat) X#endif X int *type, *stat; X{ X *stat = vrcv(*type); X} X END_OF_FILE if test 226 -ne `wc -c <'pvm2.4/f2c/fvrcv.c'`; then echo shar: \"'pvm2.4/f2c/fvrcv.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fvrcv.c' fi if test -f 'pvm2.4/f2c/fvrcvmulti.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fvrcvmulti.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fvrcvmulti.c'\" \(272 characters\) sed "s/^X//" >'pvm2.4/f2c/fvrcvmulti.c' <<'END_OF_FILE' X#include "namefix.h" X#if NAMESTYLE == UPPERCASENAME XFVRCVMULTI(n, typs, stat) X#endif X#if NAMESTYLE == PLAINNAME fvrcvmulti(n, typs, stat) X#endif X#if NAMESTYLE == NAMEBAR fvrcvmulti_(n, typs, stat) X#endif X int *n; X int *typs; X int *stat; X{ X *stat = vrcvmulti(*n, typs); X} X END_OF_FILE if test 272 -ne `wc -c <'pvm2.4/f2c/fvrcvmulti.c'`; then echo shar: \"'pvm2.4/f2c/fvrcvmulti.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fvrcvmulti.c' fi if test -f 'pvm2.4/f2c/fvsnd.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fvsnd.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fvsnd.c'\" \(331 characters\) sed "s/^X//" >'pvm2.4/f2c/fvsnd.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFVSND(proc, inum, type, info) X#endif X#if NAMESTYLE == PLAINNAME fvsnd(proc, inum, type, info) X#endif X#if NAMESTYLE == NAMEBAR fvsnd_(proc, inum, type, info) X#endif X char *proc; X int *inum, *type, *info; X{ X NULFIX(proc); X *info = vsnd(proc, *inum, *type); X} X END_OF_FILE if test 331 -ne `wc -c <'pvm2.4/f2c/fvsnd.c'`; then echo shar: \"'pvm2.4/f2c/fvsnd.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fvsnd.c' fi if test -f 'pvm2.4/f2c/fwaituntil.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fwaituntil.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fwaituntil.c'\" \(303 characters\) sed "s/^X//" >'pvm2.4/f2c/fwaituntil.c' <<'END_OF_FILE' X#include "namefix.h" X#include "nulfix.h" X X#if NAMESTYLE == UPPERCASENAME XFWAITUNTIL(event,info) X#endif X#if NAMESTYLE == PLAINNAME fwaituntil(event,info) X#endif X#if NAMESTYLE == NAMEBAR fwaituntil_( event,info ) X#endif X int *info ; X char *event ; X{ X NULFIX(event); X *info = waituntil( event ) ; X} END_OF_FILE if test 303 -ne `wc -c <'pvm2.4/f2c/fwaituntil.c'`; then echo shar: \"'pvm2.4/f2c/fwaituntil.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fwaituntil.c' fi if test -f 'pvm2.4/f2c/fwhoami.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/fwhoami.c'\" else echo shar: Extracting \"'pvm2.4/f2c/fwhoami.c'\" \(269 characters\) sed "s/^X//" >'pvm2.4/f2c/fwhoami.c' <<'END_OF_FILE' X#include "namefix.h" X X#if NAMESTYLE == UPPERCASENAME XFWHOAMI(proc,inc,info) X#endif X#if NAMESTYLE == PLAINNAME fwhoami(proc,inc,info) X#endif X#if NAMESTYLE == NAMEBAR fwhoami_( proc, inc, info ) X#endif X char *proc ; X int *inc, *info ; X{ X *info = whoami( proc, inc ) ; X} END_OF_FILE if test 269 -ne `wc -c <'pvm2.4/f2c/fwhoami.c'`; then echo shar: \"'pvm2.4/f2c/fwhoami.c'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/fwhoami.c' fi if test -f 'pvm2.4/f2c/namefix.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/namefix.h'\" else echo shar: Extracting \"'pvm2.4/f2c/namefix.h'\" \(262 characters\) sed "s/^X//" >'pvm2.4/f2c/namefix.h' <<'END_OF_FILE' X X#define PLAINNAME 1 X#define UPPERCASENAME 2 X#define NAMEBAR 3 X X#if defined(CRAY) X#define NAMESTYLE UPPERCASENAME X#endif X X#if defined(RIOS) || defined(HP9K) || defined(NEXT) X#define NAMESTYLE PLAINNAME X#endif X X#ifndef NAMESTYLE X#define NAMESTYLE NAMEBAR X#endif X END_OF_FILE if test 262 -ne `wc -c <'pvm2.4/f2c/namefix.h'`; then echo shar: \"'pvm2.4/f2c/namefix.h'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/namefix.h' fi if test -f 'pvm2.4/f2c/nulfix.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/f2c/nulfix.h'\" else echo shar: Extracting \"'pvm2.4/f2c/nulfix.h'\" \(567 characters\) sed "s/^X//" >'pvm2.4/f2c/nulfix.h' <<'END_OF_FILE' X/* X * nulfix.h X * X * This is a hack to provide null-terminated strings. X * It allows the user to write strings like "foo\0". X * The idea is that the above works implicitly on some X * machines, but not on others, so we just recognize the X * pattern and fix it. Of course, this causes other X * problems... X * X * Mar 1991 Robert Manchek manchek@CS.UTK.EDU. X * X$Log$ X * X*/ X X#if defined(CRAY) || defined(HP9K) || defined(NEXT) X X#define NULFIX(s) { \ X char *p; \ X for (p = s; *p && !(*p == '\\' && *(p + 1) == '0'); p++); \ X *p = 0; } X X#else X X#define NULFIX(s) X X#endif X END_OF_FILE if test 567 -ne `wc -c <'pvm2.4/f2c/nulfix.h'`; then echo shar: \"'pvm2.4/f2c/nulfix.h'\" unpacked with wrong size! fi # end of 'pvm2.4/f2c/nulfix.h' fi if test ! -d 'pvm2.4/fort_examp' ; then echo shar: Creating directory \"'pvm2.4/fort_examp'\" mkdir 'pvm2.4/fort_examp' fi if test ! -d 'pvm2.4/fort_examp/CRAY' ; then echo shar: Creating directory \"'pvm2.4/fort_examp/CRAY'\" mkdir 'pvm2.4/fort_examp/CRAY' fi if test -f 'pvm2.4/fort_examp/CRAY/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/CRAY/Makefile'\" else echo shar: Extracting \"'pvm2.4/fort_examp/CRAY/Makefile'\" \(577 characters\) sed "s/^X//" >'pvm2.4/fort_examp/CRAY/Makefile' <<'END_OF_FILE' X# ARCH = CRAY XF77 = cf77 X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc IDIR = $(SDIR)/../$(ARCH) PLIB = $(SDIR)/../src/$(ARCH)/libpvm.a PFLIB = $(SDIR)/../libfpvm/$(ARCH)/libfpvm.a X XFFLAGS = -O X all: fhost node X fhost: $(SDIR)/fhost.f X $(F77) $(FFLAGS) -o fhost $(SDIR)/fhost.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv fhost $(IDIR) X node: $(SDIR)/node.f X $(F77) $(FFLAGS) -o node $(SDIR)/node.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv node $(IDIR) X END_OF_FILE if test 577 -ne `wc -c <'pvm2.4/fort_examp/CRAY/Makefile'`; then echo shar: \"'pvm2.4/fort_examp/CRAY/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/CRAY/Makefile' fi if test ! -d 'pvm2.4/fort_examp/HP9K' ; then echo shar: Creating directory \"'pvm2.4/fort_examp/HP9K'\" mkdir 'pvm2.4/fort_examp/HP9K' fi if test -f 'pvm2.4/fort_examp/HP9K/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/HP9K/Makefile'\" else echo shar: Extracting \"'pvm2.4/fort_examp/HP9K/Makefile'\" \(576 characters\) sed "s/^X//" >'pvm2.4/fort_examp/HP9K/Makefile' <<'END_OF_FILE' X# ARCH = HP9K XF77 = f77 X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc IDIR = $(SDIR)/../$(ARCH) PLIB = $(SDIR)/../src/$(ARCH)/libpvm.a PFLIB = $(SDIR)/../libfpvm/$(ARCH)/libfpvm.a X XFFLAGS = -O X all: fhost node X fhost: $(SDIR)/fhost.f X $(F77) $(FFLAGS) -o fhost $(SDIR)/fhost.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv fhost $(IDIR) X node: $(SDIR)/node.f X $(F77) $(FFLAGS) -o node $(SDIR)/node.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv node $(IDIR) X END_OF_FILE if test 576 -ne `wc -c <'pvm2.4/fort_examp/HP9K/Makefile'`; then echo shar: \"'pvm2.4/fort_examp/HP9K/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/HP9K/Makefile' fi if test -f 'pvm2.4/fort_examp/Makefile.body' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/Makefile.body'\" else echo shar: Extracting \"'pvm2.4/fort_examp/Makefile.body'\" \(499 characters\) sed "s/^X//" >'pvm2.4/fort_examp/Makefile.body' <<'END_OF_FILE' X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc IDIR = $(SDIR)/../$(ARCH) PLIB = $(SDIR)/../src/$(ARCH)/libpvm.a PFLIB = $(SDIR)/../libfpvm/$(ARCH)/libfpvm.a X XFFLAGS = -O X all: fhost node X fhost: $(SDIR)/fhost.f X $(F77) $(FFLAGS) -o fhost $(SDIR)/fhost.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv fhost $(IDIR) X node: $(SDIR)/node.f X $(F77) $(FFLAGS) -o node $(SDIR)/node.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv node $(IDIR) X END_OF_FILE if test 499 -ne `wc -c <'pvm2.4/fort_examp/Makefile.body'`; then echo shar: \"'pvm2.4/fort_examp/Makefile.body'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/Makefile.body' fi if test ! -d 'pvm2.4/fort_examp/PMAX' ; then echo shar: Creating directory \"'pvm2.4/fort_examp/PMAX'\" mkdir 'pvm2.4/fort_examp/PMAX' fi if test -f 'pvm2.4/fort_examp/PMAX/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/PMAX/Makefile'\" else echo shar: Extracting \"'pvm2.4/fort_examp/PMAX/Makefile'\" \(576 characters\) sed "s/^X//" >'pvm2.4/fort_examp/PMAX/Makefile' <<'END_OF_FILE' X# ARCH = PMAX XF77 = f77 X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc IDIR = $(SDIR)/../$(ARCH) PLIB = $(SDIR)/../src/$(ARCH)/libpvm.a PFLIB = $(SDIR)/../libfpvm/$(ARCH)/libfpvm.a X XFFLAGS = -O X all: fhost node X fhost: $(SDIR)/fhost.f X $(F77) $(FFLAGS) -o fhost $(SDIR)/fhost.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv fhost $(IDIR) X node: $(SDIR)/node.f X $(F77) $(FFLAGS) -o node $(SDIR)/node.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv node $(IDIR) X END_OF_FILE if test 576 -ne `wc -c <'pvm2.4/fort_examp/PMAX/Makefile'`; then echo shar: \"'pvm2.4/fort_examp/PMAX/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/PMAX/Makefile' fi if test ! -d 'pvm2.4/fort_examp/RIOS' ; then echo shar: Creating directory \"'pvm2.4/fort_examp/RIOS'\" mkdir 'pvm2.4/fort_examp/RIOS' fi if test -f 'pvm2.4/fort_examp/RIOS/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/RIOS/Makefile'\" else echo shar: Extracting \"'pvm2.4/fort_examp/RIOS/Makefile'\" \(576 characters\) sed "s/^X//" >'pvm2.4/fort_examp/RIOS/Makefile' <<'END_OF_FILE' X# ARCH = RIOS XF77 = xlf X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc IDIR = $(SDIR)/../$(ARCH) PLIB = $(SDIR)/../src/$(ARCH)/libpvm.a PFLIB = $(SDIR)/../libfpvm/$(ARCH)/libfpvm.a X XFFLAGS = -O X all: fhost node X fhost: $(SDIR)/fhost.f X $(F77) $(FFLAGS) -o fhost $(SDIR)/fhost.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv fhost $(IDIR) X node: $(SDIR)/node.f X $(F77) $(FFLAGS) -o node $(SDIR)/node.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv node $(IDIR) X END_OF_FILE if test 576 -ne `wc -c <'pvm2.4/fort_examp/RIOS/Makefile'`; then echo shar: \"'pvm2.4/fort_examp/RIOS/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/RIOS/Makefile' fi if test ! -d 'pvm2.4/fort_examp/RT' ; then echo shar: Creating directory \"'pvm2.4/fort_examp/RT'\" mkdir 'pvm2.4/fort_examp/RT' fi if test -f 'pvm2.4/fort_examp/RT/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/RT/Makefile'\" else echo shar: Extracting \"'pvm2.4/fort_examp/RT/Makefile'\" \(574 characters\) sed "s/^X//" >'pvm2.4/fort_examp/RT/Makefile' <<'END_OF_FILE' X# ARCH = RT XF77 = f77 X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc IDIR = $(SDIR)/../$(ARCH) PLIB = $(SDIR)/../src/$(ARCH)/libpvm.a PFLIB = $(SDIR)/../libfpvm/$(ARCH)/libfpvm.a X XFFLAGS = -O X all: fhost node X fhost: $(SDIR)/fhost.f X $(F77) $(FFLAGS) -o fhost $(SDIR)/fhost.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv fhost $(IDIR) X node: $(SDIR)/node.f X $(F77) $(FFLAGS) -o node $(SDIR)/node.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv node $(IDIR) X END_OF_FILE if test 574 -ne `wc -c <'pvm2.4/fort_examp/RT/Makefile'`; then echo shar: \"'pvm2.4/fort_examp/RT/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/RT/Makefile' fi if test -f 'pvm2.4/fort_examp/Readme' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/Readme'\" else echo shar: Extracting \"'pvm2.4/fort_examp/Readme'\" \(185 characters\) sed "s/^X//" >'pvm2.4/fort_examp/Readme' <<'END_OF_FILE' X Readme file for Fortran examples X8 Sep 1991 X X________________________________________________________________________ X This directory contains example PVM fortran codes and makefile. X END_OF_FILE if test 185 -ne `wc -c <'pvm2.4/fort_examp/Readme'`; then echo shar: \"'pvm2.4/fort_examp/Readme'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/Readme' fi if test ! -d 'pvm2.4/fort_examp/SGI' ; then echo shar: Creating directory \"'pvm2.4/fort_examp/SGI'\" mkdir 'pvm2.4/fort_examp/SGI' fi if test -f 'pvm2.4/fort_examp/SGI/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/SGI/Makefile'\" else echo shar: Extracting \"'pvm2.4/fort_examp/SGI/Makefile'\" \(575 characters\) sed "s/^X//" >'pvm2.4/fort_examp/SGI/Makefile' <<'END_OF_FILE' X# ARCH = SGI XF77 = f77 X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc IDIR = $(SDIR)/../$(ARCH) PLIB = $(SDIR)/../src/$(ARCH)/libpvm.a PFLIB = $(SDIR)/../libfpvm/$(ARCH)/libfpvm.a X XFFLAGS = -O X all: fhost node X fhost: $(SDIR)/fhost.f X $(F77) $(FFLAGS) -o fhost $(SDIR)/fhost.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv fhost $(IDIR) X node: $(SDIR)/node.f X $(F77) $(FFLAGS) -o node $(SDIR)/node.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv node $(IDIR) X END_OF_FILE if test 575 -ne `wc -c <'pvm2.4/fort_examp/SGI/Makefile'`; then echo shar: \"'pvm2.4/fort_examp/SGI/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/SGI/Makefile' fi if test ! -d 'pvm2.4/fort_examp/SUN3' ; then echo shar: Creating directory \"'pvm2.4/fort_examp/SUN3'\" mkdir 'pvm2.4/fort_examp/SUN3' fi if test -f 'pvm2.4/fort_examp/SUN3/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/SUN3/Makefile'\" else echo shar: Extracting \"'pvm2.4/fort_examp/SUN3/Makefile'\" \(576 characters\) sed "s/^X//" >'pvm2.4/fort_examp/SUN3/Makefile' <<'END_OF_FILE' X# ARCH = SUN3 XF77 = f77 X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc IDIR = $(SDIR)/../$(ARCH) PLIB = $(SDIR)/../src/$(ARCH)/libpvm.a PFLIB = $(SDIR)/../libfpvm/$(ARCH)/libfpvm.a X XFFLAGS = -O X all: fhost node X fhost: $(SDIR)/fhost.f X $(F77) $(FFLAGS) -o fhost $(SDIR)/fhost.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv fhost $(IDIR) X node: $(SDIR)/node.f X $(F77) $(FFLAGS) -o node $(SDIR)/node.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv node $(IDIR) X END_OF_FILE if test 576 -ne `wc -c <'pvm2.4/fort_examp/SUN3/Makefile'`; then echo shar: \"'pvm2.4/fort_examp/SUN3/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/SUN3/Makefile' fi if test ! -d 'pvm2.4/fort_examp/SUN4' ; then echo shar: Creating directory \"'pvm2.4/fort_examp/SUN4'\" mkdir 'pvm2.4/fort_examp/SUN4' fi if test -f 'pvm2.4/fort_examp/SUN4/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/SUN4/Makefile'\" else echo shar: Extracting \"'pvm2.4/fort_examp/SUN4/Makefile'\" \(576 characters\) sed "s/^X//" >'pvm2.4/fort_examp/SUN4/Makefile' <<'END_OF_FILE' X# ARCH = SUN4 XF77 = f77 X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc IDIR = $(SDIR)/../$(ARCH) PLIB = $(SDIR)/../src/$(ARCH)/libpvm.a PFLIB = $(SDIR)/../libfpvm/$(ARCH)/libfpvm.a X XFFLAGS = -O X all: fhost node X fhost: $(SDIR)/fhost.f X $(F77) $(FFLAGS) -o fhost $(SDIR)/fhost.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv fhost $(IDIR) X node: $(SDIR)/node.f X $(F77) $(FFLAGS) -o node $(SDIR)/node.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv node $(IDIR) X END_OF_FILE if test 576 -ne `wc -c <'pvm2.4/fort_examp/SUN4/Makefile'`; then echo shar: \"'pvm2.4/fort_examp/SUN4/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/SUN4/Makefile' fi if test ! -d 'pvm2.4/fort_examp/SYMM' ; then echo shar: Creating directory \"'pvm2.4/fort_examp/SYMM'\" mkdir 'pvm2.4/fort_examp/SYMM' fi if test -f 'pvm2.4/fort_examp/SYMM/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/SYMM/Makefile'\" else echo shar: Extracting \"'pvm2.4/fort_examp/SYMM/Makefile'\" \(580 characters\) sed "s/^X//" >'pvm2.4/fort_examp/SYMM/Makefile' <<'END_OF_FILE' X# ARCH = SYMM XF77 = fortran X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc IDIR = $(SDIR)/../$(ARCH) PLIB = $(SDIR)/../src/$(ARCH)/libpvm.a PFLIB = $(SDIR)/../libfpvm/$(ARCH)/libfpvm.a X XFFLAGS = -O X all: fhost node X fhost: $(SDIR)/fhost.f X $(F77) $(FFLAGS) -o fhost $(SDIR)/fhost.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv fhost $(IDIR) X node: $(SDIR)/node.f X $(F77) $(FFLAGS) -o node $(SDIR)/node.f $(PFLIB) $(PLIB) $(PVMLFLAGS) X mv node $(IDIR) X END_OF_FILE if test 580 -ne `wc -c <'pvm2.4/fort_examp/SYMM/Makefile'`; then echo shar: \"'pvm2.4/fort_examp/SYMM/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/SYMM/Makefile' fi if test ! -d 'pvm2.4/fort_examp/TITN' ; then echo shar: Creating directory \"'pvm2.4/fort_examp/TITN'\" mkdir 'pvm2.4/fort_examp/TITN' fi if test -f 'pvm2.4/fort_examp/TITN/fhost.f' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/TITN/fhost.f'\" else echo shar: Extracting \"'pvm2.4/fort_examp/TITN/fhost.f'\" \(1996 characters\) sed "s/^X//" >'pvm2.4/fort_examp/TITN/fhost.f' <<'END_OF_FILE' X program fhost c --------------------------------------------------------- c Example fortran program illustrating the use of PVM c --------------------------------------------------------- X integer i, info, nproc, msgtype, mynum, inst(32) X integer instance, lth X double precision result(32), data(100) X character*12 nodename X character*8 arch X c ------------ Starting up all the tasks --------------------------- X c Enroll this program in PVM X call fenroll( 'fhost', mynum ) X if( mynum .lt. 0 ) then X print *,'failure in fenroll on host' X stop X endif X c Initiate nproc instances of node program X print *,'How many node programs (1-32)?' X read *, nproc c c If arch is set to '*' then ANY configured machine is acceptable c otherwise arch should be set to architecture type you wish to use. X arch = '*' X X do 10 i=1,nproc X call finitiate( 'node', arch, inst(i) ) X if( inst(i) .lt. 0 ) then X print *,'failure in finitiate at instance',i X stop X endif X 10 continue X c ------- Begin user program -------- X X n = 10 c Initiate data array X do 20 i=1,n X data(i) = 1 X 20 continue X c broadcast data to all node programs by using instance= -1 in fsnd X call finitsend() X call fputnint( n, 1, info ) X call fputnint( nproc, 1, info ) X call fputndfloat( data, n, info ) X msgtype = 1 X call fsnd( 'node', -1, msgtype, info ) X X c wait for results from nodes X msgtype = 2 X do 30 i=1,nproc X call frcv( msgtype, info ) X call fgetndfloat( result(i), 1, info ) X c Print result from node X call frcvinfo( lth, msgtype, nodename, instance, info) X print *,'result from node ',instance,' is ',result(i) X 30 continue X X c --------- End user program -------- X c program finished leave PVM before exiting X call fleave() X stop X end END_OF_FILE if test 1996 -ne `wc -c <'pvm2.4/fort_examp/TITN/fhost.f'`; then echo shar: \"'pvm2.4/fort_examp/TITN/fhost.f'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/TITN/fhost.f' fi if test -f 'pvm2.4/fort_examp/TITN/makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/TITN/makefile'\" else echo shar: Extracting \"'pvm2.4/fort_examp/TITN/makefile'\" \(534 characters\) sed "s/^X//" >'pvm2.4/fort_examp/TITN/makefile' <<'END_OF_FILE' X# ARCH = TITN XF77 = fc X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = . CC = cc IDIR = ../../$(ARCH) PLIB = ../../src/$(ARCH)/libpvm.a PFLIB = ../../libfpvm/$(ARCH)/libfpvm.a X XFFLAGS = -O X all: fhost node X fhost: $(SDIR)/fhost.f X $(F77) $(FFLAGS) -o fhost $(SDIR)/fhost.f $(PFLIB) $(PLIB) X mv fhost $(IDIR) X node: $(SDIR)/node.f X $(F77) $(FFLAGS) -o node $(SDIR)/node.f $(PFLIB) $(PLIB) X mv node $(IDIR) X END_OF_FILE if test 534 -ne `wc -c <'pvm2.4/fort_examp/TITN/makefile'`; then echo shar: \"'pvm2.4/fort_examp/TITN/makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/TITN/makefile' fi if test -f 'pvm2.4/fort_examp/TITN/node.f' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/TITN/node.f'\" else echo shar: Extracting \"'pvm2.4/fort_examp/TITN/node.f'\" \(1985 characters\) sed "s/^X//" >'pvm2.4/fort_examp/TITN/node.f' <<'END_OF_FILE' X program node c ------------------------------------------------------ c Example fortran program illustrating use of PVM calls c ------------------------------------------------------ X integer info, mynum, hostnum, bytes, msgtype X double precision result, data(100) X double precision work X character*16 host X c Enroll this program in PVM X call fenroll( 'node', mynum ) X if( mynum .lt. 0) then X print *,'failure in fenroll on node' X stop X endif X c ------- Begin user program -------- X c Receive data from host X msgtype = 1 X call frcv( msgtype, info ) X call fgetnint( n, 1, info ) X call fgetnint( nproc, 1, info ) X call fgetndfloat( data, n, info ) X call frcvinfo( bytes, msgtype, host, hostnum, info ) X c Do calculations with data X result = work( n, data, mynum, nproc ) X c Send result to host X call finitsend() X call fputndfloat( result, 1, info ) X msgtype = 2 X call fsnd( 'fhost', hostnum, msgtype, info ) X c --------- End user program -------- X c Program finished. Leave PVM before exiting X call fleave() X stop X end X X double precision function work( n, data, me, nproc ) c -------------------------------------- c Just a simple routine for illustration c -------------------------------------- X double precision data(*), sum, psum X integer i, n, me, inum X X sum = 0.0 X do 10 i=1,n X sum = sum + me * data(i) X 10 continue c ---------------------------------------- c Pass partial result to neighboring node c to illustrate node-to-node communication c ---------------------------------------- X call finitsend() X call fputndfloat(sum, 1, info) X inum = me+1 X if( inum .eq. nproc ) inum = 0 X call fsnd( 'node', inum, 77, info ) X call frcv( 77, info ) X call fgetndfloat(psum, 1, info) X X work = sum + psum X return X end END_OF_FILE if test 1985 -ne `wc -c <'pvm2.4/fort_examp/TITN/node.f'`; then echo shar: \"'pvm2.4/fort_examp/TITN/node.f'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/TITN/node.f' fi if test -f 'pvm2.4/fort_examp/fhost.f' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/fhost.f'\" else echo shar: Extracting \"'pvm2.4/fort_examp/fhost.f'\" \(1996 characters\) sed "s/^X//" >'pvm2.4/fort_examp/fhost.f' <<'END_OF_FILE' X program fhost c --------------------------------------------------------- c Example fortran program illustrating the use of PVM c --------------------------------------------------------- X integer i, info, nproc, msgtype, mynum, inst(32) X integer instance, lth X double precision result(32), data(100) X character*12 nodename X character*8 arch X c ------------ Starting up all the tasks --------------------------- X c Enroll this program in PVM X call fenroll( "fhost", mynum ) X if( mynum .lt. 0 ) then X print *,'failure in fenroll on host' X stop X endif X c Initiate nproc instances of node program X print *,'How many node programs (1-32)?' X read *, nproc c c If arch is set to "*" then ANY configured machine is acceptable c otherwise arch should be set to architecture type you wish to use. X arch = "*" X X do 10 i=1,nproc X call finitiate( "node", arch, inst(i) ) X if( inst(i) .lt. 0 ) then X print *,'failure in finitiate at instance',i X stop X endif X 10 continue X c ------- Begin user program -------- X X n = 10 c Initiate data array X do 20 i=1,n X data(i) = 1 X 20 continue X c broadcast data to all node programs by using instance= -1 in fsnd X call finitsend() X call fputnint( n, 1, info ) X call fputnint( nproc, 1, info ) X call fputndfloat( data, n, info ) X msgtype = 1 X call fsnd( "node", -1, msgtype, info ) X X c wait for results from nodes X msgtype = 2 X do 30 i=1,nproc X call frcv( msgtype, info ) X call fgetndfloat( result(i), 1, info ) X c Print result from node X call frcvinfo( lth, msgtype, nodename, instance, info) X print *,'result from node ',instance,' is ',result(i) X 30 continue X X c --------- End user program -------- X c program finished leave PVM before exiting X call fleave() X stop X end END_OF_FILE if test 1996 -ne `wc -c <'pvm2.4/fort_examp/fhost.f'`; then echo shar: \"'pvm2.4/fort_examp/fhost.f'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/fhost.f' fi if test -f 'pvm2.4/fort_examp/node.f' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/fort_examp/node.f'\" else echo shar: Extracting \"'pvm2.4/fort_examp/node.f'\" \(1985 characters\) sed "s/^X//" >'pvm2.4/fort_examp/node.f' <<'END_OF_FILE' X program node c ------------------------------------------------------ c Example fortran program illustrating use of PVM calls c ------------------------------------------------------ X integer info, mynum, hostnum, bytes, msgtype X double precision result, data(100) X double precision work X character*16 host X c Enroll this program in PVM X call fenroll( "node", mynum ) X if( mynum .lt. 0) then X print *,'failure in fenroll on node' X stop X endif X c ------- Begin user program -------- X c Receive data from host X msgtype = 1 X call frcv( msgtype, info ) X call fgetnint( n, 1, info ) X call fgetnint( nproc, 1, info ) X call fgetndfloat( data, n, info ) X call frcvinfo( bytes, msgtype, host, hostnum, info ) X c Do calculations with data X result = work( n, data, mynum, nproc ) X c Send result to host X call finitsend() X call fputndfloat( result, 1, info ) X msgtype = 2 X call fsnd( "fhost", hostnum, msgtype, info ) X c --------- End user program -------- X c Program finished. Leave PVM before exiting X call fleave() X stop X end X X double precision function work( n, data, me, nproc ) c -------------------------------------- c Just a simple routine for illustration c -------------------------------------- X double precision data(*), sum, psum X integer i, n, me, inum X X sum = 0.0 X do 10 i=1,n X sum = sum + me * data(i) X 10 continue c ---------------------------------------- c Pass partial result to neighboring node c to illustrate node-to-node communication c ---------------------------------------- X call finitsend() X call fputndfloat(sum, 1, info) X inum = me+1 X if( inum .eq. nproc ) inum = 0 X call fsnd( "node", inum, 77, info ) X call frcv( 77, info ) X call fgetndfloat(psum, 1, info) X X work = sum + psum X return X end END_OF_FILE if test 1985 -ne `wc -c <'pvm2.4/fort_examp/node.f'`; then echo shar: \"'pvm2.4/fort_examp/node.f'\" unpacked with wrong size! fi # end of 'pvm2.4/fort_examp/node.f' fi if test ! -d 'pvm2.4/libfpvm' ; then echo shar: Creating directory \"'pvm2.4/libfpvm'\" mkdir 'pvm2.4/libfpvm' fi if test ! -d 'pvm2.4/libfpvm/BALANCE' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/BALANCE'\" mkdir 'pvm2.4/libfpvm/BALANCE' fi if test -f 'pvm2.4/libfpvm/BALANCE/BALANCE.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/BALANCE/BALANCE.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/BALANCE/BALANCE.m4'\" \(606 characters\) sed "s/^X//" >'pvm2.4/libfpvm/BALANCE/BALANCE.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# the Sequent appends an underscore to FORTRAN function names X# define(`FUNCTION',`$1_') X# X# FORTRAN character strings on the Sequent are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 606 -ne `wc -c <'pvm2.4/libfpvm/BALANCE/BALANCE.m4'`; then echo shar: \"'pvm2.4/libfpvm/BALANCE/BALANCE.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/BALANCE/BALANCE.m4' fi if test -f 'pvm2.4/libfpvm/BALANCE/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/BALANCE/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/BALANCE/Makefile'\" \(7492 characters\) sed "s/^X//" >'pvm2.4/libfpvm/BALANCE/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/Sequent Balance X# ARCH = BALANCE ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7492 -ne `wc -c <'pvm2.4/libfpvm/BALANCE/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/BALANCE/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/BALANCE/Makefile' fi if test ! -d 'pvm2.4/libfpvm/CRAY' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/CRAY'\" mkdir 'pvm2.4/libfpvm/CRAY' fi if test -f 'pvm2.4/libfpvm/CRAY/CRAY.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/CRAY/CRAY.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/CRAY/CRAY.m4'\" \(297 characters\) sed "s/^X//" >'pvm2.4/libfpvm/CRAY/CRAY.m4' <<'END_OF_FILE' X#include X undefine(`len') define(`FUNCTION',`translit($1,abcdefghijklmnopqrstuvwxyz,ABCDEFGHIJKLMNOPQRSTUVWXYZ)') define(`STRING_ARG',`$1_fcd') define(`STRING_ARG_DECL',`_fcd $1_fcd') define(`STRING_LEN',`_fcdlen($1_fcd)') define(`STRING_PTR',`_fcdtocp($1_fcd)') define(`ARGS',`($1)') END_OF_FILE if test 297 -ne `wc -c <'pvm2.4/libfpvm/CRAY/CRAY.m4'`; then echo shar: \"'pvm2.4/libfpvm/CRAY/CRAY.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/CRAY/CRAY.m4' fi if test -f 'pvm2.4/libfpvm/CRAY/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/CRAY/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/CRAY/Makefile'\" \(7454 characters\) sed "s/^X//" >'pvm2.4/libfpvm/CRAY/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/Cray X# ARCH = CRAY ARCHCFLAGS = HASRANLIB = f X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7454 -ne `wc -c <'pvm2.4/libfpvm/CRAY/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/CRAY/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/CRAY/Makefile' fi if test ! -d 'pvm2.4/libfpvm/HP9K' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/HP9K'\" mkdir 'pvm2.4/libfpvm/HP9K' fi if test -f 'pvm2.4/libfpvm/HP9K/HP9K.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/HP9K/HP9K.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/HP9K/HP9K.m4'\" \(590 characters\) sed "s/^X//" >'pvm2.4/libfpvm/HP9K/HP9K.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# the HP Snake does nothing special to FORTRAN function names X# define(`FUNCTION',`$1') X# X# FORTRAN character strings are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 590 -ne `wc -c <'pvm2.4/libfpvm/HP9K/HP9K.m4'`; then echo shar: \"'pvm2.4/libfpvm/HP9K/HP9K.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/HP9K/HP9K.m4' fi if test -f 'pvm2.4/libfpvm/HP9K/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/HP9K/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/HP9K/Makefile'\" \(7482 characters\) sed "s/^X//" >'pvm2.4/libfpvm/HP9K/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/HP Snake X# ARCH = HP9K ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = f X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7482 -ne `wc -c <'pvm2.4/libfpvm/HP9K/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/HP9K/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/HP9K/Makefile' fi if test ! -d 'pvm2.4/libfpvm/I860' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/I860'\" mkdir 'pvm2.4/libfpvm/I860' fi if test -f 'pvm2.4/libfpvm/I860/I860.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/I860/I860.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/I860/I860.m4'\" \(600 characters\) sed "s/^X//" >'pvm2.4/libfpvm/I860/I860.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# the I860 appends an underscore to FORTRAN function names X# define(`FUNCTION',`$1_') X# X# FORTRAN character strings on the PMAX are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 600 -ne `wc -c <'pvm2.4/libfpvm/I860/I860.m4'`; then echo shar: \"'pvm2.4/libfpvm/I860/I860.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/I860/I860.m4' fi if test -f 'pvm2.4/libfpvm/I860/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/I860/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/I860/Makefile'\" \(7459 characters\) sed "s/^X//" >'pvm2.4/libfpvm/I860/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/Intel 860 X# ARCH = I860 ARCHCFLAGS = HASRANLIB = f X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7459 -ne `wc -c <'pvm2.4/libfpvm/I860/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/I860/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/I860/Makefile' fi if test -f 'pvm2.4/libfpvm/Makefile.body' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/Makefile.body'\" else echo shar: Extracting \"'pvm2.4/libfpvm/Makefile.body'\" \(7227 characters\) sed "s/^X//" >'pvm2.4/libfpvm/Makefile.body' <<'END_OF_FILE' X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7227 -ne `wc -c <'pvm2.4/libfpvm/Makefile.body'`; then echo shar: \"'pvm2.4/libfpvm/Makefile.body'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/Makefile.body' fi if test -f 'pvm2.4/libfpvm/Makefile.custom' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/Makefile.custom'\" else echo shar: Extracting \"'pvm2.4/libfpvm/Makefile.custom'\" \(238 characters\) sed "s/^X//" >'pvm2.4/libfpvm/Makefile.custom' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/ X# ARCH = UNKNOWN ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here END_OF_FILE if test 238 -ne `wc -c <'pvm2.4/libfpvm/Makefile.custom'`; then echo shar: \"'pvm2.4/libfpvm/Makefile.custom'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/Makefile.custom' fi if test ! -d 'pvm2.4/libfpvm/NEXT' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/NEXT'\" mkdir 'pvm2.4/libfpvm/NEXT' fi if test -f 'pvm2.4/libfpvm/NEXT/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/NEXT/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/NEXT/Makefile'\" \(7478 characters\) sed "s/^X//" >'pvm2.4/libfpvm/NEXT/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/NeXT X# ARCH = NEXT ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7478 -ne `wc -c <'pvm2.4/libfpvm/NEXT/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/NEXT/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/NEXT/Makefile' fi if test -f 'pvm2.4/libfpvm/NEXT/NEXT.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/NEXT/NEXT.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/NEXT/NEXT.m4'\" \(602 characters\) sed "s/^X//" >'pvm2.4/libfpvm/NEXT/NEXT.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# the NeXT does nothing special to FORTRAN function names X# define(`FUNCTION',`$1') X# X# FORTRAN character strings are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# XXX I hope... X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 602 -ne `wc -c <'pvm2.4/libfpvm/NEXT/NEXT.m4'`; then echo shar: \"'pvm2.4/libfpvm/NEXT/NEXT.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/NEXT/NEXT.m4' fi if test ! -d 'pvm2.4/libfpvm/PMAX' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/PMAX'\" mkdir 'pvm2.4/libfpvm/PMAX' fi if test -f 'pvm2.4/libfpvm/PMAX/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/PMAX/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/PMAX/Makefile'\" \(7458 characters\) sed "s/^X//" >'pvm2.4/libfpvm/PMAX/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/Dec Pmax X# ARCH = PMAX ARCHCFLAGS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7458 -ne `wc -c <'pvm2.4/libfpvm/PMAX/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/PMAX/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/PMAX/Makefile' fi if test -f 'pvm2.4/libfpvm/PMAX/PMAX.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/PMAX/PMAX.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/PMAX/PMAX.m4'\" \(600 characters\) sed "s/^X//" >'pvm2.4/libfpvm/PMAX/PMAX.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# the PMAX appends an underscore to FORTRAN function names X# define(`FUNCTION',`$1_') X# X# FORTRAN character strings on the PMAX are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 600 -ne `wc -c <'pvm2.4/libfpvm/PMAX/PMAX.m4'`; then echo shar: \"'pvm2.4/libfpvm/PMAX/PMAX.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/PMAX/PMAX.m4' fi if test ! -d 'pvm2.4/libfpvm/RIOS' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/RIOS'\" mkdir 'pvm2.4/libfpvm/RIOS' fi if test -f 'pvm2.4/libfpvm/RIOS/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/RIOS/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/RIOS/Makefile'\" \(7460 characters\) sed "s/^X//" >'pvm2.4/libfpvm/RIOS/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/IBM RS6000 X# ARCH = RIOS ARCHCFLAGS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7460 -ne `wc -c <'pvm2.4/libfpvm/RIOS/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/RIOS/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/RIOS/Makefile' fi if test -f 'pvm2.4/libfpvm/RIOS/RIOS.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/RIOS/RIOS.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/RIOS/RIOS.m4'\" \(605 characters\) sed "s/^X//" >'pvm2.4/libfpvm/RIOS/RIOS.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# on the RIOS, nothing special is done to FORTRAN function names X# define(`FUNCTION',`$1') X# X# FORTRAN character strings on the RIOS are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 605 -ne `wc -c <'pvm2.4/libfpvm/RIOS/RIOS.m4'`; then echo shar: \"'pvm2.4/libfpvm/RIOS/RIOS.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/RIOS/RIOS.m4' fi if test ! -d 'pvm2.4/libfpvm/RT' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/RT'\" mkdir 'pvm2.4/libfpvm/RT' fi if test -f 'pvm2.4/libfpvm/RT/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/RT/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/RT/Makefile'\" \(7478 characters\) sed "s/^X//" >'pvm2.4/libfpvm/RT/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/IBM RT X# ARCH = RT ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7478 -ne `wc -c <'pvm2.4/libfpvm/RT/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/RT/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/RT/Makefile' fi if test -f 'pvm2.4/libfpvm/RT/RT.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/RT/RT.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/RT/RT.m4'\" \(596 characters\) sed "s/^X//" >'pvm2.4/libfpvm/RT/RT.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# the RT appends an underscore to FORTRAN function names X# define(`FUNCTION',`$1_') X# X# FORTRAN character strings on the RT are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 596 -ne `wc -c <'pvm2.4/libfpvm/RT/RT.m4'`; then echo shar: \"'pvm2.4/libfpvm/RT/RT.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/RT/RT.m4' fi if test -f 'pvm2.4/libfpvm/Readme' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/Readme'\" else echo shar: Extracting \"'pvm2.4/libfpvm/Readme'\" \(1384 characters\) sed "s/^X//" >'pvm2.4/libfpvm/Readme' <<'END_OF_FILE' X XFORTRAN interface for PVM X01 Oct 1992 X X________________________________________________________________________ This directory contains source for a FORTRAN interface library to PVM. To build the library, run 'aimk' in this directory. This should build ARCH/libfpvm.a, where ARCH is the PVM name for the machine class. X To use libfpvm, compile and link your fortran program with it and the C library, libpvm, for example: X X f77 -o foo foo.f ../libfpvm/ARCH/libfpvm.a ../src/ARCH/libpvm.a X XFORTRAN routines have (mostly) the same names as the C routines, with a leading 'f'. They are called as subroutines and so have an extra arg for the return value. X XFor example, the C send call is: X int cc = snd(proc, instance, msgid) X and the FORTRAN one is: X call fsnd(proc, instance, msgid, icc) X The following table gives the appropriate names for the most common mapping of FORTRAN data types into PVM pack/unpack calls: X X fortran name put, get... X ____________ __________ X LOGICAL int X CHARACTER string, bytes X INTEGER int X INTEGER*2 short X REAL float X REAL*8 dfloat [1] X COMPLEX cplx X COMPLEX*16 dcplx [1] X X[1] On Crays, C reals, C doubles, and Fortran reals are the same size X so I guess you can't pack Fortran doubles. X END_OF_FILE if test 1384 -ne `wc -c <'pvm2.4/libfpvm/Readme'`; then echo shar: \"'pvm2.4/libfpvm/Readme'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/Readme' fi if test ! -d 'pvm2.4/libfpvm/SGI' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/SGI'\" mkdir 'pvm2.4/libfpvm/SGI' fi if test -f 'pvm2.4/libfpvm/SGI/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/SGI/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/SGI/Makefile'\" \(7457 characters\) sed "s/^X//" >'pvm2.4/libfpvm/SGI/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/Dec Pmax X# ARCH = SGI ARCHCFLAGS = HASRANLIB = f X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7457 -ne `wc -c <'pvm2.4/libfpvm/SGI/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/SGI/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/SGI/Makefile' fi if test -f 'pvm2.4/libfpvm/SGI/SGI.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/SGI/SGI.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/SGI/SGI.m4'\" \(598 characters\) sed "s/^X//" >'pvm2.4/libfpvm/SGI/SGI.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# the SGI appends an underscore to FORTRAN function names X# define(`FUNCTION',`$1_') X# X# FORTRAN character strings on the SGI are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 598 -ne `wc -c <'pvm2.4/libfpvm/SGI/SGI.m4'`; then echo shar: \"'pvm2.4/libfpvm/SGI/SGI.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/SGI/SGI.m4' fi if test ! -d 'pvm2.4/libfpvm/SUN3' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/SUN3'\" mkdir 'pvm2.4/libfpvm/SUN3' fi if test -f 'pvm2.4/libfpvm/SUN3/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/SUN3/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/SUN3/Makefile'\" \(7455 characters\) sed "s/^X//" >'pvm2.4/libfpvm/SUN3/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/Sun-3 X# ARCH = SUN3 ARCHCFLAGS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7455 -ne `wc -c <'pvm2.4/libfpvm/SUN3/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/SUN3/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/SUN3/Makefile' fi if test -f 'pvm2.4/libfpvm/SUN3/SUN3.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/SUN3/SUN3.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/SUN3/SUN3.m4'\" \(602 characters\) sed "s/^X//" >'pvm2.4/libfpvm/SUN3/SUN3.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# the SUN/3 appends an underscore to FORTRAN function names X# define(`FUNCTION',`$1_') X# X# FORTRAN character strings on the SUN/3 are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 602 -ne `wc -c <'pvm2.4/libfpvm/SUN3/SUN3.m4'`; then echo shar: \"'pvm2.4/libfpvm/SUN3/SUN3.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/SUN3/SUN3.m4' fi if test ! -d 'pvm2.4/libfpvm/SUN4' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/SUN4'\" mkdir 'pvm2.4/libfpvm/SUN4' fi if test -f 'pvm2.4/libfpvm/SUN4/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/SUN4/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/SUN4/Makefile'\" \(7468 characters\) sed "s/^X//" >'pvm2.4/libfpvm/SUN4/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/Sun-4, Sun-4c, etc X# ARCH = SUN4 ARCHCFLAGS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7468 -ne `wc -c <'pvm2.4/libfpvm/SUN4/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/SUN4/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/SUN4/Makefile' fi if test -f 'pvm2.4/libfpvm/SUN4/SUN4.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/SUN4/SUN4.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/SUN4/SUN4.m4'\" \(602 characters\) sed "s/^X//" >'pvm2.4/libfpvm/SUN4/SUN4.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# the SUN/4 appends an underscore to FORTRAN function names X# define(`FUNCTION',`$1_') X# X# FORTRAN character strings on the SUN/4 are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 602 -ne `wc -c <'pvm2.4/libfpvm/SUN4/SUN4.m4'`; then echo shar: \"'pvm2.4/libfpvm/SUN4/SUN4.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/SUN4/SUN4.m4' fi if test ! -d 'pvm2.4/libfpvm/SYMM' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/SYMM'\" mkdir 'pvm2.4/libfpvm/SYMM' fi if test -f 'pvm2.4/libfpvm/SYMM/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/SYMM/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/SYMM/Makefile'\" \(7490 characters\) sed "s/^X//" >'pvm2.4/libfpvm/SYMM/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/Sequent Symmetry X# ARCH = SYMM ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7490 -ne `wc -c <'pvm2.4/libfpvm/SYMM/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/SYMM/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/SYMM/Makefile' fi if test -f 'pvm2.4/libfpvm/SYMM/SYMM.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/SYMM/SYMM.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/SYMM/SYMM.m4'\" \(608 characters\) sed "s/^X//" >'pvm2.4/libfpvm/SYMM/SYMM.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# the SYMMETRY appends an underscore to FORTRAN function names X# define(`FUNCTION',`$1_') X# X# FORTRAN character strings on the SYMMETRY are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 608 -ne `wc -c <'pvm2.4/libfpvm/SYMM/SYMM.m4'`; then echo shar: \"'pvm2.4/libfpvm/SYMM/SYMM.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/SYMM/SYMM.m4' fi if test ! -d 'pvm2.4/libfpvm/TITN' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/TITN'\" mkdir 'pvm2.4/libfpvm/TITN' fi if test -f 'pvm2.4/libfpvm/TITN/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/TITN/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/TITN/Makefile'\" \(7488 characters\) sed "s/^X//" >'pvm2.4/libfpvm/TITN/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/Stardent Titan X# ARCH = TITN ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7488 -ne `wc -c <'pvm2.4/libfpvm/TITN/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/TITN/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/TITN/Makefile' fi if test -f 'pvm2.4/libfpvm/TITN/TITN.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/TITN/TITN.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/TITN/TITN.m4'\" \(540 characters\) sed "s/^X//" >'pvm2.4/libfpvm/TITN/TITN.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# function names on the Titan are always in upper case X# define(`FUNCTION',`translit($1,abcdefghijklmnopqrstuvwxyz,ABCDEFGHIJKLMNOPQRSTUVWXYZ)') X# X# The Titan uses a special string descriptor to pass strings in FORTRAN. X# The descriptor is passed by reference. X# divert(0) typedef struct { char *ptr; int length; } FSD; divert(-1) define(`STRING_ARG',`$1_fsd') define(`STRING_ARG_DECL',`FSD * $1_fsd') define(`STRING_LEN',`($1_fsd)->length') define(`STRING_PTR',`($1_fsd)->ptr') define(`ARGS',`($1)') divert(0) END_OF_FILE if test 540 -ne `wc -c <'pvm2.4/libfpvm/TITN/TITN.m4'`; then echo shar: \"'pvm2.4/libfpvm/TITN/TITN.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/TITN/TITN.m4' fi if test ! -d 'pvm2.4/libfpvm/U370' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/U370'\" mkdir 'pvm2.4/libfpvm/U370' fi if test -f 'pvm2.4/libfpvm/U370/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/U370/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/U370/Makefile'\" \(7481 characters\) sed "s/^X//" >'pvm2.4/libfpvm/U370/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/IBM 370 X# ARCH = U370 ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7481 -ne `wc -c <'pvm2.4/libfpvm/U370/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/U370/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/U370/Makefile' fi if test -f 'pvm2.4/libfpvm/U370/U370.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/U370/U370.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/U370/U370.m4'\" \(220 characters\) sed "s/^X//" >'pvm2.4/libfpvm/U370/U370.m4' <<'END_OF_FILE' undefine(`len') define(`FUNCTION',`$1_') define(`STRING_ARG',`$1_ptr, $1_len') define(`STRING_ARG_DECL',`char * $1_ptr, int * $1_len') define(`STRING_LEN',`(*$1_len)') define(`STRING_PTR',`$1_ptr') define(`ARGS',`($1)') END_OF_FILE if test 220 -ne `wc -c <'pvm2.4/libfpvm/U370/U370.m4'`; then echo shar: \"'pvm2.4/libfpvm/U370/U370.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/U370/U370.m4' fi if test ! -d 'pvm2.4/libfpvm/UVAX' ; then echo shar: Creating directory \"'pvm2.4/libfpvm/UVAX'\" mkdir 'pvm2.4/libfpvm/UVAX' fi if test -f 'pvm2.4/libfpvm/UVAX/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/UVAX/Makefile'\" else echo shar: Extracting \"'pvm2.4/libfpvm/UVAX/Makefile'\" \(7486 characters\) sed "s/^X//" >'pvm2.4/libfpvm/UVAX/Makefile' <<'END_OF_FILE' X# X# PVM 2.4 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM Fortran lib/Dec Microvax X# ARCH = UVAX ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# Generic half makefile for PVM Fortran lib. X# X# define architecture (eg. SUN4 SUN3 RIOS) X SHELL = /bin/sh SDIR = .. CC = cc CFLAGS = -g -D$(ARCH) -c $(ARCHCFLAGS) -I$(SDIR) -I../../src $(CDEBUGFLAGS) RM = rm -f M4 = m4 XFORTRAN=`case "$(FC)@$(F77)" in *@) echo $(FC) ;; @*) echo $(F77) ;; *) echo f77;; esac` X LOBS = fbarrier.o \ X fenroll.o \ X fgetbytes.o \ X fgetncplx.o \ X fgetndcplx.o \ X fgetndfloat.o \ X fgetnfloat.o \ X fgetnint.o \ X fgetnlong.o \ X fgetnshort.o \ X fgetstring.o \ X finithow.o \ X finitiate.o \ X finitiatem.o \ X finitsend.o \ X fleave.o \ X fprobe.o \ X fprobemulti.o \ X fpstatus.o \ X fputbytes.o \ X fputncplx.o \ X fputndcplx.o \ X fputndfloat.o \ X fputnfloat.o \ X fputnint.o \ X fputnlong.o \ X fputnshort.o \ X fputstring.o \ X fpvmperror.o \ X frcv.o \ X frcvinfo.o \ X frcvmulti.o \ X fready.o \ X fsnd.o \ X fstatus.o \ X fterminate.o \ X fwaituntil.o \ X fwhoami.o \ X fvrcv.o \ X fvrcvmulti.o \ X fvsnd.o \ X ftocstr.o X libfpvm.a: $(LOBS) X ar cr libfpvm.a $? X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libfpvm.a ;; esac X clean: X rm -f $(LOBS) libfpvm.a X tidy: X rm -f $(LOBS) X ftocstr.o: $(SDIR)/ftocstr.c X $(CC) $(CFLAGS) $(SDIR)/ftocstr.c fbarrier.o: $(SDIR)/fbarrier.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fbarrier.m4 > fbarrier.c X $(CC) $(CFLAGS) fbarrier.c X $(RM) fbarrier.c fenroll.o: $(SDIR)/fenroll.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fenroll.m4 > fenroll.c X $(CC) $(CFLAGS) fenroll.c X $(RM) fenroll.c fgetbytes.o: $(SDIR)/fgetbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetbytes.m4 > fgetbytes.c X $(CC) $(CFLAGS) fgetbytes.c X $(RM) fgetbytes.c fgetncplx.o: $(SDIR)/fgetncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetncplx.m4 > fgetncplx.c X $(CC) $(CFLAGS) fgetncplx.c X $(RM) fgetncplx.c fgetndcplx.o: $(SDIR)/fgetndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndcplx.m4 > fgetndcplx.c X $(CC) $(CFLAGS) fgetndcplx.c X $(RM) fgetndcplx.c fgetndfloat.o: $(SDIR)/fgetndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetndfloat.m4 > fgetndfloat.c X $(CC) $(CFLAGS) fgetndfloat.c X $(RM) fgetndfloat.c fgetnfloat.o: $(SDIR)/fgetnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnfloat.m4 > fgetnfloat.c X $(CC) $(CFLAGS) fgetnfloat.c X $(RM) fgetnfloat.c fgetnint.o: $(SDIR)/fgetnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnint.m4 > fgetnint.c X $(CC) $(CFLAGS) fgetnint.c X $(RM) fgetnint.c fgetnlong.o: $(SDIR)/fgetnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnlong.m4 > fgetnlong.c X $(CC) $(CFLAGS) fgetnlong.c X $(RM) fgetnlong.c fgetnshort.o: $(SDIR)/fgetnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetnshort.m4 > fgetnshort.c X $(CC) $(CFLAGS) fgetnshort.c X $(RM) fgetnshort.c fgetstring.o: $(SDIR)/fgetstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fgetstring.m4 > fgetstring.c X $(CC) $(CFLAGS) fgetstring.c X $(RM) fgetstring.c finithow.o: $(SDIR)/finithow.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finithow.m4 > finithow.c X $(CC) $(CFLAGS) finithow.c X $(RM) finithow.c finitiate.o: $(SDIR)/finitiate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiate.m4 > finitiate.c X $(CC) $(CFLAGS) finitiate.c X $(RM) finitiate.c finitiatem.o: $(SDIR)/finitiatem.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitiatem.m4 > finitiatem.c X $(CC) $(CFLAGS) finitiatem.c X $(RM) finitiatem.c finitsend.o: $(SDIR)/finitsend.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/finitsend.m4 > finitsend.c X $(CC) $(CFLAGS) finitsend.c X $(RM) finitsend.c fleave.o: $(SDIR)/fleave.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fleave.m4 > fleave.c X $(CC) $(CFLAGS) fleave.c X $(RM) fleave.c fprobe.o: $(SDIR)/fprobe.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobe.m4 > fprobe.c X $(CC) $(CFLAGS) fprobe.c X $(RM) fprobe.c fprobemulti.o: $(SDIR)/fprobemulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fprobemulti.m4 > fprobemulti.c X $(CC) $(CFLAGS) fprobemulti.c X $(RM) fprobemulti.c fpstatus.o: $(SDIR)/fpstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpstatus.m4 > fpstatus.c X $(CC) $(CFLAGS) fpstatus.c X $(RM) fpstatus.c fputbytes.o: $(SDIR)/fputbytes.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputbytes.m4 > fputbytes.c X $(CC) $(CFLAGS) fputbytes.c X $(RM) fputbytes.c fputncplx.o: $(SDIR)/fputncplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputncplx.m4 > fputncplx.c X $(CC) $(CFLAGS) fputncplx.c X $(RM) fputncplx.c fputndcplx.o: $(SDIR)/fputndcplx.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndcplx.m4 > fputndcplx.c X $(CC) $(CFLAGS) fputndcplx.c X $(RM) fputndcplx.c fputndfloat.o: $(SDIR)/fputndfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputndfloat.m4 > fputndfloat.c X $(CC) $(CFLAGS) fputndfloat.c X $(RM) fputndfloat.c fputnfloat.o: $(SDIR)/fputnfloat.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnfloat.m4 > fputnfloat.c X $(CC) $(CFLAGS) fputnfloat.c X $(RM) fputnfloat.c fputnint.o: $(SDIR)/fputnint.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnint.m4 > fputnint.c X $(CC) $(CFLAGS) fputnint.c X $(RM) fputnint.c fputnlong.o: $(SDIR)/fputnlong.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnlong.m4 > fputnlong.c X $(CC) $(CFLAGS) fputnlong.c X $(RM) fputnlong.c fputnshort.o: $(SDIR)/fputnshort.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputnshort.m4 > fputnshort.c X $(CC) $(CFLAGS) fputnshort.c X $(RM) fputnshort.c fputstring.o: $(SDIR)/fputstring.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fputstring.m4 > fputstring.c X $(CC) $(CFLAGS) fputstring.c X $(RM) fputstring.c fpvmperror.o: $(SDIR)/fpvmperror.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fpvmperror.m4 > fpvmperror.c X $(CC) $(CFLAGS) fpvmperror.c X $(RM) fpvmperror.c frcv.o: $(SDIR)/frcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcv.m4 > frcv.c X $(CC) $(CFLAGS) frcv.c X $(RM) frcv.c frcvinfo.o: $(SDIR)/frcvinfo.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvinfo.m4 > frcvinfo.c X $(CC) $(CFLAGS) frcvinfo.c X $(RM) frcvinfo.c frcvmulti.o: $(SDIR)/frcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/frcvmulti.m4 > frcvmulti.c X $(CC) $(CFLAGS) frcvmulti.c X $(RM) frcvmulti.c fready.o: $(SDIR)/fready.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fready.m4 > fready.c X $(CC) $(CFLAGS) fready.c X $(RM) fready.c fsnd.o: $(SDIR)/fsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fsnd.m4 > fsnd.c X $(CC) $(CFLAGS) fsnd.c X $(RM) fsnd.c fstatus.o: $(SDIR)/fstatus.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fstatus.m4 > fstatus.c X $(CC) $(CFLAGS) fstatus.c X $(RM) fstatus.c fterminate.o: $(SDIR)/fterminate.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fterminate.m4 > fterminate.c X $(CC) $(CFLAGS) fterminate.c X $(RM) fterminate.c fwaituntil.o: $(SDIR)/fwaituntil.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwaituntil.m4 > fwaituntil.c X $(CC) $(CFLAGS) fwaituntil.c X $(RM) fwaituntil.c fwhoami.o: $(SDIR)/fwhoami.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fwhoami.m4 > fwhoami.c X $(CC) $(CFLAGS) fwhoami.c X $(RM) fwhoami.c fvrcv.o: $(SDIR)/fvrcv.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcv.m4 > fvrcv.c X $(CC) $(CFLAGS) fvrcv.c X $(RM) fvrcv.c fvrcvmulti.o: $(SDIR)/fvrcvmulti.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvrcvmulti.m4 > fvrcvmulti.c X $(CC) $(CFLAGS) fvrcvmulti.c X $(RM) fvrcvmulti.c fvsnd.o: $(SDIR)/fvsnd.m4 $(ARCH).m4 X $(M4) $(ARCH).m4 $(SDIR)/fvsnd.m4 > fvsnd.c X $(CC) $(CFLAGS) fvsnd.c X $(RM) fvsnd.c X f2ctest: $(SDIR)/f2ctest.f $(SDIR)/cf2ctest.m4 X $(M4) $(ARCH).m4 $(SDIR)/cf2ctest.m4 > cf2ctest.c X $(CC) $(CFLAGS) cf2ctest.c X $(FORTRAN) $(SDIR)/f2ctest.f cf2ctest.o libf2c.a $(HOME)/pvm/$(ARCH)/libpvm.a END_OF_FILE if test 7486 -ne `wc -c <'pvm2.4/libfpvm/UVAX/Makefile'`; then echo shar: \"'pvm2.4/libfpvm/UVAX/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/UVAX/Makefile' fi if test -f 'pvm2.4/libfpvm/UVAX/UVAX.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/UVAX/UVAX.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/UVAX/UVAX.m4'\" \(598 characters\) sed "s/^X//" >'pvm2.4/libfpvm/UVAX/UVAX.m4' <<'END_OF_FILE' divert(-1) undefine(`len') X# X# the VAX appends an underscore to FORTRAN function names X# define(`FUNCTION',`$1_') X# X# FORTRAN character strings on the VAX are passed as follows: X# a pointer to the base of the string is passed in the normal X# argument list, and the length is passed by value as an extra X# argument, after all of the other arguments. X# define(`ARGS',`($1`'undivert(1))') define(`SAVE',`divert(1)$1`'divert(0)') define(`STRING_ARG',`$1_ptr`'SAVE(`, $1_len')') define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len') define(`STRING_LEN',`$1_len') define(`STRING_PTR',`$1_ptr') divert(0) END_OF_FILE if test 598 -ne `wc -c <'pvm2.4/libfpvm/UVAX/UVAX.m4'`; then echo shar: \"'pvm2.4/libfpvm/UVAX/UVAX.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/UVAX/UVAX.m4' fi if test -f 'pvm2.4/libfpvm/fbarrier.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fbarrier.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fbarrier.m4'\" \(379 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fbarrier.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fbarrier) ARGS(`STRING_ARG(name), n, cc') STRING_ARG_DECL(name); int *n; int *cc; X{ X char tname[MAX_BARRIER_NAME + 1]; X X if (STRING_LEN(name) > MAX_BARRIER_NAME) { X *cc = pvm_uerr("fbarrier", PvmTooLong); X return; X } X ftocstr(tname, sizeof(tname), STRING_PTR(name), STRING_LEN(name)); X *cc = barrier(tname, *n); X} END_OF_FILE if test 379 -ne `wc -c <'pvm2.4/libfpvm/fbarrier.m4'`; then echo shar: \"'pvm2.4/libfpvm/fbarrier.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fbarrier.m4' fi if test -f 'pvm2.4/libfpvm/fenroll.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fenroll.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fenroll.m4'\" \(363 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fenroll.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fenroll) ARGS(`STRING_ARG(name), inum') STRING_ARG_DECL(name); int *inum; X{ X char tname[MAX_PROC_NAME + 1]; X X if (STRING_LEN(name) > MAX_PROC_NAME) { X *inum = pvm_uerr("fenroll", PvmTooLong); X return; X } X ftocstr(tname, sizeof(tname), STRING_PTR(name), STRING_LEN(name)); X *inum = enroll(tname); X} END_OF_FILE if test 363 -ne `wc -c <'pvm2.4/libfpvm/fenroll.m4'`; then echo shar: \"'pvm2.4/libfpvm/fenroll.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fenroll.m4' fi if test -f 'pvm2.4/libfpvm/fgetbytes.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fgetbytes.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fgetbytes.m4'\" \(249 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fgetbytes.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fgetbytes) ARGS(`STRING_ARG(p), cnt, cc') int *cnt, *cc; STRING_ARG_DECL(p); X{ X int tcnt = *cnt; X X if (tcnt > STRING_LEN(p)) X tcnt = STRING_LEN(p); X *cc = getbytes(STRING_PTR(p), tcnt); X} END_OF_FILE if test 249 -ne `wc -c <'pvm2.4/libfpvm/fgetbytes.m4'`; then echo shar: \"'pvm2.4/libfpvm/fgetbytes.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fgetbytes.m4' fi if test -f 'pvm2.4/libfpvm/fgetncplx.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fgetncplx.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fgetncplx.m4'\" \(148 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fgetncplx.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fgetncplx) ARGS(`xp, cnt, cc') float *xp; int *cnt, *cc; X{ X *cc = getncplx(xp, *cnt); X} END_OF_FILE if test 148 -ne `wc -c <'pvm2.4/libfpvm/fgetncplx.m4'`; then echo shar: \"'pvm2.4/libfpvm/fgetncplx.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fgetncplx.m4' fi if test -f 'pvm2.4/libfpvm/fgetndcplx.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fgetndcplx.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fgetndcplx.m4'\" \(152 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fgetndcplx.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fgetndcplx) ARGS(`zp, cnt, cc') double *zp; int *cnt, *cc; X{ X *cc = getndcplx(zp, *cnt); X} X END_OF_FILE if test 152 -ne `wc -c <'pvm2.4/libfpvm/fgetndcplx.m4'`; then echo shar: \"'pvm2.4/libfpvm/fgetndcplx.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fgetndcplx.m4' fi if test -f 'pvm2.4/libfpvm/fgetndfloat.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fgetndfloat.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fgetndfloat.m4'\" \(153 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fgetndfloat.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fgetndfloat) ARGS(`dp, cnt, cc') double *dp; int *cnt, *cc; X{ X *cc = getndfloat(dp, *cnt); X} END_OF_FILE if test 153 -ne `wc -c <'pvm2.4/libfpvm/fgetndfloat.m4'`; then echo shar: \"'pvm2.4/libfpvm/fgetndfloat.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fgetndfloat.m4' fi if test -f 'pvm2.4/libfpvm/fgetnfloat.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fgetnfloat.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fgetnfloat.m4'\" \(150 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fgetnfloat.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fgetnfloat) ARGS(`fp, cnt, cc') float *fp; int *cnt, *cc; X{ X *cc = getnfloat(fp, *cnt); X} END_OF_FILE if test 150 -ne `wc -c <'pvm2.4/libfpvm/fgetnfloat.m4'`; then echo shar: \"'pvm2.4/libfpvm/fgetnfloat.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fgetnfloat.m4' fi if test -f 'pvm2.4/libfpvm/fgetnint.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fgetnint.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fgetnint.m4'\" \(140 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fgetnint.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fgetnint) ARGS(`np, cnt, cc') int *np, *cnt, *cc; X{ X *cc = getnint(np, *cnt); X} END_OF_FILE if test 140 -ne `wc -c <'pvm2.4/libfpvm/fgetnint.m4'`; then echo shar: \"'pvm2.4/libfpvm/fgetnint.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fgetnint.m4' fi if test -f 'pvm2.4/libfpvm/fgetnlong.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fgetnlong.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fgetnlong.m4'\" \(147 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fgetnlong.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fgetnlong) ARGS(`np, cnt, cc') long *np; int *cnt, *cc; X{ X *cc = getnlong(np, *cnt); X} END_OF_FILE if test 147 -ne `wc -c <'pvm2.4/libfpvm/fgetnlong.m4'`; then echo shar: \"'pvm2.4/libfpvm/fgetnlong.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fgetnlong.m4' fi if test -f 'pvm2.4/libfpvm/fgetnshort.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fgetnshort.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fgetnshort.m4'\" \(150 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fgetnshort.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fgetnshort) ARGS(`np, cnt, cc') short *np; int *cnt, *cc; X{ X *cc = getnshort(np, *cnt); X} END_OF_FILE if test 150 -ne `wc -c <'pvm2.4/libfpvm/fgetnshort.m4'`; then echo shar: \"'pvm2.4/libfpvm/fgetnshort.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fgetnshort.m4' fi if test -f 'pvm2.4/libfpvm/fgetstring.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fgetstring.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fgetstring.m4'\" \(179 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fgetstring.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fgetstring) ARGS(`STRING_ARG(p), cc') int *cc; STRING_ARG_DECL(p); X{ X *cc = getbytes(STRING_PTR(p), STRING_LEN(p)); X} END_OF_FILE if test 179 -ne `wc -c <'pvm2.4/libfpvm/fgetstring.m4'`; then echo shar: \"'pvm2.4/libfpvm/fgetstring.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fgetstring.m4' fi if test -f 'pvm2.4/libfpvm/finithow.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/finithow.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/finithow.m4'\" \(135 characters\) sed "s/^X//" >'pvm2.4/libfpvm/finithow.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(finithow) ARGS(`how, cc') int *how; int *cc; X{ X *cc = pvm_inithow(*how); X} END_OF_FILE if test 135 -ne `wc -c <'pvm2.4/libfpvm/finithow.m4'`; then echo shar: \"'pvm2.4/libfpvm/finithow.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/finithow.m4' fi if test -f 'pvm2.4/libfpvm/finitiate.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/finitiate.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/finitiate.m4'\" \(950 characters\) sed "s/^X//" >'pvm2.4/libfpvm/finitiate.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(finitiate) ARGS(`STRING_ARG(aout), STRING_ARG(arch), inum') STRING_ARG_DECL(aout); STRING_ARG_DECL(arch); int *inum; X{ X char taout[MAX_PROC_NAME + 1]; X char tarch[MAX_ARCH_NAME + 1]; X X /* X * Copy the program and arch names to make sure there's X * a NUL at the end. X * If either the program name or the arch name is too X * long, just return an error. X */ X X if (STRING_LEN(aout) > MAX_PROC_NAME X || STRING_LEN(arch) > MAX_ARCH_NAME) { X *inum = pvm_uerr("finitiate", PvmTooLong); X return; X } X ftocstr(taout, sizeof(taout), STRING_PTR(aout), STRING_LEN(aout)); X X /* X * if arch parameter begins with '*', pass a NULL pointer to X * initiate which will allow execution on any machine. X */ X if (*(STRING_PTR(arch)) == '*') { X *inum = initiate(taout, (char*)0); X } X else { X ftocstr(tarch, sizeof(tarch), STRING_PTR(arch), STRING_LEN(arch)); X *inum = initiate(taout, tarch); X } X} END_OF_FILE if test 950 -ne `wc -c <'pvm2.4/libfpvm/finitiate.m4'`; then echo shar: \"'pvm2.4/libfpvm/finitiate.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/finitiate.m4' fi if test -f 'pvm2.4/libfpvm/finitiatem.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/finitiatem.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/finitiatem.m4'\" \(737 characters\) sed "s/^X//" >'pvm2.4/libfpvm/finitiatem.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(finitiatem) ARGS(`STRING_ARG(aout), STRING_ARG(host), inum') STRING_ARG_DECL(aout); STRING_ARG_DECL(host); int *inum; X{ X char taout[MAX_PROC_NAME + 1]; X char thost[MAX_HOST_NAME + 1]; X X /* X * Copy the program and host names to make sure there's X * a NUL at the end. X * If either the program name or the host name is too X * long, just return an error. X */ X X if (STRING_LEN(aout) > MAX_PROC_NAME X || STRING_LEN(host) > MAX_HOST_NAME) { X *inum = pvm_uerr("finitiatem", PvmTooLong); X return; X } X ftocstr(taout, sizeof(taout), STRING_PTR(aout), STRING_LEN(aout)); X ftocstr(thost, sizeof(thost), STRING_PTR(host), STRING_LEN(host)); X *inum = initiateM(taout, thost); X} END_OF_FILE if test 737 -ne `wc -c <'pvm2.4/libfpvm/finitiatem.m4'`; then echo shar: \"'pvm2.4/libfpvm/finitiatem.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/finitiatem.m4' fi if test -f 'pvm2.4/libfpvm/finitsend.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/finitsend.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/finitsend.m4'\" \(97 characters\) sed "s/^X//" >'pvm2.4/libfpvm/finitsend.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(finitsend) ARGS(`') X{ X initsend(); X} END_OF_FILE if test 97 -ne `wc -c <'pvm2.4/libfpvm/finitsend.m4'`; then echo shar: \"'pvm2.4/libfpvm/finitsend.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/finitsend.m4' fi if test -f 'pvm2.4/libfpvm/fleave.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fleave.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fleave.m4'\" \(91 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fleave.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fleave) ARGS(`') X{ X leave(); X} END_OF_FILE if test 91 -ne `wc -c <'pvm2.4/libfpvm/fleave.m4'`; then echo shar: \"'pvm2.4/libfpvm/fleave.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fleave.m4' fi if test -f 'pvm2.4/libfpvm/fprobe.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fprobe.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fprobe.m4'\" \(126 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fprobe.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fprobe) ARGS(`type, cc') int *type, *cc; X{ X *cc = probe(*type); X} END_OF_FILE if test 126 -ne `wc -c <'pvm2.4/libfpvm/fprobe.m4'`; then echo shar: \"'pvm2.4/libfpvm/fprobe.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fprobe.m4' fi if test -f 'pvm2.4/libfpvm/fprobemulti.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fprobemulti.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fprobemulti.m4'\" \(154 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fprobemulti.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fprobemulti) ARGS(`n, typs, cc') int *n; int *typs; int *cc; X{ X *cc = probemulti(*n, typs); X} END_OF_FILE if test 154 -ne `wc -c <'pvm2.4/libfpvm/fprobemulti.m4'`; then echo shar: \"'pvm2.4/libfpvm/fprobemulti.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fprobemulti.m4' fi if test -f 'pvm2.4/libfpvm/fpstatus.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fpstatus.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fpstatus.m4'\" \(155 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fpstatus.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fpstatus) ARGS(`nproc, mixed, cc') int *nproc, *mixed, *cc; X{ X *cc = pstatus(nproc, mixed); X} X END_OF_FILE if test 155 -ne `wc -c <'pvm2.4/libfpvm/fpstatus.m4'`; then echo shar: \"'pvm2.4/libfpvm/fpstatus.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fpstatus.m4' fi if test -f 'pvm2.4/libfpvm/fputbytes.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fputbytes.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fputbytes.m4'\" \(262 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fputbytes.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fputbytes) ARGS(`STRING_ARG(p), cnt, cc') int *cnt, *cc; STRING_ARG_DECL(p); X{ X int tcnt = *cnt; X if (tcnt < 0 || STRING_LEN(p) < tcnt) X tcnt = STRING_LEN(p); X *cc = putbytes(STRING_PTR(p), tcnt); X} END_OF_FILE if test 262 -ne `wc -c <'pvm2.4/libfpvm/fputbytes.m4'`; then echo shar: \"'pvm2.4/libfpvm/fputbytes.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fputbytes.m4' fi if test -f 'pvm2.4/libfpvm/fputncplx.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fputncplx.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fputncplx.m4'\" \(148 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fputncplx.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fputncplx) ARGS(`xp, cnt, cc') float *xp; int *cnt, *cc; X{ X *cc = putncplx(xp, *cnt); X} END_OF_FILE if test 148 -ne `wc -c <'pvm2.4/libfpvm/fputncplx.m4'`; then echo shar: \"'pvm2.4/libfpvm/fputncplx.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fputncplx.m4' fi if test -f 'pvm2.4/libfpvm/fputndcplx.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fputndcplx.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fputndcplx.m4'\" \(151 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fputndcplx.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fputndcplx) ARGS(`zp, cnt, cc') double *zp; int *cnt, *cc; X{ X *cc = putndcplx(zp, *cnt); X} END_OF_FILE if test 151 -ne `wc -c <'pvm2.4/libfpvm/fputndcplx.m4'`; then echo shar: \"'pvm2.4/libfpvm/fputndcplx.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fputndcplx.m4' fi if test -f 'pvm2.4/libfpvm/fputndfloat.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fputndfloat.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fputndfloat.m4'\" \(153 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fputndfloat.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fputndfloat) ARGS(`dp, cnt, cc') double *dp; int *cnt, *cc; X{ X *cc = putndfloat(dp, *cnt); X} END_OF_FILE if test 153 -ne `wc -c <'pvm2.4/libfpvm/fputndfloat.m4'`; then echo shar: \"'pvm2.4/libfpvm/fputndfloat.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fputndfloat.m4' fi if test -f 'pvm2.4/libfpvm/fputnfloat.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fputnfloat.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fputnfloat.m4'\" \(150 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fputnfloat.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fputnfloat) ARGS(`fp, cnt, cc') float *fp; int *cnt, *cc; X{ X *cc = putnfloat(fp, *cnt); X} END_OF_FILE if test 150 -ne `wc -c <'pvm2.4/libfpvm/fputnfloat.m4'`; then echo shar: \"'pvm2.4/libfpvm/fputnfloat.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fputnfloat.m4' fi if test -f 'pvm2.4/libfpvm/fputnint.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fputnint.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fputnint.m4'\" \(140 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fputnint.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fputnint) ARGS(`np, cnt, cc') int *np, *cnt, *cc; X{ X *cc = putnint(np, *cnt); X} END_OF_FILE if test 140 -ne `wc -c <'pvm2.4/libfpvm/fputnint.m4'`; then echo shar: \"'pvm2.4/libfpvm/fputnint.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fputnint.m4' fi if test -f 'pvm2.4/libfpvm/fputnlong.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fputnlong.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fputnlong.m4'\" \(147 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fputnlong.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fputnlong) ARGS(`np, cnt, cc') long *np; int *cnt, *cc; X{ X *cc = putnlong(np, *cnt); X} END_OF_FILE if test 147 -ne `wc -c <'pvm2.4/libfpvm/fputnlong.m4'`; then echo shar: \"'pvm2.4/libfpvm/fputnlong.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fputnlong.m4' fi if test -f 'pvm2.4/libfpvm/fputnshort.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fputnshort.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fputnshort.m4'\" \(150 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fputnshort.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fputnshort) ARGS(`np, cnt, cc') short *np; int *cnt, *cc; X{ X *cc = putnshort(np, *cnt); X} END_OF_FILE if test 150 -ne `wc -c <'pvm2.4/libfpvm/fputnshort.m4'`; then echo shar: \"'pvm2.4/libfpvm/fputnshort.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fputnshort.m4' fi if test -f 'pvm2.4/libfpvm/fputstring.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fputstring.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fputstring.m4'\" \(1161 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fputstring.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X X#define MAX(a,b) ((a) > (b) ? (a) : (b)) X void XFUNCTION(fputstring) ARGS(`STRING_ARG(p), cc') int *cc; STRING_ARG_DECL(p); X{ X static char *buf = 0; X static int buflen = 0; X char *malloc(); X X /* X * Have to have a NUL at the end of the string, and X * the only way to do this portably is to copy the whole string X * into a malloc'ed buffer. We keep the buffer around for X * future use rather than free'ing it each time we're done. X */ X if (!buf) X buf = malloc(buflen = STRING_LEN(p) + 1); X else X if (STRING_LEN(p) + 1 > buflen) { X buflen = MAX(STRING_LEN(p) + 1, buflen * 2); X /* don't use realloc; it might cause old data to be copied */ X free(buf); X buf = malloc(buflen); X } X if (!buf) { X *cc = pvm_uerr("fputstring", PvmNoMem); X return; X } X strncpy(buf, STRING_PTR(p), STRING_LEN(p)); X buf[STRING_LEN(p)] = '\0'; X /* X * this does the same thing as putstring (buf) as long as X * there are no NULs in the string until the end. However, X * using putbytes() avoids an extra strcpy() and will transmit X * the NULs to the other end if it's FORTRAN. X */ X *cc = putbytes(buf, STRING_LEN(p) + 1); X} END_OF_FILE if test 1161 -ne `wc -c <'pvm2.4/libfpvm/fputstring.m4'`; then echo shar: \"'pvm2.4/libfpvm/fputstring.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fputstring.m4' fi if test -f 'pvm2.4/libfpvm/fpvmperror.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fpvmperror.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fpvmperror.m4'\" \(922 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fpvmperror.m4' <<'END_OF_FILE' X#include X#include "pvmuser.h" X#include "pvm_consts.h" X X#define MAX(a,b) ((a) > (b) ? (a) : (b)) X void XFUNCTION(fpvmperror) ARGS(`STRING_ARG(p)') STRING_ARG_DECL(p); X{ X static char *buf = 0; X static int buflen = 0; X char *malloc(); X int info; X X /* X * Have to have a NUL at the end of the string, and X * the only way to do this portably is to copy the whole string X * into a malloc'ed buffer. We keep the buffer around for X * future use rather than free'ing it each time we're done. X */ X if (!buf) X buf = malloc(buflen = STRING_LEN(p) + 1); X else X if (STRING_LEN(p) + 1 > buflen) { X buflen = MAX(STRING_LEN(p) + 1, buflen * 2); X /* don't use realloc; it might cause old data to be copied */ X free(buf); X buf = malloc(buflen); X } X if (!buf) { X info = pvm_uerr("fpvmperror", PvmNoMem); X return; X } X strncpy(buf, STRING_PTR(p), STRING_LEN(p)); X buf[STRING_LEN(p)] = '\0'; X X pvm_perror(buf); X} END_OF_FILE if test 922 -ne `wc -c <'pvm2.4/libfpvm/fpvmperror.m4'`; then echo shar: \"'pvm2.4/libfpvm/fpvmperror.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fpvmperror.m4' fi if test -f 'pvm2.4/libfpvm/frcv.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/frcv.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/frcv.m4'\" \(123 characters\) sed "s/^X//" >'pvm2.4/libfpvm/frcv.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(frcv) ARGS(`type, cc') int *type, *cc; X{ X *cc = rcv(*type); X} X END_OF_FILE if test 123 -ne `wc -c <'pvm2.4/libfpvm/frcv.m4'`; then echo shar: \"'pvm2.4/libfpvm/frcv.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/frcv.m4' fi if test -f 'pvm2.4/libfpvm/frcvinfo.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/frcvinfo.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/frcvinfo.m4'\" \(687 characters\) sed "s/^X//" >'pvm2.4/libfpvm/frcvinfo.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X X/* X * XXX should frcvinfo() have some way to report the resulting length X * of the proc string? X */ X void XFUNCTION(frcvinfo) ARGS(`len, type, STRING_ARG(proc), inum, cc') int *len, *type, *inum, *cc; STRING_ARG_DECL(proc); X{ X char tproc[MAX_PROC_NAME + 1]; X int x; X X *cc = rcvinfo(len, type, tproc, inum); X X#if 0 X /* XXX should we report this error, or just silently truncate? */ X if ((x = strlen(tproc)) > STRING_LEN(proc)) { X *cc = pvm_uerr("frcvinfo", PvmTooLong); X } X#endif X X /* X * copy up to STRING_LEN(proc) bytes, including the terminating X * NUL if there's room for it. X */ X strncpy(STRING_PTR(proc), tproc, STRING_LEN(proc)); X} END_OF_FILE if test 687 -ne `wc -c <'pvm2.4/libfpvm/frcvinfo.m4'`; then echo shar: \"'pvm2.4/libfpvm/frcvinfo.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/frcvinfo.m4' fi if test -f 'pvm2.4/libfpvm/frcvmulti.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/frcvmulti.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/frcvmulti.m4'\" \(150 characters\) sed "s/^X//" >'pvm2.4/libfpvm/frcvmulti.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(frcvmulti) ARGS(`n, typs, cc') int *n; int *typs; int *cc; X{ X *cc = rcvmulti(*n, typs); X} END_OF_FILE if test 150 -ne `wc -c <'pvm2.4/libfpvm/frcvmulti.m4'`; then echo shar: \"'pvm2.4/libfpvm/frcvmulti.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/frcvmulti.m4' fi if test -f 'pvm2.4/libfpvm/fready.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fready.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fready.m4'\" \(363 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fready.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fready) ARGS(`STRING_ARG(event), cc') STRING_ARG_DECL(event); int *cc; X{ X char tevent[MAX_EVENT_NAME + 1]; X X if (STRING_LEN(event) > MAX_EVENT_NAME) { X *cc = pvm_uerr("fready", PvmTooLong); X return; X } X ftocstr(tevent, sizeof(tevent), STRING_PTR(event), STRING_LEN(event)); X *cc = ready(tevent); X} END_OF_FILE if test 363 -ne `wc -c <'pvm2.4/libfpvm/fready.m4'`; then echo shar: \"'pvm2.4/libfpvm/fready.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fready.m4' fi if test -f 'pvm2.4/libfpvm/fsnd.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fsnd.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fsnd.m4'\" \(384 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fsnd.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fsnd) ARGS(`STRING_ARG(proc), inum, type, cc') STRING_ARG_DECL(proc); int *inum, *type, *cc; X{ X char tproc[MAX_PROC_NAME+1]; X X if (STRING_LEN(proc) > MAX_PROC_NAME) { X *cc = pvm_uerr("fsnd", PvmTooLong); X return; X } X ftocstr(tproc, sizeof(tproc), STRING_PTR(proc), STRING_LEN(proc)); X *cc = snd(tproc, *inum, *type); X} END_OF_FILE if test 384 -ne `wc -c <'pvm2.4/libfpvm/fsnd.m4'`; then echo shar: \"'pvm2.4/libfpvm/fsnd.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fsnd.m4' fi if test -f 'pvm2.4/libfpvm/fstatus.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fstatus.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fstatus.m4'\" \(374 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fstatus.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fstatus) ARGS(`STRING_ARG(proc), inum, cc') STRING_ARG_DECL(proc); int *inum, *cc; X{ X char tproc[MAX_PROC_NAME+1]; X X if (STRING_LEN(proc) > MAX_PROC_NAME) { X *cc = pvm_uerr("fstatus", PvmTooLong); X return; X } X ftocstr(tproc, sizeof(tproc), STRING_PTR(proc), STRING_LEN(proc)); X *cc = status(tproc, *inum); X} X END_OF_FILE if test 374 -ne `wc -c <'pvm2.4/libfpvm/fstatus.m4'`; then echo shar: \"'pvm2.4/libfpvm/fstatus.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fstatus.m4' fi if test -f 'pvm2.4/libfpvm/fterminate.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fterminate.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fterminate.m4'\" \(381 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fterminate.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fterminate) ARGS(`STRING_ARG(proc), inc, cc') STRING_ARG_DECL(proc); int *inc, *cc; X{ X char tproc[MAX_PROC_NAME + 1]; X X if (STRING_LEN(proc) > MAX_PROC_NAME) { X *cc = pvm_uerr("fterminate", PvmTooLong); X return; X } X ftocstr(tproc, sizeof(tproc), STRING_PTR(proc), STRING_LEN(proc)); X *cc = terminate(tproc, *inc); X} END_OF_FILE if test 381 -ne `wc -c <'pvm2.4/libfpvm/fterminate.m4'`; then echo shar: \"'pvm2.4/libfpvm/fterminate.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fterminate.m4' fi if test -f 'pvm2.4/libfpvm/ftocstr.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/ftocstr.c'\" else echo shar: Extracting \"'pvm2.4/libfpvm/ftocstr.c'\" \(352 characters\) sed "s/^X//" >'pvm2.4/libfpvm/ftocstr.c' <<'END_OF_FILE' X#ifndef min X#define min(i,j) ((i)<(j)?(i):(j)) X#endif X ftocstr(ds, dl, ss, sl) X char *ds, *ss; /* dst, src ptrs */ X int dl; /* dst max len */ X int sl; /* src len */ X{ X char *p; X X for (p = ss + sl; --p >= ss && *p == ' '; ) ; X sl = p - ss + 1; X dl--; X ds[0] = 0; X strncat(ds, ss, min(sl, dl)); X} X END_OF_FILE if test 352 -ne `wc -c <'pvm2.4/libfpvm/ftocstr.c'`; then echo shar: \"'pvm2.4/libfpvm/ftocstr.c'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/ftocstr.c' fi if test -f 'pvm2.4/libfpvm/fvrcv.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fvrcv.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fvrcv.m4'\" \(125 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fvrcv.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fvrcv) ARGS(`type, cc') int *type, *cc; X{ X *cc = vrcv(*type); X} X END_OF_FILE if test 125 -ne `wc -c <'pvm2.4/libfpvm/fvrcv.m4'`; then echo shar: \"'pvm2.4/libfpvm/fvrcv.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fvrcv.m4' fi if test -f 'pvm2.4/libfpvm/fvrcvmulti.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fvrcvmulti.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fvrcvmulti.m4'\" \(153 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fvrcvmulti.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fvrcvmulti) ARGS(`n, typs, cc') int *n; int *typs; int *cc; X{ X *cc = vrcvmulti(*n, typs); X} X END_OF_FILE if test 153 -ne `wc -c <'pvm2.4/libfpvm/fvrcvmulti.m4'`; then echo shar: \"'pvm2.4/libfpvm/fvrcvmulti.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fvrcvmulti.m4' fi if test -f 'pvm2.4/libfpvm/fvsnd.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fvsnd.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fvsnd.m4'\" \(390 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fvsnd.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fvsnd) ARGS(`STRING_ARG(proc), inum, type, cc') STRING_ARG_DECL(proc); int *inum, *type, *cc; X{ X char tproc[MAX_PROC_NAME + 1]; X X if (STRING_LEN(proc) > MAX_PROC_NAME) { X *cc = pvm_uerr("fvsnd", PvmTooLong); X return; X } X ftocstr(tproc, sizeof(tproc), STRING_PTR(proc), STRING_LEN(proc)); X *cc = vsnd(tproc, *inum, *type); X} X END_OF_FILE if test 390 -ne `wc -c <'pvm2.4/libfpvm/fvsnd.m4'`; then echo shar: \"'pvm2.4/libfpvm/fvsnd.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fvsnd.m4' fi if test -f 'pvm2.4/libfpvm/fwaituntil.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fwaituntil.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fwaituntil.m4'\" \(375 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fwaituntil.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X void XFUNCTION(fwaituntil) ARGS(`STRING_ARG(event), cc') int *cc; STRING_ARG_DECL(event); X{ X char tevent[MAX_EVENT_NAME + 1]; X X if (STRING_LEN(event) > MAX_EVENT_NAME) { X *cc = pvm_uerr("fwaituntil", PvmTooLong); X return; X } X ftocstr(tevent, sizeof(tevent), STRING_PTR(event), STRING_LEN(event)); X *cc = waituntil(tevent); X} END_OF_FILE if test 375 -ne `wc -c <'pvm2.4/libfpvm/fwaituntil.m4'`; then echo shar: \"'pvm2.4/libfpvm/fwaituntil.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fwaituntil.m4' fi if test -f 'pvm2.4/libfpvm/fwhoami.m4' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/fwhoami.m4'\" else echo shar: Extracting \"'pvm2.4/libfpvm/fwhoami.m4'\" \(361 characters\) sed "s/^X//" >'pvm2.4/libfpvm/fwhoami.m4' <<'END_OF_FILE' X#include "pvmuser.h" X#include "pvm_consts.h" X X/* X * XXX should fwhoami() have some way to report the resulting length X * of the proc string? X */ X void XFUNCTION(fwhoami) ARGS(`STRING_ARG(proc), inum, cc') STRING_ARG_DECL(proc); int *inum, *cc; X{ X char tproc[MAX_PROC_NAME + 1]; X X *cc = whoami(tproc, inum); X strncpy(STRING_PTR(proc), tproc, STRING_LEN(proc)); X} END_OF_FILE if test 361 -ne `wc -c <'pvm2.4/libfpvm/fwhoami.m4'`; then echo shar: \"'pvm2.4/libfpvm/fwhoami.m4'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/fwhoami.m4' fi if test -f 'pvm2.4/libfpvm/pvm_consts.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/libfpvm/pvm_consts.h'\" else echo shar: Extracting \"'pvm2.4/libfpvm/pvm_consts.h'\" \(266 characters\) sed "s/^X//" >'pvm2.4/libfpvm/pvm_consts.h' <<'END_OF_FILE' X#define MAX_ARCH_NAME 31 /* XXX should be documented */ X#define MAX_BARRIER_NAME 256 /* XXX should be documented */ X#define MAX_EVENT_NAME 31 /* XXX should be documented */ X#define MAX_HOST_NAME 1024 /* XXX should be something smaller? */ X#define MAX_PROC_NAME 31 END_OF_FILE if test 266 -ne `wc -c <'pvm2.4/libfpvm/pvm_consts.h'`; then echo shar: \"'pvm2.4/libfpvm/pvm_consts.h'\" unpacked with wrong size! fi # end of 'pvm2.4/libfpvm/pvm_consts.h' fi if test ! -d 'pvm2.4/man' ; then echo shar: Creating directory \"'pvm2.4/man'\" mkdir 'pvm2.4/man' fi if test -f 'pvm2.4/man/MkZeroes' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/MkZeroes'\" else echo shar: Extracting \"'pvm2.4/man/MkZeroes'\" \(350 characters\) sed "s/^X//" >'pvm2.4/man/MkZeroes' <<'END_OF_FILE' X#!/bin/csh -f X set SRCS=(man[13]/*.[13]) set DSTS=`echo "$SRCS" |sed 's/\(\.[13]\)/\10/g'` X X#echo $SRCS X#echo $DSTS X echo "writing makefile:" X echo "all: $DSTS" > makefile X X@ i=1 while ($i <= $#SRCS) X echo "${DSTS[$i]}: $SRCS[$i]" >> makefile X echo " nroff -man $SRCS[$i] > $DSTS[$i]" >> makefile X @ i++ end X echo "making:" make -f makefile X exit 0 X END_OF_FILE if test 350 -ne `wc -c <'pvm2.4/man/MkZeroes'`; then echo shar: \"'pvm2.4/man/MkZeroes'\" unpacked with wrong size! fi chmod +x 'pvm2.4/man/MkZeroes' # end of 'pvm2.4/man/MkZeroes' fi if test ! -d 'pvm2.4/man/man1' ; then echo shar: Creating directory \"'pvm2.4/man/man1'\" mkdir 'pvm2.4/man/man1' fi if test -f 'pvm2.4/man/man1/pvm_intro.1' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man1/pvm_intro.1'\" else echo shar: Extracting \"'pvm2.4/man/man1/pvm_intro.1'\" \(1227 characters\) sed "s/^X//" >'pvm2.4/man/man1/pvm_intro.1' <<'END_OF_FILE' X.\" ident info X.\" X.TH PVM 1PVM "11 Aug, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME PVM \- Parallel Virtual Machine System X.SH DESCRIPTION X.I PVM is a software system intended to simplify parallel programming on a network of mixed Unix host machines. It includes libraries of user-callable functions (\fIlibpvm.a\fR and \fIlibf2c.a\fR), and a daemon program (\fIpvmd\fR) which coordinates inter-machine activity. X.SH MACHINE ARCHITECTURE In the PVM system, machines are assigned a short string to identify their architectures (this includes operating system type as well as CPU type). The types currently predefined in the distribution are: X.RS X.PD 0 X.TP 8 AFX8 Alliant FX/8 X.TP BFLY BBN Butterfly TC2000 X.TP C2MP Convex X.TP CM2 Thinking Machines CM-2 Sun front X.TP CM5 Thinking Machines CM-5 X.TP CRAY Cray X.TP HP9K HP 9000 X.TP KSR1 Kendall Square X.TP I860 Intel RX Hypercube X.TP IPSC Intel IPSC/2 X.TP NEXT NeXT X.TP PMAX Dec/Mips cpu (3100, 5000, etc.) X.TP RIOS IBM/RS6000 X.TP SGI Silicon Graphics IRIS X.TP SUN3 Sun 3 X.TP SUN4 Sun 4 (4c, SPARC, etc.) X.TP SYMM Sequent Symmetry X.TP TITN Stardent Titan X.TP UVAX Dec/Microvax X.TP VCM2 Thinking Machines CM-2 Vax front X.PD X.RE X.SH SEE ALSO pvmd(1pvm), libpvm(3pvm) X END_OF_FILE if test 1227 -ne `wc -c <'pvm2.4/man/man1/pvm_intro.1'`; then echo shar: \"'pvm2.4/man/man1/pvm_intro.1'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man1/pvm_intro.1' fi if test -f 'pvm2.4/man/man1/pvmd.1' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man1/pvmd.1'\" else echo shar: Extracting \"'pvm2.4/man/man1/pvmd.1'\" \(6987 characters\) sed "s/^X//" >'pvm2.4/man/man1/pvmd.1' <<'END_OF_FILE' X.\" ident info X.\" X.TH PVMD 1PVM "11 Aug, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME pvmd \- PVM daemon X.SH SYNOPSIS X.ft B pvmd X[ X\-i X] X.I hostfile X.br pvmd X.I hostfile X& X.ft R X.SH DESCRIPTION X.I Pvmd is a daemon process which allows coordination between unix hosts in a virtual machine. One \fIpvmd\fR must run on each host in the group. They provide the communication and process control functions needed by the user's PVM processes. X.SH BUILDING AND INSTALLING To find out about building the PVM daemon, check the Readme file under "BUILDING". This describes how make an executable for an already supported architecture, and what to look for if you need to port PVM to a new type of machine. X The executable, \fIpvmd\fR, should by default be installed in "/tmp/pvm/pvmd" so a remote \fIpvmd\fR will know where to find it. If you have several machines that share a filesystem you may find it convenient to make a symbolic link from /tmp/pvm/pvmd to somewhere in your home directory (f.e. ~/pvm_public/ARCH/pvmd). This will conserve disk space and make upgrading the pvmd easier. X If you can't put the executable or a symlink in /tmp/pvm/, check out the 'dx=' option in the host file. X.SH HOST FILE FORMAT X.\" The host file specification is slightly different between X.\" versions 2.3.4 and 2.3.5. Old hostfiles will still work with X.\" no modification. X.\" The host file format changes from version 2.2 to 2.3. You will X.\" need to add 'lo=' before any loginnames in old hostfiles for X.\" them to work with 2.3. Read on for more additions. XEach host in the virtual machine must have an entry in the host file. Lines beginning with a splat ( # ), optionally preceded by whitespace, are ignored. X A simple host file might look like: X X # my first host file X.br X thud X.br X fred X.br X wilma X.br X barney X.br X betty X This specifies that there are five hosts in the virtual machine, and what their names are. X The master \fIpvmd\fR for a group is started by hand on the localhost, and it starts slaves on each of the remaining hosts using the \fIrsh\fR command. The master host may appear on any line of the hostfile, but must have an entry. X The simple format above works fine if you have the same login name on all five machines and the name of the master host in your .rhosts files on the other four. X There are several host file options available: X.RS X.PD 0 X.TP 8 lo=NAME Specifies an alternate login name (NAME) to use. X.TP pw Causes the master pvmd to prompt for a password for the remote host. This is necessary when the remote host cannot trust the master. X.TP dx=FILE Specifies a filename to execute instead of "pvmd". XFILE may be a simple filename, an absolute pathname, or a path relative to the user's home directory on the remote host. This is mainly useful to aid in debugging new versions of PVM, but may have other uses. X.TP ep=PATH Specifies a path for the \fIpvmd\fR to search for executable program components when initiating a new process. The path may have multiple elements, separated by colons ( : ). A percent in the path ( % ) expands to the architecture of the remote host. X.PD X.RE X XEach of the flags above has a default value. These are: X.RS X.PD 0 X.TP 8 lo The loginname on the master host. X.TP 8 pw Don't ask X.TP 8 dx pvmd X.TP 8 ep pvm/% X.PD X.RE X You can change these by adding a line with a star ( * ) in the first field followed by the options, for example: X X * lo=afriend pw X This sets new default values for 'lo' and 'pw' for the remainder of the host file, or until the next '*' line. X XExample hostfile: X X # hostfile for testing on various platforms X.br X # default to my executable X.br X * dx=pvm/SUN4/pvmd X.br X fonebone X.br X refuge X.br X sigi.cs dx=pvm/PMAX/pvmd X.br X # borrowed accts, "guest", don't trust fonebone X.br X * lo=guest pw X.br X sn666.jrandom.com dx=pvm/CRAY/pvmd X.br X cubie.misc.edu dx=pvm/IPSC/pvmd X.SH STARTING AND STOPPING PVMD To start the master \fIpvmd\fR, type: X X /tmp/pvm/pvmd HOSTFILE & X However, if passwords are required for any of the slave hosts, \fIpvmd\fR must run in the foreground. It can be stopped and backgrounded once all the slave \fIpvmds\fR have started up. X Normally, \fIpvmd\fR runs in the background, and requires no input. If '-i' option is given on the command line, however, the master \fIpvmd\fR runs in interactive mode, which allows the user to monitor and control the virtual machine via a 'console'. X To shut off PVM, kill the master \fIpvmd\fR. It will kill the slave daemons, and any processes initiated by them. When running interactively, you can kill the master \fIpvmd\fR by typing 'quit' or EOF (usually ^D). X If the master \fIpvmd\fR has trouble starting a slave \fIpvmd\fR on a host, the error message from the master \fIpvmd\fR may give some clue as to what the problem is. A common problem is to have something that generates output X(like date or mail) in one's .cshrc. This is always a bad idea. To check if this is the case, run the following by hand: X X rsh hostname pvmd X the result should be a single line similar to: X X pvmd version <2.4.0> arch maxml <4096> X Output on the stderr stream is ignored during the startup phase, however, so complaints from a dynamic-link loader should not cause problems. X.SH INTERACTIVE COMMANDS When the master \fIpvmd\fR is started with '-i', it prints a prompt when all the daemons have started up. It understands the following commands: X Help - Provides minimal information about the commands. X Barr - Lists all active 'ready' and 'barrier' names. Any synch points that have been "readied" are listed. Any barriers that have been used are listed, along with the number of processes needed for a quorum and the number that have called. X Conf - Lists the \fIpvmd\fR group configuration. XFields in the output from conf are: X.RS X.PD 0 X.TP 8 X# Index X.TP HOST Host name X.TP ARCH Host processor architecture X.TP ADDR Internet address X.TP PORT UDP port X.TP MAXML Max UDP message length X.PD X.RE X Ps - Gives a listing of current processes and their status. XFields in the output from ps are: X.RS X.PD 0 X.TP 8 NAME Process Name X.TP INUM Process Instance number X.TP HOST Host Executing X.TP XFLAGS Process Status. May be one or more of: X.RS X.TP r Running X.TP x XExited X.TP c Waiting on \fIpvmd\fR X.TP mw Wait for message X.TP ww Wait for waituntil X.TP bw Wait for barrier X.TP e XEnrolled X.TP d Died X.TP jd Just died X.TP vw Virtual ckt addr wait X.TP ul User lib version mismatch X.PD X.RE X.RE The option '-o' causes \fIps\fR to display the process list for the previous epoch. X Kill - Kill a PVM user process. Kill takes two args, the name and instance number of the process, and sends a SIGKILL to the process. X Quit (or EOF) - Exits pvm. Sends a SIGKILL to any running user processes. All PVMDs exit. X Reset - Reset the virtual machine. Causes a SIGKILL to be sent to every running process. All message queues are cleared. The PVMDs are left in an idle state. X.SH SEE ALSO pvm_intro(1pvm), libpvm(3pvm) END_OF_FILE if test 6987 -ne `wc -c <'pvm2.4/man/man1/pvmd.1'`; then echo shar: \"'pvm2.4/man/man1/pvmd.1'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man1/pvmd.1' fi if test ! -d 'pvm2.4/man/man3' ; then echo shar: Creating directory \"'pvm2.4/man/man3'\" mkdir 'pvm2.4/man/man3' fi if test -f 'pvm2.4/man/man3/barrier.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/barrier.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/barrier.3'\" \(1201 characters\) sed "s/^X//" >'pvm2.4/man/man3/barrier.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH BARRIER 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME barrier \- barrier wait X.SH SYNOPSIS X.ft B int barrier(name, count) X.br char *name; X.br int count; X.ft R X.SH DESCRIPTION X.I Barrier allows a group of PVM processes to cooperate in synchronization. Typically, N processes will call barrier("foo", N). When N processes have called, all will return and be able to continue. X.PP X.I Name may be any null-terminated string, but should probably be human readable for convenience. X.I Count may be any number greater than zero. X.PP During a single run of a PVM application, barrier names may not be reused. This is done to avoid confusion due to timewarps between networked machines. Barrier names are recycled at an epoch (when there are no active processes), however. X.SH RETURN VALUE X.I Barrier returns 0 if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr System error or process not enrolled X PvmBadParam Bad quorum count specified X PvmMismatch Quorum mismatch with another process X calling barrier X.SH SEE ALSO ready(3pvm), waituntil(3pvm) END_OF_FILE if test 1201 -ne `wc -c <'pvm2.4/man/man3/barrier.3'`; then echo shar: \"'pvm2.4/man/man3/barrier.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/barrier.3' fi if test -f 'pvm2.4/man/man3/enroll.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/enroll.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/enroll.3'\" \(1564 characters\) sed "s/^X//" >'pvm2.4/man/man3/enroll.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH ENROLL 3PVM "15 Jul, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME enroll \- enroll program as PVM process X.SH SYNOPSIS X.ft B int instance = enroll(name) X.br char *name; X.ft R X.SH DESCRIPTION X.I Enroll registers a Unix process as a PVM process. The process is enrolled under the name supplied and is assigned an instance number. X.PP X.I Name may be any null-terminated string up to 31 characters long, but should probably be human readable for convenience. X.PP Instance numbers begin at 0 and increment by one for each process created with a given name. Instance numbers are recycled at an epoch (when there are no active processes). X.PP As a side effect, \fIenroll\fR creates the socket necessary to talk to the pvmd, and loads configuration information from it. It is necessary to call \fIenroll\fR before taking any other PVM-related actions. X.PP It is an error to call enroll more than once without an intervening \fIleave\fR call. A process created by \fIinitiate\fR may still call \fIenroll\fR, but it is sufficient to simply call \fIwhoami\fR. If it does call \fIenroll\fR, the \fIname\fR parameter must match the name assigned by \fIinitiate\fR or an error will result. X.SH RETURN VALUE X.I Enroll returns the assigned instance number (>= 0) if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr System error X PvmTooLong If name too long X PvmAlready Process already enrolled X.SH SEE ALSO leave(3pvm), whoami(3pvm) END_OF_FILE if test 1564 -ne `wc -c <'pvm2.4/man/man3/enroll.3'`; then echo shar: \"'pvm2.4/man/man3/enroll.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/enroll.3' fi if test -f 'pvm2.4/man/man3/get.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/get.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/get.3'\" \(1244 characters\) sed "s/^X//" >'pvm2.4/man/man3/get.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH GET 3PVM "29 Jul, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME getbytes getncplx getndcplx getndfloat getnfloat getnint getnlong getnshort getstring X.br X \- unpack data from received message X.SH SYNOPSIS X.ft B int getbytes(cp, cnt) X.br X char *cp; X.br X int cnt; X int getncplx(xp, cnt) X.br X float *xp; X.br X int cnt; X int getndcplx(zp, cnt) X.br X double *zp; X.br X int cnt; X int getndfloat(dp, cnt) X.br X double *dp; X.br X int cnt; X int getnfloat(fp, cnt) X.br X float *fp; X.br X int cnt; X int getnint(np, cnt) X.br X int *np; X.br X int cnt; X int getnlong(np, cnt) X.br X long *np; X.br X int cnt; X int getnshort(np, cnt) X.br X short *np; X.br X int cnt; X int getstring(cp) X.br X char *cp; X.ft R X.SH DESCRIPTION These functions unpack arrays of various data types from the last received message. Data is unpacked from messages in the same order that it was packed. X.PP All except getstring take a pointer to the beginning of the array, and the number of array elements. X.SH RETURN VALUE X0 is returned if the call is successful. On failure, a negative number is returned and pvm_errno is set to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmNoData If at end of receive buffer X.SH SEE ALSO put(3pvm) END_OF_FILE if test 1244 -ne `wc -c <'pvm2.4/man/man3/get.3'`; then echo shar: \"'pvm2.4/man/man3/get.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/get.3' fi if test -f 'pvm2.4/man/man3/initiate.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/initiate.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/initiate.3'\" \(2083 characters\) sed "s/^X//" >'pvm2.4/man/man3/initiate.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH INITIATE 3PVM "15 Jul, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME initiate, initiateM \- initiate a new PVM process X.SH SYNOPSIS X.ft B int instance = initiate(name, arch) X.br char *name, *arch; X int instance = initiateM(name, host) X.br char *name, *host; X.ft R X.SH DESCRIPTION X.I Initiate creates a PVM process with given name. Pvmd exec()s a Unix process and enrolls it. A file with name matching the \fIname\fR parameter must already be installed on the selected host. By default, pvmd searches the path $(HOME)/pvm/ARCH/ for executables. A process created via \fIinitiate\fR must call \fIenroll\fR (with the correct name) or \fIwhoami\fR before taking any other PVM-related actions. X.PP X.I Name may be any null-terminated string up to 31 characters long, but should probably be human readable for convenience. X.PP The \fIarch\fR parameter specifies the cpu type of the host on which the process will be started, f.e. "SUN4". X.PP X.I InitiateM behaves similarly to \fIinitiate\fR except that a specific target host is specified instead of a cpu class. The \fIhost\fR parameter must match one of the hostnames in the virtual machine, either the fully qualified version, or the simple hostname. XE.g. either "thud.cs.utk.edu" or "thud" would be accepted. X.PP If the \fIarch\fR parameter (or \fIhost\fR parameter for \fIinitiateM\fR) is NULL, the process will be started on the 'next' host in a round-robin fashion. X.PP Instance numbers begin at 0 and increment by one for each process created with a given name. Instance numbers are recycled at an epoch (when there are no active processes). X.SH RETURN VALUE X.I Initiate returns the assigned instance number (>= 0) if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr System error / process not enrolled X PvmNoFile If executable file does not exist X PvmNoHost If host cpu class or name does not exist X PvmTooLong If name too long X.SH SEE ALSO enroll(3pvm), terminate(3pvm), whoami(3pvm) X END_OF_FILE if test 2083 -ne `wc -c <'pvm2.4/man/man3/initiate.3'`; then echo shar: \"'pvm2.4/man/man3/initiate.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/initiate.3' fi if test -f 'pvm2.4/man/man3/initsend.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/initsend.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/initsend.3'\" \(1289 characters\) sed "s/^X//" >'pvm2.4/man/man3/initsend.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH INITSEND 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME initsend, pvm_inithow \- initialize new message to send X.SH SYNOPSIS X.ft B X#include "pvmuser.h" X void initsend() X int pvm_inithow(how) X.br X int how; X.ft R X.SH DESCRIPTION X.I Initsend clears the current (if any) sendable message. This is usually in preparation for packing a new message (see put(3pvm)). X.sp X.I Pvm_inithow clears the current (if any) sendable message, and also allows a user to control the message packing performed by PVM. X.I how should be set to one of: X.nf X.ta 0.5i 2.0i X PvmDataDefault Use default PVM conversion rules X PvmDataRaw Do not convert data X.fi X.PP If \fIhow\fR is set to PvmDataDefault, data will be converted using XDR if the system considers it necessary, that is, whenever the pool of hosts is heterogeneous. If \fIhow\fR is set to PvmDataRaw, data will not be converted, but the user must ensure that the message is sent to a host in the same architecture class. X.PP Calling \fIinitsend\fR is equivalent to calling \fIpvm_inithow\fR with X\fIhow\fR set to PvmDataDefault. X.PP X.PP If \fIsnd\fR is called after \fIinitsend\fR but before any \fIput\fR operations, a zero-length message will be sent. X.SH SEE ALSO put(3pvm), snd(3pvm) END_OF_FILE if test 1289 -ne `wc -c <'pvm2.4/man/man3/initsend.3'`; then echo shar: \"'pvm2.4/man/man3/initsend.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/initsend.3' fi if test -f 'pvm2.4/man/man3/leave.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/leave.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/leave.3'\" \(510 characters\) sed "s/^X//" >'pvm2.4/man/man3/leave.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH LEAVE 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME leave \- un-enroll program as PVM process X.SH SYNOPSIS X.ft B void leave() X.ft R X.SH DESCRIPTION X.I Leave un-enrolls a PVM process which was previously created by \fIenroll\fR or \fIinitiate\fR. PVM considers the process dead from this point onward; it cannot be brought back to life. However, a program may use \fIenroll\fR to again become a (different) PVM process. X.SH SEE ALSO enroll(3pvm), initiate(3pvm) END_OF_FILE if test 510 -ne `wc -c <'pvm2.4/man/man3/leave.3'`; then echo shar: \"'pvm2.4/man/man3/leave.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/leave.3' fi if test -f 'pvm2.4/man/man3/libpvm.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/libpvm.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/libpvm.3'\" \(2075 characters\) sed "s/^X//" >'pvm2.4/man/man3/libpvm.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH LIBPVM 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME LIBPVM \- PVM C User Library X.SH SYNOPSIS X.ft B X#include "pvmuser.h" X.ft R X.SH DESCRIPTION The PVM system is accessible to user programs through a library of C functions (\fIlibpvm.a\fR), which contains the following functions: X.RS X.PD 0 X.TP 14 barrier Barrier wait X.TP enroll XEnroll program as PVM process X.TP get Unpack various typed data from message X.TP initiate, X.TP X initiateM Initiate a new PVM process X.TP pvm_inithow, X.TP X initsend Initialize new message to send X.TP leave Un-enroll program as PVM process X.TP pvm_mstat Give configuration of virtual machine X.TP probe, X.TP X probemulti Poll for receivable messages X.TP pstatus Give size of virtual machine X.TP put Pack various typed data into message X.TP pvm_perror Print PVM error message X.TP rcv, X.TP X rcvmulti Accept message from process receive queue X.TP rcvinfo Get info about last received message X.TP ready Set a synchronization semaphore X.TP snd Send a message to a PVM process X.TP status Query the status of a PVM process X.TP terminate Terminate a PVM process X.TP vrcv, X.TP X vrcvmulti Accept a message on virtual circuit X.TP vsnd Send a message on virtual circuit X.TP waituntil Pause until semaphore set X.TP whoami Identify PVM name for process X.PD X.RE X See the individual manual pages for exact descriptions of semantics and return values. In general, when a function in \fIlibpvm\fR returns a negative value, an error is indicated. In addition, an error message identifying the problem is be printed on the stderr stream. See the manual page for \fIpvm_perror\fR for more information on error handling. X.SH PORTABILITY X.I Libpvm has been ported to all the machine architectures listed in the pvm_intro manual page. XFor certain machines, users will need to include additional system libraries when compiling application programs. XFor I860 (Intel Hypercube) machines, add "-lrpc -lsocket" to the final load phase. XFor SGI (Silicon Graphics) machines, add "-lsun". X.SH SEE ALSO pvm_intro(1pvm), pvmd(1pvm) X END_OF_FILE if test 2075 -ne `wc -c <'pvm2.4/man/man3/libpvm.3'`; then echo shar: \"'pvm2.4/man/man3/libpvm.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/libpvm.3' fi if test -f 'pvm2.4/man/man3/probe.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/probe.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/probe.3'\" \(1301 characters\) sed "s/^X//" >'pvm2.4/man/man3/probe.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH PROBE 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME probe, probemulti \- poll for receivable messages X.SH SYNOPSIS X.ft B int cc = probe(type) X.br int type; X int cc = probemulti(ntypes, types) X.br int ntypes, *types; X.ft R X.SH DESCRIPTION X.I Probe checks to see if a message with given type is in the receive queue for a PVM process. It returns without blocking whether this is the case or not. X.I Type specifies the message type (>= 0) for poll for. A \fItype\fR of -1 matches any message type. X.PP X.I Probemulti accepts a list of message types to poll for. It returns the type of the first message in the queue matching any of the types given. X.I Types is an array of length \fIntypes\fR containing the acceptable types. X.SH RETURN VALUE X.I Probe and \fIprobemulti\fR return the type number of the first message in the receive queue that matches the search parameters. X.PP If there are no matching messages in the queue, \fIprobe\fR or \fIprobemulti\fR returns PvmNoMsg (negative value but not really an error condition). On failure, they return a negative number (other than PvmNoMsg) and set pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr System error or process not enrolled X.SH SEE ALSO rcv(3pvm) END_OF_FILE if test 1301 -ne `wc -c <'pvm2.4/man/man3/probe.3'`; then echo shar: \"'pvm2.4/man/man3/probe.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/probe.3' fi if test -f 'pvm2.4/man/man3/pstatus.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/pstatus.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/pstatus.3'\" \(1031 characters\) sed "s/^X//" >'pvm2.4/man/man3/pstatus.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH PSTATUS 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME pstatus \- give size of virtual machine X.SH SYNOPSIS X.ft B int cc = pstatus(ncpus, ntypes) X.br int *ncpus, *ntypes; X.ft R X.SH DESCRIPTION X.I Pstatus returns the number of hosts in the virtual machine and the number of different (internal) data storage formats used across the hosts. X.PP Certain architectures, while different, use the same storage formats for integers, reals, and so on. A mixture of machines whose architectures are all in the same format 'group' counts as a homogeneous machine for this purpose. X.PP If \fIncpus\fR is non-null, the number of hosts is returned in it. X.PP If \fIntypes\fR is non-null, the number of data format groups is returned. X.SH RETURN VALUE X.I Pstatus returns 0 if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr Unknown system error or not enrolled X.SH SEE ALSO whoami(3pvm) END_OF_FILE if test 1031 -ne `wc -c <'pvm2.4/man/man3/pstatus.3'`; then echo shar: \"'pvm2.4/man/man3/pstatus.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/pstatus.3' fi if test -f 'pvm2.4/man/man3/put.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/put.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/put.3'\" \(1268 characters\) sed "s/^X//" >'pvm2.4/man/man3/put.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH PUT 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME putbytes putncplx putndcplx putndfloat putnfloat putnint putnlong putnshort putstring X.br X \- pack data into message X.SH SYNOPSIS X.ft B int putbytes(cp, cnt) X.br X char *cp; X.br X int cnt; X int putncplx(xp, cnt) X.br X float *xp; X.br X int cnt; X int putndcplx(zp, cnt) X.br X double *zp; X.br X int cnt; X int putndfloat(dp, cnt) X.br X double *dp; X.br X int cnt; X int putnfloat(fp, cnt) X.br X float *fp; X.br X int cnt; X int putnint(np, cnt) X.br X int *np; X.br X int cnt; X int putnlong(np, cnt) X.br X long *np; X.br X int cnt; X int putnshort(np, cnt) X.br X short *np; X.br X int cnt; X int putstring(cp) X.br X char *cp; X.ft R X.SH DESCRIPTION These functions pack arrays of various data types and append to the message being composed. X.PP All except putstring take a pointer to the beginning of the array, and the number of array elements. X.PP There is no limit imposed on message length, until malloc fails. X.SH RETURN VALUE X0 is returned if the call is successful. On failure, a negative number is returned and pvm_errno is set to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmNoMem If no more memory available for message X.SH SEE ALSO get(3pvm), initsend(3pvm) END_OF_FILE if test 1268 -ne `wc -c <'pvm2.4/man/man3/put.3'`; then echo shar: \"'pvm2.4/man/man3/put.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/put.3' fi if test -f 'pvm2.4/man/man3/pvm_mstat.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/pvm_mstat.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/pvm_mstat.3'\" \(1293 characters\) sed "s/^X//" >'pvm2.4/man/man3/pvm_mstat.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH PVM_MSTAT 3PVM "22 Dec, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME pvm_mstat \- give configuration of virtual machine X.SH SYNOPSIS X.ft B int cpu = pvm_mstat(&ncpu, &stats, &names, &arches) X.br int ncpu; X.br int *stats; X.br char **names, **arches; X.ft R X.SH DESCRIPTION X.I Pvm_mstat returns information about the configuration of the virtual machine. X.PP On return \fIncpu\fR holds the number of hosts in the machine. X.I Names and \fIarches\fR point to arrays (of length \fIncpu\fR) of strings containing the names and architectures of the hosts. X.I Stats points to an array of integers, one per host, which indicate activity. Zero means there are no processes running on the host, one means that there are one or more processes running. X.PP If any argument is a null pointer, it is ignored. X.PP The pointers returned point into space allocated by libpvm using malloc(3). They are valid at least until the next call to \fIpvm_mstat\fR. X.SH RETURN VALUE X.I Pvm_mstat returns the index of the local host (between 0 and \fIncpu\fR-1) if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr Unknown system error or not enrolled X.SH SEE ALSO whoami(3pvm) END_OF_FILE if test 1293 -ne `wc -c <'pvm2.4/man/man3/pvm_mstat.3'`; then echo shar: \"'pvm2.4/man/man3/pvm_mstat.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/pvm_mstat.3' fi if test -f 'pvm2.4/man/man3/pvm_perror.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/pvm_perror.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/pvm_perror.3'\" \(1761 characters\) sed "s/^X//" >'pvm2.4/man/man3/pvm_perror.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH PVM_PERROR 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME pvm_perror \- print PVM error message X.SH SYNOPSIS X.ft B X#include "pvmuser.h" X extern int pvm_errno; X extern char *pvm_errlist[]; X extern int pvm_nerr; X extern int pvm_aerr; X pvm_perror(msg) X.br char *msg; X.ft R X.SH DESCRIPTION Libpvm functions print a message on the stderr stream when an error occurs. This default action can be disabled by setting the value of \fIpvm_aerr\fR to zero in the application code. X.PP X.I Pvm_perror writes a line to \fIstderr\fR containing the user-supplied message, a colon ( : ), and a string corresponding to the value of \fIpvm_errno\fR. It is intended to be called after a user-lib error has occurred X(function returning a negative value) to identify the problem. X.I Msg may be any null-terminated string. X.PP X.I Pvm_errno holds the code for the last error that occurred in the user-lib. It may be compared against the defined error codes in pvmuser.h. X.I Pvm_errlist is an array of strings of length \fIpvm_nerr\fR indexed by -(\fIpvm_errno\fR). Users may choose to read these variables, but should not set them. X.SH ERROR CODES The table below lists all error return codes. See the individual manual pages for possible return values for each function. X.RS X.PD 0 X.TP 16 PvmOk No Error X.TP PvmSysErr System Error X.TP PvmBadParam Bad Parameter X.TP PvmMismatch Barrier Count Mismatch X.TP PvmTooLong Name Too Long (32 char max.) X.TP PvmNoData Read Past End of Buffer X.TP PvmNoHost No Such Host X.TP PvmNoFile No Such Executable X.TP PvmNoComp No Such Process Component X.TP PvmNoMsg No Message Available X.TP PvmNoMem Can't Get Memory X.TP PvmAlready Process Already Enrolled X.PD X.RE X.SH SEE ALSO pvm_intro(1pvm), libpvm(3pvm) END_OF_FILE if test 1761 -ne `wc -c <'pvm2.4/man/man3/pvm_perror.3'`; then echo shar: \"'pvm2.4/man/man3/pvm_perror.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/pvm_perror.3' fi if test -f 'pvm2.4/man/man3/rcv.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/rcv.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/rcv.3'\" \(1656 characters\) sed "s/^X//" >'pvm2.4/man/man3/rcv.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH RCV 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME rcv, rcvmulti \- accept a message from process receive queue X.SH SYNOPSIS X.ft B int cc = rcv(type) X.br int type; X int cc = rcvmulti(ntypes, types) X.br int ntypes, *types; X.ft R X.SH DESCRIPTION X.I Rcv removes a message from the process's receive queue, makes it the active received message, and rewinds the read pointer to the beginning. X.I Type specifies the message type (>= 0) for accept. X.I Rcv picks the earliest-received message in the queue whose type matches the specified type. A \fItype\fR of -1 matches the first message in the queue. X.PP X.I Rcvmulti behaves similarly to \fIrcv\fR except that it picks the first message whose type matches one in a set specified by the user. X.I Types is an array of length \fIntypes\fR containing the acceptable types. X.PP These functions block until a message of the requested type is ready to be received. X.PP It is possible to receive a defective message. The user can force a message to be packed in host native data format using \fIpvm_inithow\fR (see initsend(3pvm)) and subsequently send it to a host with a different native format. X.I rcv and \fIrcvmulti\fR return an error condition upon receiving such a message. X.SH RETURN VALUE X.I Rcv and \fIrcvmulti\fR return the type of the accepted message (>= 0) if successful. On failure, they return a negative number and set pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr System error or process not enrolled X PvmBadMsg Message was packed in a foreign format X.SH SEE ALSO probe(3pvm), rcvinfo(3pvm), snd(3pvm) END_OF_FILE if test 1656 -ne `wc -c <'pvm2.4/man/man3/rcv.3'`; then echo shar: \"'pvm2.4/man/man3/rcv.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/rcv.3' fi if test -f 'pvm2.4/man/man3/rcvinfo.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/rcvinfo.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/rcvinfo.3'\" \(952 characters\) sed "s/^X//" >'pvm2.4/man/man3/rcvinfo.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH RCVINFO 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME rcvinfo \- get info about last received message X.SH SYNOPSIS X.ft B int rcvinfo(len, type, proc, inum) X.br int *len, *type, *inum; X.br char *proc; X.ft R X.SH DESCRIPTION X.I Rcvinfo returns information about the last message received. On return, X.I len holds the length of the message in bytes, X.I type holds the type of the message (as returned by \fIrcv\fR or \fIrcvmulti\fR), and \fIproc\fR and \fIinum\fR hold the name and instance number of the sending process. X.PP Any of the args may be a NULL pointer if that information is not desired. X.I Proc should point to at least 32 bytes of space. X.SH RETURN VALUE X.I Rcvinfo returns 0 if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmNoMsg If no message has been received X.SH SEE ALSO rcv(3pvm) END_OF_FILE if test 952 -ne `wc -c <'pvm2.4/man/man3/rcvinfo.3'`; then echo shar: \"'pvm2.4/man/man3/rcvinfo.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/rcvinfo.3' fi if test -f 'pvm2.4/man/man3/ready.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/ready.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/ready.3'\" \(898 characters\) sed "s/^X//" >'pvm2.4/man/man3/ready.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH READY 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME ready \- set a synchronization semaphore X.SH SYNOPSIS X.ft B int ready(name) X.br char *name; X.ft R X.SH DESCRIPTION X.I Ready sets a global semaphore which wakes up any processes waiting on it (see waituntil(3pvm)). X.I Name may be any null-terminated string up to 31 characters long, but should probably be human readable for convenience. X.PP Semaphore names, once set, cannot be reset until an epoch (when there are no active processes). It is not an error to set a semaphore more than once. X.SH RETURN VALUE X.I Ready returns 0 if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr System error / process not enrolled X PvmTooLong If name too long X.SH SEE ALSO barrier(3pvm), waituntil(3pvm) END_OF_FILE if test 898 -ne `wc -c <'pvm2.4/man/man3/ready.3'`; then echo shar: \"'pvm2.4/man/man3/ready.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/ready.3' fi if test -f 'pvm2.4/man/man3/snd.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/snd.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/snd.3'\" \(1158 characters\) sed "s/^X//" >'pvm2.4/man/man3/snd.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH SND 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME snd \- send a message to a PVM process X.SH SYNOPSIS X.ft B int snd(name, inum, type) X.br char *name; X.br int inum, type; X.ft R X.SH DESCRIPTION X.I Snd transmits a message to another process. It returns as soon as possible, i.e. when the local PVMD believes it can deliver the message. X.I Name and \fIinum\fR are the name and instance number of the process the message is to be sent to. X.I Type is the (user-defined) type of the message, which can be used by the receiving process to identify the message meaning or to select the message from the receive queue. It must be >= 0. X.PP If \fIinum\fR is given as -1, the message is broadcast to all instance numbers of process \fIname\fR. X.SH RETURN VALUE X.I Snd returns 0 if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr System error or process not enrolled X PvmBadParam If message type < 0 X PvmNoComp If recipient process does not exist X PvmTooLong If name too long X.SH SEE ALSO rcv(3pvm), vsnd(3pvm) END_OF_FILE if test 1158 -ne `wc -c <'pvm2.4/man/man3/snd.3'`; then echo shar: \"'pvm2.4/man/man3/snd.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/snd.3' fi if test -f 'pvm2.4/man/man3/status.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/status.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/status.3'\" \(788 characters\) sed "s/^X//" >'pvm2.4/man/man3/status.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH STATUS 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME status \- query the status of a PVM process X.SH SYNOPSIS X.ft B int cc = status(name, inum) X.br char *name; X.br int inum; X.ft R X.SH DESCRIPTION X.I Status checks whether a specified process exists, that is, the process has enrolled or was created by pvm and has not yet exited. X.I Name and \fIinum\fR are the name and instance number of the process. X.SH RETURN VALUE X.I Status returns 1 if the process exists, and 0 if it does not. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr Unknown system error X PvmTooLong If name too long X.SH SEE ALSO enroll(3pvm), initiate(3pvm), terminate(3pvm) END_OF_FILE if test 788 -ne `wc -c <'pvm2.4/man/man3/status.3'`; then echo shar: \"'pvm2.4/man/man3/status.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/status.3' fi if test -f 'pvm2.4/man/man3/terminate.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/terminate.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/terminate.3'\" \(701 characters\) sed "s/^X//" >'pvm2.4/man/man3/terminate.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH TERMINATE 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME terminate \- terminate a PVM process X.SH SYNOPSIS X.ft B int terminate(name, inum) X.br char *name; X.br int inum; X.ft R X.SH DESCRIPTION X.I Terminate commands PVM to kill a process. X.I Name and \fIinum\fR are the name and instance number of the process. X.SH RETURN VALUE X.I Terminate returns 0 if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr Unknown system error X PvmTooLong If name too long X PvmNoComp if process does not exist X.SH SEE ALSO enroll(3pvm), initiate(3pvm), status(3pvm) END_OF_FILE if test 701 -ne `wc -c <'pvm2.4/man/man3/terminate.3'`; then echo shar: \"'pvm2.4/man/man3/terminate.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/terminate.3' fi if test -f 'pvm2.4/man/man3/vrcv.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/vrcv.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/vrcv.3'\" \(2168 characters\) sed "s/^X//" >'pvm2.4/man/man3/vrcv.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH VRCV 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME vrcv, vrcvmulti \- accept a message from process receive queue X.SH SYNOPSIS X.ft B int cc = vrcv(type) X.br int type; X int cc = vrcvmulti(ntypes, types) X.br int ntypes, *types; X.ft R X.SH DESCRIPTION X.I Vrcv removes a message from the process's receive queue, makes it the active received message, and rewinds the read pointer to the beginning. X.I Type specifies the message type (>= 0) for accept. X.I Vrcv picks the earliest-received message in the queue whose type matches the specified type. A \fItype\fR of -1 matches the first message in the queue. X.PP X.I Vrcvmulti behaves similarly to \fIvrcv\fR except that it picks the first message whose type matches one in a set specified by the user. X.I Types is an array of length \fIntypes\fR containing the acceptable types. X.PP These functions block until a message of the requested type is ready to be received. X.PP It is possible to receive a defective message. The user can force a message to be packed in host native data format using \fIpvm_inithow\fR (see initsend(3pvm)) and subsequently send it to a host with a different native format. X.I vrcv and \fIvrcvmulti\fR return an error condition upon receiving such a message. X.PP The purpose of these functions is to provide a message mechanism for users who need the bandwidth of a TCP connection. In addition, it provides a test bed for other protocols. X.PP Messages sent on a virtual circuit are currently considered to be in a different "space" than messages send by \fIsnd\fR. This means that: X1.) You cannot receive a message sent on the virtual circuit with a normal \fIrcv\fR and vice-versa, and X2.) Message ordering between the two mechanisms may not be preserved. X.SH RETURN VALUE X.I Vrcv and \fIvrcvmulti\fR return the type of the accepted message (>= 0) if successful. On failure, they return a negative number and set pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr System error or process not enrolled X PvmBadMsg Message was packed in a foreign format X.SH SEE ALSO rcv(3pvm), rcvinfo(3pvm), vsnd(3pvm) END_OF_FILE if test 2168 -ne `wc -c <'pvm2.4/man/man3/vrcv.3'`; then echo shar: \"'pvm2.4/man/man3/vrcv.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/vrcv.3' fi if test -f 'pvm2.4/man/man3/vsnd.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/vsnd.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/vsnd.3'\" \(1676 characters\) sed "s/^X//" >'pvm2.4/man/man3/vsnd.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH VSND 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME vsnd \- send a message to a PVM process X.SH SYNOPSIS X.ft B int vsnd(name, inum, type) X.br char *name; X.br int inum, type; X.ft R X.SH DESCRIPTION X.I Vsnd transmits a message to another process. It returns as soon as the receiving process has accepted the message, i.e. copied it to its address space. X.I Name and \fIinum\fR are the name and instance number of the process the message is to be sent to. X.I Type is the (user-defined) type of the message, which can be used by the receiving process to identify the message meaning or to select the message from the receive queue. It must be >= 0. X.PP If \fIinum\fR is given as -1, the message is broadcast to all instance numbers of process \fIname\fR. X.PP The purpose of these functions is to provide a message mechanism for users who need the bandwidth of a TCP connection. In addition, it provides a test bed for other protocols. X.PP Messages sent on a virtual circuit are currently considered to be in a different "space" than messages send by \fIsnd\fR. This means that: X1.) You cannot receive a message sent on the virtual circuit with a normal \fIrcv\fR and vice-versa, and X2.) Message ordering between the two mechanisms may not be preserved. X.SH RETURN VALUE X.I Vsnd returns 0 if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr System error or process not enrolled X PvmBadParam If message type < 0 X PvmNoComp If recipient process does not exist X PvmTooLong If name too long X.SH SEE ALSO snd(3pvm), vrcv(3pvm) END_OF_FILE if test 1676 -ne `wc -c <'pvm2.4/man/man3/vsnd.3'`; then echo shar: \"'pvm2.4/man/man3/vsnd.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/vsnd.3' fi if test -f 'pvm2.4/man/man3/waituntil.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/waituntil.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/waituntil.3'\" \(898 characters\) sed "s/^X//" >'pvm2.4/man/man3/waituntil.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH WAITUNTIL 3PVM "26 May, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME waituntil \- pause until semaphore set X.SH SYNOPSIS X.ft B int waituntil(name) X.br char *name; X.ft R X.SH DESCRIPTION X.I Waituntil causes the process to pause until the named semaphore is set by a \fIready\fR call. If the semaphore has already been set, \fIwaituntil\fR returns immediately. X.PP X.I Name may be any null-terminated string up to 31 characters long, but should probably be human readable for convenience. X.PP Semaphore names, once set, cannot be reset until an epoch (when there are no active processes). X.SH RETURN VALUE X.I Waituntil returns 0 if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr Unknown system error X PvmTooLong If name too long X.SH SEE ALSO ready(3pvm) END_OF_FILE if test 898 -ne `wc -c <'pvm2.4/man/man3/waituntil.3'`; then echo shar: \"'pvm2.4/man/man3/waituntil.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/waituntil.3' fi if test -f 'pvm2.4/man/man3/whoami.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/man/man3/whoami.3'\" else echo shar: Extracting \"'pvm2.4/man/man3/whoami.3'\" \(1073 characters\) sed "s/^X//" >'pvm2.4/man/man3/whoami.3' <<'END_OF_FILE' X.\" ident info X.\" X.TH WHOAMI 3PVM "15 Jul, 1992" "Version 2.4.1" "Parallel Virtual Machine" X.SH NAME whoami \- identify PVM name for process X.SH SYNOPSIS X.ft B int whoami(name, inum) X.br char *name; X.br int *inum; X.ft R X.SH DESCRIPTION X.I Whoami returns the name and instance number for the process. In order for \fIwhoami\fR to succeed, the process must have either enrolled itself or been created by another PVM process with \fIinitiate\fR. A process created via \fIinitiate\fR must call \fIenroll\fR (with the correct name) or \fIwhoami\fR before taking any other PVM-related actions. X.PP XEither of the args may be a NULL pointer if that information is not desired. X.I Name should point to at least 32 bytes of space. X.SH RETURN VALUE X.I Whoami returns 0 if successful. On failure, it returns a negative number and sets pvm_errno to the same value. X.PP The possible error conditions are: X.nf X.ta 0.5i 2.0i X PvmSysErr Unknown system error X PvmNoComp If no name available (process has not X enrolled and was not created by pvmd) X.SH SEE ALSO enroll(3pvm), initiate(3pvm) END_OF_FILE if test 1073 -ne `wc -c <'pvm2.4/man/man3/whoami.3'`; then echo shar: \"'pvm2.4/man/man3/whoami.3'\" unpacked with wrong size! fi # end of 'pvm2.4/man/man3/whoami.3' fi if test ! -d 'pvm2.4/mandel' ; then echo shar: Creating directory \"'pvm2.4/mandel'\" mkdir 'pvm2.4/mandel' fi if test -f 'pvm2.4/mandel/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/mandel/Makefile'\" else echo shar: Extracting \"'pvm2.4/mandel/Makefile'\" \(671 characters\) sed "s/^X//" >'pvm2.4/mandel/Makefile' <<'END_OF_FILE' X# X# makefile for mandelbrot stuff X# X# ARCH and PVMLFLAGS are imported automagically if you use "aimk". X#ARCH = UNKNOWN X PLIB = ../src/$(ARCH)/libpvm.a XXDIR = ../$(ARCH) SDIR = . X CC = cc CFLAGS = -O -DUSE_VC LIBS = $(PVMLFLAGS) X all: mandel_main mandel_tile X xpx: xpx.c X $(CC) -o xpx xpx.c -lX11 -lm X X$(XDIR): X - mkdir $(XDIR) X mandel_main: $(SDIR)/mandel_main.c $(PLIB) $(XDIR) X $(CC) $(CFLAGS) -o mandel_main $(SDIR)/mandel_main.c $(PLIB) $(LIBS) X mv mandel_main $(XDIR) X mandel_tile: $(SDIR)/mandel_tile.c $(PLIB) $(XDIR) X $(CC) $(CFLAGS) -o mandel_tile $(SDIR)/mandel_tile.c $(PLIB) $(LIBS) -lm X mv mandel_tile $(XDIR) X clean: X rm -f mandel_main mandel_tile *.o xpx X END_OF_FILE if test 671 -ne `wc -c <'pvm2.4/mandel/Makefile'`; then echo shar: \"'pvm2.4/mandel/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/mandel/Makefile' fi if test -f 'pvm2.4/mandel/Readme' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/mandel/Readme'\" else echo shar: Extracting \"'pvm2.4/mandel/Readme'\" \(817 characters\) sed "s/^X//" >'pvm2.4/mandel/Readme' <<'END_OF_FILE' X Readme file for Mandel demo X21 Jan 1992 X X________________________________________________________________________ X This directory contains two programs, mandel_main and mandel_tile. They work together via PVM to calculate a Mandelbrot set. X The main program is started by hand. You specify the width and height, coordinates, and number of processors. It will start up the tile programs (however many specified), pass them the subcoordinates, piece together their results. X To compile the programs, set the architecture type at the top of the makefile and type "make". Alternatively, just use "aimk". X To run, start up some PVMDs and run mandel_main. Be sure you have mandel_tile installed for each machine in the hosts file. X X+ If USE_VC is defined in the Makefile, demo uses vsnd/vrcv X virtual circuit calls. X END_OF_FILE if test 817 -ne `wc -c <'pvm2.4/mandel/Readme'`; then echo shar: \"'pvm2.4/mandel/Readme'\" unpacked with wrong size! fi # end of 'pvm2.4/mandel/Readme' fi if test -f 'pvm2.4/mandel/mandel_main.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/mandel/mandel_main.c'\" else echo shar: Extracting \"'pvm2.4/mandel/mandel_main.c'\" \(4695 characters\) sed "s/^X//" >'pvm2.4/mandel/mandel_main.c' <<'END_OF_FILE' X X/* X* mandel_main.c X* X* Mandelbrot calculator. X* Uses mandel_tile processes to calculate strips from the requested X* region, cats the strips together. X* X* Usage: X* mandel_main width height x1 y1 x2 y2 filename X* ( mandel_main 256 256 -2.0 -2.0 2.0 2.0 whole_mandelbrot ) X* X* 3 Jun 1991 Robert Manchek manchek@CS.UTK.EDU. X* 22 Sep 91 - took out ncpus command arg because we can find out from pvm X*/ X X#include X#include X#include X#include X char *mandelbrot(); X char *webe = 0; /* this process name */ int nprocessors = 1; /* number of processors to use */ int *pinums = 0; /* processor instance numbers */ X X char * my_rindex(s, c) X char *s; X char c; X{ X char *p = 0; X X do { X if (c == *s) X p = s; X } while (*s++); X return p; X} X X main(argc, argv) X int argc; X char **argv; X{ X int myinum; /* my instance number */ X int wd = 16, ht = 16; /* size of image to calculate */ X double x1, y1, x2, y2; /* image corner coordinates */ X char *pix; /* image data */ X int d; /* output file */ X int i; /* gp */ X char *dfn; /* file to write to */ X X webe = (webe = my_rindex(argv[0], '/')) ? webe + 1 : argv[0]; X X if (argc != 8) goto usage; X wd = atoi(argv[1]); X ht = atoi(argv[2]); X x1 = atof(argv[3]); X y1 = atof(argv[4]); X x2 = atof(argv[5]); X y2 = atof(argv[6]); X dfn = argv[7]; X if (wd < 1 || wd > 2048 || ht < 1 || ht > 2048) { X fputs("width and heigh must be between 1 and 2048\n", stderr); X goto usage; X } X X /* enroll in pvm */ X X if ((myinum = enroll(webe)) < 0) { X pvm_perror("enroll"); X exit(1); X } X X pstatus(&nprocessors, (int*)0); X nprocessors *= 2; X if (nprocessors > wd) X nprocessors = wd; X fprintf(stderr, "using %d tile servers in calculation\n", nprocessors); X X /* create n instances of mandel_tile */ X X pinums = (int*)malloc(nprocessors * sizeof(int)); X for (i = 0; i < nprocessors; i++) { X if ((pinums[i] = initiate("mandel_tile", (char*)0)) < 0) { X pvm_perror("initiate"); X fputs("can't initiate calculator\n", stderr); X leave(); X exit(1); X } X } X X pix = mandelbrot(x1, y1, x2, y2, wd, ht); X X fputs("writing\n", stderr); X if ((d = open(dfn, O_WRONLY|O_CREAT|O_TRUNC, 0666)) == -1) { X perror(dfn); X X } else { X (void)write(d, pix, wd * ht); X (void)close(d); X fprintf(stderr, "%s: written\n", dfn); X } X X /* kill processors we created */ X X for (i = 0; i < nprocessors; i++) { X terminate("mandel_tile", pinums[i]); X } X X /* un-enroll from pvm */ X X leave(); X exit(0); X usage: X fputs("usage: mandel_main width height x1 y1 x2 y2 filename\n", X stderr); X exit(1); X} X char* mandelbrot(x1, y1, x2, y2, wd, ht) X double x1, y1, x2, y2; X int wd, ht; X{ X char *pix = 0; /* calculated image */ X char *tile = 0; /* data from a single strip */ X int *tpos; /* tile positions */ X int maxwd = 0; /* maximum width of strip */ X int slaveinum; /* processor id responding */ X int twd; /* width of a tile */ X double xyxy[4]; /* gp */ X int wdht[2]; /* gp */ X int i, j; /* gp */ X int y; /* gp */ X char *ba1, *ba2; /* gp */ X X pix = (char*)malloc(wd * ht); X X /* divide up area into strips and assign them to processors */ X X tpos = (int*)malloc((nprocessors + 1) * sizeof(int)); X x2 -= x1; X xyxy[0] = x1; X xyxy[1] = y1; X xyxy[3] = y2; X wdht[1] = ht; X tpos[0] = 0; X fputs("sending work to processors\n", stderr); X for (i = 0; i < nprocessors; i++) { X initsend(); X tpos[i + 1] = ((i + 1) * wd) / nprocessors; X wdht[0] = tpos[i + 1] - tpos[i]; X if (wdht[0] > maxwd) X maxwd = wdht[0]; X xyxy[2] = (tpos[i + 1] * x2) / wd + x1; X putndfloat(xyxy, 4); X putnint(wdht, 2); X#ifdef USE_VC X if (vsnd("mandel_tile", pinums[i], 1)) { X#else X if (snd("mandel_tile", pinums[i], 1)) { X#endif X pvm_perror("snd"); X fprintf(stderr, "error sending to <%s,%d>\n", X "mandel_tile", pinums[i]); X leave(); X exit(1); X } X xyxy[0] = xyxy[2]; X } X X /* collect results and patch together */ X X tile = (char*)malloc(maxwd * ht); X fputs("processors responding:", stderr); fflush(stderr); X for (i = 0; i < nprocessors; i++) { X#ifdef USE_VC X if (vrcv(2) != 2) { X#else X if (rcv(2) != 2) { X#endif X fprintf(stderr, "error receiving message type 2\n"); X leave(); X exit(1); X } X rcvinfo((int*)0, (int*)0, (char*)0, &slaveinum); X for (j = 0; j < nprocessors; j++) X if (pinums[j] == slaveinum) break; X if (j < nprocessors) { X fprintf(stderr, " %d", slaveinum); fflush(stderr); X twd = tpos[j + 1] - tpos[j]; X getbytes(tile, twd * ht); X ba1 = tile; X ba2 = pix + tpos[j]; X for (y = ht; y-- > 0; ) { X bcopy(ba1, ba2, twd); X ba1 += twd; X ba2 += wd; X } X X } else { X fprintf(stderr, "got response from unknown processor %d?\n", X slaveinum); X } X } X fputs("\n", stderr); X free(tpos); X free(tile); X return pix; X} X END_OF_FILE if test 4695 -ne `wc -c <'pvm2.4/mandel/mandel_main.c'`; then echo shar: \"'pvm2.4/mandel/mandel_main.c'\" unpacked with wrong size! fi # end of 'pvm2.4/mandel/mandel_main.c' fi if test -f 'pvm2.4/mandel/mandel_tile.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/mandel/mandel_tile.c'\" else echo shar: Extracting \"'pvm2.4/mandel/mandel_tile.c'\" \(2619 characters\) sed "s/^X//" >'pvm2.4/mandel/mandel_tile.c' <<'END_OF_FILE' X X/* X* mandel_tile.c X* X* Mandelbrot tile calculation server. X* Receives a request to calculate a tile, generates the tile, and X* sends it back. X* X* 3 Jun 1991 Robert Manchek manchek@CS.UTK.EDU. X* 2 Dec 91 check for null argv[0] X*/ X X#include X#include X#include X#include "../src/pvmuser.h" X char* calc_tile(); X char *webe; X X char * my_rindex(s, c) X char *s; X char c; X{ X char *p = 0; X X do { X if (c == *s) X p = s; X } while (*s++); X return p; X} X X main(argc, argv) X int argc; X char **argv; X{ X char *av0; X int myinum; /* my instance number */ X char mastername[32]; /* who sent us this tile */ X int masterinum; X double x1, y1, x2, y2; /* tile corner coordinates */ X int wd, ht; /* size of tile */ X char *pix; /* calculated image */ X X av0 = (argv[0] && argv[0][0]) ? argv[0] : "mandel_tile"; X webe = (webe = my_rindex(av0, '/')) ? webe + 1 : av0; X myinum = enroll(webe); X X /* loop forever reading sizes and coords of tiles we should calculate */ X X#ifdef USE_VC X while (vrcv(1) == 1) { X#else X while (rcv(1) == 1) { X#endif X X rcvinfo((int*)0, (int*)0, mastername, &masterinum); X getndfloat(&x1, 1); X getndfloat(&y1, 1); X getndfloat(&x2, 1); X getndfloat(&y2, 1); X getnint(&wd, 1); X getnint(&ht, 1); X X/* X fprintf(stderr, "<%s,%d>: %dx%d tile between %f,%f and %f,%f\n", X webe, myinum, wd, ht, x1, y1, x2, y2); X*/ X X pix = calc_tile(x1, y1, x2, y2, wd, ht); X X initsend(); X/* X pvm_inithow(PvmDataRaw); X*/ X putbytes(pix, wd * ht); X free(pix); X#ifdef USE_VC X if (vsnd(mastername, masterinum, 2)) { X#else X if (snd(mastername, masterinum, 2)) { X#endif X pvm_perror("snd"); X fprintf(stderr, "<%s,%d> error sending image back\n", X webe, myinum); X } X } X fprintf(stderr, "error receiving work to do\n"); X leave(); X exit(1); X} X char* calc_tile(x1, y1, x2, y2, wd, ht) X double x1, y1, x2, y2; /* tile corner coords */ X int wd, ht; /* size of tile */ X{ X char *pix; /* calculated image */ X int ix, iy; /* loop indices */ X double x, y; /* pixel coords */ X double ar, ai, a; /* accums */ X int ite; /* number of iter until divergence */ X X if (wd < 1 || wd > 1024 || ht < 1 || ht > 1024) { X fputs("insane wd/ht\n", stderr); X leave(); X exit(1); X } X pix = (char*)malloc(wd * ht); X x2 -= x1; X y2 -= y1; X for (iy = 0; iy < ht; iy++) { X y = (iy * y2) / ht + y1; X for (ix = 0; ix < wd; ix++) { X x = (ix * x2) / wd + x1; X ar = x; X ai = y; X for (ite = 0; ite < 255; ite++) { X a = (ar * ar) + (ai * ai); X if (a > 4.0) break; X a = ar * ar - ai * ai; X ai *= 2 * ar; X ar = a + x; X ai += y; X } X pix[iy * wd + ix] = ~ite; X } X } X return pix; X} X END_OF_FILE if test 2619 -ne `wc -c <'pvm2.4/mandel/mandel_tile.c'`; then echo shar: \"'pvm2.4/mandel/mandel_tile.c'\" unpacked with wrong size! fi # end of 'pvm2.4/mandel/mandel_tile.c' fi if test -f 'pvm2.4/mandel/xpx.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/mandel/xpx.c'\" else echo shar: Extracting \"'pvm2.4/mandel/xpx.c'\" \(16953 characters\) sed "s/^X//" >'pvm2.4/mandel/xpx.c' <<'END_OF_FILE' X/* X * xpx.c X * X * usage: X * xpx wid hgt [imagefile] X * options: X * -display X * +/-color X * +/-c X * +/-lut X * +/-v X * X * Display a raw (no header) 8 bit per pixel greyscale image in an Xwindow. X * X * Jan 1991 Manchek manchek@CS.UTK.EDU. X * Mar 1991 Added framing window for pix and lut, handles expose, lut X * does rubberline. X */ X X X#include X#include X#include X#include X#include X#include X#include X#include X X#define NPV 64 /* this is the number of pixel values used, X must be a power of two */ X X#define min(a,b) ((a)<(b)?(a):(b)) X#define max(a,b) ((a)>(b)?(a):(b)) X X#define MYEVENTS (PointerMotionMask|ButtonPressMask|ButtonReleaseMask|ExposureMask|KeyPressMask) X X/******************************************* X* Known arguments and fallbacks, resources * X*******************************************/ X char *fallbacks[] = { X ".display:", X ".color:false", X ".lut:false", X ".v:false", X 0 X}; X XXrmOptionDescRec knownargs[] = { X { "-display", ".display", XrmoptionSepArg, (caddr_t)0 }, X { "-color", ".color", XrmoptionNoArg, "true"}, X { "+color", ".color", XrmoptionSepArg, "false"}, X { "-c", ".color", XrmoptionNoArg, "true"}, X { "+c", ".color", XrmoptionNoArg, "false"}, X { "-lut", ".lut", XrmoptionNoArg, "true"}, X { "+lut", ".lut", XrmoptionNoArg, "false"}, X { "-v", ".v", XrmoptionNoArg, "true"}, X { "+v", ".v", XrmoptionNoArg, "false"} X}; X struct { X char *dispname; X int docolor; X int dolut; X int portrait; X} app_res; X X X/********** X* Globals * X**********/ X char *webe; /* out a.out name */ Display *dis; /* display */ Visual *defvi; /* the default visual */ int sn; /* def screen number */ u_long bp, wp; /* black, white on screen */ int np; /* number of planes on screen */ int bpp; /* bits per pixel for direct display */ int bypp; /* bytes per pixel for direct display */ u_long rmsk, gmsk, bmsk; int rshf, gshf, bshf; int nomap = 0; /* not using a colormap */ Colormap cmap; /* default colormap */ int ctes[NPV]; /* colormap indices given to us */ XXImage *img; /* image to display */ char *ribuf; /* raw image buffer */ char *imbuf; /* displayed image buffer */ int wid, hgt; /* size of displayed image */ int nb; /* length of raw image in bytes */ int lut[NPV]; /* the (user-specified) lookup table */ u_long reds[NPV]; /* red of rainbow lut */ u_long greens[NPV]; /* green of rainbow lut */ u_long blues[NPV]; /* blue of rainbow lut */ int ibo; /* display image byte order for displays deeper than 8 */ X X/* xparms() X* X* Parse the command line, get resources, etc. X*/ X xparms(ac, av, options, numoptions, fallbacks) X int *ac; X char **av; X XrmOptionDescRec *options; X int numoptions; X char **fallbacks; X{ X char *getenv(); X X XrmDatabase defdb, udb; X XrmValue rval; X X char *hodir; X char *xdfile; X int l; X X webe = (webe = rindex(av[0], '/')) ? webe + 1 : av[0]; X X XrmInitialize(); X defdb = XrmGetStringDatabase(""); X if (fallbacks) { X while (*fallbacks) { X XrmPutLineResource(&defdb, *fallbacks); X fallbacks++; X } X } X if (hodir = getenv("HOME")) { X l = strlen(hodir); X xdfile = (char*)malloc(l + 16); X bcopy(hodir, xdfile, l); X bcopy("/.Xdefaults", xdfile + l, 12); X if (udb = XrmGetFileDatabase(xdfile)) { X XrmMergeDatabases(udb, &defdb); X } X } X if (options && numoptions > 0) X XrmParseCommand(&defdb, options, numoptions, webe, ac, av); X X /* X * Wierd client-specific part -- have to make this parsing X * portable X */ X X { X char buf[256]; X static char *t[] = {"String", 0}; X X strcpy(buf, webe); X strcat(buf, ".display"); X if (XrmGetResource(defdb, buf, "Display", t, &rval)) X app_res.dispname = rval.addr; X else X app_res.dispname = 0; X X strcpy(buf, webe); X strcat(buf, ".color"); X if (XrmGetResource(defdb, buf, "Color", t, &rval)) { X if (!strcasecmp(rval.addr, "true") X || !strcasecmp(rval.addr, "on")) X app_res.docolor = 1; X } else X app_res.docolor = 0; X X strcpy(buf, webe); X strcat(buf, ".lut"); X if (XrmGetResource(defdb, buf, "Lut", t, &rval)) { X if (!strcasecmp(rval.addr, "true") X || !strcasecmp(rval.addr, "on")) X app_res.dolut = 1; X } else X app_res.dolut = 0; X X strcpy(buf, webe); X strcat(buf, ".v"); X if (XrmGetResource(defdb, buf, "V", t, &rval)) { X if (!strcasecmp(rval.addr, "true") X || !strcasecmp(rval.addr, "on")) X app_res.portrait = 1; X } else X app_res.portrait = 0; X } X} X X main(argc, argv) X int argc; X char **argv; X{ X char *fn; X X /* get resources, options */ X X xparms(&argc, argv, knownargs, sizeof(knownargs)/sizeof(knownargs[0]), X fallbacks); X X if (argc < 3 || argc > 4) goto usage; X X wid = atoi(argv[1]); X hgt = atoi(argv[2]); X X setupdpy(); X mkrbow(NPV, reds, greens, blues); X X /* read in the image data */ X X fn = (argc > 3) ? argv[3] : 0; X nb = wid * hgt; X getbuf(fn, nb); X X setupimg(); X X show(); X X exit(0); X usage: X fputs("usage: xpx wid hgt [filename]\n", stderr); X fputs("options:\n", stderr); X fputs(" -display \n", stderr); X fputs(" +/-color\n", stderr); X fputs(" +/-c\n", stderr); X fputs(" +/-lut\n", stderr); X fputs(" +/-v\n", stderr); X exit(1); X} X X/* getbuf() X* X* Read file fn (or stdin if fn = 0) into a buffer. X*/ X getbuf(fn, nb) X char *fn; X int nb; X{ X int f; X int i, j; X char c; X char *s = "stdin"; X X if (fn) { X if ((f = open(fn, O_RDONLY, 0)) == -1) { X perror(fn); X exit(1); X } X } else { X fn = s; X f = 0; X } X ribuf = (char*)malloc(nb); X bzero(ribuf, nb); X X if ((j = tread(f, ribuf, nb)) == -1) { X perror(fn); X exit(1); X } X if (j < nb) X fprintf(stderr, "%s: warning, early EOF\n", fn); X else X if (read(f, &c, 1) == 1) X fprintf(stderr, "%s: warning, extra bytes\n", fn); X if (fn != s) X (void)close(f); X} X X/* setupdpy() X* X* Setup display. Initializes globals X* dis, sn, bp, wp, nomap, np, defvi. X* If nomap is true, initializes X* bpp, bypp, rmsk, rshf, gmsk, gshf, bmsk, bshf X* else initializes X* cmap, ctes X*/ X setupdpy() X{ X XVisualInfo *vin; X X if (!(dis = XOpenDisplay(app_res.dispname))) { X fputs("can't open display\n", stderr); X exit(1); X } X sn = DefaultScreen(dis); X X bp = BlackPixel(dis, sn); X wp = WhitePixel(dis, sn); X X np = DefaultDepth(dis, sn); X defvi = DefaultVisual(dis, sn); X X if (defvi->class == TrueColor || defvi->class == DirectColor) { X XPixmapFormatValues *pfv; X int i; X X nomap = 1; X if (!(pfv = XListPixmapFormats(dis, &i))) { X fprintf(stderr, "can't get pixmap format list for screen\n"); X exit(1); X } X while (--i >= 0) X if (pfv[i].depth == np) break; X if (i < 0) { X fprintf(stderr, "no pixmap format matches screen depth?\n"); X exit(1); X } X bypp = pfv[i].bits_per_pixel / 8; X/* X printf("nomap=1, bypp=%d, np=%d\n", bypp, np); X*/ X rmsk = defvi->red_mask; X rshf = ffs(rmsk & ~(rmsk >> 1)) - 8; X gmsk = defvi->green_mask; X gshf = ffs(gmsk & ~(gmsk >> 1)) - 8; X bmsk = defvi->blue_mask; X bshf = ffs(bmsk & ~(bmsk >> 1)) - 8; X X ibo = ImageByteOrder(dis); X } else { X nomap = 0; X cmap = DefaultColormap(dis, sn); X X XAllocColorCells(dis, cmap, 0, NULL, 0, ctes, NPV); X } X} X setupimg() X{ X int i; X X for (i = 0; i < NPV; i++) X lut[i] = i; X X if (nomap) { X imbuf = (char*)malloc(nb * bypp); X colbuf(ribuf, imbuf, nb, NPV, lut, app_res.docolor, ibo); X X img = XCreateImage(dis, defvi, np, ZPixmap, 0, X imbuf, wid, hgt, bpp, wid * bypp); X X } else { X imbuf = (char*)malloc(nb); X setlut(dis, cmap, NPV, ctes, lut, app_res.docolor); X X for (i = 0; i < nb; i++ ) { X imbuf[i] = ctes[(ribuf[i] >> 2) & 0x3f]; X } X X img = XCreateImage(dis, defvi, 8, ZPixmap, 0, imbuf, wid, hgt, 8, wid); X } X} X show() X{ X GC gc[4]; X Window mw, pixw, wl, w; X XEvent event; X XButtonEvent *bev = (XButtonEvent*)&event; X XMotionEvent *mev = (XMotionEvent*)&event; X XExposeEvent *eev = (XExposeEvent*)&event; X XSizeHints xsh; X int lwid = NPV, lhgt = NPV; X int mwid, mhgt; X int pixwx, pixwy, lutwx, lutwy; X int dragging = 0; X int x1, y1, x2, y2; X int x, y; X int ox, oy; X int i, j; X char keys[2]; /* for key press interpretation */ X X if (app_res.dolut) { X X /* display image and look-up table, edit lut */ X X if (app_res.portrait) { X mwid = (wid > lwid * 4) ? wid + 10 : lwid * 4 + 10; X mhgt = hgt + lhgt * 4 + 15; X pixwx = 5; X pixwy = 5; X lutwx = 5; X lutwy = hgt + 10; X } else { X mwid = wid + lwid * 4 + 15; X mhgt = (hgt > lhgt * 4) ? hgt + 10 : lhgt * 4 + 10; X pixwx = 5; X pixwy = 5; X lutwx = wid + 10; X lutwy = 5; X } X mw = XCreateSimpleWindow(dis, X RootWindow(dis, sn), X 0, 0, mwid, mhgt, X 1, wp, bp); X XStoreName(dis, mw, "xpx"); X xsh.flags = USSize; X xsh.width = mwid; X xsh.height = mhgt; X XSetNormalHints(dis, mw, &xsh); X X pixw = XCreateSimpleWindow(dis, mw, pixwx, pixwy, wid, hgt, 1, wp, bp); X X gc[2] = XCreateGC(dis, mw, (u_long)0, (XGCValues*)0); X XSetBackground(dis, gc[2], bp); X XSetFunction(dis, gc[2], GXcopy); X X for (x = 0; x < lwid; x++) X lut[x] = x; X X wl = XCreateSimpleWindow(dis, X mw, lutwx, lutwy, lwid * 4, lhgt * 4, 1, wp, bp); X X gc[0] = XCreateGC(dis, mw, (u_long)0, (XGCValues*)0); X XSetBackground(dis, gc[0], wp); X XSetForeground(dis, gc[0], bp); X XSetFunction(dis, gc[0], GXcopy); X X gc[1] = XCreateGC(dis, mw, (u_long)0, (XGCValues*)0); X XSetBackground(dis, gc[1], bp); X XSetForeground(dis, gc[1], wp); X XSetFunction(dis, gc[1], GXcopy); X X gc[3] = XCreateGC(dis, mw, (u_long)0, (XGCValues*)0); X XSetForeground(dis, gc[3], bp ^ wp); X XSetFunction(dis, gc[3], GXxor); X X XSelectInput(dis, mw, MYEVENTS); X XMapWindow(dis, mw); X XMapSubwindows(dis, mw); X X while (1) { X XWindowEvent (dis, mw, MYEVENTS, &event); X X switch (event.type) { X X case Expose: X if (eev->count == 0) { X XClearWindow(dis, wl); X for (x = 0; x < lwid; x++) { X XFillRectangle(dis, wl, gc[1], X x * 4, lhgt * 4 - 1 - lut[x] * 4, X 4, lut[x] * 4); X } X XPutImage(dis, pixw, gc[2], img, 0, 0, 0, 0, wid, hgt); X } X break; X X case ButtonPress: X if (bev->subwindow != wl X || bev->button != Button1) X break; X XTranslateCoordinates(dis, mw, wl, X (int)mev->x, (int)mev->y, &x, &y, &w); X dragging = 1; X ox = x1 = x; X oy = y1 = y; X XDrawLine(dis, wl, gc[3], x1, y1, ox, oy); X break; X X case MotionNotify: X if (mev->subwindow != wl) X break; X if (dragging) { X XTranslateCoordinates(dis, mw, wl, X (int)mev->x, (int)mev->y, &x, &y, &w); X XDrawLine(dis, wl, gc[3], x1, y1, ox, oy); X ox = x; X oy = y; X XDrawLine(dis, wl, gc[3], x1, y1, ox, oy); X } X break; X X case ButtonRelease: X if (bev->subwindow != wl) X break; X XTranslateCoordinates(dis, mw, wl, X (int)mev->x, (int)mev->y, &x, &y, &w); X switch (bev->button) { X case Button1: X if (dragging) { X dragging = 0; X XDrawLine(dis, wl, gc[3], x1, y1, ox, oy); X x1 /= 4; X y1 /= 4; X x2 = x / 4; X y2 = y / 4; X if (x2 < 0) x2 = 0; X if (x2 >= lwid * 4) x2 = lwid * 4 - 1; X if (y2 < 0) y2 = 0; X if (y2 >= lhgt * 4) y2 = lhgt * 4 - 1; X { X int big, small; /* dimensions of rectangle */ X int dx, dy; /* delta x, y */ X int xdir, ydir; /* x, y direction */ X int x, y; /* position accumulator */ X int a = 0; /* accum for interpolating */ X int i; X X if ((dx = x2 - x1) < 0) { X dx = -dx; xdir = -1; X } else X xdir = 1; X if ((dy = y2 - y1) < 0) { X dy = -dy; ydir = -1; X } else X ydir = 1; X big = max(dx, dy); X small = min(dx, dy); X X x = x1; X y = y1; X X for (i = 0; i <= big; i++) { X lut[x] = lhgt - 1 - y; X XFillRectangle(dis, wl, gc[0], x * 4, 0, 4, y * 4); X XFillRectangle(dis, wl, gc[1], x * 4, y * 4, 4, (lhgt - y) * 4); X if ((a += small) > big) { X a -= big; X if (dx < dy) x += xdir; else y += ydir; X } X if (dy > dx) y += ydir; else x += xdir; X } X X if (nomap) { X colbuf(ribuf, imbuf, nb, NPV, lut, app_res.docolor, ibo); X XPutImage(dis, pixw, gc[2], img, 0, 0, 0, 0, wid, hgt); X } else X setlut(dis, cmap, NPV, ctes, lut, app_res.docolor); X XFlush(dis); X } X } X break; X X case Button2: X printf("lut values:\n"); X for (i = 0; i < lwid; i++) { X printf("%2d [%2d]%s", i, lut[i], (i & 7) == 7 ? "\n" : " "); X } X break; X X/* X case Button3: X exit(0); X break; X*/ X X default: X break; X } X break; X X case KeyPress: X if (XLookupString((XKeyEvent*)&event, keys, sizeof(keys), 0, 0) X == 1 && (keys[0] == 'q' || keys[0] == 'Q')) X exit(0); X break; X X default: X break; X } X } X X } else { X X /* no look-up table, just display */ X X pixw = XCreateSimpleWindow(dis, X RootWindow(dis, sn), X 0, 0, wid, hgt, X 1, 1, 1); X XStoreName(dis, pixw, "xpx"); X X xsh.flags = USSize; X xsh.width = wid; X xsh.height = hgt; X XSetNormalHints(dis, pixw, &xsh); X X XSelectInput(dis, pixw, MYEVENTS); X X XMapWindow(dis, pixw); X X gc[2] = XCreateGC(dis, pixw, (u_long)0, (XGCValues*)0); X XSetBackground(dis, gc[2], 0); X XSetFunction(dis, gc[2], GXcopy); X X while (1) { X XWindowEvent (dis, pixw, MYEVENTS, &event); X switch (event.type) { X case Expose: X if (eev->count == 0) X XPutImage(dis, pixw, gc[2], img, 0, 0, 0, 0, wid, hgt); X break; X/* X case ButtonRelease: X exit(0); X*/ X case KeyPress: X if (XLookupString((XKeyEvent*)&event, keys, sizeof(keys), 0, 0) X == 1 && (keys[0] == 'q' || keys[0] == 'Q')) X exit(0); X break; X X default: X break; X } X } X } X} X X/* setlut() X* X* Set colormap according to lut and whether we are in color. X*/ X setlut(dis, cmap, n, ctes, lut, cbw) X Display *dis; /* display connection */ X Colormap cmap; /* colormap to write */ X int n; /* number of colormap entries */ X int *ctes; /* colormap indices */ X int *lut; /* lookup table values */ X int cbw; /* color/b&w */ X{ X XColor colr; X int i, j; X X colr.flags = DoRed|DoGreen|DoBlue; X X if (cbw) { X colr.pixel = ctes[n - 1]; X colr.red = colr.green = colr.blue = 0; X XStoreColor(dis, cmap, &colr); X for (i = 0; i < n; i++) { X colr.pixel = ctes[i]; X colr.blue = (blues[lut[i]]) << 10; X colr.green = (greens[lut[i]]) << 10; X colr.red = (reds[lut[i]]) << 10; X XStoreColor(dis, cmap, &colr); X } X X } else { X for (i = 0; i < n; i++) { X colr.pixel = ctes[i]; X colr.red = colr.green = colr.blue = (lut[i] << 10); X XStoreColor(dis, cmap, &colr); X } X } X} X u_long sw4(lp) X u_long lp; X{ X u_char *cp = (u_char*)&lp; X u_char c; X X c = cp[0]; X cp[0] = cp[3]; X cp[3] = c; X c = cp[1]; X cp[1] = cp[2]; X cp[2] = c; X return lp; X} X X/* colbuf() X* X* Recolor memory-image according to lut and whether we are in color. X*/ X colbuf(ribuf, imbuf, len, n, lut, cbw, ibo) X unsigned char *ribuf; X unsigned char *imbuf; X int len; X int n; /* number of colormap entries */ X int *lut; /* lookup table values */ X int cbw; /* color/b&w */ X int ibo; /* image byte order, either LSBFirst or MSBFirst */ X{ X int i, j; X u_long pixv, r, g, b; X int lbs; X int lbm; X u_long mbo = 0x04030201; /* machine byte order */ X int bs = 0; X X if ((*(char*)&mbo == 1 && ibo == MSBFirst) X || (*(char*)&mbo == 4 && ibo == LSBFirst)) X bs = 1; X X lbm = n - 1; X lbs = 8 - (ffs(n) - 1); X X if (cbw) { X for (i = 0; i < len; i++) { X r = reds[lut[lbm & (ribuf[i] >> lbs)]] << lbs; X g = greens[lut[lbm & (ribuf[i] >> lbs)]] << lbs; X b = blues[lut[lbm & (ribuf[i] >> lbs)]] << lbs; X pixv = (rmsk & (r << rshf)) X | (gmsk & (g << gshf)) X | (bmsk & (b << bshf)); X if (bs) X ((u_long*)imbuf)[i] = sw4(pixv); X else X ((u_long*)imbuf)[i] = pixv; X } X X } else { X for (i = 0; i < len; i++) { X pixv = lut[lbm & (ribuf[i] >> lbs)] << lbs; X pixv = (rmsk & (pixv << rshf)) X | (gmsk & (pixv << gshf)) X | (bmsk & (pixv << bshf)); X if (bs) X ((u_long*)imbuf)[i] = sw4(pixv); X else X ((u_long*)imbuf)[i] = pixv; X } X } X} X X/* mkrbow() X* X* Generate a rainbow lut. 0 is black, n-1 is white, and entries X* between those two go through the spectrum from red to violet. X*/ X mkrbow(n, r, g, b) X int n; /* number of entries */ X u_long *r, *g, *b; /* red, grn, blu lut return */ X{ X int i, j; X double d, e; X X for (i = 1; i < n - 1; i++) { X j = n - 1 - i; X d = (d = cos((double)((j - n * 0.16) * (3.1415926535 / n)))) < 0.0 X ? 0.0 : d; X b[i] = d * n; X d = (d = cos((double)((j - n * 0.52) * (3.1415926535 / n)))) < 0.0 X ? 0.0 : d; X g[i] = d * n; X d = (d = cos((double)((j - n * .83) * (3.1415926535 / n)))) < 0.0 X ? 0.0 : d; X e = (e = cos((double)(j * (3.1415926535 / n)))) < 0.0 X ? 0.0 : e; X r[i] = d * n + e * (n / 2); X } X r[i] = g[i] = b[i] = i; X r[0] = g[0] = b[0] = 0; X} X X/* tread() X* X* Tenacious read. Just like read(2) except that it will keep trying X* to get those n bytes until there really aren't any more. X* Returns the number it got or -1 if error. X*/ X int tread(d, b, n) X int d; X char *b; X int n; X{ X int e; X int x = n; X X while (x > 0) { X if ((e = read(d, b, x)) == -1) X return e; X if (!e) X return n - x; X b += e; X x -= e; X } X return n - x; X} X END_OF_FILE if test 16953 -ne `wc -c <'pvm2.4/mandel/xpx.c'`; then echo shar: \"'pvm2.4/mandel/xpx.c'\" unpacked with wrong size! fi # end of 'pvm2.4/mandel/xpx.c' fi if test ! -d 'pvm2.4/src' ; then echo shar: Creating directory \"'pvm2.4/src'\" mkdir 'pvm2.4/src' fi if test ! -d 'pvm2.4/src/AFX8' ; then echo shar: Creating directory \"'pvm2.4/src/AFX8'\" mkdir 'pvm2.4/src/AFX8' fi if test -f 'pvm2.4/src/AFX8/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/src/AFX8/Makefile'\" else echo shar: Extracting \"'pvm2.4/src/AFX8/Makefile'\" \(5238 characters\) sed "s/^X//" >'pvm2.4/src/AFX8/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/Alliant FX/8 X# ARCH = AFX8 ARCHCFLAGS = -DNOSTRCASE ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# 21 Mar 1991 X# X# Makefile for PVM/Generic X# X# $Log: Makefile.generic,v $ X# Revision 1.11 1992/06/30 16:44:23 manchek X# added comments about defines X# X# Revision 1.10 1992/03/18 23:07:51 manchek X# added archequiv.c target, remade deps X# X# Revision 1.9 1992/01/01 00:10:02 manchek X# added micomm and uliberr to libpvm objects X# X# Revision 1.8 1991/11/27 21:08:22 manchek X# added NOGETDTABLESIZE comment X# X# Revision 1.7 1991/11/26 21:40:58 manchek X# moved start.c to startup.c because crays hate that name X# X# Revision 1.6 1991/11/26 21:22:04 manchek X# forced SHELL to /bin/sh X# X# Revision 1.5 1991/11/26 19:52:43 manchek X# set up so customizing stuff can be added to head of file X# X# Revision 1.4 1991/11/26 19:08:24 manchek X# added pvmd files start.c and host.c X# X# Revision 1.3 1991/07/24 17:27:36 manchek X# remade deps due to new files. X# X# Revision 1.2 1991/05/09 15:24:16 manchek X# added tidy target X# X# Revision 1.1 1991/05/06 14:45:09 manchek X# Initial revision X# X# X# This generic template imports: X# X# ARCH = the official pvm-name of your processor X# ARCHCFLAGS = special cc flags X# ARCHDLIBS = special libs needed for daemon X# ARCHDOBJS = special objects needed for daemon X# HASRANLIB = 't' or 'f' X# X# Define: X# DEBUG to get useful information X# FDSETPATCH if machine doesn't have fd_set stuff X# SUNOS3PATCH if running SunOS < 4.0 X# NOUNIXSOC if machine doesn't have unix-domain sockets X# NOSTRCASE if libc doesn't have strcasecmp, strncasecmp X# SYSVSIGNAL for system5-like signal handling X# SYSVSTRING for strchr() instead of index() X# NOGETDTABLESIZE if libc doesn't have getdtablesize() X# SOCKADHASLEN if struct sockaddr has an sa_len field X# SHELL = /bin/sh CC = cc SDIR = .. CFLAGS = -g -DARCHCLASS=\"$(ARCH)\" -DIMA_$(ARCH) $(ARCHCFLAGS) DOBJS = archequiv.o cmd.o host.o loclcomm.o micomm.o netside.o proc.o \ X pvmd.o startup.o uside.o util.o wait.o $(ARCHDOBJS) LOBJS = ulib.o crunch.o util.o loclcomm.o micomm.o uliberr.o X# all: pvmd libpvm.a X pvmd: $(DOBJS) X $(CC) $(CFLAGS) -o pvmd $(DOBJS) $(ARCHDLIBS) X libpvm.a: $(LOBJS) X rm -f libpvm.a X ar rv libpvm.a $(LOBJS) X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libpvm.a ;; esac X clean: X rm -f $(DOBJS) $(LOBJS) pvmd libpvm.a X tidy: X rm -f $(DOBJS) $(LOBJS) X archequiv.o: $(SDIR)/archequiv.c X $(CC) $(CFLAGS) -c $(SDIR)/archequiv.c cmd.o: $(SDIR)/cmd.c X $(CC) $(CFLAGS) -c $(SDIR)/cmd.c crunch.o: $(SDIR)/crunch.c X $(CC) $(CFLAGS) -c $(SDIR)/crunch.c host.o: $(SDIR)/host.c X $(CC) $(CFLAGS) -c $(SDIR)/host.c loclcomm.o: $(SDIR)/loclcomm.c X $(CC) $(CFLAGS) -c $(SDIR)/loclcomm.c micomm.o: $(SDIR)/micomm.c X $(CC) $(CFLAGS) -c $(SDIR)/micomm.c netside.o: $(SDIR)/netside.c X $(CC) $(CFLAGS) -c $(SDIR)/netside.c proc.o: $(SDIR)/proc.c X $(CC) $(CFLAGS) -c $(SDIR)/proc.c pvmd.o: $(SDIR)/pvmd.c X $(CC) $(CFLAGS) -c $(SDIR)/pvmd.c ruserpass.o: $(SDIR)/ruserpass.c X $(CC) $(CFLAGS) -c $(SDIR)/ruserpass.c startup.o: $(SDIR)/startup.c X $(CC) $(CFLAGS) -c $(SDIR)/startup.c ulib.o: $(SDIR)/ulib.c X $(CC) $(CFLAGS) -c $(SDIR)/ulib.c uliberr.o: $(SDIR)/uliberr.c X $(CC) $(CFLAGS) -c $(SDIR)/uliberr.c uside.o: $(SDIR)/uside.c X $(CC) $(CFLAGS) -c $(SDIR)/uside.c util.o: $(SDIR)/util.c X $(CC) $(CFLAGS) -c $(SDIR)/util.c wait.o: $(SDIR)/wait.c X $(CC) $(CFLAGS) -c $(SDIR)/wait.c X X# X#include deps - generated by 'grep \#include.\*\" *.c' X# archequiv.o: $(SDIR)/global.h archequiv.o: $(SDIR)/pvmd.h crunch.o: $(SDIR)/global.h crunch.o: $(SDIR)/loclcomm.h crunch.o: $(SDIR)/pvmuser.h host.o: $(SDIR)/craypatch.h host.o: $(SDIR)/xenixpatch.h host.o: $(SDIR)/titanpatch.h host.o: $(SDIR)/global.h host.o: $(SDIR)/pvmd.h host.o: $(SDIR)/sunos3patch.h loclcomm.o: $(SDIR)/loclcomm.h micomm.o: $(SDIR)/micomm.h netside.o: $(SDIR)/global.h netside.o: $(SDIR)/pvmd.h netside.o: $(SDIR)/micomm.h netside.o: $(SDIR)/rem.h netside.o: $(SDIR)/proc.h netside.o: $(SDIR)/wait.h netside.o: $(SDIR)/loclcomm.h proc.o: $(SDIR)/global.h proc.o: $(SDIR)/proc.h proc.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/fdsetpatch.h pvmd.o: $(SDIR)/craypatch.h pvmd.o: $(SDIR)/xenixpatch.h pvmd.o: $(SDIR)/titanpatch.h pvmd.o: $(SDIR)/global.h pvmd.o: $(SDIR)/pvmd.h pvmd.o: $(SDIR)/micomm.h pvmd.o: $(SDIR)/rem.h pvmd.o: $(SDIR)/proc.h pvmd.o: $(SDIR)/wait.h pvmd.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/sunos3patch.h startup.o: $(SDIR)/fdsetpatch.h startup.o: $(SDIR)/craypatch.h startup.o: $(SDIR)/xenixpatch.h startup.o: $(SDIR)/titanpatch.h startup.o: $(SDIR)/global.h startup.o: $(SDIR)/pvmd.h startup.o: $(SDIR)/sunos3patch.h ulib.o: $(SDIR)/global.h ulib.o: $(SDIR)/loclcomm.h ulib.o: $(SDIR)/micomm.h ulib.o: $(SDIR)/pvmuser.h uside.o: $(SDIR)/global.h uside.o: $(SDIR)/pvmd.h uside.o: $(SDIR)/micomm.h uside.o: $(SDIR)/rem.h uside.o: $(SDIR)/proc.h uside.o: $(SDIR)/wait.h uside.o: $(SDIR)/loclcomm.h util.o: $(SDIR)/global.h wait.o: $(SDIR)/global.h wait.o: $(SDIR)/wait.h END_OF_FILE if test 5238 -ne `wc -c <'pvm2.4/src/AFX8/Makefile'`; then echo shar: \"'pvm2.4/src/AFX8/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/src/AFX8/Makefile' fi if test ! -d 'pvm2.4/src/ALPHA' ; then echo shar: Creating directory \"'pvm2.4/src/ALPHA'\" mkdir 'pvm2.4/src/ALPHA' fi if test -f 'pvm2.4/src/ALPHA/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/src/ALPHA/Makefile'\" else echo shar: Extracting \"'pvm2.4/src/ALPHA/Makefile'\" \(5220 characters\) sed "s/^X//" >'pvm2.4/src/ALPHA/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for DEC/Alpha X# ARCH = ALPHA ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# 21 Mar 1991 X# X# Makefile for PVM/Generic X# X# $Log: Makefile.generic,v $ X# Revision 1.11 1992/06/30 16:44:23 manchek X# added comments about defines X# X# Revision 1.10 1992/03/18 23:07:51 manchek X# added archequiv.c target, remade deps X# X# Revision 1.9 1992/01/01 00:10:02 manchek X# added micomm and uliberr to libpvm objects X# X# Revision 1.8 1991/11/27 21:08:22 manchek X# added NOGETDTABLESIZE comment X# X# Revision 1.7 1991/11/26 21:40:58 manchek X# moved start.c to startup.c because crays hate that name X# X# Revision 1.6 1991/11/26 21:22:04 manchek X# forced SHELL to /bin/sh X# X# Revision 1.5 1991/11/26 19:52:43 manchek X# set up so customizing stuff can be added to head of file X# X# Revision 1.4 1991/11/26 19:08:24 manchek X# added pvmd files start.c and host.c X# X# Revision 1.3 1991/07/24 17:27:36 manchek X# remade deps due to new files. X# X# Revision 1.2 1991/05/09 15:24:16 manchek X# added tidy target X# X# Revision 1.1 1991/05/06 14:45:09 manchek X# Initial revision X# X# X# This generic template imports: X# X# ARCH = the official pvm-name of your processor X# ARCHCFLAGS = special cc flags X# ARCHDLIBS = special libs needed for daemon X# ARCHDOBJS = special objects needed for daemon X# HASRANLIB = 't' or 'f' X# X# Define: X# DEBUG to get useful information X# FDSETPATCH if machine doesn't have fd_set stuff X# SUNOS3PATCH if running SunOS < 4.0 X# NOUNIXSOC if machine doesn't have unix-domain sockets X# NOSTRCASE if libc doesn't have strcasecmp, strncasecmp X# SYSVSIGNAL for system5-like signal handling X# SYSVSTRING for strchr() instead of index() X# NOGETDTABLESIZE if libc doesn't have getdtablesize() X# SOCKADHASLEN if struct sockaddr has an sa_len field X# SHELL = /bin/sh CC = cc SDIR = .. CFLAGS = -g -DARCHCLASS=\"$(ARCH)\" -DIMA_$(ARCH) $(ARCHCFLAGS) DOBJS = archequiv.o cmd.o host.o loclcomm.o micomm.o netside.o proc.o \ X pvmd.o startup.o uside.o util.o wait.o $(ARCHDOBJS) LOBJS = ulib.o crunch.o util.o loclcomm.o micomm.o uliberr.o X# all: pvmd libpvm.a X pvmd: $(DOBJS) X $(CC) $(CFLAGS) -o pvmd $(DOBJS) $(ARCHDLIBS) X libpvm.a: $(LOBJS) X rm -f libpvm.a X ar rv libpvm.a $(LOBJS) X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libpvm.a ;; esac X clean: X rm -f $(DOBJS) $(LOBJS) pvmd libpvm.a X tidy: X rm -f $(DOBJS) $(LOBJS) X archequiv.o: $(SDIR)/archequiv.c X $(CC) $(CFLAGS) -c $(SDIR)/archequiv.c cmd.o: $(SDIR)/cmd.c X $(CC) $(CFLAGS) -c $(SDIR)/cmd.c crunch.o: $(SDIR)/crunch.c X $(CC) $(CFLAGS) -c $(SDIR)/crunch.c host.o: $(SDIR)/host.c X $(CC) $(CFLAGS) -c $(SDIR)/host.c loclcomm.o: $(SDIR)/loclcomm.c X $(CC) $(CFLAGS) -c $(SDIR)/loclcomm.c micomm.o: $(SDIR)/micomm.c X $(CC) $(CFLAGS) -c $(SDIR)/micomm.c netside.o: $(SDIR)/netside.c X $(CC) $(CFLAGS) -c $(SDIR)/netside.c proc.o: $(SDIR)/proc.c X $(CC) $(CFLAGS) -c $(SDIR)/proc.c pvmd.o: $(SDIR)/pvmd.c X $(CC) $(CFLAGS) -c $(SDIR)/pvmd.c ruserpass.o: $(SDIR)/ruserpass.c X $(CC) $(CFLAGS) -c $(SDIR)/ruserpass.c startup.o: $(SDIR)/startup.c X $(CC) $(CFLAGS) -c $(SDIR)/startup.c ulib.o: $(SDIR)/ulib.c X $(CC) $(CFLAGS) -c $(SDIR)/ulib.c uliberr.o: $(SDIR)/uliberr.c X $(CC) $(CFLAGS) -c $(SDIR)/uliberr.c uside.o: $(SDIR)/uside.c X $(CC) $(CFLAGS) -c $(SDIR)/uside.c util.o: $(SDIR)/util.c X $(CC) $(CFLAGS) -c $(SDIR)/util.c wait.o: $(SDIR)/wait.c X $(CC) $(CFLAGS) -c $(SDIR)/wait.c X X# X#include deps - generated by 'grep \#include.\*\" *.c' X# archequiv.o: $(SDIR)/global.h archequiv.o: $(SDIR)/pvmd.h crunch.o: $(SDIR)/global.h crunch.o: $(SDIR)/loclcomm.h crunch.o: $(SDIR)/pvmuser.h host.o: $(SDIR)/craypatch.h host.o: $(SDIR)/xenixpatch.h host.o: $(SDIR)/titanpatch.h host.o: $(SDIR)/global.h host.o: $(SDIR)/pvmd.h host.o: $(SDIR)/sunos3patch.h loclcomm.o: $(SDIR)/loclcomm.h micomm.o: $(SDIR)/micomm.h netside.o: $(SDIR)/global.h netside.o: $(SDIR)/pvmd.h netside.o: $(SDIR)/micomm.h netside.o: $(SDIR)/rem.h netside.o: $(SDIR)/proc.h netside.o: $(SDIR)/wait.h netside.o: $(SDIR)/loclcomm.h proc.o: $(SDIR)/global.h proc.o: $(SDIR)/proc.h proc.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/fdsetpatch.h pvmd.o: $(SDIR)/craypatch.h pvmd.o: $(SDIR)/xenixpatch.h pvmd.o: $(SDIR)/titanpatch.h pvmd.o: $(SDIR)/global.h pvmd.o: $(SDIR)/pvmd.h pvmd.o: $(SDIR)/micomm.h pvmd.o: $(SDIR)/rem.h pvmd.o: $(SDIR)/proc.h pvmd.o: $(SDIR)/wait.h pvmd.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/sunos3patch.h startup.o: $(SDIR)/fdsetpatch.h startup.o: $(SDIR)/craypatch.h startup.o: $(SDIR)/xenixpatch.h startup.o: $(SDIR)/titanpatch.h startup.o: $(SDIR)/global.h startup.o: $(SDIR)/pvmd.h startup.o: $(SDIR)/sunos3patch.h ulib.o: $(SDIR)/global.h ulib.o: $(SDIR)/loclcomm.h ulib.o: $(SDIR)/micomm.h ulib.o: $(SDIR)/pvmuser.h uside.o: $(SDIR)/global.h uside.o: $(SDIR)/pvmd.h uside.o: $(SDIR)/micomm.h uside.o: $(SDIR)/rem.h uside.o: $(SDIR)/proc.h uside.o: $(SDIR)/wait.h uside.o: $(SDIR)/loclcomm.h util.o: $(SDIR)/global.h wait.o: $(SDIR)/global.h wait.o: $(SDIR)/wait.h END_OF_FILE if test 5220 -ne `wc -c <'pvm2.4/src/ALPHA/Makefile'`; then echo shar: \"'pvm2.4/src/ALPHA/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/src/ALPHA/Makefile' fi if test ! -d 'pvm2.4/src/BFLY' ; then echo shar: Creating directory \"'pvm2.4/src/BFLY'\" mkdir 'pvm2.4/src/BFLY' fi if test -f 'pvm2.4/src/BFLY/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/src/BFLY/Makefile'\" else echo shar: Extracting \"'pvm2.4/src/BFLY/Makefile'\" \(5224 characters\) sed "s/^X//" >'pvm2.4/src/BFLY/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/BBN TC2000 X# ARCH = BFLY ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# 21 Mar 1991 X# X# Makefile for PVM/Generic X# X# $Log: Makefile.generic,v $ X# Revision 1.11 1992/06/30 16:44:23 manchek X# added comments about defines X# X# Revision 1.10 1992/03/18 23:07:51 manchek X# added archequiv.c target, remade deps X# X# Revision 1.9 1992/01/01 00:10:02 manchek X# added micomm and uliberr to libpvm objects X# X# Revision 1.8 1991/11/27 21:08:22 manchek X# added NOGETDTABLESIZE comment X# X# Revision 1.7 1991/11/26 21:40:58 manchek X# moved start.c to startup.c because crays hate that name X# X# Revision 1.6 1991/11/26 21:22:04 manchek X# forced SHELL to /bin/sh X# X# Revision 1.5 1991/11/26 19:52:43 manchek X# set up so customizing stuff can be added to head of file X# X# Revision 1.4 1991/11/26 19:08:24 manchek X# added pvmd files start.c and host.c X# X# Revision 1.3 1991/07/24 17:27:36 manchek X# remade deps due to new files. X# X# Revision 1.2 1991/05/09 15:24:16 manchek X# added tidy target X# X# Revision 1.1 1991/05/06 14:45:09 manchek X# Initial revision X# X# X# This generic template imports: X# X# ARCH = the official pvm-name of your processor X# ARCHCFLAGS = special cc flags X# ARCHDLIBS = special libs needed for daemon X# ARCHDOBJS = special objects needed for daemon X# HASRANLIB = 't' or 'f' X# X# Define: X# DEBUG to get useful information X# FDSETPATCH if machine doesn't have fd_set stuff X# SUNOS3PATCH if running SunOS < 4.0 X# NOUNIXSOC if machine doesn't have unix-domain sockets X# NOSTRCASE if libc doesn't have strcasecmp, strncasecmp X# SYSVSIGNAL for system5-like signal handling X# SYSVSTRING for strchr() instead of index() X# NOGETDTABLESIZE if libc doesn't have getdtablesize() X# SOCKADHASLEN if struct sockaddr has an sa_len field X# SHELL = /bin/sh CC = cc SDIR = .. CFLAGS = -g -DARCHCLASS=\"$(ARCH)\" -DIMA_$(ARCH) $(ARCHCFLAGS) DOBJS = archequiv.o cmd.o host.o loclcomm.o micomm.o netside.o proc.o \ X pvmd.o startup.o uside.o util.o wait.o $(ARCHDOBJS) LOBJS = ulib.o crunch.o util.o loclcomm.o micomm.o uliberr.o X# all: pvmd libpvm.a X pvmd: $(DOBJS) X $(CC) $(CFLAGS) -o pvmd $(DOBJS) $(ARCHDLIBS) X libpvm.a: $(LOBJS) X rm -f libpvm.a X ar rv libpvm.a $(LOBJS) X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libpvm.a ;; esac X clean: X rm -f $(DOBJS) $(LOBJS) pvmd libpvm.a X tidy: X rm -f $(DOBJS) $(LOBJS) X archequiv.o: $(SDIR)/archequiv.c X $(CC) $(CFLAGS) -c $(SDIR)/archequiv.c cmd.o: $(SDIR)/cmd.c X $(CC) $(CFLAGS) -c $(SDIR)/cmd.c crunch.o: $(SDIR)/crunch.c X $(CC) $(CFLAGS) -c $(SDIR)/crunch.c host.o: $(SDIR)/host.c X $(CC) $(CFLAGS) -c $(SDIR)/host.c loclcomm.o: $(SDIR)/loclcomm.c X $(CC) $(CFLAGS) -c $(SDIR)/loclcomm.c micomm.o: $(SDIR)/micomm.c X $(CC) $(CFLAGS) -c $(SDIR)/micomm.c netside.o: $(SDIR)/netside.c X $(CC) $(CFLAGS) -c $(SDIR)/netside.c proc.o: $(SDIR)/proc.c X $(CC) $(CFLAGS) -c $(SDIR)/proc.c pvmd.o: $(SDIR)/pvmd.c X $(CC) $(CFLAGS) -c $(SDIR)/pvmd.c ruserpass.o: $(SDIR)/ruserpass.c X $(CC) $(CFLAGS) -c $(SDIR)/ruserpass.c startup.o: $(SDIR)/startup.c X $(CC) $(CFLAGS) -c $(SDIR)/startup.c ulib.o: $(SDIR)/ulib.c X $(CC) $(CFLAGS) -c $(SDIR)/ulib.c uliberr.o: $(SDIR)/uliberr.c X $(CC) $(CFLAGS) -c $(SDIR)/uliberr.c uside.o: $(SDIR)/uside.c X $(CC) $(CFLAGS) -c $(SDIR)/uside.c util.o: $(SDIR)/util.c X $(CC) $(CFLAGS) -c $(SDIR)/util.c wait.o: $(SDIR)/wait.c X $(CC) $(CFLAGS) -c $(SDIR)/wait.c X X# X#include deps - generated by 'grep \#include.\*\" *.c' X# archequiv.o: $(SDIR)/global.h archequiv.o: $(SDIR)/pvmd.h crunch.o: $(SDIR)/global.h crunch.o: $(SDIR)/loclcomm.h crunch.o: $(SDIR)/pvmuser.h host.o: $(SDIR)/craypatch.h host.o: $(SDIR)/xenixpatch.h host.o: $(SDIR)/titanpatch.h host.o: $(SDIR)/global.h host.o: $(SDIR)/pvmd.h host.o: $(SDIR)/sunos3patch.h loclcomm.o: $(SDIR)/loclcomm.h micomm.o: $(SDIR)/micomm.h netside.o: $(SDIR)/global.h netside.o: $(SDIR)/pvmd.h netside.o: $(SDIR)/micomm.h netside.o: $(SDIR)/rem.h netside.o: $(SDIR)/proc.h netside.o: $(SDIR)/wait.h netside.o: $(SDIR)/loclcomm.h proc.o: $(SDIR)/global.h proc.o: $(SDIR)/proc.h proc.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/fdsetpatch.h pvmd.o: $(SDIR)/craypatch.h pvmd.o: $(SDIR)/xenixpatch.h pvmd.o: $(SDIR)/titanpatch.h pvmd.o: $(SDIR)/global.h pvmd.o: $(SDIR)/pvmd.h pvmd.o: $(SDIR)/micomm.h pvmd.o: $(SDIR)/rem.h pvmd.o: $(SDIR)/proc.h pvmd.o: $(SDIR)/wait.h pvmd.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/sunos3patch.h startup.o: $(SDIR)/fdsetpatch.h startup.o: $(SDIR)/craypatch.h startup.o: $(SDIR)/xenixpatch.h startup.o: $(SDIR)/titanpatch.h startup.o: $(SDIR)/global.h startup.o: $(SDIR)/pvmd.h startup.o: $(SDIR)/sunos3patch.h ulib.o: $(SDIR)/global.h ulib.o: $(SDIR)/loclcomm.h ulib.o: $(SDIR)/micomm.h ulib.o: $(SDIR)/pvmuser.h uside.o: $(SDIR)/global.h uside.o: $(SDIR)/pvmd.h uside.o: $(SDIR)/micomm.h uside.o: $(SDIR)/rem.h uside.o: $(SDIR)/proc.h uside.o: $(SDIR)/wait.h uside.o: $(SDIR)/loclcomm.h util.o: $(SDIR)/global.h wait.o: $(SDIR)/global.h wait.o: $(SDIR)/wait.h END_OF_FILE if test 5224 -ne `wc -c <'pvm2.4/src/BFLY/Makefile'`; then echo shar: \"'pvm2.4/src/BFLY/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/src/BFLY/Makefile' fi if test ! -d 'pvm2.4/src/C2MP' ; then echo shar: Creating directory \"'pvm2.4/src/C2MP'\" mkdir 'pvm2.4/src/C2MP' fi if test -f 'pvm2.4/src/C2MP/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/src/C2MP/Makefile'\" else echo shar: Extracting \"'pvm2.4/src/C2MP/Makefile'\" \(5235 characters\) sed "s/^X//" >'pvm2.4/src/C2MP/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/Convex, IEEE f.p. X# ARCH = C2MP ARCHCFLAGS = -fi ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# 21 Mar 1991 X# X# Makefile for PVM/Generic X# X# $Log: Makefile.generic,v $ X# Revision 1.11 1992/06/30 16:44:23 manchek X# added comments about defines X# X# Revision 1.10 1992/03/18 23:07:51 manchek X# added archequiv.c target, remade deps X# X# Revision 1.9 1992/01/01 00:10:02 manchek X# added micomm and uliberr to libpvm objects X# X# Revision 1.8 1991/11/27 21:08:22 manchek X# added NOGETDTABLESIZE comment X# X# Revision 1.7 1991/11/26 21:40:58 manchek X# moved start.c to startup.c because crays hate that name X# X# Revision 1.6 1991/11/26 21:22:04 manchek X# forced SHELL to /bin/sh X# X# Revision 1.5 1991/11/26 19:52:43 manchek X# set up so customizing stuff can be added to head of file X# X# Revision 1.4 1991/11/26 19:08:24 manchek X# added pvmd files start.c and host.c X# X# Revision 1.3 1991/07/24 17:27:36 manchek X# remade deps due to new files. X# X# Revision 1.2 1991/05/09 15:24:16 manchek X# added tidy target X# X# Revision 1.1 1991/05/06 14:45:09 manchek X# Initial revision X# X# X# This generic template imports: X# X# ARCH = the official pvm-name of your processor X# ARCHCFLAGS = special cc flags X# ARCHDLIBS = special libs needed for daemon X# ARCHDOBJS = special objects needed for daemon X# HASRANLIB = 't' or 'f' X# X# Define: X# DEBUG to get useful information X# FDSETPATCH if machine doesn't have fd_set stuff X# SUNOS3PATCH if running SunOS < 4.0 X# NOUNIXSOC if machine doesn't have unix-domain sockets X# NOSTRCASE if libc doesn't have strcasecmp, strncasecmp X# SYSVSIGNAL for system5-like signal handling X# SYSVSTRING for strchr() instead of index() X# NOGETDTABLESIZE if libc doesn't have getdtablesize() X# SOCKADHASLEN if struct sockaddr has an sa_len field X# SHELL = /bin/sh CC = cc SDIR = .. CFLAGS = -g -DARCHCLASS=\"$(ARCH)\" -DIMA_$(ARCH) $(ARCHCFLAGS) DOBJS = archequiv.o cmd.o host.o loclcomm.o micomm.o netside.o proc.o \ X pvmd.o startup.o uside.o util.o wait.o $(ARCHDOBJS) LOBJS = ulib.o crunch.o util.o loclcomm.o micomm.o uliberr.o X# all: pvmd libpvm.a X pvmd: $(DOBJS) X $(CC) $(CFLAGS) -o pvmd $(DOBJS) $(ARCHDLIBS) X libpvm.a: $(LOBJS) X rm -f libpvm.a X ar rv libpvm.a $(LOBJS) X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libpvm.a ;; esac X clean: X rm -f $(DOBJS) $(LOBJS) pvmd libpvm.a X tidy: X rm -f $(DOBJS) $(LOBJS) X archequiv.o: $(SDIR)/archequiv.c X $(CC) $(CFLAGS) -c $(SDIR)/archequiv.c cmd.o: $(SDIR)/cmd.c X $(CC) $(CFLAGS) -c $(SDIR)/cmd.c crunch.o: $(SDIR)/crunch.c X $(CC) $(CFLAGS) -c $(SDIR)/crunch.c host.o: $(SDIR)/host.c X $(CC) $(CFLAGS) -c $(SDIR)/host.c loclcomm.o: $(SDIR)/loclcomm.c X $(CC) $(CFLAGS) -c $(SDIR)/loclcomm.c micomm.o: $(SDIR)/micomm.c X $(CC) $(CFLAGS) -c $(SDIR)/micomm.c netside.o: $(SDIR)/netside.c X $(CC) $(CFLAGS) -c $(SDIR)/netside.c proc.o: $(SDIR)/proc.c X $(CC) $(CFLAGS) -c $(SDIR)/proc.c pvmd.o: $(SDIR)/pvmd.c X $(CC) $(CFLAGS) -c $(SDIR)/pvmd.c ruserpass.o: $(SDIR)/ruserpass.c X $(CC) $(CFLAGS) -c $(SDIR)/ruserpass.c startup.o: $(SDIR)/startup.c X $(CC) $(CFLAGS) -c $(SDIR)/startup.c ulib.o: $(SDIR)/ulib.c X $(CC) $(CFLAGS) -c $(SDIR)/ulib.c uliberr.o: $(SDIR)/uliberr.c X $(CC) $(CFLAGS) -c $(SDIR)/uliberr.c uside.o: $(SDIR)/uside.c X $(CC) $(CFLAGS) -c $(SDIR)/uside.c util.o: $(SDIR)/util.c X $(CC) $(CFLAGS) -c $(SDIR)/util.c wait.o: $(SDIR)/wait.c X $(CC) $(CFLAGS) -c $(SDIR)/wait.c X X# X#include deps - generated by 'grep \#include.\*\" *.c' X# archequiv.o: $(SDIR)/global.h archequiv.o: $(SDIR)/pvmd.h crunch.o: $(SDIR)/global.h crunch.o: $(SDIR)/loclcomm.h crunch.o: $(SDIR)/pvmuser.h host.o: $(SDIR)/craypatch.h host.o: $(SDIR)/xenixpatch.h host.o: $(SDIR)/titanpatch.h host.o: $(SDIR)/global.h host.o: $(SDIR)/pvmd.h host.o: $(SDIR)/sunos3patch.h loclcomm.o: $(SDIR)/loclcomm.h micomm.o: $(SDIR)/micomm.h netside.o: $(SDIR)/global.h netside.o: $(SDIR)/pvmd.h netside.o: $(SDIR)/micomm.h netside.o: $(SDIR)/rem.h netside.o: $(SDIR)/proc.h netside.o: $(SDIR)/wait.h netside.o: $(SDIR)/loclcomm.h proc.o: $(SDIR)/global.h proc.o: $(SDIR)/proc.h proc.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/fdsetpatch.h pvmd.o: $(SDIR)/craypatch.h pvmd.o: $(SDIR)/xenixpatch.h pvmd.o: $(SDIR)/titanpatch.h pvmd.o: $(SDIR)/global.h pvmd.o: $(SDIR)/pvmd.h pvmd.o: $(SDIR)/micomm.h pvmd.o: $(SDIR)/rem.h pvmd.o: $(SDIR)/proc.h pvmd.o: $(SDIR)/wait.h pvmd.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/sunos3patch.h startup.o: $(SDIR)/fdsetpatch.h startup.o: $(SDIR)/craypatch.h startup.o: $(SDIR)/xenixpatch.h startup.o: $(SDIR)/titanpatch.h startup.o: $(SDIR)/global.h startup.o: $(SDIR)/pvmd.h startup.o: $(SDIR)/sunos3patch.h ulib.o: $(SDIR)/global.h ulib.o: $(SDIR)/loclcomm.h ulib.o: $(SDIR)/micomm.h ulib.o: $(SDIR)/pvmuser.h uside.o: $(SDIR)/global.h uside.o: $(SDIR)/pvmd.h uside.o: $(SDIR)/micomm.h uside.o: $(SDIR)/rem.h uside.o: $(SDIR)/proc.h uside.o: $(SDIR)/wait.h uside.o: $(SDIR)/loclcomm.h util.o: $(SDIR)/global.h wait.o: $(SDIR)/global.h wait.o: $(SDIR)/wait.h END_OF_FILE if test 5235 -ne `wc -c <'pvm2.4/src/C2MP/Makefile'`; then echo shar: \"'pvm2.4/src/C2MP/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/src/C2MP/Makefile' fi if test ! -d 'pvm2.4/src/C2MPCXFP' ; then echo shar: Creating directory \"'pvm2.4/src/C2MPCXFP'\" mkdir 'pvm2.4/src/C2MPCXFP' fi if test -f 'pvm2.4/src/C2MPCXFP/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/src/C2MPCXFP/Makefile'\" else echo shar: Extracting \"'pvm2.4/src/C2MPCXFP/Makefile'\" \(5237 characters\) sed "s/^X//" >'pvm2.4/src/C2MPCXFP/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/Convex, native f.p. X# ARCH = C2MPCXFP ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# 21 Mar 1991 X# X# Makefile for PVM/Generic X# X# $Log: Makefile.generic,v $ X# Revision 1.11 1992/06/30 16:44:23 manchek X# added comments about defines X# X# Revision 1.10 1992/03/18 23:07:51 manchek X# added archequiv.c target, remade deps X# X# Revision 1.9 1992/01/01 00:10:02 manchek X# added micomm and uliberr to libpvm objects X# X# Revision 1.8 1991/11/27 21:08:22 manchek X# added NOGETDTABLESIZE comment X# X# Revision 1.7 1991/11/26 21:40:58 manchek X# moved start.c to startup.c because crays hate that name X# X# Revision 1.6 1991/11/26 21:22:04 manchek X# forced SHELL to /bin/sh X# X# Revision 1.5 1991/11/26 19:52:43 manchek X# set up so customizing stuff can be added to head of file X# X# Revision 1.4 1991/11/26 19:08:24 manchek X# added pvmd files start.c and host.c X# X# Revision 1.3 1991/07/24 17:27:36 manchek X# remade deps due to new files. X# X# Revision 1.2 1991/05/09 15:24:16 manchek X# added tidy target X# X# Revision 1.1 1991/05/06 14:45:09 manchek X# Initial revision X# X# X# This generic template imports: X# X# ARCH = the official pvm-name of your processor X# ARCHCFLAGS = special cc flags X# ARCHDLIBS = special libs needed for daemon X# ARCHDOBJS = special objects needed for daemon X# HASRANLIB = 't' or 'f' X# X# Define: X# DEBUG to get useful information X# FDSETPATCH if machine doesn't have fd_set stuff X# SUNOS3PATCH if running SunOS < 4.0 X# NOUNIXSOC if machine doesn't have unix-domain sockets X# NOSTRCASE if libc doesn't have strcasecmp, strncasecmp X# SYSVSIGNAL for system5-like signal handling X# SYSVSTRING for strchr() instead of index() X# NOGETDTABLESIZE if libc doesn't have getdtablesize() X# SOCKADHASLEN if struct sockaddr has an sa_len field X# SHELL = /bin/sh CC = cc SDIR = .. CFLAGS = -g -DARCHCLASS=\"$(ARCH)\" -DIMA_$(ARCH) $(ARCHCFLAGS) DOBJS = archequiv.o cmd.o host.o loclcomm.o micomm.o netside.o proc.o \ X pvmd.o startup.o uside.o util.o wait.o $(ARCHDOBJS) LOBJS = ulib.o crunch.o util.o loclcomm.o micomm.o uliberr.o X# all: pvmd libpvm.a X pvmd: $(DOBJS) X $(CC) $(CFLAGS) -o pvmd $(DOBJS) $(ARCHDLIBS) X libpvm.a: $(LOBJS) X rm -f libpvm.a X ar rv libpvm.a $(LOBJS) X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libpvm.a ;; esac X clean: X rm -f $(DOBJS) $(LOBJS) pvmd libpvm.a X tidy: X rm -f $(DOBJS) $(LOBJS) X archequiv.o: $(SDIR)/archequiv.c X $(CC) $(CFLAGS) -c $(SDIR)/archequiv.c cmd.o: $(SDIR)/cmd.c X $(CC) $(CFLAGS) -c $(SDIR)/cmd.c crunch.o: $(SDIR)/crunch.c X $(CC) $(CFLAGS) -c $(SDIR)/crunch.c host.o: $(SDIR)/host.c X $(CC) $(CFLAGS) -c $(SDIR)/host.c loclcomm.o: $(SDIR)/loclcomm.c X $(CC) $(CFLAGS) -c $(SDIR)/loclcomm.c micomm.o: $(SDIR)/micomm.c X $(CC) $(CFLAGS) -c $(SDIR)/micomm.c netside.o: $(SDIR)/netside.c X $(CC) $(CFLAGS) -c $(SDIR)/netside.c proc.o: $(SDIR)/proc.c X $(CC) $(CFLAGS) -c $(SDIR)/proc.c pvmd.o: $(SDIR)/pvmd.c X $(CC) $(CFLAGS) -c $(SDIR)/pvmd.c ruserpass.o: $(SDIR)/ruserpass.c X $(CC) $(CFLAGS) -c $(SDIR)/ruserpass.c startup.o: $(SDIR)/startup.c X $(CC) $(CFLAGS) -c $(SDIR)/startup.c ulib.o: $(SDIR)/ulib.c X $(CC) $(CFLAGS) -c $(SDIR)/ulib.c uliberr.o: $(SDIR)/uliberr.c X $(CC) $(CFLAGS) -c $(SDIR)/uliberr.c uside.o: $(SDIR)/uside.c X $(CC) $(CFLAGS) -c $(SDIR)/uside.c util.o: $(SDIR)/util.c X $(CC) $(CFLAGS) -c $(SDIR)/util.c wait.o: $(SDIR)/wait.c X $(CC) $(CFLAGS) -c $(SDIR)/wait.c X X# X#include deps - generated by 'grep \#include.\*\" *.c' X# archequiv.o: $(SDIR)/global.h archequiv.o: $(SDIR)/pvmd.h crunch.o: $(SDIR)/global.h crunch.o: $(SDIR)/loclcomm.h crunch.o: $(SDIR)/pvmuser.h host.o: $(SDIR)/craypatch.h host.o: $(SDIR)/xenixpatch.h host.o: $(SDIR)/titanpatch.h host.o: $(SDIR)/global.h host.o: $(SDIR)/pvmd.h host.o: $(SDIR)/sunos3patch.h loclcomm.o: $(SDIR)/loclcomm.h micomm.o: $(SDIR)/micomm.h netside.o: $(SDIR)/global.h netside.o: $(SDIR)/pvmd.h netside.o: $(SDIR)/micomm.h netside.o: $(SDIR)/rem.h netside.o: $(SDIR)/proc.h netside.o: $(SDIR)/wait.h netside.o: $(SDIR)/loclcomm.h proc.o: $(SDIR)/global.h proc.o: $(SDIR)/proc.h proc.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/fdsetpatch.h pvmd.o: $(SDIR)/craypatch.h pvmd.o: $(SDIR)/xenixpatch.h pvmd.o: $(SDIR)/titanpatch.h pvmd.o: $(SDIR)/global.h pvmd.o: $(SDIR)/pvmd.h pvmd.o: $(SDIR)/micomm.h pvmd.o: $(SDIR)/rem.h pvmd.o: $(SDIR)/proc.h pvmd.o: $(SDIR)/wait.h pvmd.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/sunos3patch.h startup.o: $(SDIR)/fdsetpatch.h startup.o: $(SDIR)/craypatch.h startup.o: $(SDIR)/xenixpatch.h startup.o: $(SDIR)/titanpatch.h startup.o: $(SDIR)/global.h startup.o: $(SDIR)/pvmd.h startup.o: $(SDIR)/sunos3patch.h ulib.o: $(SDIR)/global.h ulib.o: $(SDIR)/loclcomm.h ulib.o: $(SDIR)/micomm.h ulib.o: $(SDIR)/pvmuser.h uside.o: $(SDIR)/global.h uside.o: $(SDIR)/pvmd.h uside.o: $(SDIR)/micomm.h uside.o: $(SDIR)/rem.h uside.o: $(SDIR)/proc.h uside.o: $(SDIR)/wait.h uside.o: $(SDIR)/loclcomm.h util.o: $(SDIR)/global.h wait.o: $(SDIR)/global.h wait.o: $(SDIR)/wait.h END_OF_FILE if test 5237 -ne `wc -c <'pvm2.4/src/C2MPCXFP/Makefile'`; then echo shar: \"'pvm2.4/src/C2MPCXFP/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/src/C2MPCXFP/Makefile' fi if test ! -d 'pvm2.4/src/CM2' ; then echo shar: Creating directory \"'pvm2.4/src/CM2'\" mkdir 'pvm2.4/src/CM2' fi if test -f 'pvm2.4/src/CM2/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/src/CM2/Makefile'\" else echo shar: Extracting \"'pvm2.4/src/CM2/Makefile'\" \(5227 characters\) sed "s/^X//" >'pvm2.4/src/CM2/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/CM-2 Sun front X# ARCH = CM2 ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# 21 Mar 1991 X# X# Makefile for PVM/Generic X# X# $Log: Makefile.generic,v $ X# Revision 1.11 1992/06/30 16:44:23 manchek X# added comments about defines X# X# Revision 1.10 1992/03/18 23:07:51 manchek X# added archequiv.c target, remade deps X# X# Revision 1.9 1992/01/01 00:10:02 manchek X# added micomm and uliberr to libpvm objects X# X# Revision 1.8 1991/11/27 21:08:22 manchek X# added NOGETDTABLESIZE comment X# X# Revision 1.7 1991/11/26 21:40:58 manchek X# moved start.c to startup.c because crays hate that name X# X# Revision 1.6 1991/11/26 21:22:04 manchek X# forced SHELL to /bin/sh X# X# Revision 1.5 1991/11/26 19:52:43 manchek X# set up so customizing stuff can be added to head of file X# X# Revision 1.4 1991/11/26 19:08:24 manchek X# added pvmd files start.c and host.c X# X# Revision 1.3 1991/07/24 17:27:36 manchek X# remade deps due to new files. X# X# Revision 1.2 1991/05/09 15:24:16 manchek X# added tidy target X# X# Revision 1.1 1991/05/06 14:45:09 manchek X# Initial revision X# X# X# This generic template imports: X# X# ARCH = the official pvm-name of your processor X# ARCHCFLAGS = special cc flags X# ARCHDLIBS = special libs needed for daemon X# ARCHDOBJS = special objects needed for daemon X# HASRANLIB = 't' or 'f' X# X# Define: X# DEBUG to get useful information X# FDSETPATCH if machine doesn't have fd_set stuff X# SUNOS3PATCH if running SunOS < 4.0 X# NOUNIXSOC if machine doesn't have unix-domain sockets X# NOSTRCASE if libc doesn't have strcasecmp, strncasecmp X# SYSVSIGNAL for system5-like signal handling X# SYSVSTRING for strchr() instead of index() X# NOGETDTABLESIZE if libc doesn't have getdtablesize() X# SOCKADHASLEN if struct sockaddr has an sa_len field X# SHELL = /bin/sh CC = cc SDIR = .. CFLAGS = -g -DARCHCLASS=\"$(ARCH)\" -DIMA_$(ARCH) $(ARCHCFLAGS) DOBJS = archequiv.o cmd.o host.o loclcomm.o micomm.o netside.o proc.o \ X pvmd.o startup.o uside.o util.o wait.o $(ARCHDOBJS) LOBJS = ulib.o crunch.o util.o loclcomm.o micomm.o uliberr.o X# all: pvmd libpvm.a X pvmd: $(DOBJS) X $(CC) $(CFLAGS) -o pvmd $(DOBJS) $(ARCHDLIBS) X libpvm.a: $(LOBJS) X rm -f libpvm.a X ar rv libpvm.a $(LOBJS) X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libpvm.a ;; esac X clean: X rm -f $(DOBJS) $(LOBJS) pvmd libpvm.a X tidy: X rm -f $(DOBJS) $(LOBJS) X archequiv.o: $(SDIR)/archequiv.c X $(CC) $(CFLAGS) -c $(SDIR)/archequiv.c cmd.o: $(SDIR)/cmd.c X $(CC) $(CFLAGS) -c $(SDIR)/cmd.c crunch.o: $(SDIR)/crunch.c X $(CC) $(CFLAGS) -c $(SDIR)/crunch.c host.o: $(SDIR)/host.c X $(CC) $(CFLAGS) -c $(SDIR)/host.c loclcomm.o: $(SDIR)/loclcomm.c X $(CC) $(CFLAGS) -c $(SDIR)/loclcomm.c micomm.o: $(SDIR)/micomm.c X $(CC) $(CFLAGS) -c $(SDIR)/micomm.c netside.o: $(SDIR)/netside.c X $(CC) $(CFLAGS) -c $(SDIR)/netside.c proc.o: $(SDIR)/proc.c X $(CC) $(CFLAGS) -c $(SDIR)/proc.c pvmd.o: $(SDIR)/pvmd.c X $(CC) $(CFLAGS) -c $(SDIR)/pvmd.c ruserpass.o: $(SDIR)/ruserpass.c X $(CC) $(CFLAGS) -c $(SDIR)/ruserpass.c startup.o: $(SDIR)/startup.c X $(CC) $(CFLAGS) -c $(SDIR)/startup.c ulib.o: $(SDIR)/ulib.c X $(CC) $(CFLAGS) -c $(SDIR)/ulib.c uliberr.o: $(SDIR)/uliberr.c X $(CC) $(CFLAGS) -c $(SDIR)/uliberr.c uside.o: $(SDIR)/uside.c X $(CC) $(CFLAGS) -c $(SDIR)/uside.c util.o: $(SDIR)/util.c X $(CC) $(CFLAGS) -c $(SDIR)/util.c wait.o: $(SDIR)/wait.c X $(CC) $(CFLAGS) -c $(SDIR)/wait.c X X# X#include deps - generated by 'grep \#include.\*\" *.c' X# archequiv.o: $(SDIR)/global.h archequiv.o: $(SDIR)/pvmd.h crunch.o: $(SDIR)/global.h crunch.o: $(SDIR)/loclcomm.h crunch.o: $(SDIR)/pvmuser.h host.o: $(SDIR)/craypatch.h host.o: $(SDIR)/xenixpatch.h host.o: $(SDIR)/titanpatch.h host.o: $(SDIR)/global.h host.o: $(SDIR)/pvmd.h host.o: $(SDIR)/sunos3patch.h loclcomm.o: $(SDIR)/loclcomm.h micomm.o: $(SDIR)/micomm.h netside.o: $(SDIR)/global.h netside.o: $(SDIR)/pvmd.h netside.o: $(SDIR)/micomm.h netside.o: $(SDIR)/rem.h netside.o: $(SDIR)/proc.h netside.o: $(SDIR)/wait.h netside.o: $(SDIR)/loclcomm.h proc.o: $(SDIR)/global.h proc.o: $(SDIR)/proc.h proc.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/fdsetpatch.h pvmd.o: $(SDIR)/craypatch.h pvmd.o: $(SDIR)/xenixpatch.h pvmd.o: $(SDIR)/titanpatch.h pvmd.o: $(SDIR)/global.h pvmd.o: $(SDIR)/pvmd.h pvmd.o: $(SDIR)/micomm.h pvmd.o: $(SDIR)/rem.h pvmd.o: $(SDIR)/proc.h pvmd.o: $(SDIR)/wait.h pvmd.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/sunos3patch.h startup.o: $(SDIR)/fdsetpatch.h startup.o: $(SDIR)/craypatch.h startup.o: $(SDIR)/xenixpatch.h startup.o: $(SDIR)/titanpatch.h startup.o: $(SDIR)/global.h startup.o: $(SDIR)/pvmd.h startup.o: $(SDIR)/sunos3patch.h ulib.o: $(SDIR)/global.h ulib.o: $(SDIR)/loclcomm.h ulib.o: $(SDIR)/micomm.h ulib.o: $(SDIR)/pvmuser.h uside.o: $(SDIR)/global.h uside.o: $(SDIR)/pvmd.h uside.o: $(SDIR)/micomm.h uside.o: $(SDIR)/rem.h uside.o: $(SDIR)/proc.h uside.o: $(SDIR)/wait.h uside.o: $(SDIR)/loclcomm.h util.o: $(SDIR)/global.h wait.o: $(SDIR)/global.h wait.o: $(SDIR)/wait.h END_OF_FILE if test 5227 -ne `wc -c <'pvm2.4/src/CM2/Makefile'`; then echo shar: \"'pvm2.4/src/CM2/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/src/CM2/Makefile' fi if test ! -d 'pvm2.4/src/CM5' ; then echo shar: Creating directory \"'pvm2.4/src/CM5'\" mkdir 'pvm2.4/src/CM5' fi if test -f 'pvm2.4/src/CM5/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/src/CM5/Makefile'\" else echo shar: Extracting \"'pvm2.4/src/CM5/Makefile'\" \(5217 characters\) sed "s/^X//" >'pvm2.4/src/CM5/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/CM-5 X# ARCH = CM5 ARCHCFLAGS = ARCHDLIBS = ARCHDOBJS = HASRANLIB = t X# END of custom section - leave this line here X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# 21 Mar 1991 X# X# Makefile for PVM/Generic X# X# $Log: Makefile.generic,v $ X# Revision 1.11 1992/06/30 16:44:23 manchek X# added comments about defines X# X# Revision 1.10 1992/03/18 23:07:51 manchek X# added archequiv.c target, remade deps X# X# Revision 1.9 1992/01/01 00:10:02 manchek X# added micomm and uliberr to libpvm objects X# X# Revision 1.8 1991/11/27 21:08:22 manchek X# added NOGETDTABLESIZE comment X# X# Revision 1.7 1991/11/26 21:40:58 manchek X# moved start.c to startup.c because crays hate that name X# X# Revision 1.6 1991/11/26 21:22:04 manchek X# forced SHELL to /bin/sh X# X# Revision 1.5 1991/11/26 19:52:43 manchek X# set up so customizing stuff can be added to head of file X# X# Revision 1.4 1991/11/26 19:08:24 manchek X# added pvmd files start.c and host.c X# X# Revision 1.3 1991/07/24 17:27:36 manchek X# remade deps due to new files. X# X# Revision 1.2 1991/05/09 15:24:16 manchek X# added tidy target X# X# Revision 1.1 1991/05/06 14:45:09 manchek X# Initial revision X# X# X# This generic template imports: X# X# ARCH = the official pvm-name of your processor X# ARCHCFLAGS = special cc flags X# ARCHDLIBS = special libs needed for daemon X# ARCHDOBJS = special objects needed for daemon X# HASRANLIB = 't' or 'f' X# X# Define: X# DEBUG to get useful information X# FDSETPATCH if machine doesn't have fd_set stuff X# SUNOS3PATCH if running SunOS < 4.0 X# NOUNIXSOC if machine doesn't have unix-domain sockets X# NOSTRCASE if libc doesn't have strcasecmp, strncasecmp X# SYSVSIGNAL for system5-like signal handling X# SYSVSTRING for strchr() instead of index() X# NOGETDTABLESIZE if libc doesn't have getdtablesize() X# SOCKADHASLEN if struct sockaddr has an sa_len field X# SHELL = /bin/sh CC = cc SDIR = .. CFLAGS = -g -DARCHCLASS=\"$(ARCH)\" -DIMA_$(ARCH) $(ARCHCFLAGS) DOBJS = archequiv.o cmd.o host.o loclcomm.o micomm.o netside.o proc.o \ X pvmd.o startup.o uside.o util.o wait.o $(ARCHDOBJS) LOBJS = ulib.o crunch.o util.o loclcomm.o micomm.o uliberr.o X# all: pvmd libpvm.a X pvmd: $(DOBJS) X $(CC) $(CFLAGS) -o pvmd $(DOBJS) $(ARCHDLIBS) X libpvm.a: $(LOBJS) X rm -f libpvm.a X ar rv libpvm.a $(LOBJS) X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libpvm.a ;; esac X clean: X rm -f $(DOBJS) $(LOBJS) pvmd libpvm.a X tidy: X rm -f $(DOBJS) $(LOBJS) X archequiv.o: $(SDIR)/archequiv.c X $(CC) $(CFLAGS) -c $(SDIR)/archequiv.c cmd.o: $(SDIR)/cmd.c X $(CC) $(CFLAGS) -c $(SDIR)/cmd.c crunch.o: $(SDIR)/crunch.c X $(CC) $(CFLAGS) -c $(SDIR)/crunch.c host.o: $(SDIR)/host.c X $(CC) $(CFLAGS) -c $(SDIR)/host.c loclcomm.o: $(SDIR)/loclcomm.c X $(CC) $(CFLAGS) -c $(SDIR)/loclcomm.c micomm.o: $(SDIR)/micomm.c X $(CC) $(CFLAGS) -c $(SDIR)/micomm.c netside.o: $(SDIR)/netside.c X $(CC) $(CFLAGS) -c $(SDIR)/netside.c proc.o: $(SDIR)/proc.c X $(CC) $(CFLAGS) -c $(SDIR)/proc.c pvmd.o: $(SDIR)/pvmd.c X $(CC) $(CFLAGS) -c $(SDIR)/pvmd.c ruserpass.o: $(SDIR)/ruserpass.c X $(CC) $(CFLAGS) -c $(SDIR)/ruserpass.c startup.o: $(SDIR)/startup.c X $(CC) $(CFLAGS) -c $(SDIR)/startup.c ulib.o: $(SDIR)/ulib.c X $(CC) $(CFLAGS) -c $(SDIR)/ulib.c uliberr.o: $(SDIR)/uliberr.c X $(CC) $(CFLAGS) -c $(SDIR)/uliberr.c uside.o: $(SDIR)/uside.c X $(CC) $(CFLAGS) -c $(SDIR)/uside.c util.o: $(SDIR)/util.c X $(CC) $(CFLAGS) -c $(SDIR)/util.c wait.o: $(SDIR)/wait.c X $(CC) $(CFLAGS) -c $(SDIR)/wait.c X X# X#include deps - generated by 'grep \#include.\*\" *.c' X# archequiv.o: $(SDIR)/global.h archequiv.o: $(SDIR)/pvmd.h crunch.o: $(SDIR)/global.h crunch.o: $(SDIR)/loclcomm.h crunch.o: $(SDIR)/pvmuser.h host.o: $(SDIR)/craypatch.h host.o: $(SDIR)/xenixpatch.h host.o: $(SDIR)/titanpatch.h host.o: $(SDIR)/global.h host.o: $(SDIR)/pvmd.h host.o: $(SDIR)/sunos3patch.h loclcomm.o: $(SDIR)/loclcomm.h micomm.o: $(SDIR)/micomm.h netside.o: $(SDIR)/global.h netside.o: $(SDIR)/pvmd.h netside.o: $(SDIR)/micomm.h netside.o: $(SDIR)/rem.h netside.o: $(SDIR)/proc.h netside.o: $(SDIR)/wait.h netside.o: $(SDIR)/loclcomm.h proc.o: $(SDIR)/global.h proc.o: $(SDIR)/proc.h proc.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/fdsetpatch.h pvmd.o: $(SDIR)/craypatch.h pvmd.o: $(SDIR)/xenixpatch.h pvmd.o: $(SDIR)/titanpatch.h pvmd.o: $(SDIR)/global.h pvmd.o: $(SDIR)/pvmd.h pvmd.o: $(SDIR)/micomm.h pvmd.o: $(SDIR)/rem.h pvmd.o: $(SDIR)/proc.h pvmd.o: $(SDIR)/wait.h pvmd.o: $(SDIR)/loclcomm.h pvmd.o: $(SDIR)/sunos3patch.h startup.o: $(SDIR)/fdsetpatch.h startup.o: $(SDIR)/craypatch.h startup.o: $(SDIR)/xenixpatch.h startup.o: $(SDIR)/titanpatch.h startup.o: $(SDIR)/global.h startup.o: $(SDIR)/pvmd.h startup.o: $(SDIR)/sunos3patch.h ulib.o: $(SDIR)/global.h ulib.o: $(SDIR)/loclcomm.h ulib.o: $(SDIR)/micomm.h ulib.o: $(SDIR)/pvmuser.h uside.o: $(SDIR)/global.h uside.o: $(SDIR)/pvmd.h uside.o: $(SDIR)/micomm.h uside.o: $(SDIR)/rem.h uside.o: $(SDIR)/proc.h uside.o: $(SDIR)/wait.h uside.o: $(SDIR)/loclcomm.h util.o: $(SDIR)/global.h wait.o: $(SDIR)/global.h wait.o: $(SDIR)/wait.h END_OF_FILE if test 5217 -ne `wc -c <'pvm2.4/src/CM5/Makefile'`; then echo shar: \"'pvm2.4/src/CM5/Makefile'\" unpacked with wrong size! fi # end of 'pvm2.4/src/CM5/Makefile' fi if test ! -d 'pvm2.4/src/CRAY' ; then echo shar: Creating directory \"'pvm2.4/src/CRAY'\" mkdir 'pvm2.4/src/CRAY' fi if test -f 'pvm2.4/src/CRAY/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pvm2.4/src/CRAY/Makefile'\" else echo shar: Extracting \"'pvm2.4/src/CRAY/Makefile'\" \(5288 characters\) sed "s/^X//" >'pvm2.4/src/CRAY/Makefile' <<'END_OF_FILE' X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# X# Makefile for PVM/CRAY-YMP or CRAY-2 (at least) X# ARCH = CRAY ARCHCFLAGS = -DSYSVSIGNAL -DRSHCOMMAND=\"/usr/ucb/remsh\" ARCHDLIBS = ARCHDOBJS = HASRANLIB = f X# END of custom section - leave this line here X# X# PVM 2.2 X# University of Tennesee, Knoxville, TN. X# Oak Ridge National Laboratory, Oak Ridge, TN. X# 21 Mar 1991 X# X# Makefile for PVM/Generic X# X# $Log: Makefile.generic,v $ X# Revision 1.11 1992/06/30 16:44:23 manchek X# added comments about defines X# X# Revision 1.10 1992/03/18 23:07:51 manchek X# added archequiv.c target, remade deps X# X# Revision 1.9 1992/01/01 00:10:02 manchek X# added micomm and uliberr to libpvm objects X# X# Revision 1.8 1991/11/27 21:08:22 manchek X# added NOGETDTABLESIZE comment X# X# Revision 1.7 1991/11/26 21:40:58 manchek X# moved start.c to startup.c because crays hate that name X# X# Revision 1.6 1991/11/26 21:22:04 manchek X# forced SHELL to /bin/sh X# X# Revision 1.5 1991/11/26 19:52:43 manchek X# set up so customizing stuff can be added to head of file X# X# Revision 1.4 1991/11/26 19:08:24 manchek X# added pvmd files start.c and host.c X# X# Revision 1.3 1991/07/24 17:27:36 manchek X# remade deps due to new files. X# X# Revision 1.2 1991/05/09 15:24:16 manchek X# added tidy target X# X# Revision 1.1 1991/05/06 14:45:09 manchek X# Initial revision X# X# X# This generic template imports: X# X# ARCH = the official pvm-name of your processor X# ARCHCFLAGS = special cc flags X# ARCHDLIBS = special libs needed for daemon X# ARCHDOBJS = special objects needed for daemon X# HASRANLIB = 't' or 'f' X# X# Define: X# DEBUG to get useful information X# FDSETPATCH if machine doesn't have fd_set stuff X# SUNOS3PATCH if running SunOS < 4.0 X# NOUNIXSOC if machine doesn't have unix-domain sockets X# NOSTRCASE if libc doesn't have strcasecmp, strncasecmp X# SYSVSIGNAL for system5-like signal handling X# SYSVSTRING for strchr() instead of index() X# NOGETDTABLESIZE if libc doesn't have getdtablesize() X# SOCKADHASLEN if struct sockaddr has an sa_len field X# SHELL = /bin/sh CC = cc SDIR = .. CFLAGS = -g -DARCHCLASS=\"$(ARCH)\" -DIMA_$(ARCH) $(ARCHCFLAGS) DOBJS = archequiv.o cmd.o host.o loclcomm.o micomm.o netside.o proc.o \ X pvmd.o startup.o uside.o util.o wait.o $(ARCHDOBJS) LOBJS = ulib.o crunch.o util.o loclcomm.o micomm.o uliberr.o X# all: pvmd libpvm.a X pvmd: $(DOBJS) X $(CC) $(CFLAGS) -o pvmd $(DOBJS) $(ARCHDLIBS) X libpvm.a: $(LOBJS) X rm -f libpvm.a X ar rv libpvm.a $(LOBJS) X case x$(HASRANLIB) in xt ) echo ranlib; ranlib libpvm.a ;; esac X clean: X rm -f $(DOBJS) $(LOBJS) pvmd libpvm.a X tidy: X rm -f $(DOBJS) $(LOBJS) X archequiv.o: $(SDIR)/archequiv.c X $(CC) $(CFLAGS) -c $(SDIR)/archequiv.c cmd.o: $(SDIR)/cmd.c X $(CC) $(CFLAGS) -c $(SDIR)/cmd.c crunch.o: $(SDIR)/crunch.c X $(CC) $(CFLAGS) -c $(SDIR)/crunch.c host.o: $(SDIR)/host.c X $(CC) $(CFLAGS) -c $(SDIR)/host.c loclcomm.o: $(SDIR)/loclcomm.c X $(CC) $(CFLAGS) -c $(SDIR)/loclcomm.c micomm.o: $(SDIR)/micom