dir=`pwd|awk '{printf("%-s",substr($0,1,60))}'`
host=`hostname`
date=`date`

echo "      subroutine verinf"      > verinf.f
echo "c      implicit none"      >> verinf.f
echo "      write(*,*)'hostname : '"     >> verinf.f
echo "     & , ' $host'"     >> verinf.f
echo "      write(*,*)'directory : '"     >> verinf.f
echo "     & , ' $dir'"     >> verinf.f
echo "      write(*,*)'date (at compilation) : ' "   >> verinf.f
echo "     & , ' $date '"   >> verinf.f
echo "      write(*,*)'comment   :'"    >> verinf.f
echo "      write(*,*)"        >> verinf.f
echo "      return"       >> verinf.f
echo "      end"       >>verinf.f
cat verinf.f

/bin/make