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

oops 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1826 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2005-04-21 14:38:11 +00:00
parent 7de4ac5c64
commit b367305c1c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PH/io_pattern.f90
View File

@ -35,12 +35,12 @@ SUBROUTINE io_pattern (fildrho,nirr,npert,u,iflag)
CALL seqopn(iunit,filname,'formatted',exst) CALL seqopn(iunit,filname,'formatted',exst)
IF (iflag.GT.0) THEN IF (iflag.GT.0) THEN
WRITE( stdout,'(5x,"(WRITING PATTERNS TO FILE ',a)") TRIM(filname) WRITE( stdout,'(5x,"(WRITING PATTERNS TO FILE ",a)') TRIM(filname)
WRITE(iunit,*) nirr WRITE(iunit,*) nirr
WRITE(iunit,*) (npert(i),i=1,nirr) WRITE(iunit,*) (npert(i),i=1,nirr)
WRITE(iunit,*) u WRITE(iunit,*) u
ELSE ELSE
WRITE( stdout,'(5x,"(REAIDNG PATTERNS FROM FILE ',a)") TRIM(filname) WRITE( stdout,'(5x,"(REAIDNG PATTERNS FROM FILE ",a)') TRIM(filname)
READ(iunit,*) nirr READ(iunit,*) nirr
READ(iunit,*) (npert(i),i=1,nirr) READ(iunit,*) (npert(i),i=1,nirr)
READ(iunit,*) u READ(iunit,*) u