LIBARYファイルの2942行目 RATIO=STATUS%[TRGTCHRNO,3]/STATUS%[TRGTCHRNO,4] を RATIO=STATUS%[TRGTCHRNO,1]/STATUS%[TRGTCHRNO,2] と修正すると正しく動作します。 単純ミスでした、申し訳ありません。