INTEGER MAXCON
PARAMETER (MAXCON=1)
CHARACTER*16 ANAME(MAXCON)
DO I=1,MAXCON
DO 10 I=1,MAXCON
PARAMETER (MAXCON=43)
_RL ACON (MAXCON)