子程序fpcyt2（a，n，b，c，nn）c子程序fpcyt2求解线性nxn系统c a*c=bc其中矩阵a是循环三对角矩阵，已分解c使用子程序fpsyt1。c。。c。。标量参数。。整数n，nnc。。数组参数。。实a（nn，6），b（n），c（n）c。。局部标量。。实数抄送，总和整数i，j，j1，n1c。。c（1）=b（1）*a（1,4）总和=c（1）*a（1,5）n1=n-1做10 i=2，n1c（i）=（b（i）-a（i，1）*c（i-1））*a（i，4）总和=总和+c（i）*a（i，5）10继续cc=（b（n）-总和）*a（n，4）c（n）=立方厘米c（n1）=c（n2）-cc*a（n1,6）j=n1做20 i=3，nj1=j-1c（j1）=c（jl）-c（j）*a（j1,3）*aj=j120继续返回结束