#!/bin/csh -f

rm -f finals.data
ncftpget maia.usno.navy.mil . ser7/finals.data

ls -l finals.data | awk '{print $5 " " $6 " " $7 " " $8}' > func_input

cp $SIMBIOS_ROOT/data/modis/static/utcpole.dat .
PGS_CSC_UT1_update < func_input >& /dev/null

rm func_input
rm finals.data
rm utcpole.dat

diff $SIMBIOS_ROOT/data/modis/static/utcpole.dat utcpole.dat.NEW

# mv utcpole.dat.NEW to data diretory

exit
