c----------------------------------------------------------------------
      SUBROUTINE GCOR(A,A1,B1,B2,B3,B4,P,RS,GG,GGRS)
c  called by subroutine CORLSD
c
c author: ?
c     in:
c    out:
c  calls:
      IMPLICIT REAL*8 (A-H,O-Z)