From f36c8a3673e43fdd6ba9c5811e5c585ce5218bee Mon Sep 17 00:00:00 2001
From: misaki <1018407731@qq.com>
Date: Fri, 18 Apr 2025 09:00:14 +0800
Subject: [PATCH] 5

---
 Fortran/FUNC_sign.f90 | 19 -------------------
 1 file changed, 19 deletions(-)
 delete mode 100644 Fortran/FUNC_sign.f90

diff --git a/Fortran/FUNC_sign.f90 b/Fortran/FUNC_sign.f90
deleted file mode 100644
index c499f31..0000000
--- a/Fortran/FUNC_sign.f90
+++ /dev/null
@@ -1,19 +0,0 @@
-
-    !·ûºÅº¯Êý
-    real*8 function FUNC_sign(A)
-    implicit none
-    
-    real*8 :: A
-    if(isnan(A)) then
-        FUNC_sign = A
-    elseif(A>0) then
-        FUNC_sign = 1.0
-    elseif(A<0) then
-        FUNC_sign = -1.0
-    elseif(A==0) then
-        FUNC_sign = 0.0
-    end if
-    
-    end function
-    
-    
\ No newline at end of file