| 12345678910111213141516171819202122232425 |
- *DECK INXCA
- SUBROUTINE INXCA (I, IR, IDXA, NA)
- C***BEGIN PROLOGUE INXCA
- C***SUBSIDIARY
- C***PURPOSE Subsidiary to CBLKTR
- C***LIBRARY SLATEC
- C***TYPE INTEGER (INXCA-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 INXCA
- COMMON /CCBLK/ NPP ,K ,EPS ,CNV ,
- 1 NM ,NCMPLX ,IK
- C***FIRST EXECUTABLE STATEMENT INXCA
- NA = 2**IR
- IDXA = I-NA+1
- IF (I-NM) 102,102,101
- 101 NA = 0
- 102 RETURN
- END
|
