From a28244e1d113f89364a5b685b828c67037daa864 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Mon, 10 Feb 2020 17:30:45 -0600 Subject: [PATCH] gfortran requires length in format specifier --- src/utils_periodic/dump_2e_from_map.irp.f | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/utils_periodic/dump_2e_from_map.irp.f b/src/utils_periodic/dump_2e_from_map.irp.f index e126fa06..d3a49886 100644 --- a/src/utils_periodic/dump_2e_from_map.irp.f +++ b/src/utils_periodic/dump_2e_from_map.irp.f @@ -50,7 +50,7 @@ subroutine run j = jj(k2) k = kk(k2) l = ll(k2) - print'((A),4(I4),1(E15.7),2(I),2(E9.1))','imag1 ',i,j,k,l,values(k1),k1,k2,i_sign(k2) + print'((A),4(I4),1(E15.7),2(I4),2(E9.1))','imag1 ',i,j,k,l,values(k1),k1,k2,i_sign(k2) !G_a(i,k) += D_{ab}(l,j)*() !G_b(i,k) += D_{ab}(l,j)*() @@ -67,7 +67,7 @@ subroutine run j = jj(k2) k = kk(k2) l = ll(k2) - print'((A),4(I4),1(E15.7),2(I))','real1 ',i,j,k,l,values(k1),k1,k2 + print'((A),4(I4),1(E15.7),2(I4))','real1 ',i,j,k,l,values(k1),k1,k2 enddo endif enddo @@ -98,7 +98,7 @@ subroutine run j = jj(k2) k = kk(k2) l = ll(k2) - print'((A),4(I4),1(E15.7),2(I),2(E9.1))','imag2 ',i,j,k,l,values(k1),k1,k2,i_sign(k2) + print'((A),4(I4),1(E15.7),2(I4),2(E9.1))','imag2 ',i,j,k,l,values(k1),k1,k2,i_sign(k2) enddo else ! real part do k2=1,4 @@ -109,7 +109,7 @@ subroutine run j = jj(k2) k = kk(k2) l = ll(k2) - print'((A),4(I4),1(E15.7),2(I))','real2 ',i,j,k,l,values(k1),k1,k2 + print'((A),4(I4),1(E15.7),2(I4))','real2 ',i,j,k,l,values(k1),k1,k2 enddo endif enddo