subhead()

subroutine subhead

(

character, dimension(*)

sub

)

Definition at line 400 of file testlibtime.f.

      character sub*(*)
      print *,' '
      print *,'**** ',sub
      print *,' '
      return