From bc8e7ba7a5cd1d7ba86aabac30918a3ac0eb87c1 Mon Sep 17 00:00:00 2001
From: misaki <1018407731@qq.com>
Date: Fri, 18 Apr 2025 08:59:46 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=94=B9=E5=87=BD=E6=95=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Fortran/FUNC_sign.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Fortran/FUNC_sign.f90 b/Fortran/FUNC_sign.f90
index 19d7669..c499f31 100644
--- a/Fortran/FUNC_sign.f90
+++ b/Fortran/FUNC_sign.f90
@@ -5,7 +5,7 @@
     
     real*8 :: A
     if(isnan(A)) then
-        FUNC_sign = sqrt(-1.0)
+        FUNC_sign = A
     elseif(A>0) then
         FUNC_sign = 1.0
     elseif(A<0) then