胶片25　收集对象中关于一个问题 的每一件事

USE HSL_MA42
TYPE(MA42_DATA)　DATA
CALL MA42_INITIALIZE　(DATA)
I = 1
DO
　READ .　.　.
　CALL MA42_ANALYSE　(LIST(1:LEN),DATA)
　IF (FINAL)　EXIT
END DO
DO　J =　1 , I
　READ　.　.　.
　CALL MA42_FACTORIZE　(LIST(1:LEN),&
　REALS(1:LEN,1:LEN),DATA)
END DO
READ　.　.　.
CALL MA42_SOLVE(B,X,DATA)

模型寻求DATA中的每一件事，除了一些控制或信息的变量.

Copyright: NPACT