#! /bin/csh
echo "       subroutine version(date, pwd, name)" > dyn_version.f
echo "       character*30 date, pwd" >> dyn_version.f
echo "       character*10 name" >> dyn_version.f
echo "       date = '`date`'" >> dyn_version.f
echo "       pwd = '`pwd`'" >> dyn_version.f
echo "       name = '`whoami`'" >> dyn_version.f
echo "       return" >> dyn_version.f
echo "       end" >> dyn_version.f