From 43bb57de59c80d1ed03b8f5df065258143f30c01 Mon Sep 17 00:00:00 2001 From: Evgeny Posenitskiy <45995097+q-posev@users.noreply.github.com> Date: Tue, 12 Jul 2022 19:35:15 +0200 Subject: [PATCH] Fix line truncation --- src/templates_front/templator_front.org | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/templates_front/templator_front.org b/src/templates_front/templator_front.org index 684ddfc..b0618e4 100644 --- a/src/templates_front/templator_front.org +++ b/src/templates_front/templator_front.org @@ -5517,7 +5517,8 @@ end interface #+begin_src f90 :tangle prefix_fortran.f90 interface - integer(trexio_exit_code) function trexio_to_bitfield_list_c(list, occupied_num, det_list, N_int) bind(C, name="trexio_to_bitfield_list") + integer(trexio_exit_code) function trexio_to_bitfield_list_c(list, occupied_num, det_list, N_int) & + bind(C, name="trexio_to_bitfield_list") use, intrinsic :: iso_c_binding import integer(c_int32_t), intent(in) :: list(*) @@ -5530,7 +5531,8 @@ end interface #+begin_src f90 :tangle prefix_fortran.f90 interface - integer(trexio_exit_code) function trexio_to_orbital_list_c(N_int, d1, list, occupied_num) bind(C, name="trexio_to_orbital_list") + integer(trexio_exit_code) function trexio_to_orbital_list_c(N_int, d1, list, occupied_num) & + bind(C, name="trexio_to_orbital_list") use, intrinsic :: iso_c_binding import integer(c_int32_t), intent(in), value :: N_int