76
85
if (.not. rtdb_put(rtdb,'string:interpol',mt_int,1,
78
87
$ call errquit('string_input: rtdb put failed',0, RTDB_ERR)
89
else if (inp_compare(.false.,'freeze1', field)) then
90
if (.not. inp_l(frze)) frze = .false.
91
if (.not. rtdb_put(rtdb,'string:freeze1',mt_log,1,frze))
92
$ call errquit('string_input: rtdb put failed',0, RTDB_ERR)
94
else if (inp_compare(.false.,'freezen', field)) then
95
if (.not. inp_l(frze)) frze = .false.
96
if (.not. rtdb_put(rtdb,'string:freezen',mt_log,1,frze))
97
$ call errquit('string_input: rtdb put failed',0, RTDB_ERR)
99
else if (inp_compare(.false.,'hasmiddle', field)) then
100
if (.not. inp_l(frze)) frze = .true.
101
if (.not. rtdb_put(rtdb,'string:hasmiddle',mt_log,1,frze))
102
$ call errquit('string_input: rtdb put failed',0, RTDB_ERR)
104
else if (inp_compare(.false.,'impose', field)) then
105
if (.not. inp_l(frze)) frze = .true.
106
if (.not. rtdb_put(rtdb,'string:impose',mt_log,1,frze))
107
$ call errquit('string_input: rtdb put failed',0, RTDB_ERR)
110
else if (inp_compare(.false.,'print_shift', field)) then
112
> call errquit('string_input: print_shift',911,
114
if (.not. rtdb_put(rtdb,'string:print_shift',mt_int,1,ind))
115
> call errquit('string_input: rtdb put failed',27,
118
else if (inp_compare(.false.,'nhist', field)) then
120
> call errquit('string_input: nhist',911,
122
if (.not. rtdb_put(rtdb,'string:m',mt_int,1,ind))
123
> call errquit('string_input: rtdb put failed',27,
128
c ----------------------------
129
else if (inp_compare(.false.,'reset', field)) then
130
if (.not. rtdb_put(rtdb,'bead_list:new',mt_log,1,.true.))
131
> call errquit('string_input: rtdb put failed',28,
137
c ----------------------------
138
else if (inp_compare(.false.,'xyz_path', field)) then
139
if (inp_a(test2)) then
141
nbeads = neb_nbeads_xyzfilename(test2)
142
if (.not. rtdb_put(rtdb,'string:nbeads',mt_int,1,nbeads))
143
> call errquit('string_input: rtdb put failed',29,
146
if (.not. rtdb_put(rtdb,'bead_list:size',mt_int,1,nbeads))
147
> call errquit('string_input: rtdb put failed',30,
151
geom_name = 'bead'//bead_index_name(i)//':geom'
152
if (.not.neb_setgeom_xyzfilename(rtdb,test2,i,geom_name))
153
> call errquit('string_input: rtdb put failed',31,
157
if (.not. rtdb_put(rtdb,'neb:custom_path',mt_log,1,.true.))
158
> call errquit('string_input: rtdb put failed',32,
161
if (.not. rtdb_put(rtdb,'bead_list:new',mt_log,1,.false.))
162
> call errquit('string_input: rtdb put failed',33,
81
169
call errquit('string_input: unknown directive',0, INPUT_ERR)