iniclz2.f

Go to the documentation of this file.

      subroutine iniclz2                                                 
c                                                                       
c     the subroutine iniclz2 initialized some additional parameters
c     used in the second part of the radiative transfer program         
c                                                                       
c***********************************************************************
c.....include the common blocks                                         
      implicit real*8 (a-h,o-z)
      include 'common_all.cmn'                                         
c***********************************************************************
c                                                                       
      do k=1,2
        do i=1,jjjj
          do j=1,jpart
            d1px(k,i,j)=0.0d0
            d2px(k,i,j)=0.0d0
          enddo
        enddo
      enddo
c     write(6,*)'leaving iniclz2'
      return                                                            
      end                                                               
c***********************************************************************