      SUBROUTINE HEADER
*-----------------------------------------------------------------------
*
*--- prints print output header
*
*-----------------------------------------------------------------------
      include 'param.h'
      write(mpunit,10000) versio
10000 format('1 ',78('*'),/,
     &       '  *',76(' '),'*',/,
     &       '  *',30x,'F L O P P Y',35x,'*',/,
     &       '  *',76(' '),'*',/,
     &       '  *',76(' '),'*',/,
     &       '  *',12x,
     &       'Fortran Coding Convention Checker and Code Tidier',
     &       15x,'*',/
     &       '  *',76(' '),'*',/,
     &       '  *',30x,'Version ',f3.1,35x,'*',/,
     &       '  *',76(' '),'*',/,
     &       '  * (c) CERN, 1993',61x,'*',/,
     &       '  ',78('*'))
      END
