You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
50 lines
1.4 KiB
50 lines
1.4 KiB
diff --git a/CMakeLists.txt b/CMakeLists.txt
|
|
--- a/CMakeLists.txt
|
|
+++ b/CMakeLists.txt
|
|
@@ -54,21 +54,7 @@ endif()
|
|
endif()
|
|
|
|
#Use c preprocessor with fortran
|
|
-
|
|
-if(UNIX AND NOT APPLE)
|
|
- set(CMAKE_Fortran_FLAGS "-cpp -Wno-argument-mismatch")
|
|
-endif()
|
|
-
|
|
-if(APPLE)
|
|
- set(CMAKE_Fortran_FLAGS "-cpp -fallow-argument-mismatch")
|
|
-endif()
|
|
-
|
|
-
|
|
-if (CMAKE_MAJOR_VERSION VERSION_GREATER_EQUAL "3")
|
|
-if(CMAKE_Fortran_COMPILER_VERSION VERSION_GREATER_EQUAL "10")
|
|
- set(CMAKE_Fortran_FLAGS "-cpp -fallow-argument-mismatch")
|
|
-endif()
|
|
-endif()
|
|
+set(CMAKE_Fortran_FLAGS "-cpp")
|
|
|
|
|
|
#For Fortran
|
|
diff --git a/src/GetChisquare.f b/src/GetChisquare.f
|
|
index b21413fe..28391bcb 100644
|
|
--- a/src/GetChisquare.f
|
|
+++ b/src/GetChisquare.f
|
|
@@ -2418,8 +2418,8 @@ C> @Brief Interface to lapack, to dynamically allocate work arrays
|
|
integer NCovar, NDimCovar
|
|
double precision Covar(NDimCovar,NDimCovar), EigenValues(NCovar)
|
|
integer IFail
|
|
- double precision Work
|
|
- integer IWork
|
|
+ double precision Work(1)
|
|
+ integer IWork(1)
|
|
Character*80 msg
|
|
C---------------------------------------------------------------
|
|
C Determine optimal size of the work array:
|
|
@@ -2432,7 +2432,7 @@ C Determine optimal size of the work array:
|
|
$ int(work)+1, iwork
|
|
call HF_ERRLOG(14121701,msg)
|
|
call MyDSYEVD2(NCovar,Covar,NDimCovar, EigenValues,
|
|
- $ int(work)+1,iwork,ifail)
|
|
+ $ int(work(1))+1,iwork(1),ifail)
|
|
|
|
end
|
|
|
|
|