subroutine c_load_source( src_num, c_srcname, src_ra, src_dec,
     1     src_pmra, src_pmdec, src_pmep )


      implicit none

      integer*4 src_num
      byte c_srcname(*)
      real*8 src_ra, src_dec, src_pmra, src_pmdec, src_pmep

      character*16 src16

      write (*,*) "C_LOAD_SOURCE"
c BEGIN

      call c2fstr( c_srcname, src16 )

      call load_source( src_num, src16, src_ra, src_dec,
     1     src_pmra, src_pmdec, src_pmep )


c Initialise the new source (list) in CALC 
      call STRI

      return

      end