Changeset 15449 for branches/MathNetNumerics-Exploration-2789/HeuristicLab.Algorithms.DataAnalysis.Experimental/642.f

Timestamp:

11/03/17 20:28:37 (6 years ago)

Author:

gkronber

Message:

#2789 created x64 build of CUBGCV algorithm, fixed some bugs

File:

• branches/MathNetNumerics-Exploration-2789/HeuristicLab.Algorithms.DataAnalysis.Experimental/642.f (modified) (1 diff)

branches/MathNetNumerics-Exploration-2789/HeuristicLab.Algorithms.DataAnalysis.Experimental/642.f

@@ -130 +130 @@
 C-----------------------------------------------------------------------
 C
-       SUBROUTINE CUBGCV(X,F,DF,N,Y,C,IC,VAR,JOB,SE,WK,IER) 
+      SUBROUTINE CUBGCV(X,F,DF,N,Y,C,IC,VAR,JOB,SE,WK,IER) 
      . BIND(C, NAME='cubgcv')
       USE ISO_C_BINDING
+      !DEC$ ATTRIBUTES DLLEXPORT::CUBGCV
 C
 C---SPECIFICATIONS FOR ARGUMENTS---
-      INTEGER N,IC,JOB,IER
+      INTEGER(KIND=4) N,IC,JOB,IER
       DOUBLE PRECISION X(N),F(N),DF(N),Y(N),C(IC,3),SE(N),VAR,
      .                 WK(0:N+1,7)