lab_straight_ppkrit.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	lab_straight_ppkrit (n, ppkrit)

Function/Subroutine Documentation

lab_straight_ppkrit()

subroutine lab_straight_ppkrit	(	integer	n,
		real*8	ppkrit
	)

!
      implicit none
!
      integer n
!
      real*8 fppkrit(9),ppkrit
!
      data fppkrit
     &     /0.47113022d0,0.37968106d0,0.32930492d0,0.29569704d0,
     &      0.27105479d0,0.25191791d0,0.23646609d0,0.22363192d0,
     &      0.21274011/
!
      ppkrit=fppkrit(n)
!     
      return