Commit b76ed42a authored by Matthias Redies's avatar Matthias Redies

added implicit none

parent 1e77c05a
...@@ -65,6 +65,7 @@ MODULE m_constants ...@@ -65,6 +65,7 @@ MODULE m_constants
CONTAINS CONTAINS
REAL PURE FUNCTION pimach() REAL PURE FUNCTION pimach()
IMPLICIT NONE
! This subprogram supplies the value of the constant PI correct to ! This subprogram supplies the value of the constant PI correct to
! machine precision where ! machine precision where
...@@ -74,6 +75,7 @@ MODULE m_constants ...@@ -74,6 +75,7 @@ MODULE m_constants
END FUNCTION pimach END FUNCTION pimach
REAL ELEMENTAL FUNCTION c_light(fac) REAL ELEMENTAL FUNCTION c_light(fac)
IMPLICIT NONE
! This subprogram supplies the value of c according to ! This subprogram supplies the value of c according to
! NIST standard 13.1.99 ! NIST standard 13.1.99
! Hartree and Rydbergs changed by fac = 1.0 or 2.0 ! 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