这几天一直在想，我应该还有什么地方没有想到，写此子程序的作者既然写出参数传递的变量，就应该是有用处的。不应该是我理解的这么简单。只是这几天没有时间试验。今天有空测试了一下，果然是有用处的。实际上这个子程序有两种给计算变量赋值的方法。

第1种就是楼主用的在主程序直接给这13个R参数赋值，调用子程序只写子程序名。第2种是在主程序内调用子程序时用参数传递ld_r10这些变量，他们在子程序内利用条件判断再次赋值给程序使用的13个R参数。

if (($p_subpar[1]==false) and ($p_subpar[2]==false) and ($p_subpar[3]==false) and ($p_subpar[4]==false) and ($p_subpar[5]==false) and ($p_subpar[6]==false) and ($p_subpar[7]==false) and ($p_subpar[8]==false) and ($p_subpar[9]==false) and ($p_subpar[10]==false) and ($p_subpar[11]==false) and ($p_subpar[12]==false) and ($p_subpar[13]==false))

;这句的意思是调用子程序时所有参数传递都没有赋值为成立，只要有任何一个参数传递赋值就不成立