5

2025-04-18 09:00:14 +08:00 · 2025-04-18 09:00:14 +08:00 · f36c8a3673
commit f36c8a3673
parent bc8e7ba7a5
1 changed files with 0 additions and 19 deletions
--- a/Fortran/FUNC_sign.f90
+++ b/Fortran/FUNC_sign.f90
@ -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
-    
-