Commit b76ed42a authored by Matthias Redies's avatar Matthias Redies

added implicit none

parent 1e77c05a
......@@ -65,6 +65,7 @@ MODULE m_constants
CONTAINS
REAL PURE FUNCTION pimach()
IMPLICIT NONE
! This subprogram supplies the value of the constant PI correct to
! machine precision where
......@@ -74,6 +75,7 @@ MODULE m_constants
END FUNCTION pimach
REAL ELEMENTAL FUNCTION c_light(fac)
IMPLICIT NONE
! This subprogram supplies the value of c according to
! NIST standard 13.1.99
! Hartree and Rydbergs changed by fac = 1.0 or 2.0
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment