subroutine  calc_eta(eta, A)

c------------------------------------------------------------
c Calculates the eigenvectors for Burger's
c equation from the jacobian. In this particular case the 
c eigenvector is just 1 since the differential equation is 
c scalar.
c------------------------------------------------------------

         implicit      none

         character*8   cdnm
         parameter   ( cdnm = 'calc_eta' ) 

         logical       ltrace
         parameter   ( ltrace = .false. )

         real*8        A

         real*8        eta

c============================================================
c============================================================
         if ( ltrace ) then
            write(0,*) cdnm,':  A=', A
         endif
         eta = 1.0d0
         if ( ltrace ) then
            write(0,*) cdnm,': eta=',eta
         endif
         return
         end