From 85a55bf5cfd164f8b2963f9637b0475287273fd2 Mon Sep 17 00:00:00 2001
From: mferrera <matt.ferrera@gmail.com>
Date: Mon, 13 Nov 2023 12:16:47 +0100
Subject: [PATCH] CLN: Remove C export xtgeo grid

---
 src/clib/xtg/grdcp3d_export_xtgeo_grid.c | 110 -----------------------
 src/clib/xtg/libxtg.h                    |  13 ---
 2 files changed, 123 deletions(-)
 delete mode 100644 src/clib/xtg/grdcp3d_export_xtgeo_grid.c

diff --git a/src/clib/xtg/grdcp3d_export_xtgeo_grid.c b/src/clib/xtg/grdcp3d_export_xtgeo_grid.c
deleted file mode 100644
index e857d211f..000000000
--- a/src/clib/xtg/grdcp3d_export_xtgeo_grid.c
+++ /dev/null
@@ -1,110 +0,0 @@
-/*
-****************************************************************************************
-*
-* NAME:
-*    grdcp3d_export_xtgeo_grid.c
-*
-* DESCRIPTION:
-*    Export to native binary xtgeo format. This format is quite compact but it also
-*    have the possibility to add metadata as a json structure in the end.
-*    The position of the metadata will be at 4byte + 16byte + 3*8byte + ncoord*8byte +
-*    nzcorn * 4byte + nact * 4byte + 16byte + 1?
-*
-*    Stuff like subgridinfo will be in the metadata
-*
-* ARGUMENTS:
-*    ncol, nrow, nlay    i     NCOL, NROW, NLAY
-*    zcornsv             i     ZCORN array w/ len
-*    actnumsv            i     ACTNUM array w/ len
-*    metadata            i     String (variable length) with metadata
-*    filehandle          i     File handle
-*
-* RETURNS:
-*    Void function
-*
-* LICENCE:
-*    CF. XTGeo license
-***************************************************************************************
-*/
-
-#include "libxtg.h"
-#include "libxtg_.h"
-#include "logger.h"
-
-void
-grdcp3d_export_xtgeo_grid(long ncol,
-                          long nrow,
-                          long nlay,
-                          double *coordsv,
-                          long ncoord,
-                          float *zcornsv,
-                          long nzcorn,
-                          int *actnumsv,
-                          long nact,
-                          char *metadata,
-                          FILE *fc)
-
-{
-    /*
-     *----------------------------------------------------------------------------------
-     * Initial part
-     *----------------------------------------------------------------------------------
-     */
-
-    logger_info(LI, FI, FU, "Initial part...");
-
-    char magicsta[16] = ">XTGGRIDCP3D_V1";  // 15 letters + one null -> 16
-    char magicend[16] = "<XTGGRIDCP3D_V1";
-
-    // for byteswap identification (future)
-    int anint = 1;
-    fwrite(&anint, 1, sizeof(int), fc);
-
-    // 16 char/byte magic string
-    fputs(magicsta, fc);
-
-    // size of grid as longs (for potential handling of very big grids)
-    fwrite(&ncol, sizeof(long), 1, fc);
-    fwrite(&nrow, sizeof(long), 1, fc);
-    fwrite(&nlay, sizeof(long), 1, fc);
-
-    /*
-     *----------------------------------------------------------------------------------
-     * Corner lines
-     *----------------------------------------------------------------------------------
-     */
-
-    logger_info(LI, FI, FU, "Corner lines...");
-
-    fwrite(coordsv, sizeof(double), ncoord, fc);
-    /*
-     *----------------------------------------------------------------------------------
-     * Z corner values
-     *----------------------------------------------------------------------------------
-     */
-
-    logger_info(LI, FI, FU, "ZCORNS...");
-
-    fwrite(zcornsv, sizeof(float), nzcorn, fc);
-
-    /*
-     *----------------------------------------------------------------------------------
-     * ACTNUMS
-     *----------------------------------------------------------------------------------
-     */
-    logger_info(LI, FI, FU, "ACTNUMS...");
-
-    fwrite(actnumsv, sizeof(int), nact, fc);
-
-    /*
-     *----------------------------------------------------------------------------------
-     * END magic + Metadata
-     *----------------------------------------------------------------------------------
-     */
-    logger_info(LI, FI, FU, "End tag and Metadata...");
-
-    fputs(magicend, fc);
-    fprintf(fc, "%s", metadata);
-
-    logger_info(LI, FI, FU, "Export done");
-}
diff --git a/src/clib/xtg/libxtg.h b/src/clib/xtg/libxtg.h
index 073da68e1..7e872ebed 100644
--- a/src/clib/xtg/libxtg.h
+++ b/src/clib/xtg/libxtg.h
@@ -1790,19 +1790,6 @@ grdcp3d_from_cube(int ncol,
                   int yflip,
                   int option);
 
-void
-grdcp3d_export_xtgeo_grid(long ncol,
-                          long nrow,
-                          long nlay,
-                          double *swig_np_dbl_inplaceflat_v1,  // coordsv
-                          long n_swig_np_dbl_inplaceflat_v1,   // ncoord
-                          float *swig_np_flt_inplaceflat_v1,   // zcornsv (float)
-                          long n_swig_np_flt_inplaceflat_v1,   // nzcorn
-                          int *swig_np_int_inplaceflat_v2,     // actnumsv
-                          long n_swig_np_int_inplaceflat_v2,   // nact
-                          char *metadata,
-                          FILE *fc);
-
 int
 grd3cp3d_xtgformat1to2_geom(long ncol,
                             long nrow,