Index: mttroot/mtt/bin/trans/make_ode2odes ================================================================== --- mttroot/mtt/bin/trans/make_ode2odes +++ mttroot/mtt/bin/trans/make_ode2odes @@ -7,10 +7,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.10 1998/08/25 12:22:45 peterg +## Put _switch after update and also at initilisation +## ## Revision 1.9 1998/08/15 13:46:59 peterg ## New versions of integration routines ## ## Revision 1.8 1998/08/11 13:28:03 peterg ## Lowercase mttLAST etc @@ -61,12 +64,12 @@ MTTilast = round(mttlast/mttdt); # Total number of steps #Initialise MTTt = 0.0; [MTTx] = $1_state; # Read in initial state -[MTTx] = $1_switch(MTTx); # Switches [MTTu] = $1_input(MTTx,MTTt); # Evaluate initial input +[MTTx] = $1_switch(MTTx); # Switches [MTTy] = $1_odeo(MTTx,MTTu,MTTt); # Evaluate initial output mtt_write(MTTt,MTTx,MTTy,$Nx,$Ny); # And write them [mttAA] = zero_matrix($Nx); # Zero the A matrix [mttAAx] = zero_vector($Nx); # Zero the AAx vector