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

pw2casino: rename "compute_casino" to "write_casino_pwfn" (N. Nemec) 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6346 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
nn245 2010-02-02 16:38:24 +00:00
parent ee60d697d0
commit c608297ced
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PP/pw2casino.f90
View File

@ -83,7 +83,7 @@ PROGRAM pw2casino
CALL read_file
CALL openfil_pp
!
CALL compute_casino(casino_gather)
CALL write_casino_pwfn(casino_gather)
!
CALL stop_pp
STOP
@ -91,7 +91,7 @@ PROGRAM pw2casino
END PROGRAM pw2casino
SUBROUTINE compute_casino(gather)
SUBROUTINE write_casino_pwfn(gather)
USE kinds, ONLY: DP
USE ions_base, ONLY : nat, ntyp => nsp, ityp, tau, zv, atm
@ -593,4 +593,4 @@ jloop : do j=l+1,ir
END SUBROUTINE create_index
END SUBROUTINE compute_casino
END SUBROUTINE write_casino_pwfn