interpol_alfa2.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	interpol_alfa2 (lzd, reynolds, alfa2)

Function/Subroutine Documentation

interpol_alfa2()

subroutine interpol_alfa2	(	real*8	lzd,
		real*8	reynolds,
		real*8	alfa2
	)

!
      implicit none
!
      real*8 alfa2,lzd,reynolds
!
      alfa2=1.d0
!     
      return
!