/[ascend]/trunk/tcltk/generic/interface/Integrators.c
ViewVC logotype

Diff of /trunk/tcltk/generic/interface/Integrators.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 976 by johnpye, Thu Oct 26 10:18:53 2006 UTC revision 977 by johnpye, Wed Dec 20 00:39:52 2006 UTC
# Line 678  int Asc_IntegInstIntegrableCmd(ClientDat Line 678  int Asc_IntegInstIntegrableCmd(ClientDat
678    
679    if (strncmp(argv[2],"blsode",3)==0) {    if (strncmp(argv[2],"blsode",3)==0) {
680      integrator = INTEG_LSODE;      integrator = INTEG_LSODE;
681    #ifdef ASC_WITH_IDA
682    }else if (strncmp(argv[2],"ida",3)==0) {    }else if (strncmp(argv[2],"ida",3)==0) {
683      integrator = INTEG_IDA;      integrator = INTEG_IDA;
684    #endif
685    }    }
686    
687    result = (integrator != INTEG_UNKNOWN);    result = (integrator != INTEG_UNKNOWN);
# Line 771  int Asc_IntegSetupCmd(ClientData cdata,T Line 773  int Asc_IntegSetupCmd(ClientData cdata,T
773      ifound=1;      ifound=1;
774    }    }
775    
776    #ifdef ASC_WITH_IDA
777    if (engine != NULL && strncmp(engine,"IDA",3)==0) {    if (engine != NULL && strncmp(engine,"IDA",3)==0) {
778      integrator = INTEG_IDA;      integrator = INTEG_IDA;
779      ifound=1;      ifound=1;
780    }    }
781    #endif
782    
783    if (!ifound) {    if (!ifound) {
784      Tcl_SetResult(interp, "Unsupported integrator", TCL_STATIC);      Tcl_SetResult(interp, "Unsupported integrator", TCL_STATIC);
Legend:
Removed from v.976  
changed lines
  Added in v.977
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22