anchor.diff:    !---------------------------------------------------------------------------------------------------------------------------------
     select case(f_out)
     case(f_out_ascii)
  -    write(unit=Unit_VTK,fmt='(A)',iostat=E_IO)repeat(' ',indent)//'<FieldData>' ; indent = indent + 2
  -    s_buffer = repeat(' ',indent)//'<DataArray type="Float32" NumberOfComponents="1" Name="'//trim(fname)//'" format="ascii">'// &
  +    s_buffer = repeat(' ',indent)//'<DataArray type="Float32" NumberOfTuples="1" Name="'//trim(fname)//'" format="ascii">'// &
                  trim(str(n=fld))//'</DataArray>'
       write(unit=Unit_VTK,fmt='(A)',iostat=E_IO)trim(s_buffer)
  -    indent = indent - 2 ; write(unit=Unit_VTK,fmt='(A)',iostat=E_IO)repeat(' ',indent)//'</FieldData>'
  -  case(f_out_binary)
  -    write(unit=Unit_VTK,iostat=E_IO)repeat(' ',indent)//'<FieldData>' ; indent = indent + 2
  -    s_buffer = repeat(' ',indent)//'<DataArray type="Float32" NumberOfComponents="1" Name="'//trim(fname)//'" format="ascii">'// &
  +  case(f_out_binary)
  +    s_buffer = repeat(' ',indent)//'<DataArray type="Float32" NumberOfTuples="1" Name="'//trim(fname)//'" format="ascii">'// &
                  trim(str(n=fld))//'</DataArray>'
       write(unit=Unit_VTK,iostat=E_IO)trim(s_buffer)
  -    indent = indent - 2 ; write(unit=Unit_VTK,iostat=E_IO)repeat(' ',indent)//'</FieldData>'
     endselect
     return
     !---------------------------------------------------------------------------------------------------------------------------------
  
positive.code:   !---------------------------------------------------------------------------------------------------------------------------------
    select case(f_out)
    case(f_out_ascii)
      write(unit=Unit_VTK,fmt='(A)',iostat=E_IO)repeat(' ',indent)//'<FieldData>' ; indent = indent + 2
      s_buffer = repeat(' ',indent)//'<DataArray type="Int8" NumberOfComponents="1" Name="'//trim(fname)//'" format="ascii">'// &
                 trim(str(n=fld))//'</DataArray>'
      write(unit=Unit_VTK,fmt='(A)',iostat=E_IO)trim(s_buffer)
      indent = indent - 2 ; write(unit=Unit_VTK,fmt='(A)',iostat=E_IO)repeat(' ',indent)//'</FieldData>'
    case(f_out_binary)
      write(unit=Unit_VTK,iostat=E_IO)repeat(' ',indent)//'<FieldData>' ; indent = indent + 2
      s_buffer = repeat(' ',indent)//'<DataArray type="Int8" NumberOfComponents="1" Name="'//trim(fname)//'" format="ascii">'// &
                 trim(str(n=fld))//'</DataArray>'
      write(unit=Unit_VTK,iostat=E_IO)trim(s_buffer)
      indent = indent - 2 ; write(unit=Unit_VTK,iostat=E_IO)repeat(' ',indent)//'</FieldData>'
    endselect
    return
    !---------------------------------------------------------------------------------------------------------------------------------
  
negative.code:   !---------------------------------------------------------------------------------------------------------------------------------
    select case(f_out)
    case(f_out_ascii)
      s_buffer = repeat(' ',indent)//'<DataArray type="Int64" NumberOfTuples="1" Name="'//trim(fname)//'" format="ascii">'// &
                 trim(str(n=fld))//'</DataArray>'
      write(unit=Unit_VTK,fmt='(A)',iostat=E_IO)trim(s_buffer)
    case(f_out_binary)
      s_buffer = repeat(' ',indent)//'<DataArray type="Int64" NumberOfTuples="1" Name="'//trim(fname)//'" format="ascii">'// &
                 trim(str(n=fld))//'</DataArray>'
      write(unit=Unit_VTK,iostat=E_IO)trim(s_buffer)
    endselect
    return
    !---------------------------------------------------------------------------------------------------------------------------------
  