mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-10-05 07:45:59 +02:00
Fix pseudos
This commit is contained in:
parent
5761cc4e30
commit
a11bbf629d
@ -71,8 +71,9 @@ subroutine run
|
|||||||
! Pseudo-potentials
|
! Pseudo-potentials
|
||||||
! -----------------
|
! -----------------
|
||||||
|
|
||||||
print *, 'ECP'
|
if (do_pseudo) then
|
||||||
|
|
||||||
|
print *, 'ECP'
|
||||||
integer :: num
|
integer :: num
|
||||||
|
|
||||||
num = 0
|
num = 0
|
||||||
@ -164,6 +165,7 @@ subroutine run
|
|||||||
rc = trexio_write_ecp_power(f, power)
|
rc = trexio_write_ecp_power(f, power)
|
||||||
call check_success(rc)
|
call check_success(rc)
|
||||||
|
|
||||||
|
endif
|
||||||
|
|
||||||
|
|
||||||
! Basis
|
! Basis
|
||||||
|
Loading…
Reference in New Issue
Block a user