修改函数

2025-04-18 09:00:46 +08:00 · 2025-04-18 09:00:46 +08:00 · 9bdcc93fa3
commit 9bdcc93fa3
parent f36c8a3673
1 changed files with 19 additions and 0 deletions
--- a/Fortran/FUNC_sign.f90
+++ b/Fortran/FUNC_sign.f90
@ -0,0 +1,19 @@
+
+    !符号函数
+    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
+    
+