Convert coordinate from Angstrom to Bohr
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(in) | :: | angstrom_value |
pure elemental function to_bohr(angstrom_value) result(bohr_value) !! Convert coordinate from Angstrom to Bohr real(dp), intent(in) :: angstrom_value real(dp) :: bohr_value bohr_value = angstrom_value*ANGSTROM_TO_BOHR end function to_bohr