!*******************************************************************************
!$RCSfile$
!$Revision$
!$Date$
!*******************************************************************************
MODULE refl_fi

!------ surface reflection common

  SAVE

  REAL(8), DIMENSION(3,3) :: a_rfl, b_rfl, at_rfl

  REAL(8) deth

END MODULE refl_fi
