Search Site | Contact Details | FAQ

ADAS Subroutine xxcmps

      SUBROUTINE XXCMPS( CSTA19 , CSTB19  , LEQUIV  )
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: XXCMPS *********************
C
C  PURPOSE: COMPARES TWO NINETEEN CHARACTER CONFIGURATION STRINGS IN 
C           STANDARD FORM AND DETECTS IF THEY ARE EQUIVALENT INDEPENDENT
C           OF THE ORBITALS BEING IN UPPER OR LOWER CASE. 
C
C  CALLING PROGRAMS: GENERAL USE
C
C  SUBROUTINE:
C
C  INPUT : (C*19)  CSTA19  = FIRST CONFIGURATION CHARACTER STRING
C  INPUT : (C*19)  CSTB19  = SECOND CONFIGURATION CHARACTER STRING
C  OUTPUT: (L*4)   LEQUIV  = .TRUE.  => CONFIGURATION STRINGS EQUIVALENT
C                            .FALSE. => STRINGS NOT EQUIVALENT
C
C ROUTINES:
C          ROUTINE    SOURCE   BRIEF DESCRIPTION
C          -------------------------------------------------------------
C          XXWORD     ADAS     FINDS NUMBER OF WORDS IN A STRING
C
C AUTHOR:  H. P. SUMMERS, UNIVERSITY OF STRATHCLYDE
C          JA8.08
C          TEL. 0141-553-4196
C
C DATE:    01/10/96
C
C
C UPDATE:
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 14-10-96
C MODIFIED: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C               - PUT UNDER SOFTWARE CONTROL
C
C VERSION: 1.2                          DATE: 28-08-97
C MODIFIED: HUGH SUMMERS
C               - EXTENDED TO INCLUDE 'G' STATES
C
C VERSION: 1.3                          DATE: 26-06-98
C MODIFIED: RICHARD MARTIN
C		    - EDITED TO MAKE SURE 'IF' STATEMENT DOESN'T SPAN > 20
C			LINES OF TEXT -CRASHES ON SUNOS 4.1.x
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      CHARACTER*19        CSTA19,      CSTB19
      LOGICAL             LEQUIV
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk