| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3997 |
VTRI0 |
SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4001 |
VTRI0 |
_RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4007 |
VTRI0 |
A(I,1) = 1. / A(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4013 |
VTRI0 |
C(I,L) = C(I,L) * A(I,LM1) |
|
./pkg/fizhi/fizhi_turb.F |
4014 |
VTRI0 |
A(I,L) = 1. / ( A(I,L) - B(I,LM1) * C(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4021 |
VTRI0 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4028 |
VTRI1 |
SUBROUTINE VTRI1 ( A,B,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4032 |
VTRI1 |
_RL A(irun,K),B(irun,K),Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4038 |
VTRI1 |
Y(I,L) = B(I,L) * Y(I,L+1) * A(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4045 |
VTRI2 |
SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4049 |
VTRI2 |
_RL A(irun,K),B(irun,K),C(irun,K),F(irun,K) |
|
./pkg/fizhi/fizhi_turb.F |
4062 |
VTRI2 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |