INTEGER nDone
nDone = 1
IF ( BAR2_level(1,1) .EQ. BAR2_level(1,I)-1 ) nDone = nDone+1
IF ( nDone .LT. nThreads ) GOTO 12
nDone = 0
if ( key1(1,I) .EQ. VALID ) nDone = nDone+1
IF ( nDone .LT. nThreads ) GOTO 10
if ( key2(1,I) .EQ. VALID ) nDone = nDone+1
IF ( nDone .LT. nThreads ) GOTO 20
if ( key3(1,I) .EQ. VALID ) nDone = nDone+1
IF ( nDone .LT. nThreads ) GOTO 30
IF ( GSR8_value(curLev,I) .NE. _NOT_SET_ ) nDone = nDone+1