Searched refs:GLOWLIST (Results 1 – 1 of 1) sorted by relevance
559 INTEGER, ALLOCATABLE, DIMENSION(:) :: GLOWLIST variable629 ALLOCATE( GLOWLIST(MAXGLOWS) )2590 IF ( NGLOWS .GT. SIZE(GLOWLIST) ) THEN2591 CALL GET_TRY(SIZE(GLOWLIST), NGLOWS, TRY1, 1)2596 TMP1D = GLOWLIST2597 CALL MOVE_ALLOC(from=TMP1D, to=GLOWLIST)2603 962 CALL ASSERT(NGLOWS.LE.SIZE(GLOWLIST),'too many glow lights')2604 GLOWLIST(NGLOWS) = N4181 IG = LIST(GLOWLIST(NG))