1
0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-09-01 00:33:49 +02: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