Оператор COMMON SUBROUTINE SUB1 (some arguments) declarations of arguments REAL ALPHA, BETA COMMON /COEFF/ ALPHA, BETA ! Описание общей области statements ! памяти, доступной разным RETURN ! блокам. END SUBROUTINE SUB2 (some arguments) declarations o
{}