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