Difference for psfgen/src/tcl_psfgen.c from version 1.33 to 1.34

version 1.33version 1.34
Line 920
Line 920
              (!strcasecmp(argv[1], "coordinates")               (!strcasecmp(argv[1], "coordinates") 
               || !strcasecmp(argv[1], "velocities")                || !strcasecmp(argv[1], "velocities") 
               || !strcasecmp(argv[1], "mass")               || !strcasecmp(argv[1], "mass")
                || !strcasecmp(argv[1], "charge")
               || !strcasecmp(argv[1], "atomid")               || !strcasecmp(argv[1], "atomid")
              )              )
             ) {             ) {
Line 969
Line 970
             sprintf(interp->result, "%f", atoms->mass);             sprintf(interp->result, "%f", atoms->mass);
 #endif #endif
             return TCL_OK;             return TCL_OK;
            } else if (!strcasecmp(argv[1], "charge")) {
  #if TCL_MINOR_VERSION >= 6
              char buf[512];
              sprintf(buf, "%f", atoms->charge);
              Tcl_AppendResult(interp, buf, NULL);
  #else
              sprintf(interp->result, "%f", atoms->charge);
  #endif
              return TCL_OK;
           } else if (!strcasecmp(argv[1], "atomid")) {           } else if (!strcasecmp(argv[1], "atomid")) {
 #if TCL_MINOR_VERSION >= 6 #if TCL_MINOR_VERSION >= 6
             char buf[512];             char buf[512];


Legend:
Removed in v.1.33 
changed lines
 Added in v.1.34



Made by using version 1.53 of cvs2html