and another incorrect group argument

ralna · Aug 26, 2024 · 10d2787 · 10d2787
1 parent 7ae913b
commit 10d2787
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/tools/cigr.F90 b/src/tools/cigr.F90
@@ -420,7 +420,7 @@ SUBROUTINE CUTEST_cigr_threadsafe_r( data, work, status, n, iprob, X, GR )
 
 !  evaluate the group derivative values.
 
-          CALL GROUP_r( work%GVALS, data%ng, work%FT, data%GPVALU, data%ng,    &
+          CALL GROUP_r( work%GVALS, data%ng, work%FT, data%GPVALU, ncalcg,     &
                       data%ITYPEG, data%ISTGP, work%ICALCF, data%ltypeg,       &
                       data%lstgp, data%lcalcf, data%lcalcg, data%lgpvlu,       &
                        .TRUE., igstat )