      SUBROUTINE FSQRGEN(SR,SI,SSR,SSI)                                         
C                                                                               
      REAL*4 SR(64),SI(64),SSR(64),SSI(64)                                      
      INTEGER*4 I                                                               
C                                                                               
      DO 1000 I=1,16                                                            
          SR(I)=-1                                                              
          SSR(I)=-1                                                             
          SI(I)=0                                                               
          SSI(I)=0                                                              
          SR(I+16)=1                                                            
          SSR(I+16)=1                                                           
          SI(I+16)=0                                                            
          SSI(I+16)=0                                                           
          SR(I+32)=-1                                                           
          SSR(I+32)=-1                                                          
          SI(I+32)=0                                                            
          SSI(I+32)=0                                                           
          SR(I+48)=1                                                            
          SSR(I+48)=1                                                           
          SI(I+48)=0                                                            
          SSI(I+48)=0                                                           
1000  CONTINUE                                                                  
      RETURN                                                                    
      END                                                                       
