anchor.diff:      if(len_trim(lnSplit(4)) > mNameLen) then
         write (lout,"(2(a,i0))") "DYNK> ERROR FUN:GET got an element name with length ",len_trim(lnSplit(4)),&
           ", but max is ", mNameLen
  -      call prror(-1)
  +      call prror
       end if
       if(len_trim(lnSplit(5)) > mStrLen-1) then
         write (lout,"(2(a,i0))") "DYNK> ERROR FUN:GET got an attribute name with length ",len_trim(lnSplit(5)),&
           ", but max is ",mStrLen-1
  -      call prror(-1)
  +      call prror
       end if
   
       ! Store data
  
positive.code: 
        case default
          write(lout,"(a,i0,a)") "DYNK> ERROR setValue Unsupported element type ",el_type," element name = '"//trim(element_name)//"'"
          call prror(-1)
        end select
      end if
    end do
  
negative.code: 
        if(ldoubleElement) then ! Sanity check
          write(lout,"(a)") "DYNK> ERROR Two elements with the same BEZ"
          call prror
        end if
        ldoubleElement = .true.
  
  