| subroutine supol_mod::supol  | 
          ( | 
          integer(kind=jpim), intent(in)  | 
          KNSMAX,  | 
        
        
           | 
           | 
          real(kind=jprh), intent(in)  | 
          DDMU,  | 
        
        
           | 
           | 
          real(kind=jprh), dimension(0:knsmax,0:knsmax), intent(out)  | 
          DDPOL,  | 
        
        
           | 
           | 
          real(kind=jprh), dimension(0:knsmax), intent(in)  | 
          DDA,  | 
        
        
           | 
           | 
          real(kind=jprh), dimension(0:knsmax), intent(in)  | 
          DDB,  | 
        
        
           | 
           | 
          real(kind=jprh), dimension(0:knsmax,0:knsmax), intent(in)  | 
          DDC,  | 
        
        
           | 
           | 
          real(kind=jprh), dimension(0:knsmax,0:knsmax), intent(in)  | 
          DDD,  | 
        
        
           | 
           | 
          real(kind=jprh), dimension(0:knsmax,0:knsmax), intent(in)  | 
          DDE,  | 
        
        
           | 
           | 
          real(kind=jprh), dimension(0:knsmax), intent(in)  | 
          DDF,  | 
        
        
           | 
           | 
          real(kind=jprh), dimension(0:knsmax), intent(in)  | 
          DDG,  | 
        
        
           | 
           | 
          real(kind=jprh), dimension(0:knsmax), intent(in)  | 
          DDH,  | 
        
        
           | 
           | 
          real(kind=jprh), dimension(0:knsmax), intent(in)  | 
          DDI  | 
        
        
           | 
          ) | 
           |  |