subroutine deli( n, str )

      implicit none

      integer*4 n
      character *(*) str

      return

      end



      subroutine load_flags( IFLAG )

      implicit none

      include 'ccon.i'

      integer*4 IFLAG(62)

      integer*4 J, JFLAG(62)
      equivalence (JFLAG(1),KATMC)

! Disable DEBUG output from CALC - in /CON/ common area
      ILUOUT = -1
      
! Transfer flags
      do J = 1, 62
         JFLAG(J) = IFLAG(J)
      end do

      end



      integer*2 function getunit( )

!      integer*4 next_unit
!      common /my_getunit/ next_unit

!      data next_unit /20/

! Cannot do this because calc never deallocates the units, 
! therefore many starts could reach unit numbers > 99 (illegal)
!
!      getunit = next_unit
!      next_unit = next_unit + 1
!
! However, the unit is always closed, so there is no reason 
! not to re-use the same unit number
!
      getunit = 39

      end



      integer*4 function gethostname( str )

      implicit none

      character *(*) str

!      str = 'ATLBA_Correlator'
!      gethostname = 0

      gethostname = Hostnm( str )

      end


      integer*4 function trimlen( str )

      implicit none

      character *(*) str

      trimlen = Len_Trim( str )

      end


      subroutine kai
      return
      end

      subroutine phist
      return
      end