anchor.diff:    ! Sanity check
     if(i > iu .or. i <= 0) then
       write(lout,"(a,i0,a)") "DYNK> ERROR isused: i=",i," out of range"
  -    call prror(-1)
  +    call prror
     end if
     ix = ic(i)-nblo
     if(i <= 0) then
       write(lout,"(a,i0,a)") "DYNK> ERROR isused: ix-nblo = ",ix," is a block?"
  -    call prror(-1)
  +    call prror
     end if
   
     do k=1,dynk_nSets
  
positive.code:         dynk_fData(dynk_nfData) = u ! y_init[n-i]  (Not really needed anymore, but fixing allignment is painfull)
        end if
      end do
      close(dynk_fileUnitFUN)
  
    ! END CASES FIR & IIR
  
  
negative.code:       el_type=kz(ii)
        if(ldoubleElement) then
          write (lout,"(a)") "DYNK> ERROR Two elements with the same BEZ"
          call prror
        end if
        ldoubleElement = .true.
  
  