  COMMAND SAMEPOS
-----------------------------------------------------------------
    Purpose: set one coordinate of all points of a subgroup 
             to one value
      Usage: SAMEPOS(<objectID>,<subgroup>,<position>,<dimension>)
    Example: samepos(1,G1,1.234,z)

