anchor.diff:        iErr = .true.
         return
       end if
  -    if(nSplit > 0)  call chr_cast(lnSplit(1), radial,iErr)
  -    if(nSplit > 1)  call chr_cast(lnSplit(2), nr,    iErr)
  -    if(nSplit > 2)  call chr_cast(lnSplit(3), ndr,   iErr)
  +    call chr_cast(lnSplit(1), radial,iErr)
  +    call chr_cast(lnSplit(2), nr,    iErr)
  +    call chr_cast(lnSplit(3), ndr,   iErr)
   
     case(14)
       if(nSplit /= 4) then
  
positive.code:       iErr = .true.
        return
      end if
      if(nSplit > 0)  cdb_fileName = lnSPlit(1)
      if(nSplit > 1)  call chr_cast(lnSPlit(2), ibeam, iErr)
  
    case(17)
      if(nSplit /= 6) then
  
negative.code:       iErr = .true.
        return
      end if
      call chr_cast(lnSplit(1), xbeat,     iErr)
      call chr_cast(lnSplit(2), xbeatphase,iErr)
      call chr_cast(lnSplit(3), ybeat,     iErr)
      call chr_cast(lnSplit(4), ybeatphase,iErr)
  
    case(12)
      if(nSplit /= 11) then
  