      SUBROUTINE XSTORE(A,X,N)
C***   FAKE 360/195 STORING ROUTINE
      DIMENSION A(1)
      DO 1 I=1,N
1     A(I)=X
      RETURN
      END
