head()

subroutine head

(

character, dimension(*)

routine

)

Definition at line 392 of file testlibtime.f.

      character routine*(*)
      print *,' '
      print *,'TEST ',routine
      print *,'===='
      return