Skip to content

Commit 90b8de3

Browse files
committed
fix float constant definition
1 parent b1a4180 commit 90b8de3

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/stdlib_specialfunctions_activations.fypp

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -83,13 +83,13 @@ end function
8383
elemental ${rt}$ module function gelu_${rk}$( x ) result( y )
8484
${rt}$, intent(in) :: x
8585

86-
y = 0.5_${rk}$ * x * (1 + erf(x * isqrt2_${rk}$))
86+
y = 0.5_${rk}$ * x * (1._${rk}$ + erf(x * isqrt2_${rk}$))
8787
end function
8888

8989
elemental ${rt}$ module function gelu_grad_${rk}$( x ) result( y )
9090
${rt}$, intent(in) :: x
9191

92-
y = 0.5_${rk}$ * (1 + erf(x * isqrt2_${rk}$) )
92+
y = 0.5_${rk}$ * (1._${rk}$ + erf(x * isqrt2_${rk}$) )
9393
y = y + x * isqrt2_${rk}$ * exp( - 0.5_${rk}$ * x**2 )
9494
end function
9595

@@ -317,9 +317,9 @@ elemental ${rt}$ module function ftanh_${rk}$( x ) result( y )
317317
${rt}$, intent(in) :: x
318318
${rt}$ :: x2, a, b
319319

320-
if (x > 5_${rk}$) then
320+
if (x > 5._${rk}$) then
321321
y = 1._${rk}$
322-
elseif (x < -5_${rk}$) then
322+
elseif (x < -5._${rk}$) then
323323
y = -1._${rk}$
324324
else
325325
x2 = x*x

0 commit comments

Comments
 (0)