Commit 58454a08 authored by Martin Beseda's avatar Martin Beseda
Browse files

[FIX] Fixed compilation of acsf_fapi sandbox example.

parent c3d0bb8d
......@@ -149,7 +149,7 @@ IF("${BUILD_LIB}" STREQUAL "yes")
lib4neuro
PUBLIC
-cpp
-fpp
)
# GFortran linking
......
......@@ -49,6 +49,11 @@ SET_TARGET_PROPERTIES(
INCLUDE_DIRECTORIES ${ROOT_DIR}/include
)
SET_PROPERTY(
TARGET acsf_fapi
PROPERTY
LINKER_LANGUAGE Fortran)
#TARGET_COMPILE_OPTIONS(
# acsf_fapi
#
......
......@@ -46,7 +46,9 @@ program acsf_fapi
integer(c_int) :: ret
MPI_INIT_VARIABLES
MPI_INIT_VARIABLES
! PetscErrorCode ierr; PetscMPIInt rank; PetscMPIInt nranks; PetscMPIInt msg; PetscMPIInt msg_;
! Pointers & deferred strings initialization
net_complx_p = c_loc(net_complx)
......@@ -92,9 +94,10 @@ program acsf_fapi
cross_val_file_p, &
norm_file_p)
if (ret /= 0) then
write(0, '(A I1 A)') 'fit_ACSF_network() failed with return code ', ret, '!'
!write(0, '(A I1 A)') 'fit_ACSF_network() failed with return code ', ret, '!'
write(0, *) 'fit_ACSF_network() failed with return code ', ret, '!'
end if
MPI_FINISH
end program acsf_fapi
\ No newline at end of file
end program acsf_fapi
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment