Search Site | Contact Details | FAQ

ADAS Subroutine bxcstr

       SUBROUTINE BXCSTR( CSTRGA , IL     , IMAX  ,
     &                    CSTRGB
     &                  )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: BXCSTR *********************
C
C  PURPOSE:  TO TAKE THE LAST 'IMAX' NON-BLANK BYTES OF THE 'CSTRGA'
C            STRING AND PLACE THEM IN THE 'CSTRGB' STRING.
C
C  CALLING PROGRAM: ADAS205/ADAS206
C
C
C  SUBROUTINE:
C
C  INPUT : (C*(*))CSTRGA()= NOMENCLATURE/CONFIGURATION FOR LEVEL 'IA()'
C  INPUT : (I*4)  IL      = NUMBER OF ENERGY LEVELS
C  INPUT : (I*4)  IMAX    = NUMBER OF NON-BLANK BYTES TO BE EXTRACTED
C                           FROM THE END OF THE INPUT STRING.
C
C  OUTPUT: (C*(*))CSTRGB()= LAST 'IMAX' NON-BLANK BYTES FROM 'CSTRGA()'
C
C          (I*4)  IFIRST  = POSITION OF FIRST NON-BLANK BYTE IN CSTRGA()
C          (I*4)  ILAST   = POSITION OF LAST  NON-BLANK BYTE IN CSTRGA()
C          (I*4)  ILEN    = LENGTH IN BYTES OF NON-BLANK PART OF CSTRGA
C          (I*4)  I       = GENERAL USE (ARRAY INDEX)
C
C
C ROUTINES:
C           ROUTINE     SOURCE      BRIEF DESCRIPTION
C           ------------------------------------------------------------
C           XXSLEN      ADAS        FIRST/LAST NONBLANK BYTES IN STRING
C
C AUTHOR:  PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/37
C          JET EXT. 5023
C
C DATE:    06/07/93
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      CHARACTER*(*)       CSTRGA(IL),  CSTRGB(IL)
      INTEGER             IL,          IMAX
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk