Commit b76ed42a authored by Matthias Redies's avatar Matthias Redies

added implicit none

parent 1e77c05a
......@@ -65,21 +65,23 @@ MODULE m_constants
CONTAINS
REAL PURE FUNCTION pimach()
! This subprogram supplies the value of the constant PI correct to
! machine precision where
IMPLICIT NONE
! This subprogram supplies the value of the constant PI correct to
! machine precision where
! PI=3.1415926535897932384626433832795028841971693993751058209749446
! PI=3.1415926535897932384626433832795028841971693993751058209749446
pimach = 3.1415926535897932
pimach = 3.1415926535897932
END FUNCTION pimach
REAL ELEMENTAL FUNCTION c_light(fac)
! 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
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
REAL, INTENT (IN) :: fac
c_light = 137.0359895e0 * fac
REAL, INTENT (IN) :: fac
c_light = 137.0359895e0 * fac
END FUNCTION c_light
END MODULE m_constants
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