subroutine rascnv::ddrft |
( |
integer | k, |
|
|
integer | kp1, |
|
|
integer | kd, |
|
|
real(kind=kind_phys) | tla, |
|
|
real(kind=kind_phys), dimension(k) | alfind, |
|
|
real(kind=kind_phys) | wcbase, |
|
|
real(kind=kind_phys), dimension(kd:k) | tol, |
|
|
real(kind=kind_phys), dimension(kd:k) | qol, |
|
|
real(kind=kind_phys), dimension(kd:k) | hol, |
|
|
real(kind=kind_phys), dimension(kd:kp1) | prl, |
|
|
real(kind=kind_phys), dimension(kd:k) | qst, |
|
|
real(kind=kind_phys), dimension(kd:k) | hst, |
|
|
real(kind=kind_phys), dimension(kd:kp1) | gam, |
|
|
real(kind=kind_phys), dimension(kd:kp1) | gaf, |
|
|
real(kind=kind_phys), dimension(kd:k) | qrb, |
|
|
real(kind=kind_phys), dimension(kd:k) | qrt, |
|
|
real(kind=kind_phys), dimension(kd:kp1) | buy, |
|
|
integer | kbl, |
|
|
integer | idh, |
|
|
real(kind=kind_phys), dimension(kd:kp1) | eta, |
|
|
real(kind=kind_phys), dimension(kd:k) | rnn, |
|
|
real(kind=kind_phys), dimension(kd:k) | etai, |
|
|
real(kind=kind_phys) | alm, |
|
|
real(kind=kind_phys) | wfn, |
|
|
real(kind=kind_phys) | train, |
|
|
logical | ddft, |
|
|
real(kind=kind_phys), dimension(kd:kp1) | etd, |
|
|
real(kind=kind_phys), dimension(kd:kp1) | hod, |
|
|
real(kind=kind_phys), dimension(kd:kp1) | qod, |
|
|
real(kind=kind_phys), dimension(kd:k) | evp, |
|
|
real(kind=kind_phys) | dof, |
|
|
real(kind=kind_phys), dimension(kd:k) | cldfrd, |
|
|
real(kind=kind_phys), dimension(kd:k) | wcb, |
|
|
real(kind=kind_phys), dimension(kd:kp1) | gms, |
|
|
real(kind=kind_phys), dimension(kd:k) | gsd, |
|
|
real(kind=kind_phys), dimension(kd:k) | ghd, |
|
|
real(kind=kind_phys), dimension(kd:kp1) | wvlu ) |
|
private |