| subroutine suwavedi_mod::suwavedi  | 
          ( | 
          integer(kind=jpim), intent(in)  | 
          KSMAX,  | 
        
        
           | 
           | 
          integer(kind=jpim), intent(in)  | 
          KTMAX,  | 
        
        
           | 
           | 
          integer(kind=jpim), intent(in)  | 
          KPRTRW,  | 
        
        
           | 
           | 
          integer(kind=jpim), intent(in)  | 
          KMYSETW,  | 
        
        
           | 
           | 
          integer(kind=jpim), dimension(0:ksmax), intent(out), optional  | 
          KASM0,  | 
        
        
           | 
           | 
          integer(kind=jpim), intent(out), optional  | 
          KSPOLEGL,  | 
        
        
           | 
           | 
          integer(kind=jpim), dimension(0:ksmax), intent(out), optional  | 
          KPROCM,  | 
        
        
           | 
           | 
          integer(kind=jpim), dimension(kprtrw), intent(out), optional  | 
          KUMPP,  | 
        
        
           | 
           | 
          integer(kind=jpim), intent(out), optional  | 
          KSPEC,  | 
        
        
           | 
           | 
          integer(kind=jpim), intent(out), optional  | 
          KSPEC2,  | 
        
        
           | 
           | 
          integer(kind=jpim), intent(out), optional  | 
          KSPEC2MX,  | 
        
        
           | 
           | 
          integer(kind=jpim), dimension(kprtrw+1), intent(out), optional  | 
          KPOSSP,  | 
        
        
           | 
           | 
          integer(kind=jpim), dimension(ksmax+1), intent(out), optional  | 
          KMYMS,  | 
        
        
           | 
           | 
          integer(kind=jpim), dimension(kprtrw), intent(out), optional  | 
          KPTRMS,  | 
        
        
           | 
           | 
          integer(kind=jpim), dimension(ksmax+1), intent(out), optional  | 
          KALLMS,  | 
        
        
           | 
           | 
          integer(kind=jpim), dimension(0:ksmax), intent(out), optional  | 
          KDIM0G  | 
        
        
           | 
          ) | 
           |  |