c$Id: prtitl.f,v 1.1 2000/08/24 20:42:44 rlt Exp $
      subroutine prtitl(prtf)

c      * * F E A P * * A Finite Element Analysis Program

c....  Copyright (c) 1984-2005: Robert L. Taylor
c                               All rights reserved

c-----[--.----+----.----+----.-----------------------------------------]
c      Purpose: Output title to file/screen

c      Inputs:
c         prtf      - Flag, output title if true

c      Outputs:
c         None      - Outputs to file/screen
c-----[--.----+----.----+----.-----------------------------------------]

      implicit  none

      include  'bdata.h'
      include  'iofile.h'

      logical   prtf

      save

      if(prtf) then
        write(iow,2000) o,head
        if(ior.lt.0) then
          write(*,2000) o,head
        endif
      endif

2000  format(/a1,19a4,a2/1x)

      end