1
0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-06-02 11:25:23 +02:00

Fix TREXIO

This commit is contained in:
Anthony Scemama 2022-05-25 15:24:19 +02:00
parent 50d842bfa7
commit 9e9caf4037

View File

@ -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