| subroutine gg1222  | 
          ( | 
          integer, dimension(7), intent(in)  | 
          IK1,  | 
        
        
           | 
           | 
          integer, dimension(7), intent(in)  | 
          IK2,  | 
        
        
           | 
           | 
          real(double), dimension(3), intent(in)  | 
          BK1,  | 
        
        
           | 
           | 
          real(double), dimension(3), intent(in)  | 
          BK2,  | 
        
        
           | 
           | 
          integer, dimension(7), intent(in)  | 
          ID1,  | 
        
        
           | 
           | 
          integer, dimension(7), intent(in)  | 
          ID2,  | 
        
        
           | 
           | 
          real(double), dimension(3), intent(in)  | 
          BD1,  | 
        
        
           | 
           | 
          real(double), dimension(3), intent(in)  | 
          BD2,  | 
        
        
           | 
           | 
          integer, intent(in)  | 
          K1,  | 
        
        
           | 
           | 
          real(double), intent(in)  | 
          QM1,  | 
        
        
           | 
           | 
          real(double), intent(in)  | 
          QM2,  | 
        
        
           | 
           | 
          real(double), intent(in)  | 
          QM3,  | 
        
        
           | 
           | 
          real(double), intent(in)  | 
          QM4,  | 
        
        
           | 
           | 
          real(double), intent(out)  | 
          WW  | 
        
        
           | 
          ) | 
           |  |