@@ -20,7 +20,7 @@ bool read_atom_species(std::ifstream& ifa,
20
20
// ==========================================
21
21
// read in information of each type of atom
22
22
// ==========================================
23
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " ATOMIC_SPECIES" ) )
23
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " ATOMIC_SPECIES" ) )
24
24
{
25
25
ModuleBase::GlobalFunc::OUT (ofs_running," ntype" ,ntype);
26
26
for (int i = 0 ;i < ntype;i++)
@@ -51,7 +51,8 @@ bool read_atom_species(std::ifstream& ifa,
51
51
52
52
if (!end && ss >> one_string && one_string[0 ] != ' #' )
53
53
{
54
- if (one_string == " auto" || one_string == " upf" || one_string == " vwr" || one_string == " upf201" || one_string == " blps" )
54
+ if (one_string == " auto" || one_string == " upf"
55
+ || one_string == " vwr" || one_string == " upf201" || one_string == " blps" )
55
56
{
56
57
ucell.pseudo_type [i] = one_string;
57
58
}
@@ -61,15 +62,17 @@ bool read_atom_species(std::ifstream& ifa,
61
62
}
62
63
else
63
64
{
64
- GlobalV::ofs_warning << " unrecongnized pseudopotential type: " << one_string << " , check your STRU file." << std::endl;
65
+ GlobalV::ofs_warning << " unrecongnized pseudopotential type: "
66
+ << one_string << " , check your STRU file." << std::endl;
65
67
ModuleBase::WARNING_QUIT (" read_atom_species" , " unrecongnized pseudo type." );
66
68
}
67
69
}
68
70
69
71
// Peize Lin test for bsse 2021.04.07
70
72
const std::string bsse_label = " empty" ;
71
73
ucell.atoms [i].flag_empty_element =
72
- (search ( ucell.atom_label [i].begin (), ucell.atom_label [i].end (), bsse_label.begin (), bsse_label.end () ) != ucell.atom_label [i].end ())
74
+ (search ( ucell.atom_label [i].begin (), ucell.atom_label [i].end (),
75
+ bsse_label.begin (), bsse_label.end () ) != ucell.atom_label [i].end ())
73
76
? true : false ;
74
77
}
75
78
}
@@ -80,7 +83,7 @@ bool read_atom_species(std::ifstream& ifa,
80
83
||((PARAM.inp .basis_type == " pw" )&&(PARAM.inp .init_wfc .substr (0 , 3 ) == " nao" ))
81
84
|| PARAM.inp .onsite_radius > 0.0 )
82
85
{
83
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " NUMERICAL_ORBITAL" ) )
86
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " NUMERICAL_ORBITAL" ) )
84
87
{
85
88
for (int i=0 ; i<ntype; i++)
86
89
{
@@ -90,7 +93,7 @@ bool read_atom_species(std::ifstream& ifa,
90
93
// caoyu add 2021-03-16
91
94
if (PARAM.globalv .deepks_setorb )
92
95
{
93
- if (ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " NUMERICAL_DESCRIPTOR" )) {
96
+ if (ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " NUMERICAL_DESCRIPTOR" )) {
94
97
ifa >> ucell.descriptor_file ;
95
98
}
96
99
}
@@ -105,7 +108,7 @@ bool read_atom_species(std::ifstream& ifa,
105
108
#ifdef __EXX
106
109
if ( GlobalC::exx_info.info_global .cal_exx || PARAM.inp .rpa )
107
110
{
108
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " ABFS_ORBITAL" ) )
111
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " ABFS_ORBITAL" ) )
109
112
{
110
113
for (int i=0 ; i<ntype; i++)
111
114
{
@@ -133,7 +136,7 @@ bool read_lattice_constant(std::ifstream& ifa,
133
136
double & lat0_angstrom =lat.lat0_angstrom ;
134
137
std::string& latName = lat.latName ;
135
138
ModuleBase::Matrix3& latvec = lat.latvec ;
136
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_CONSTANT" ) )
139
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_CONSTANT" ) )
137
140
{
138
141
ModuleBase::GlobalFunc::READ_VALUE (ifa, lat0);
139
142
if (lat0<=0.0 )
@@ -154,7 +157,7 @@ bool read_lattice_constant(std::ifstream& ifa,
154
157
if (latName==" none" )
155
158
{
156
159
// check the existence of keyword "LATTICE_PARAMETERS"
157
- if (ModuleBase::GlobalFunc::SCAN_BEGIN (ifa,
160
+ if (ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa,
158
161
" LATTICE_PARAMETERS" ,
159
162
true ,
160
163
false ))
@@ -164,12 +167,12 @@ bool read_lattice_constant(std::ifstream& ifa,
164
167
}
165
168
166
169
// check the existence of keyword "LATTICE_VECTORS"
167
- if ( !ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_VECTORS" ) )
170
+ if ( !ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_VECTORS" ) )
168
171
{
169
172
ModuleBase::WARNING_QUIT (" unitcell::read_lattice_constant" ,
170
173
" Please set LATTICE_VECTORS in STRU file" );
171
174
}
172
- else if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_VECTORS" ) )
175
+ else if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_VECTORS" ) )
173
176
{
174
177
// Reading lattice vectors. notice
175
178
// here that only one cpu read these
@@ -184,7 +187,7 @@ bool read_lattice_constant(std::ifstream& ifa,
184
187
}// supply lattice vectors
185
188
else
186
189
{
187
- if (ModuleBase::GlobalFunc::SCAN_BEGIN (ifa,
190
+ if (ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa,
188
191
" LATTICE_VECTORS" ,
189
192
true ,
190
193
false ))
@@ -216,7 +219,7 @@ bool read_lattice_constant(std::ifstream& ifa,
216
219
latvec.e11 = 1.0 ; latvec.e12 = 0.0 ; latvec.e13 = 0.0 ;
217
220
latvec.e21 =-0.5 ; latvec.e22 = e22 ; latvec.e23 = 0.0 ;
218
221
latvec.e31 = 0.0 ; latvec.e32 = 0.0 ; latvec.e33 = 0.0 ;
219
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
222
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
220
223
{
221
224
ModuleBase::GlobalFunc::READ_VALUE (ifa, latvec.e33 );
222
225
}
@@ -225,7 +228,7 @@ bool read_lattice_constant(std::ifstream& ifa,
225
228
{// trigonal, ibrav = 5
226
229
double t1 = 0.0 ;
227
230
double t2 = 0.0 ;
228
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
231
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
229
232
{
230
233
double cosab=0.0 ;
231
234
ModuleBase::GlobalFunc::READ_VALUE (ifa, cosab);
@@ -245,15 +248,15 @@ bool read_lattice_constant(std::ifstream& ifa,
245
248
latvec.e11 = 1.0 ; latvec.e12 = 0.0 ; latvec.e13 = 0.0 ;
246
249
latvec.e21 = 0.0 ; latvec.e22 = 1.0 ; latvec.e23 = 0.0 ;
247
250
latvec.e31 = 0.0 ; latvec.e32 = 0.0 ; latvec.e33 = 0.0 ;
248
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
251
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
249
252
{
250
253
ModuleBase::GlobalFunc::READ_VALUE (ifa, latvec.e33 );
251
254
}
252
255
}
253
256
else if (latName==" bct" )
254
257
{// body-centered tetragonal, ibrav = 7
255
258
double cba = 0.0 ;
256
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
259
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
257
260
{
258
261
ModuleBase::GlobalFunc::READ_VALUE (ifa, cba);
259
262
cba = cba / 2.0 ;
@@ -267,7 +270,7 @@ bool read_lattice_constant(std::ifstream& ifa,
267
270
latvec.e11 = 1.0 ; latvec.e12 = 0.0 ; latvec.e13 = 0.0 ;
268
271
latvec.e21 = 0.0 ; latvec.e22 = 0.0 ; latvec.e23 = 0.0 ;
269
272
latvec.e31 = 0.0 ; latvec.e32 = 0.0 ; latvec.e33 = 0.0 ;
270
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
273
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
271
274
{
272
275
ifa >> latvec.e22 ;
273
276
ModuleBase::GlobalFunc::READ_VALUE (ifa, latvec.e33 );
@@ -278,7 +281,7 @@ bool read_lattice_constant(std::ifstream& ifa,
278
281
latvec.e11 = 0.5 ; latvec.e12 = 0.0 ; latvec.e13 = 0.0 ;
279
282
latvec.e21 =-0.5 ; latvec.e22 = 0.0 ; latvec.e23 = 0.0 ;
280
283
latvec.e31 = 0.0 ; latvec.e32 = 0.0 ; latvec.e33 = 0.0 ;
281
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
284
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
282
285
{
283
286
ifa >> latvec.e12 ;
284
287
latvec.e12 = latvec.e12 / 2.0 ;
@@ -289,7 +292,7 @@ bool read_lattice_constant(std::ifstream& ifa,
289
292
else if (latName==" fco" )
290
293
{// face-centered orthorhombic, ibrav = 10
291
294
double bba = 0.0 ; double cba = 0.0 ;
292
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
295
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
293
296
{
294
297
ifa >> bba;
295
298
ModuleBase::GlobalFunc::READ_VALUE (ifa, cba);
@@ -302,7 +305,7 @@ bool read_lattice_constant(std::ifstream& ifa,
302
305
else if (latName==" bco" )
303
306
{// body-centered orthorhombic, ibrav = 11
304
307
double bba = 0.0 ; double cba = 0.0 ;
305
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
308
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
306
309
{
307
310
ifa >> bba;
308
311
ModuleBase::GlobalFunc::READ_VALUE (ifa, cba);
@@ -317,7 +320,7 @@ bool read_lattice_constant(std::ifstream& ifa,
317
320
double bba = 0.0 ; double cba = 0.0 ;
318
321
double cosab = 0.0 ;
319
322
double e21 = 0.0 ; double e22 = 0.0 ;
320
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
323
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
321
324
{
322
325
ifa >> bba >> cba;
323
326
ModuleBase::GlobalFunc::READ_VALUE (ifa, cosab);
@@ -333,7 +336,7 @@ bool read_lattice_constant(std::ifstream& ifa,
333
336
double bba = 0.0 ; double cba = 0.0 ;
334
337
double cosab = 0.0 ;
335
338
double e21 = 0.0 ; double e22 = 0.0 ;
336
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
339
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
337
340
{
338
341
ifa >> bba >> cba;
339
342
ModuleBase::GlobalFunc::READ_VALUE (ifa, cosab);
@@ -354,7 +357,7 @@ bool read_lattice_constant(std::ifstream& ifa,
354
357
double cosbc = 0.0 ;
355
358
double sinab = 0.0 ;
356
359
double term = 0.0 ;
357
- if ( ModuleBase::GlobalFunc::SCAN_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
360
+ if ( ModuleBase::GlobalFunc::SCAN_LINE_BEGIN (ifa, " LATTICE_PARAMETERS" ) )
358
361
{
359
362
ifa >> bba >> cba >> cosab >> cosac;
360
363
ModuleBase::GlobalFunc::READ_VALUE (ifa, cosbc);
0 commit comments