157
157
external cpsp_semicore,pspw_qmmm_found
158
158
external cpsp_rcore,cpsp_ncore,cpsp_rlocal,ion_TotalCharge
160
logical control_Nose,control_Mulliken,control_print
161
external control_Nose,control_Mulliken,control_print
160
logical control_Nose,control_Mulliken,control_print,Nose_restart
161
external control_Nose,control_Mulliken,control_print,Nose_restart
163
163
integer Nose_Mchain,Nose_Nchain
164
164
external Nose_Mchain,Nose_Nchain
191
191
character*255 cpsp_comment,comment
192
192
external cpsp_comment
193
integer ion_nconstraints,ion_ndof
194
external ion_nconstraints,ion_ndof
278
281
call center_geom(cx,cy,cz)
279
282
call center_mass(gx,gy,gz)
284
* **** initialize FixIon constraint ****
285
call ion_init_FixIon(rtdb)
281
287
* **** allocate psp data structure and read in psedupotentials into it ****
283
289
call cpsp_readall()
362
368
call v_cpsi_read(spin_orbit,ispin,ne,nbrillioun,psi1_tag)
365
* **** initialize FixIon constraint ****
366
call ion_init_FixIon(rtdb)
371
c* **** initialize QM/MM ****
372
c call pspw_qmmm_init(rtdb)
369
376
* ******************************
488
492
write(luout,1121) control_boundry(),control_version()
489
493
if (ispin.eq.1) write(luout,1130) 'restricted'
490
494
if (ispin.eq.2) write(luout,1130) 'unrestricted'
491
IF (control_gga().eq.-1) THEN
492
write(luout,1131) 'off'
493
ELSE IF (control_gga().eq.0) THEN
494
write(luout,1131) 'LDA (Vosko et al) parameterization'
495
ELSE IF (control_gga().eq.10) THEN
497
> 'PBE96 (White and Bird) parameterization'
498
ELSE IF (control_gga().eq.11) THEN
500
> 'BLYP (White and Bird) parameterization'
501
ELSE IF (control_gga().eq.12) THEN
503
> 'revPBE (White and Bird) parameterization'
504
ELSE IF (control_gga().eq.13) THEN
506
> 'PBEsol (White and Bird) parameterization'
508
ELSE IF (control_gga().eq.110) THEN
510
> 'PBE0 (White and Bird) parameterization'
511
ELSE IF (control_gga().eq.112) THEN
513
> 'revPBE0 (White and Bird) parameterization'
514
ELSE IF (control_gga().eq.113) THEN
516
> 'BNL (White and Bird) parameterization'
517
ELSE IF (control_gga().eq.114) THEN
519
> 'HSE (White and Bird) parameterization'
521
ELSE IF (control_gga().eq.200) THEN
522
write(luout,1131) 'Hartree-Fock'
524
write(luout,1131) 'unknown parameterization'
525
call errquit('bad exchange_correlation',0, INPUT_ERR)
496
call v_bwexc_print(luout,control_gga())
528
498
c if (fractional) write(6,1132)
529
499
c call pspw_print_SIC(6)
570
540
> (ion_vion(K,I),K=1,3),I=1,ion_nion())
571
541
write(luout,1200) vcx,vcy,vcz
572
542
write(luout,1210) vgx,vgy,vgz
543
write(luout,1211) ion_nconstraints(),ion_ndof()
574
545
write(luout,1220) en(1),en(ispin),' (fourier space)'
575
546
write(luout,1221) ne(1),neq(1),
655
626
write(luout,1224) (eke1-eke0),(eki1-eki0)
656
627
if (control_Nose()) then
657
628
write(luout,1295)
629
if (Nose_restart()) then
630
write(luout,*) " thermostats resused"
632
write(luout,*) " thermostats initialized"
658
634
do i=1,Nose_Mchain()
659
635
write(luout,1297) i,control_Nose_Te(),Nose_Qe(i),
660
636
> Nose_Pe(i),Nose_Ee0(i)
1069
1045
> (ion_vion(K,I),K=1,3),I=1,ion_nion())
1070
1046
write(luout,1200) vcx,vcy,vcz
1071
1047
write(luout,1210) vgx,vgy,vgz
1048
write(luout,1211) ion_nconstraints(),ion_ndof()
1074
1051
write(luout,1320) en(1),en(ispin),' (real space)'
1334
1311
> ' ) - atomic mass= ',F7.3,' - z fixed')
1335
1312
1200 FORMAT(5X,' G.C. ',' (',3F11.5,' )')
1336
1313
1210 FORMAT(5X,' C.O.M.',' (',3F11.5,' )')
1314
1211 FORMAT(5X,' number of constraints = ', I6,' ( DOF = ',I6,' )' )
1337
1315
1220 FORMAT(/' number of electrons: spin up=',F6.2,16x,
1338
1316
> ' down=',F6.2,A)
1339
1317
1221 FORMAT( ' number of orbitals : spin up=',I6,
1380
1358
1260 FORMAT(5X,' ewald summation: cut radius=',F8.2,' and',I3)
1381
1359
1261 FORMAT(5X,' madelung=',f11.8)
1382
1360
1270 FORMAT(/' technical parameters:')
1383
1271 FORMAT(5x, ' translation contrained')
1361
1271 FORMAT(5x, ' translation constrained')
1384
1362
1272 FORMAT(5x, ' rotation constrained')
1385
1363
1280 FORMAT(5X, ' time step=',F10.2,5X,'ficticious mass=',F10.1)
1386
1364
1281 FORMAT(5X, ' maximum iterations =',I10,