mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-12-22 12:23:37 +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)
|
rc = trexio_read_nucleus_repulsion(f, s)
|
||||||
if (rc /= TREXIO_SUCCESS) then
|
if (rc /= TREXIO_SUCCESS) then
|
||||||
print *, irp_here
|
print *, irp_here
|
||||||
|
Loading…
Reference in New Issue
Block a user