mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-12-22 04:13:40 +01:00
Fix TREXIO
This commit is contained in:
parent
50d842bfa7
commit
9e9caf4037
@ -35,7 +35,7 @@ subroutine run
|
||||
|
||||
|
||||
|
||||
if (trexio_has_nucleus_repulsion(f)) then
|
||||
if (trexio_has_nucleus_repulsion(f) == TREXIO_SUCCESS) then
|
||||
rc = trexio_read_nucleus_repulsion(f, s)
|
||||
if (rc /= TREXIO_SUCCESS) then
|
||||
print *, irp_here
|
||||
|
Loading…
Reference in New Issue
Block a user