anchor.diff:  module plot
   implicit none
  +
  +  type titles
  +    character(:), allocatable :: title
  +    integer                   :: length
  +  end type titles
  +
   contains
   
   ! GNUPlot Terminals.
  
positive.code:       if (i > 1) write(1,*) ", '" // cdfilename // "' \"
        write(1,*) "u ", using(i+j), ": ", using(i+1+j), ": ", using(i+2+j), " \"
        write(1,*) "every ::", interval(1), "::i w l ls ", i," \"
        write(1,*) ", '"// cdfilename //"' u ", using(i+j), ": ", using(i+1+j), ": ", using(i+2+j), " \"
        write(1,*) "every ::i::i w p ls ", i," \"
        j = j + 2
      end do plots_loop
    else columns
  
negative.code:   write(1,*) "set output '" // plot_name // ".tex'"
  end subroutine epslatexterm
  
  subroutine format(xlabel,ylabel,zlabel,title)
    implicit none
    character(len=*), intent(in), optional :: xlabel, ylabel, zlabel, title
  
    if (present(xlabel) .eqv. .true.) write(1,*) "set xlabel '" // xlabel // "'"
    if (present(ylabel) .eqv. .true.) write(1,*) "set ylabel '" // ylabel // "'"
    if (present(zlabel) .eqv. .true.) write(1,*) "set zlabel '" // zlabel // "'"
    if (present(title)  .eqv. .true.) write(1,*) "set title '"  // title  // "'"
  end subroutine format
  
  ! For axis formats
  ! fmt
  ! if (present(fmt)    .eqv. .true.) write(1,*) "set format '" // fmt    // "'"
  
  subroutine ticks(xticks,yticks,zticks)
    implicit none
  