3
\brief Enter brief description of file here
9
#include <libipv1/ip_lib.h>
10
#include <libciomr/libciomr.h>
15
namespace psi { namespace input {
22
if (!strcmp(frozen_core,"FALSE") ||
23
!strcmp(frozen_core,"NO")) {
27
else if (!strcmp(frozen_core,"TRUE") ||
28
!strcmp(frozen_core,"YES") ||
29
!strcmp(frozen_core,"SMALL") ||
30
!strcmp(frozen_core,"LARGE")) {
32
if (!strcmp(frozen_core,"LARGE"))
36
for(atom=0; atom<num_atoms; atom++) {
38
if (nuclear_charges[atom] < 2.1)
41
else if (nuclear_charges[atom] > 2.9 && nuclear_charges[atom] < 10.1)
44
else if (nuclear_charges[atom] > 10.9 && nuclear_charges[atom] < 18.1)
50
punt("Cannot freeze core automatically for fourth and higher row elements yet");
53
else if (frozen_core[0] >= '0' && frozen_core[0] <= '9') {
54
nfzc = atoi(frozen_core);
57
punt("Invalid value for FREEZE_CORE");
64
if (!strcmp(frozen_virt,"FALSE") ||
65
!strcmp(frozen_virt,"NO")) {
69
else if (frozen_virt[0] >= '0' && frozen_virt[0] <= '9') {
70
nfzv = atoi(frozen_virt);
73
punt("Invalid value for FREEZE_VIRT");
77
}} // namespace psi::input