PROGRAM SCK2
      COMMON T,E1(4)
      T=0.499975                                            
      N2=1                                               
      E1(1)=1.0                                             
      E1(2)=-1.0                                            
      E1(3)=-1.0                                            
      E1(4)=-1.0                                            
      IF(N2)29,29,21                                        
   21 DO 28 I=1,N2,1                                        
      E1(1)=(E1(1)+E1(2)+E1(3)-E1(4))*T                     
      E1(2)=(E1(1)+E1(2)-E1(3)+E1(4))*T                     
      E1(3)=(E1(1)-E1(2)+E1(3)+E1(4))*T                     
      E1(4)=(-E1(1)+E1(2)+E1(3)+E1(4))*T                    
   28 CONTINUE                                              
   29 CONTINUE                                              
      END