SUBROUTINE SET (VALUE, BUFFER, COUNT) 
      INTEGER VALUE, COUNT, BUFFER (1), I   
      DO  13004 I = 1, COUNT
      BUFFER (I) = VALUE
13004 CONTINUE  
    
      RETURN
      END