anchor.diff:      write(lineNm,"(i2)") lineNo
     end if
     if(varVal) then
  -    write(lout,"(a)") "INPUT> DEBUG "//blockName//":"//lineNm//" "//chr_rpad(varName,10)//" = True"
  +    write(lout,"(a)") "INPUT> DEBUG "//blockName//":"//lineNm//" "//chr_rpad(varName,16)//" = True"
     else
  -    write(lout,"(a)") "INPUT> DEBUG "//blockName//":"//lineNm//" "//chr_rpad(varName,10)//" = False"
  +    write(lout,"(a)") "INPUT> DEBUG "//blockName//":"//lineNm//" "//chr_rpad(varName,16)//" = False"
     end if
   
   end subroutine sixin_echoVal_logical
  
positive.code:   else
      write(lineNm,"(i2)") lineNo
    end if
    write(lout,"(a)") "INPUT> DEBUG "//blockName//":"//lineNm//" "//chr_rpad(varName,10)//" = '"//varVal//"'"
  
  end subroutine sixin_echoVal_char
  
  
negative.code:     if(st_debug) then
        call sixin_echoVal("nturn", numl, "SIMU",iLine)
        call sixin_echoVal("nturnr",numlr,"SIMU",iLine)
      end if
      if(iErr) return
  
    case("AMPLITUDE")
      if(nSplit /= 3) then
        write(lerr,"(a,i0)") "SIMU> ERROR AMPLITUDE takes 2 arguments, got",nSplit-1
        write(lerr,"(a)")    "SIMU>       AMPLITUDE start end"
        iErr = .true.
        return
      end if
      call chr_cast(lnSplit(2), amp(1), iErr) ! End amplitude
      call chr_cast(lnSplit(3), amp0,   iErr) ! Start amplitude
      if(st_debug) then
        call sixin_echoVal("amp(1)",amp(1),"SIMU",iLine)
        call sixin_echoVal("amp0",  amp0,  "SIMU",iLine)
      end if
      if(iErr) return
  
    case("OPTICS")
      if(nSplit /= 3) then
        write(lerr,"(a,i0)") "SIMU> ERROR OPTICS takes 2 arguments, got",nSplit-1
        write(lerr,"(a)")    "SIMU>       OPTICS first_idx last_idx"
        iErr = .true.
        return
      end if
      call chr_cast(lnSplit(2), niu(1), iErr) ! Optics calculation, first index
      call chr_cast(lnSplit(3), niu(2), iErr) ! Optics calculation. last index
      if(st_debug) then
        call sixin_echoVal("optics_start",niu(1),"SIMU",iLine)
        call sixin_echoVal("optics_end",  niu(2),"SIMU",iLine)
      end if
      if(iErr) return
  
    case("CRPOINT")
      if(nSplit /= 2) then
        write(lerr,"(a,i0)") "SIMU> ERROR CRPOINT takes 1 argument, got",nSplit-1
        write(lerr,"(a)")    "SIMU>       CRPOINT frequency"
        iErr = .true.
        return
      end if
      call chr_cast(lnSplit(2),numlcp,iErr)
      if(numlcp < 1) then
        write(lerr,"(a)") "SIMU> ERROR CRPOINT must be larger than 0"
        iErr = .true.
        return
      end if
      if(st_debug) then
        call sixin_echoVal("crpoint",numlcp,"SIMU",iLine)
      end if
      if(iErr) return
  
  