integer*4 function c_eop_setup( utctag, c_return_msg )
      implicit none

      integer*2 utctag(5)
      integer*4 i, j
      byte c_return_msg(*)

      integer*4 cabb_eop_setup

      character*80 str, return_msg

      write (*,*) "C_EOP_SETUP"
      
      if ( cabb_eop_setup(utctag, str) .lt. 0 ) then
         return_msg = 'In cabb_eop_setup(): ' // TRIM( str )

         j = LEN( TRIM( return_msg ) )
         do i = 1, j
            c_return_msg( i ) = ICHAR( return_msg(i:i) )
         end do
         c_return_msg( j + 1 ) = 0
         c_eop_setup = -1
         return

      end if


      c_eop_setup = 0;
      c_return_msg(1) = 0
      return

      end