c      ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c      cc     Calculate lambda                                     ccc
c      cc                   clamb.f                                ccc
c      ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
       subroutine clamb( lamb, temp )
c
        implicit real*8 ( a-h, o-z )
        real*8 lamb
        dimension temp( 1 ), lamb( 1 )
        common /param/ ndat, n
c
        do 100 i = 1 , ndat
            lamb( i ) = temp( i )/5.9302d9
 100    continue
        return
        end