| 1 |
|
c source sokolov users 40827 Aug 24 11:48 grland.F |
| 2 |
#include "ctrparam.h" |
#include "ctrparam.h" |
| 3 |
|
|
| 4 |
! ========================================================== |
! ========================================================== |
| 573 |
BJ(J,40)=BJ(J,40)+BERUN0 7323.5 |
BJ(J,40)=BJ(J,40)+BERUN0 7323.5 |
| 574 |
BJ(J,41)=BJ(J,41)+BEDIFS 7324. |
BJ(J,41)=BJ(J,41)+BEDIFS 7324. |
| 575 |
BJ(J,42)=BJ(J,42)+BF1DT 7325. |
BJ(J,42)=BJ(J,42)+BF1DT 7325. |
| 576 |
BJ(J,43)=BJ(J,43)+BERUN2 7326.5 |
! BJ(J,43)=BJ(J,43)+BERUN2 7326.5 |
| 577 |
BJ(J,45)=BJ(J,45)+BDIFS 7327.5 |
! BJ(J,45)=BJ(J,45)+BDIFS 7327.5 |
| 578 |
BJ(J,46)=BJ(J,46)+BRUN2 7329. |
BJ(J,46)=BJ(J,46)+BRUN2 7329. |
| 579 |
BJ(J,49)=BJ(J,49)+BWTR1 7332. |
BJ(J,49)=BJ(J,49)+BWTR1 7332. |
| 580 |
BJ(J,50)=BJ(J,50)+BACE1 7332.5 |
BJ(J,50)=BJ(J,50)+BACE1 7332.5 |