C 
C 
C 
      SUBROUTINE DROP(OBJECT,WHERE)
C 
C  PLACE AN OBJECT AT A GIVEN LOC, PREFIXING IT ONTO THE ATLOC LIST.  DE
C  HOLDNG IF THE OBJECT WAS BEING TOTED.
C 
      IMPLICIT INTEGER*4 (A-Z)
      COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
      DIMENSION ATLOC(150)
      DIMENSION LINK(200)
      DIMENSION PLACE(100)
      DIMENSION FIXED(100)
C 
      IF(OBJECT.GT.100)GOTO 1
      IF(PLACE(OBJECT).EQ.-1)HOLDNG=HOLDNG-1
      PLACE(OBJECT)=WHERE
      GOTO 2
 1     FIXED(OBJECT-100)=WHERE
 2     IF(WHERE.LE.0)RETURN
      LINK(OBJECT)=ATLOC(WHERE)
      ATLOC(WHERE)=OBJECT
      RETURN
      END