From 95bf911bc63f3084ab3b8c3541deb17659f1e077 Mon Sep 17 00:00:00 2001
From: Giovanni La Mura <giovanni.lamura@inaf.it>
Date: Fri, 2 Feb 2024 16:26:12 +0100
Subject: [PATCH] Remove old FORTRAN/C++ I/O interface

---
 src/sphere/file_io.f | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 src/sphere/file_io.f

diff --git a/src/sphere/file_io.f b/src/sphere/file_io.f
deleted file mode 100644
index ebd708c5..00000000
--- a/src/sphere/file_io.f
+++ /dev/null
@@ -1,33 +0,0 @@
-      SUBROUTINE OPEN_FILE(UID,NAME,STA,MODE)
-      INTEGER, INTENT(IN):: UID
-      CHARACTER*64, INTENT(IN):: NAME
-      CHARACTER*8, INTENT(IN):: STA
-      CHARACTER*12, INTENT(IN):: MODE
-      OPEN(UNIT=UID, FILE=NAME, STATUS=STA(1:7), FORM=MODE(1:11))
-      END
-      SUBROUTINE CLOSE_FILE(UID)
-      INTEGER, INTENT(IN):: UID
-      CLOSE(UID)
-      END
-      SUBROUTINE READ_INT(UID, VALUE)
-      INTEGER, INTENT(IN):: UID
-      INTEGER, INTENT(OUT):: VALUE
-      READ(UID)VALUE
-      END
-      SUBROUTINE WRITE_COMPLEX(UID, RVAL, IVAL)
-      INTEGER, INTENT(IN):: UID
-      REAL*8, INTENT(IN):: RVAL, IVAL
-      COMPLEX*16:: VALUE
-      VALUE=COMPLEX(RVAL,IVAL)
-      WRITE(UID)VALUE
-      END
-      SUBROUTINE WRITE_DOUBLE(UID, VALUE)
-      INTEGER, INTENT(IN):: UID
-      REAL*8, INTENT(IN):: VALUE
-      WRITE(UID)VALUE
-      END
-      SUBROUTINE WRITE_INT(UID,VALUE)
-      INTEGER, INTENT(IN):: UID
-      INTEGER, INTENT(IN):: VALUE
-      WRITE(UID)VALUE
-      END
-- 
GitLab