c $Id: new_c_refcalc.f,v 1.1 2009/03/21 03:49:59 wil844 Exp wil844 $

c Interface from C program to Fortran new_refcalc()

      subroutine new_c_refcalc( c_site8, c_refsite8, c_src16,
     1                      freq_MHz, utctag, utcsec, int_delay,
     1                      fract_delay, drate, uvw, duvw )

c Inputs:  c_site8, c_src16, freq_MHz, utctag, utcsec
c
c Outputs: int_delay   = integer part of delay in microseconds
c          fract_delay = fractional part of delay in microseconds
c          drate       = delay rate in microseconds/second
c          uvw         = u,v,w in meters
c          duvw        = u,v,w rates in meters/second

      implicit none

      byte c_site8(*), c_refsite8(*), c_src16(*)
      integer*2 utctag(*)
      real*8 freq_MHz, utcsec
      real*8 int_delay, fract_delay, drate, uvw(*), duvw(*)

      character*8 site8, refsite8
      character*16 src16

c BEGIN

      call c2fstr( c_site8, site8 )
      call c2fstr( c_refsite8, refsite8 )
      call c2fstr( c_src16, src16 )

      call new_refcalc( site8, refsite8, src16, freq_MHz, utctag,
     1           utcsec, int_delay, fract_delay, drate, uvw, duvw )

      return

      end