From b32f54be0e3cda55e4e5e0cdb970a5147d18c07a Mon Sep 17 00:00:00 2001 From: edoapra Date: Mon, 29 Jun 2026 14:31:44 -0700 Subject: [PATCH] protect from 64_to_32 conversion --- src/NWints/auxil/spcartP.fh | 2 +- src/driver/coptopt.fh | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/NWints/auxil/spcartP.fh b/src/NWints/auxil/spcartP.fh index 089f774bbb..23bf1f33e9 100644 --- a/src/NWints/auxil/spcartP.fh +++ b/src/NWints/auxil/spcartP.fh @@ -23,7 +23,7 @@ logical active_sp2c_lindx ! active ma array sp2c_lindx ? logical active_invsp2c_lindx ! active ma array sp2c_lindx ? logical active_cart_norm_scale ! active ma array cart_norm_scale ? - logical trust_dgemm ! is dgemm okay + logical trust_dgemm ! is _dgemm_ okay * parameter (sph_cart_init_value = 1731) * diff --git a/src/driver/coptopt.fh b/src/driver/coptopt.fh index deb31dcae6..55b5abe490 100644 --- a/src/driver/coptopt.fh +++ b/src/driver/coptopt.fh @@ -73,7 +73,7 @@ c $ ostress2, ! include lattice gradients $ ocheckgrad, ! verify the gradient $ diagonal_hessian, ! tells the code to use a diagonal hessian - $ ofast_diag , ! use dsyev instead of jacobi eigensolver + $ ofast_diag , ! use _dsyev_ instead of jacobi eigensolver $ oactive(max_cent) ! active atom flags c character*8