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:   character(len=:), allocatable :: lnSplit(:), lnFile(:)
    character(len=mInputLn)       :: fLine
    integer nSplit, nFile
    logical spErr, cErr
  
    ! Temp variables
    integer          ii,t,nLines,ioStat
  
negative.code: 
          if(badelem) then
            write(lout,"(a)") "DYNK> ERROR Attribute '"//att_name_s//"' is not valid for 'GLOBAL-VARS'"
            call prror
          end if
        end if
  
  