Не могу понять код

Не знаю этот ваш CompModel. Могу лишь предположить, что CALL - вызов подпрограммы, а соответственно всё, что перед вызовом откуда-нибудь считывается - входные данные, а всё, что после вызова подпрограммы куда-то записывается - выходные данные.

Ну и для второй программы аналогично, только вызова подпрограммы нет.

0