Commit 649d87c0 authored by Matthias Redies's avatar Matthias Redies

replace (/ by [

parent fdd57b75
......@@ -135,7 +135,7 @@
& WRITE (6, '(F10.6)', advance='no') olapcb(j)
END DO
lm = sum((/(hybrid%num_radfun_per_l(j, itype)*(2*j + 1), j=0, l - 1)/))
lm = sum([(hybrid%num_radfun_per_l(j, itype)*(2*j + 1), j=0, l - 1)])
iatom = sum(atoms%neq(1:itype - 1)) + 1 ! take first of group of equivalent atoms
DO m = -l, l
olapcv = 0
......@@ -301,7 +301,7 @@
! & ikpt,sum(rarr(:1)**2/nbands(ikpt)),maxval(rarr(:1))
! CALL writeout(outtext,mpi%irank)
! IF( iatom .eq. 6 ) THEN
! cdum = exp(2*pi*img*dot_product(bkf(:,ikpt),(/0.0,0.0,1.0/) ))
! cdum = exp(2*pi*img*dot_product(bkf(:,ikpt),[0.0,0.0,1.0] ))
! lm = 0
! DO l = 0,lmax(itype)
! DO m = -l,l
......
......@@ -1334,7 +1334,7 @@ CONTAINS
coulomb_mt2_c(n, 0, hybrid%maxlcutm1 + 1, iatom, ikpt0) = coulhlp%data_c(ic + n, hybrid%nbasp + 1)
endif
END DO
ic = ic + SUM((/((2*l + 1)*hybrid%nindxm1(l, itype), l=0, hybrid%lcutm1(itype))/))
ic = ic + SUM([((2*l + 1)*hybrid%nindxm1(l, itype), l=0, hybrid%lcutm1(itype))])
END DO
END DO
......@@ -1345,7 +1345,7 @@ CONTAINS
iatom = 0
ic = 0
DO itype = 1, atoms%ntype
ishift = SUM((/((2*l + 1)*hybrid%nindxm1(l, itype), l=0, hybrid%lcutm1(itype))/))
ishift = SUM([((2*l + 1)*hybrid%nindxm1(l, itype), l=0, hybrid%lcutm1(itype))])
DO ineq = 1, atoms%neq(itype)
iatom = iatom + 1
ic1 = ic + hybrid%nindxm1(0, itype)
......@@ -1353,7 +1353,7 @@ CONTAINS
iatom1 = 0
ic2 = 0
DO itype1 = 1, atoms%ntype
ishift1 = SUM((/((2*l1 + 1)*hybrid%nindxm1(l1, itype1), l1=0, hybrid%lcutm1(itype1))/))
ishift1 = SUM([((2*l1 + 1)*hybrid%nindxm1(l1, itype1), l1=0, hybrid%lcutm1(itype1))])
DO ineq1 = 1, atoms%neq(itype1)
iatom1 = iatom1 + 1
ic3 = ic2 + 1
......@@ -2071,7 +2071,7 @@ CONTAINS
ptsh(:, 1:SIZE(ihelp, 2)) = ihelp
deallocate(rhelp, ihelp)
END IF
ptsh(:, i) = (/ix, iy, iz/)
ptsh(:, i) = [ix, iy, iz]
radsh(i) = SQRT(rdum)
END IF
IF (iz > 0) THEN
......
......@@ -175,7 +175,7 @@ CONTAINS
ll = larr(i)
IF (ABS(m2) > ll) CYCLE
lm = SUM((/((2*l2 + 1)*hybrid%num_radfun_per_l(l2, itype), l2=0, ll - 1)/)) + (m2 + ll)*hybrid%num_radfun_per_l(ll, itype) + parr(i)
lm = SUM([((2*l2 + 1)*hybrid%num_radfun_per_l(l2, itype), l2=0, ll - 1)]) + (m2 + ll)*hybrid%num_radfun_per_l(ll, itype) + parr(i)
carr(i, n1) = cmt(n1, lm, iatom)*gaunt(l1, ll, l, m1, m2, M, hybdat%maxfac, hybdat%fac, hybdat%sfac)
......@@ -361,7 +361,7 @@ CONTAINS
ll = larr(i)
IF (ABS(m2) > ll) CYCLE
lm = SUM((/((2*l2 + 1)*hybrid%num_radfun_per_l(l2, itype), l2=0, ll - 1)/)) &
lm = SUM([((2*l2 + 1)*hybrid%num_radfun_per_l(l2, itype), l2=0, ll - 1)]) &
+ (m2 + ll)*hybrid%num_radfun_per_l(ll, itype) + parr(i)
carr(i, n1) = cmt(n1, lm, iatom)*gaunt(l1, ll, l, m1, m2, M, hybdat%maxfac, hybdat%fac, hybdat%sfac)
......@@ -621,7 +621,7 @@ CONTAINS
! lmstart = lm start index for each l-quantum number and atom type (for cmt-coefficients)
DO itype = 1, atoms%ntype
DO l = 0, atoms%lmax(itype)
lmstart(l, itype) = SUM((/(hybrid%num_radfun_per_l(ll, itype)*(2*ll + 1), ll=0, l - 1)/))
lmstart(l, itype) = SUM([(hybrid%num_radfun_per_l(ll, itype)*(2*ll + 1), ll=0, l - 1)])
END DO
END DO
......
......@@ -239,7 +239,7 @@ CONTAINS
hybrid%nobd(nk) = COUNT(results%w_iks(:hybrid%ne_eig(nk), nk, jsp) > 0.0)
END DO
hybrid%maxlmindx = MAXVAL((/(SUM((/(hybrid%num_radfun_per_l(l, itype)*(2*l + 1), l=0, atoms%lmax(itype))/)), itype=1, atoms%ntype)/))
hybrid%maxlmindx = MAXVAL([(SUM([(hybrid%num_radfun_per_l(l, itype)*(2*l + 1), l=0, atoms%lmax(itype))]), itype=1, atoms%ntype)])
hybrid%nbands = MIN(hybrid%bands1, DIMENSION%neigd)
ENDIF ! hybrid%l_calhf
......
......@@ -264,8 +264,8 @@ CONTAINS
! combine the solutions of the integrals with the appropriate prefactors
a_omegaI(0) = 1.0
a_omegaI(1:8) = a*(/(omega_kF**i, i=1, 8)/)
aI_omegaI = (/(i*a_omegaI(i), i=0, 8)/)
a_omegaI(1:8) = a*[(omega_kF**i, i=1, 8)]
aI_omegaI = [(i*a_omegaI(i), i=0, 8)]
appInt = DOT_PRODUCT(a_omegaI, integral(0:8))
dotpr = DOT_PRODUCT(a_omegaI, integral(2:10))
dAppInt_ds = -dotpr*dHs2_ds
......@@ -2297,7 +2297,7 @@ CONTAINS
ll = larr(i)
IF (ABS(m2) > ll) CYCLE
lm = SUM((/((2*l2 + 1)*nindx(l2, itype), l2=0, ll - 1)/)) &
lm = SUM([((2*l2 + 1)*nindx(l2, itype), l2=0, ll - 1)]) &
+ (m2 + ll)*nindx(ll, itype) + parr(i)
carr(i, n1) = cmt(n1, lm, iatom) &
......
......@@ -138,7 +138,7 @@ CONTAINS
call timestop("read in olap")
IF (hybrid%l_calhf) THEN
ncstd = sum((/((hybdat%nindxc(l, itype)*(2*l + 1)*atoms%neq(itype), l=0, hybdat%lmaxc(itype)), itype=1, atoms%ntype)/))
ncstd = sum([((hybdat%nindxc(l, itype)*(2*l + 1)*atoms%neq(itype), l=0, hybdat%lmaxc(itype)), itype=1, atoms%ntype)])
IF (nk == 1 .and. mpi%irank == 0) WRITE (*, *) 'calculate new HF matrix'
IF (nk == 1 .and. jsp == 1 .and. input%imix > 10) CALL system('rm -f broyd*')
! calculate all symmetrie operations, which yield k invariant
......
......@@ -217,7 +217,7 @@ CONTAINS
!
DO itype = 1, atoms%ntype
lmp_start(itype) = sum((/(2*(2*l + 1), l=0, atoms%lmax(itype) + 1)/))
lmp_start(itype) = sum([(2*(2*l + 1), l=0, atoms%lmax(itype) + 1)])
END DO
idum = maxval(lmp_start)
......@@ -911,7 +911,7 @@ CONTAINS
DO itype = 1, atoms%ntype
DO ieq = 1, atoms%neq(itype)
ic = ic + 1
nn = sum((/((2*l + 1)*hybrid%num_radfun_per_l(l, itype), l=0, atoms%lmax(itype))/))
nn = sum([((2*l + 1)*hybrid%num_radfun_per_l(l, itype), l=0, atoms%lmax(itype))])
DO iband1 = bandi1, bandf1
cmt1(:nn, iband1) = cmt(iband1, :nn, ic)
ENDDO
......
......@@ -97,7 +97,7 @@ CONTAINS
iatom = 0
indx0 = 0
DO itype = 1, atoms%ntype
ishift = sum((/((2*l + 1)*(hybrid%nindxm1(l, itype) - 1), l=0, hybrid%lcutm1(itype))/))
ishift = sum([((2*l + 1)*(hybrid%nindxm1(l, itype) - 1), l=0, hybrid%lcutm1(itype))])
DO ieq = 1, atoms%neq(itype)
iatom = iatom + 1
l = 0
......@@ -161,7 +161,7 @@ CONTAINS
iatom = 0
indx0 = 0
DO itype = 1, atoms%ntype
ishift = sum((/((2*l + 1)*(hybrid%nindxm1(l, itype) - 1), l=0, hybrid%lcutm1(itype))/))
ishift = sum([((2*l + 1)*(hybrid%nindxm1(l, itype) - 1), l=0, hybrid%lcutm1(itype))])
DO ieq = 1, atoms%neq(itype)
iatom = iatom + 1
indx1 = indx0 + 1
......@@ -183,7 +183,7 @@ CONTAINS
iatom1 = 0
indx2 = 0
DO itype1 = 1, atoms%ntype
ishift1 = sum((/((2*l + 1)*(hybrid%nindxm1(l, itype1) - 1), l=0, hybrid%lcutm1(itype1))/))
ishift1 = sum([((2*l + 1)*(hybrid%nindxm1(l, itype1) - 1), l=0, hybrid%lcutm1(itype1))])
DO ieq1 = 1, atoms%neq(itype1)
iatom1 = iatom1 + 1
IF (iatom1 == iatom) CYCLE
......@@ -303,7 +303,7 @@ CONTAINS
iatom = 0
indx0 = 0
DO itype = 1, atoms%ntype
ishift = sum((/((2*l + 1)*(hybrid%nindxm1(l, itype) - 1), l=0, hybrid%lcutm1(itype))/))
ishift = sum([((2*l + 1)*(hybrid%nindxm1(l, itype) - 1), l=0, hybrid%lcutm1(itype))])
DO ieq = 1, atoms%neq(itype)
iatom = iatom + 1
l = 0
......@@ -368,7 +368,7 @@ CONTAINS
iatom = 0
indx0 = 0
DO itype = 1, atoms%ntype
ishift = sum((/((2*l + 1)*(hybrid%nindxm1(l, itype) - 1), l=0, hybrid%lcutm1(itype))/))
ishift = sum([((2*l + 1)*(hybrid%nindxm1(l, itype) - 1), l=0, hybrid%lcutm1(itype))])
DO ieq = 1, atoms%neq(itype)
iatom = iatom + 1
indx1 = indx0 + 1
......@@ -390,7 +390,7 @@ CONTAINS
iatom1 = 0
indx2 = 0
DO itype1 = 1, atoms%ntype
ishift1 = sum((/((2*l + 1)*(hybrid%nindxm1(l, itype1) - 1), l=0, hybrid%lcutm1(itype1))/))
ishift1 = sum([((2*l + 1)*(hybrid%nindxm1(l, itype1) - 1), l=0, hybrid%lcutm1(itype1))])
DO ieq1 = 1, atoms%neq(itype1)
iatom1 = iatom1 + 1
IF (iatom1 == iatom) CYCLE
......
......@@ -595,7 +595,7 @@ CONTAINS
neqvkpt = 0
! list = (/ (ikpt-1, ikpt=1,nkpt) /)
! list = [(ikpt-1, ikpt=1,nkpt) ]
DO ikpt = 1, kpts%nkptf
list(ikpt) = ikpt - 1
END DO
......
......@@ -362,7 +362,7 @@ CONTAINS
i = 0
DO itype = 1, atoms%ntype
nn = sum((/((2*l + 1)*nindxm(l, itype), l=0, lcutm(itype))/))
nn = sum([((2*l + 1)*nindxm(l, itype), l=0, lcutm(itype))])
DO ieq = 1, atoms%neq(itype)
ic = ic + 1
IF (atoms%invsat(ic) == 0) THEN
......@@ -476,7 +476,7 @@ CONTAINS
ic = 0
i = 0
DO itype = 1, atoms%ntype
nn = sum((/((2*l + 1)*nindxm(l, itype), l=0, lcutm(itype))/))
nn = sum([((2*l + 1)*nindxm(l, itype), l=0, lcutm(itype))])
DO ieq = 1, atoms%neq(itype)
ic = ic + 1
IF (atoms%invsat(ic) == 0) THEN
......
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