scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

f90 syntax instead of machine-dependent syntax for array initialization: 

array = (\ .. \), not [ .. ]


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3135 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2006-05-25 15:42:00 +00:00
parent f79f80406b
commit 16be921f43
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
atomic/test_bessel.f90
View File

@ -201,7 +201,7 @@ subroutine h_diag ( mesh_, nswx, nsw, lmax, q )
vaux (:), jlq (:,:), work (:) ! more work space
real(kind=dp), external :: int_0_inf_dr
real(kind=dp) :: j
character(len=2), dimension (2) :: spin = [ 'up', 'dw' ]
character(len=2), dimension (2) :: spin = (/ 'up', 'dw' /)
integer :: n_states = 3, l, n, m, nb, mb, ind, is, nj
!
!