subroutine supol_mod::supol |
( |
integer(kind=jpim), intent(in) |
KNSMAX, |
|
|
real(kind=jprh), intent(in) |
DDMU, |
|
|
real(kind=jprh), dimension(0:knsmax,0:knsmax), intent(out) |
DDPOL, |
|
|
real(kind=jprh), dimension(0:knsmax), intent(in) |
DDA, |
|
|
real(kind=jprh), dimension(0:knsmax), intent(in) |
DDB, |
|
|
real(kind=jprh), dimension(0:knsmax,0:knsmax), intent(in) |
DDC, |
|
|
real(kind=jprh), dimension(0:knsmax,0:knsmax), intent(in) |
DDD, |
|
|
real(kind=jprh), dimension(0:knsmax,0:knsmax), intent(in) |
DDE, |
|
|
real(kind=jprh), dimension(0:knsmax), intent(in) |
DDF, |
|
|
real(kind=jprh), dimension(0:knsmax), intent(in) |
DDG, |
|
|
real(kind=jprh), dimension(0:knsmax), intent(in) |
DDH, |
|
|
real(kind=jprh), dimension(0:knsmax), intent(in) |
DDI |
|
) |
| |