vertSetCount = 0
IF ( viscArNr(k).NE.UNSET_RL ) vertSetCount = vertSetCount + 1
IF ( vertSetCount.GT.0 .AND. vertSetCount.LT.Nr ) THEN
& vertSetCount, ' /', Nr, ') of viscArNr is not allowed'
ELSEIF ( vertSetCount.GT.0 ) THEN
IF ( vertSetCount.EQ.0 ) THEN
IF ( diffKrNrT(k).NE.UNSET_RL ) vertSetCount = vertSetCount + 1
& vertSetCount, ' /', Nr, ') of diffKrNrT is not allowed'
specifiedDiffKrT = vertSetCount.EQ.Nr
IF ( diffKrNrS(k).NE.UNSET_RL ) vertSetCount = vertSetCount + 1
& vertSetCount, ' /', Nr, ') of diffKrNrS is not allowed'
IF ( vertSetCount.EQ.Nr ) THEN
INTEGER vertSetCount