C R3P LOGICAL VARIABLES CONCERNING R3P C C R3P TRUE IF ACCUMULATION OF RC3 MATRIX HAS BEGUN C LOGICAL R3P C COMMON /R3P/ R3P