      SUBROUTINE CSQRGEN(C,SSR,SSI)                                             
      COMPLEX C(64)                                                             
      REAL*4 SSR(64),SSI(64)                                                    
      INTEGER*4 I                                                               
C     FORTRAN DO LOOP                                                           
      DO 1000 I=1,16                                                            
C                                                                               
          C(I)=(-1.0,0.0)                                                       
          SSR(I)=-1.0                                                           
          SSI(I)=0.0                                                            
C                                                                               
          C(I+16)=(1.0,0.0)                                                     
          SSR(I+16)=1.0                                                         
          SSI(I+16)=0.0                                                         
C                                                                               
          C(I+32)=(-1.0,0.0)                                                    
          SSR(I+32)=-1.0                                                        
          SSI(I+32)=0.0                                                         
C                                                                               
          C(I+48)=(1.0,0.0)                                                     
          SSR(I+48)=1.0                                                         
          SSI(I+48)=0.0                                                         
C                                                                               
C     ENDDO                                                                     
1000  CONTINUE                                                                  
      RETURN                                                                    
      END                                                                       
