From a7e21c3e56bfa41cb41a982a4927b633c2c5f37b Mon Sep 17 00:00:00 2001
From: shahramn <shahram.najm@ecmwf.int>
Date: Sat, 17 Aug 2024 11:58:36 +0100
Subject: [PATCH] Examples: Cleanup

---
 examples/F90/CMakeLists.txt    | 12 +++++-----
 examples/F90/new_from_file.f90 | 40 ----------------------------------
 2 files changed, 6 insertions(+), 46 deletions(-)
 delete mode 100644 examples/F90/new_from_file.f90

diff --git a/examples/F90/CMakeLists.txt b/examples/F90/CMakeLists.txt
index 30a3de0e9..7ec9c28b2 100644
--- a/examples/F90/CMakeLists.txt
+++ b/examples/F90/CMakeLists.txt
@@ -155,12 +155,12 @@ ecbuild_add_test( TARGET          eccodes_f_grib_set_packing
                   COMMAND         ${CMAKE_CURRENT_SOURCE_DIR}/grib_set_packing.sh )
 
 # Executables without a shell script
-ecbuild_add_executable( TARGET    eccodes_f_new_from_file
-                        NOINSTALL
-                        SOURCES   new_from_file.f90
-                        CONDITION HAVE_FORTRAN
-                        LINKER_LANGUAGE Fortran
-                        LIBS      eccodes_f90 eccodes )
+#ecbuild_add_executable( TARGET    eccodes_f_new_from_file
+#                        NOINSTALL
+#                        SOURCES   new_from_file.f90
+#                        CONDITION HAVE_FORTRAN
+#                        LINKER_LANGUAGE Fortran
+#                        LIBS      eccodes_f90 eccodes )
 ecbuild_add_executable( TARGET    eccodes_f_grib_set_gvc
                         NOINSTALL
                         SOURCES   grib_set_gvc.f90
diff --git a/examples/F90/new_from_file.f90 b/examples/F90/new_from_file.f90
deleted file mode 100644
index d1eecf272..000000000
--- a/examples/F90/new_from_file.f90
+++ /dev/null
@@ -1,40 +0,0 @@
-! (C) Copyright 2005- ECMWF.
-!
-! This software is licensed under the terms of the Apache Licence Version 2.0
-! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
-!
-! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
-! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
-!
-!
-!
-program new_from_file
-   use eccodes
-   implicit none
-   integer           :: ifile
-   integer           :: iret
-   integer           :: count1 = 0
-
-   ! Message identifier.
-   integer            :: igrib
-
-   ifile = 5
-
-   call codes_open_file(ifile, '../../data/collection.grib1', 'r')
-
-   ! Loop on all the messages in a file.
-   call codes_grib_new_from_file(ifile, igrib, iret)
-
-   do while (iret == CODES_SUCCESS)
-      count1 = count1 + 1
-      print *, "===== Message #", count1
-      call codes_grib_new_from_file(ifile, igrib, iret)
-
-   end do
-   if (iret /= CODES_END_OF_FILE) then
-      call codes_check(iret, 'new_from_file', '')
-   end if
-
-   call codes_close_file(ifile)
-
-end program