pro set_scl, scale
;
; proceedure to set scale factor
;
   read, 'Enter the deformation scale factors', scale
end