scemama/qp_plugins_scemama
1
0
Fork 0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-10-05 07:45:59 +02:00
Code Issues Releases Wiki Activity

Fix pseudos

Browse Source
This commit is contained in:
Anthony Scemama 2022-01-10 13:19:22 +01:00
parent 5761cc4e30
commit a11bbf629d
1 changed files with 65 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
devel/trexio/export_trexio.irp.f
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