do iint=1,nint_gr(i)
do j=istart(i,iint),iend(i,iint)
C in case of diagnostics write (iout,*) "TU SZUKAJ",i,j,dyn_ss_mask(i),dyn_ss_mask(j)
do iint=1,nint_gr(i)
do j=istart(i,iint),iend(i,iint)
C in case of diagnostics write (iout,*) "TU SZUKAJ",i,j,dyn_ss_mask(i),dyn_ss_mask(j)