1
0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-11-08 23:23:42 +01:00

Compare commits

...

2 Commits

View File

@ -71,8 +71,9 @@ subroutine run
! Pseudo-potentials
! -----------------
print *, 'ECP'
if (do_pseudo) then
print *, 'ECP'
integer :: num
num = 0
@ -164,6 +165,7 @@ subroutine run
rc = trexio_write_ecp_power(f, power)
call check_success(rc)
endif
! Basis