| Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:15 EDT 2024 |
cubicroot | Module: PHOTCONDMOD | File: FBBphotosynthesis.f |
Author :
Version:
Declaration:
subroutine cubicroot(a, b, c, d, x, n)- a :
real*8, intent(in)
- b :
real*8, intent(in)
- c :
real*8, intent(in)
- d :
real*8, intent(in)
- x :
real*8, intent(out), dimension(:)
- n :
integer, intent(out)
- x0 :
real*8
- x1 :
real*8
- x2 :
real*8
- a0 :
real*8
- a1 :
real*8
- a2 :
real*8
- q1 :
real*8
- r1 :
real*8
- d1 :
real*8
- eps0 :
real*8, parameter
- Initial Value
= 1.d-8
- one3rd :
real*8, parameter
- Initial Value
= 1.d0/3.d0
- arg :
real*8
- s :
real*8
- t :
real*8
- st :
complex*16