13 lines
259 B
Fortran
13 lines
259 B
Fortran
!fgap
|
|
!based on saunder 2003 k14
|
|
REAL*8 FUNCTION FCRO2HO2( XCARBN )
|
|
|
|
IMPLICIT NONE
|
|
|
|
! Arguments
|
|
REAL*8, INTENT(IN) :: XCARBN
|
|
|
|
FCRO2HO2 = 1D0-EXP(-0.245D0*XCARBN)
|
|
|
|
! Return to calling program
|
|
END FUNCTION FCRO2HO2 |