misaki/SUB_WAVELET
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

修改函数

Browse Source
This commit is contained in:
misaki 2025-04-18 08:59:46 +08:00
parent 3830968aa4
commit bc8e7ba7a5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Fortran/FUNC_sign.f90
View File

@ -5,7 +5,7 @@
real*8 :: A real*8 :: A
if(isnan(A)) then if(isnan(A)) then
FUNC_sign = sqrt(-1.0) FUNC_sign = A
elseif(A>0) then elseif(A>0) then
FUNC_sign = 1.0 FUNC_sign = 1.0
elseif(A<0) then elseif(A<0) then