一维数据插值计算代码,根据数据类型,采用fortra编写的程序 进行插值计算