integer*4 function fred( )

      include 'CALCDB.i'

      fred = nstars

      end