##!/usr/local/bin/perl

$infile = $ARGV[0];

if ( !defined($infile) ){
     die "$0 <input file> \n";
}

open(FILE,"$infile");

while(<FILE>){
    $line = $_ ;
    $line =~ s/pvmfmytid/pgftid/g ;
    $line =~ s/pvmfexit/pgfexit/g ;
    $line =~ s/pvmfrecv/pgfrecv/g ;
    $line =~ s/pvmfnrecv/pgfnrecv/g ;
    $line =~ s/pvmftrecv/pgftrecv/g ;
    $line =~ s/pvmfsend/pgfsend/g ;
    $line =~ s/pvmfmcast/pgfmcast/g ;
    $line =~ s/pvmfspawn/pgfspawn/g ;
    $line =~ s/pvmfinitsend/pgfinitsend/g ;
    $line =~ s/pvmfpsend/pgfpsend/g ;
    $line =~ s/pvmfprecv/pgfprecv/g ;
    print $line ;
}

