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