t_id
686
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 443700769 | 934973 | True | False | Successfully run |
Record count: 1
type
de10_eqn_vector = array [1..10] of double;
de10_func = function : double;
de10func = de10_func;
DE10_PHI_ARRAY = array[1..10] of double;
DE10phiarray = DE10_PHI_ARRAY;
de10eqnvec = de10_eqn_vector;
de10_12_vector = array [10..12] of double;
de10_13_vector = array [10..13] of double;
de1012vec = de10_12_vector;
de1013vec = de10_13_vector;
PROCEDURE Step10( VAR X : double; VAR Y :
DE10_EQN_VECTOR; F10 : DE10_FUNC; VAR NEQN : INTEGER; VAR H : double; VAR
EPS : double; VAR WT : DE10_EQN_VECTOR; VAR START : BOOLEAN; VAR HOLD :
double; VAR K : INTEGER; VAR KOLD : INTEGER; VAR CRASH : BOOLEAN; VAR PHI :
DE10_PHI_ARRAY; VAR P : DE10_EQN_VECTOR; VAR YP : DE10_EQN_VECTOR;
VAR PSI : DE10_12_VECTOR; VAR ALPHA : DE10_12_VECTOR; VAR BETA :
DE10_12_VECTOR; VAR SIG : DE10_13_VECTOR; VAR V : DE10_12_VECTOR; VAR W
: DE10_12_VECTOR; VAR G : DE10_13_VECTOR; VAR PHASE1 : BOOLEAN; VAR NS :
INTEGER; VAR NORND : BOOLEAN );
begin
end;
PROCEDURE Step11( VAR X : double; VAR Y : DE10EQNVEC; F10 : DE10FUNC; VAR
NEQN : INTEGER; VAR H : double; VAR EPS : double; VAR WT : DE10EQNVEC; VAR
START : BOOLEAN; VAR HOLD : double; VAR K : INTEGER; VAR KOLD : INTEGER;
VAR CRASH : BOOLEAN; VAR PHI : DE10PHIARRAY; VAR P : DE10EQNVEC; VAR YP
: DE10EQNVEC; VAR PSI : DE1012VEC; VAR ALPHA : DE1012VEC; VAR BETA :
DE1012VEC; VAR SIG : DE1013VEC; VAR V : DE1012VEC; VAR W : DE1012VEC; VAR
G : DE1013VEC; VAR PHASE1 : BOOLEAN; VAR NS : INTEGER; VAR NORND :
BOOLEAN );
begin
end;
begin
end.