arout()

subroutine arout

(

integer, dimension(7)

date

)

Definition at line 408 of file testlibtime.f.

      integer date(7)
      integer i
      print 50,(date(i), i=1,7)
   50 format('date-array: ',7(i6,1x))
      return