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