>>549
配列はみだしてるｗ

>>556
多分問題は全然違うところにあるｗ

ところでFORTRAN77で行くなら、暗黙の型宣言は死んでも守ったほうがいい。バグの元。
悪いことは言わないから　A,B,S,P　はそれぞれ　IA,IB,IS,IP　にしておけ。