Sign in
gnu
/
gcc
/
1ba7adabf29eb671e418692fad076ea6edd08e3d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
lto
/
pr41521_1.f90
blob: 897e7aded0a3b73631d9a357a662d8d1eff6fb80 [
file
] [
log
] [
blame
]
subroutine atom
(
sol
,
k
,
eval
)
real
,
intent
(
in
)
::
sol
integer
,
intent
(
in
)
::
k
(
2
)
real
,
intent
(
out
)
::
eval
(
2
)
real t1
t1
=
sqrt
(
dble
(
k
(
1
)**
2
)-(
sol
)**
2
)
eval
(
1
)=
sol
**
2
/
sqrt
(
t1
)-
sol
**
2
end
subroutine
