subroutine  calc_lambda(lambda, A)

c------------------------------------------------------------
c Calculates the eigenvalues for Burger's equation from the 
c jacobian matrix. For the current, scalar, case there is 
c just one eigenvalue that is equal to the jacobian per se.
c------------------------------------------------------------

         implicit      none

         character*11  cdnm
         parameter   ( cdnm = 'calc_lambda' ) 

         logical       ltrace
         parameter   ( ltrace = .false. )

         real*8        A
         real*8        lambda

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