C*	C36ARY	- CHECK IF VARAIBLE IS DIMENSIONED
C
	SUBROUTINE C36ARY (LVAR, IST, IEND, LDIMV, NLEV)
C
C	LVAR	= .TRUE. IF VARIABLE, RATHER THAN A CONSTANT, PRECEEDED THE '('.
C	IST	= START POS IN BIN() OF VARIABLE
C	IEND	= END POS IN BIN() OF VARIABLE
C	LDIMV	= DIMENSION FLAG. IF PARENTHETICAL EXPRESSION IS PART OF
C		  A SUBSCRIPT OR NOT A PARAMETER IN A CALL FOR FUNCTION, THEN
C		  LDIMV(NLEV) IS .FALSE.
C	NLEV	= NESTING LEVEL OF PARENTHESES
C
	INCLUDE 'C36CM.FTN/NOLIST'
	INCLUDE 'C36BCM.FTN/NOLIST'
C
	DIMENSION LDIMV(1)
D	DIMENSION BSCR(6)
C
	NLEV = NLEV + 1
	LDIMV(NLEV) = LDIMV(NLEV-1)
	IF (.NOT.LVAR) GO TO 400
C
	CALL STBLK (BIN(IST), BIN(IST), IEND-IST+1)
	KNAM = 0
	CALL IRAD50 (MIN0(6,IEND-IST+1), BIN(IST), KNAM)
C
	IF (NDVAR .LE. 0)  GO TO 110
	DO 100 I=1, NDVAR
D	CALL R50ASC (6, KDVAR(I), BSCR)
D	WRITE (5, 550) IST, IEND, NDVAR, (BIN(N),N=IST,IEND), BSCR
D550	FORMAT (' ',3I3,5X,20A1)
	IF (KNAM .EQ. KDVAR(I)) GO TO 120
 100	CONTINUE
C
 110	LDIMV(NLEV) = .FALSE.
	GO TO 400
C
 120	CONTINUE
	LDIMV(NLEV) = .TRUE.
C
 400	RETURN
	END