*DECK INXCB SUBROUTINE INXCB (I, IR, IDX, IDP) C***BEGIN PROLOGUE INXCB C***SUBSIDIARY C***PURPOSE Subsidiary to CBLKTR C***LIBRARY SLATEC C***TYPE INTEGER (INXCB-I) C***AUTHOR (UNKNOWN) C***SEE ALSO CBLKTR C***ROUTINES CALLED (NONE) C***COMMON BLOCKS CCBLK 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 INXCB