#!/bin/ksh
echo $1 > o.o
echo $2 >> o.o
echo $3 >> o.o
echo $4 >> o.o
mv $1 $3
touch lock.$4
origpath=`pwd`
cd $3
prefix=`echo $1 |sed 's/\..*//'`
rm -f $prefix.INP $prefix.pun  $prefix.out
IRCDATA=$prefix.irc; export IRCDATA
  INPUT=$prefix.INP; export INPUT
  PUNCH=$prefix.pun; export PUNCH
INTGRLS=$prefix.INT; export INTGRLS
 ORDINT=$prefix.ORD; export ORDINT
 JKFILE=$prefix.JKF; export JKFILE
DICTNRY=$prefix.DIC; export DICTNRY
DRTFILE=$prefix.DRT; export DRTFILE
CIVECTR=$prefix.CIV; export CIVECTR
NTNFMLA=$prefix.NTN; export NTNFMLA
 CIINTS=$prefix.CNT; export CIINTS
 WORK15=$prefix.W15; export WORK15
 WORK16=$prefix.W16; export WORK16
CSFSAVE=$prefix.CSF; export CSFSAVE
FOCKDER=$prefix.FCK; export FOCKDER
 DASORT=$prefix.DAS; export DASORT
 OUTPUT=$prefix.out; export OUTPUT
 AOINTS=$prefix.f08; export AOINTS
 MOINTS=$prefix.f09; export MOINTS
 EFPIND=$prefix.f25; export EFPIND
cp $prefix.inp $prefix.INP
$2
cd $origpath
rm -f lock.$4