すみません

サブルーチンにしないでやっても結果は同じでした。
a=1　 2
1　 3
1　 4
1　 5
1　 6
とすると、とりあえずb(o)だけ書きます
b(o)=0.
1.
1.
394825
2.4050422E+22
c(p)もb(o)と同様にpが上がると凄い勢いでその値が増えていきました