CTITLESATRST -- STATIC SHIFT IN CORE.
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR       J. M. PONTON
CA    DESIGNER     J. M. PONTON
CA    LANGUAGE     VSFORTRAN
CA    SYSTEM       IBM OR CRAY
CA    WRITTEN      04-29-86
C     REVISED      MO-DA-YR BY PROGRAMMER FOR REASON
C     REVISED      09-22-86 BY JMP - CALL NEW STATIC ROUTINE INSTEAD OF SAINT.
CA
CA    CALL SATRST(PARMS, TRACE, OTRACE)
CA
CA    IN/OUT  ARGUMENT  TYPE  DESCRIPTION
CA    ------  --------  ----  -----------
CA    IN      PARMS     I4    ARRAY OF PARAMETERS FOR THE SHIFT TASK.
CA
CA    IN      TRACE     R4    TRACE TO SHIFT.
CA
CA    OUT     OTRACE    R4    SHIFTED TRACE.
CA
CA
C     EJECT
C
      SUBROUTINE SATRST(PARMS, TRACE, OTRACE)
C
      IMPLICIT INTEGER(A-Z)
C
      COMMON /SYSTEM/ SYSTEM, SYBYPW, SYLOCF, JAPNMS
C
      REAL    PARMS(13)
      REAL    TRACE(1)
      REAL    OTRACE(1)
      REAL    SAMPRT
      REAL    STAT
      REAL    G1
C
C            SET CONTROL PARAMETERS.
C
      CALL S1MVCH(PARMS(1), 1, NOSAMP, 1, SYBYPW)
      COPY   = NOSAMP
      SAMPRT = PARMS(2)
      STAT   = -PARMS(3)
C
      CALL STATIC(TRACE, NOSAMP, OTRACE, COPY, STAT, SAMPRT)
C
      RETURN
      END