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)  call chr_cast(lnSplit(1), c_rmstilt_prim,   iErr)
      if(nSplit > 1)  call chr_cast(lnSplit(2), c_rmstilt_sec,    iErr)
      if(nSplit > 2)  call chr_cast(lnSplit(3), c_systilt_prim,   iErr)
      if(nSplit > 3)  call chr_cast(lnSplit(4), c_systilt_sec,    iErr)
      if(nSplit > 4)  call chr_cast(lnSplit(5), c_rmsoffset_prim, iErr)
      if(nSplit > 5)  call chr_cast(lnSplit(6), c_rmsoffset_sec,  iErr)
      if(nSplit > 6)  call chr_cast(lnSplit(7), c_sysoffset_prim, iErr)
      if(nSplit > 7)  call chr_cast(lnSplit(8), c_sysoffset_sec,  iErr)
      if(nSplit > 8)  call chr_cast(lnSplit(9), c_offsettilt_seed,iErr)
      if(nSplit > 9)  call chr_cast(lnSplit(10),c_rmserror_gap,   iErr)
      if(nSplit > 10) call chr_cast(lnSplit(11),do_mingap,        iErr)
  
    case(13)
      if(nSplit /= 3) then
  
negative.code:       iErr = .true.
        return
      end if
      cdb_fileName = lnSPlit(1)
      call chr_cast(lnSPlit(2), ibeam, iErr)
  
    case(17)
      if(nSplit /= 6) then
  