integer*4 function c_load_sites(c_return_msg )
      implicit none

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

      integer*4 cabb_load_sites

      character*80 str, return_msg

      write (*,*) "C_LOAD_SITES"
      
      if ( cabb_load_sites(str) .lt. 0 ) then
         return_msg = 'In cabb_load_sites(): ' // 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_load_sites = -1
         return

      end if


      c_load_sites = 0;
      c_return_msg(1) = 0
      return

      end