  COMMAND SETPSCL
-----------------------------------------------------------------
    Purpose: Set scaling of a single particle
      Usage: SETPSCL(<particleID>,<particle>,<xScale>,<yScale>,<zScale>)
   Examples: setpscl(1,23,1.0,2.0,-1.0)
