Search Site | Contact Details | FAQ

ADAS Subroutine chindx

       SUBROUTINE CHINDX(  CNJL  ,  INDJL  ,  NJLEVX  ,  NJLEN  ,
     &                     CNBL  ,  INDBL  ,  BNDLS   ,  NGAP   ,
     &                     INDBLO   
     &                   )
C-----------------------------------------------------------------------
C  FORTRAN 77 SUBROUTINE CHINDX
C
C  PURPOSE: TO RE-INDEX & ALTER TERMS FOR A BUNDLED SET OF LEVELS
C
C  AUTHOR: DAVID H.BROOKS
C
C  DATE: 28.04.95
C
C  MODIFIED: 23.01.96 DAVID H.BROOKS
C            SLIGHT ALTERATION TO METHOD TO TRAP SOME WIDER CASES.
C
C  VERSION:	1.3						DATE: 18.11.98
C  MODIFIED: DAVID H.BROOKS
C            FURTHER ALTERATION TO TRAP SOME WIDER CASES.
C-----------------------------------------------------------------------
      CHARACTER*18        CNBL(NJLEVX),             CNJL(NJLEVX)
      INTEGER             BNDLS(NJLEVX),            INDBL(NJLEVX)
      INTEGER             INDBLO(NJLEVX),           INDJL(NJLEVX)
      INTEGER             NGAP(NJLEVX),             NJLEN,       NJLEVX
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk