      subroutine prtim(luout,str,cpu,wall)

      implicit none

      integer, intent(in) ::
     &     luout
      character, intent(in) ::
     &     str*(*)
      real*8, intent(in) ::
     &     cpu, wall
      integer, parameter ::
     &     mxlen = 36
      character ::
     &     str_scr*(mxlen)
      integer ::
     &     len

      len = min(mxlen,len_trim(str))
      str_scr(1:len) = str(1:len)
      if (len.lt.mxlen)
     &     str_scr(len+1:len+mxlen-len) = ' '
      write(luout,
     &     '(x,"@ ",a,"  cpu: ",f12.2," s  wall: ",f12.2," s")') 
     &     str_scr,cpu,wall

      return
      end
c $Id: prtim.F 25744 2014-06-08 07:43:42Z d3y133 $
