mopac606_nbo/src/symtry.f

   1       SUBROUTINE SYMTRY
   2       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
   3       INCLUDE 'SIZES'
   4       COMMON /GEOM  / GEO(3,NUMATM)
   5       COMMON /GEOSYM/ NDEP, LOCPAR(MAXPAR), IDEPFN(MAXPAR),
   6      1         LOCDEP(MAXPAR)
   7 C**********************************************************************
   8 C
   9 C  SYMTRY COMPUTES THE BOND LENGTHS AND ANGLES THAT ARE FUNCTIONS OF
  10 C         OTHER BOND LENGTHS AND ANGLES.
  11 C
  12 C ON INPUT GEO     = KNOWN INTERNAL COORDINATES
  13 C          NDEP    = NUMBER OF DEPENDENCY FUNCTIONS.
  14 C          IDEPFN  = ARRAY OF DEPENDENCY FUNCTIONS.
  15 C          LOCDEP  = ARRAY OF LABELS OF DEPENDENT ATOMS.
  16 C          LOCPAR  = ARRAY OF LABELS OF REFERENCE ATOMS.
  17 C
  18 C  ON OUTPUT THE ARRAY "GEO" IS FILLED
  19 C***********************************************************************
  20 C
  21 C     NOW COMPUTE THE DEPENDENT PARAMETERS.
  22 C
  23       DO 10 I=1,NDEP
  24          CALL HADDON (VALUE,LOCN,IDEPFN(I),LOCPAR(I),GEO)
  25          J=LOCDEP(I)
  26    10 GEO(LOCN,J)=VALUE
  27       RETURN
  28       END