*! version 1.00 94/8/2          STB-26: snp6.1
program define warping
  version 3.1
*This program calculates Hardle-Scott warping density estimation
*using a TurboPascal program which utilizes modified algorithms from
*Hardle (1991) "Smoothing Techniques with Implementations in S", 
*Springer-Verlag Series in Statistics, New York and Scott (1992) 
*"Multivariate Density Estimation. Theory, Practice, and Visualization, 
*John Wiley & Sons, New York.
capture confirm new variable `1' `2'
if _rc~=0 {
     di "syntax: warping denvar midvar"
      exit}
!warpings
tempvar midpoi densi
infile `densi' `midpoi' using resfile.
rename `midpoi' `2'
rename `densi' `1'
!del resfile
end