c$Id:$
      subroutine outary(array,ct)

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 contents of named "array"

c      Inputs:
c         array     - name of array to print
c         ct(3)     - range of array to print

c      Outputs:
c         none      - To screen/file
c-----[--.----+----.----+----.-----------------------------------------]
      implicit  none

      include  'allotn.h'
      include  'allotd.h'
      include  'cdata.h'
      include  'comblk.h'

      character array*(*)
      logical   pcomp
      integer   i, ilor,ict(3), ipa, irp(2,2)
      integer   point, lengt, iupr
      real*8    ct(3)

      save

      data      irp  / 3*1, 2 /

c     Set range of print

      ict(1) = ct(1)
      ict(2) = ct(2)

      ilor   = max(0,min(ict(1),ict(2)))
      iupr   = max(ict(1),ict(2))

      do i = 1,ndict
        if(pcomp(array,dict(i),5)) then

c         Assign pointer, length, and precision

          ipa   =  irp(iprec(i),ipr)
          point = (ipoint(i) + ipa - 1)/ipa - ipr*(2 - iprec(i))
          lengt = (ipoint(i+1) - ipoint(i))/ipa

c         Set range

          if(iupr.eq.0) then
            iupr = lengt - ilor
          else
            ilor = min(iupr,ilor)  - 1
            iupr = min(iupr,lengt) - ilor
          endif

c         Output array values

          if(iprec(i).eq.1) then
            call iprint(mr(point+ilor),1,iupr,1,dict(i))
          else
            call mprint(hr(point+ilor),1,iupr,1,dict(i))
          endif
        endif
      end do

      end