*DECK INDXC SUBROUTINE INDXC (I, IR, IDXC, NC) C***BEGIN PROLOGUE INDXC C***SUBSIDIARY C***PURPOSE Subsidiary to BLKTRI C***LIBRARY SLATEC C***TYPE INTEGER (INDXC-I) C***AUTHOR (UNKNOWN) C***SEE ALSO BLKTRI C***ROUTINES CALLED (NONE) C***COMMON BLOCKS CBLKT C***REVISION HISTORY (YYMMDD) C 801001 DATE WRITTEN C 891214 Prologue converted to Version 4.0 format. (BAB) C 900402 Added TYPE section. (WRB) C***END PROLOGUE INDXC COMMON /CBLKT/ NPP ,K ,EPS ,CNV , 1 NM ,NCMPLX ,IK C***FIRST EXECUTABLE STATEMENT INDXC NC = 2**IR IDXC = I IF (IDXC+NC-1-NM) 102,102,101 101 NC = 0 102 RETURN END