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 |