Commit e509565d authored by Martin Beseda's avatar Martin Beseda
Browse files

[NEW] Added sandbox example using FortranAPI

parent 58e4ebd3
......@@ -46,12 +46,6 @@ program acsf_fapi
integer(c_int) :: ret
! PETSc variables
! type(PetscErrorCode) :: ierr
! type(PetscMPIInt) :: rank
! PetscErrorCode ierr; PetscMPIInt rank
MPI_INIT_VARIABLES
! Pointers & deferred strings initialization
......@@ -67,7 +61,7 @@ program acsf_fapi
data_file = '/home/martin/lib4neuro/data/HE4+T1.xyz'
net_file = '/home/martin/lib4neuro/he3+_.l4n'
cross_val_file = 'he3+_cross_validation.txt'
norm_file = ''
norm_file = 'he3+_norm.txt'
data_file_p = c_loc(data_file)
net_file_p = c_loc(net_file)
......@@ -75,9 +69,6 @@ program acsf_fapi
norm_file_p = c_loc(norm_file)
! Execution part of the program
! call PetscInitialize(PETSC_NULL_CHARACTER, ierr)
! if (ierr /= 0) then; print*,'Unable to initialize PETSc'; stop; endif
MPI_INIT_NULL
ret = fit_ACSF_network(niters, &
......@@ -104,7 +95,6 @@ program acsf_fapi
write(0, '(A I1 A)') 'fit_ACSF_network() failed with return code ', ret, '!'
end if
! call PetscFinalize(ierr)
MPI_FINISH
end program acsf_fapi
\ No newline at end of file
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