106 lines
		
	
	
		
			3.6 KiB
		
	
	
	
		
			CMake
		
	
	
	
			
		
		
	
	
			106 lines
		
	
	
		
			3.6 KiB
		
	
	
	
		
			CMake
		
	
	
	
| # Macro that defines variables describing the Fortran name mangling
 | |
| # convention
 | |
| #
 | |
| # Sets the following outputs on success:
 | |
| #
 | |
| #  INTFACE
 | |
| #    Add_
 | |
| #    NoChange
 | |
| #    f77IsF2C
 | |
| #    UpCase
 | |
| #
 | |
| macro(FORTRAN_MANGLING CDEFS)
 | |
| message(STATUS "=========")
 | |
|   get_filename_component(F77_NAME ${CMAKE_Fortran_COMPILER} NAME)
 | |
|   get_filename_component(F77_PATH ${CMAKE_Fortran_COMPILER} PATH)
 | |
|   set(F77 ${F77_NAME} CACHE INTERNAL "Name of the fortran compiler.")
 | |
| 
 | |
|   if(${F77} STREQUAL "ifort.exe")
 | |
|     #settings for Intel Fortran
 | |
|     set(F77_OPTION_COMPILE "/c" CACHE INTERNAL
 | |
|       "Fortran compiler option for compiling without linking.")
 | |
|     set(F77_OUTPUT_OBJ "/Fo" CACHE INTERNAL
 | |
|       "Fortran compiler option for setting object file name.")
 | |
|     set(F77_OUTPUT_EXE "/Fe" CACHE INTERNAL
 | |
|       "Fortran compiler option for setting executable file name.")
 | |
|   else()
 | |
|     # in other case, let user specify their fortran configurations.
 | |
|     set(F77_OPTION_COMPILE "-c" CACHE STRING
 | |
|       "Fortran compiler option for compiling without linking.")
 | |
|     set(F77_OUTPUT_OBJ "-o" CACHE STRING
 | |
|       "Fortran compiler option for setting object file name.")
 | |
|     set(F77_OUTPUT_EXE "-o" CACHE STRING
 | |
|       "Fortran compiler option for setting executable file name.")
 | |
|     set(F77_LIB_PATH "" CACHE PATH
 | |
|       "Library path for the fortran compiler")
 | |
|     set(F77_INCLUDE_PATH "" CACHE PATH
 | |
|       "Include path for the fortran compiler")
 | |
|   endif()
 | |
| 
 | |
| 
 | |
| message(STATUS "Testing FORTRAN_MANGLING")
 | |
| 
 | |
| message(STATUS "Compiling Finface.f...")
 | |
| 
 | |
|     execute_process ( COMMAND  ${CMAKE_Fortran_COMPILER} ${F77_OPTION_COMPILE} ${PROJECT_SOURCE_DIR}/lapacke/mangling/Fintface.f
 | |
|       WORKING_DIRECTORY  ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp
 | |
|       OUTPUT_VARIABLE    OUTPUT
 | |
|       RESULT_VARIABLE    RESULT
 | |
|       ERROR_VARIABLE     ERROR)
 | |
| 
 | |
|     if(RESULT EQUAL 0)
 | |
|     message(STATUS "Compiling Finface.f successful")
 | |
|     else()
 | |
|     message(FATAL_ERROR " Compiling Finface.f FAILED")
 | |
|     message(FATAL_ERROR " Error:\n ${ERROR}")
 | |
|     endif()
 | |
| 
 | |
| message(STATUS "Compiling Cintface.c...")
 | |
| 
 | |
|     execute_process ( COMMAND  ${CMAKE_C_COMPILER} ${F77_OPTION_COMPILE} ${PROJECT_SOURCE_DIR}/lapacke/mangling/Cintface.c
 | |
|       WORKING_DIRECTORY  ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp
 | |
|       OUTPUT_VARIABLE    OUTPUT
 | |
|       RESULT_VARIABLE    RESULT
 | |
|       ERROR_VARIABLE     ERROR)
 | |
| 
 | |
|     if(RESULT EQUAL 0)
 | |
|     message(STATUS "Compiling Cintface.c successful")
 | |
|     else()
 | |
|     message(FATAL_ERROR " Compiling Cintface.c FAILED")
 | |
|     message(FATAL_ERROR " Error:\n ${ERROR}")
 | |
|     endif()
 | |
| 
 | |
| message(STATUS "Linking Finface.f and Cintface.c...")
 | |
| 
 | |
|     execute_process ( COMMAND  ${CMAKE_Fortran_COMPILER} ${F77_OUTPUT_OBJ} xintface.exe Fintface.o Cintface.o
 | |
|       WORKING_DIRECTORY  ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp
 | |
|       OUTPUT_VARIABLE    OUTPUT
 | |
|       RESULT_VARIABLE    RESULT
 | |
|       ERROR_VARIABLE     ERROR)
 | |
| 
 | |
|     if(RESULT EQUAL 0)
 | |
|     message(STATUS "Linking Finface.f and Cintface.c successful")
 | |
|     else()
 | |
|     message(FATAL_ERROR " Linking Finface.f and Cintface.c FAILED")
 | |
|     message(FATAL_ERROR " Error:\n ${ERROR}")
 | |
|     endif()
 | |
| 
 | |
| message(STATUS "Running ./xintface...")
 | |
| 
 | |
|     execute_process ( COMMAND  ./xintface.exe
 | |
|       WORKING_DIRECTORY  ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp
 | |
|       RESULT_VARIABLE xintface_RES
 | |
|       OUTPUT_VARIABLE xintface_OUT
 | |
|       ERROR_VARIABLE xintface_ERR)
 | |
| 
 | |
| 
 | |
|        if (xintface_RES EQUAL 0)
 | |
|           string(REPLACE "\n" "" xintface_OUT "${xintface_OUT}")
 | |
|           message(STATUS "Fortran MANGLING convention: ${xintface_OUT}")
 | |
|           set(CDEFS ${xintface_OUT})
 | |
|       else()
 | |
|           message(FATAL_ERROR "FORTRAN_MANGLING:ERROR ${xintface_ERR}")
 | |
|       endif()
 | |
| 
 | |
| endmacro()
 |