mirror of https://gitlab.com/QEF/q-e.git
- Workaround: PGI compiler 6.0.1 doesn't like open do construct like
do enddo substituted with do while( .true. ) end do git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2198 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
9fbc9e1930
commit
e7bf22f916
|
@ -50,7 +50,7 @@
|
|||
!
|
||||
open(9,file='Bands.out')
|
||||
|
||||
do
|
||||
do while( .true. )
|
||||
read(9,'(a)') line
|
||||
if(line(1:24).eq.nkpt) then
|
||||
print*, line(1:24)
|
||||
|
@ -62,7 +62,7 @@
|
|||
enddo
|
||||
100 continue
|
||||
|
||||
do
|
||||
do while( .true. )
|
||||
read(9,'(a)') line
|
||||
if(line(22:25).eq.n_bands) then
|
||||
print*, line(22:25)
|
||||
|
@ -82,7 +82,7 @@
|
|||
stop 'Toooooooo many bands'
|
||||
endif
|
||||
|
||||
do
|
||||
do while( .true. )
|
||||
read(9,'(a)') line
|
||||
if(line(1:31).eq.Band_structure) then
|
||||
print*, line(1:31)
|
||||
|
@ -91,7 +91,7 @@
|
|||
enddo
|
||||
102 continue
|
||||
|
||||
do
|
||||
do while( .true. )
|
||||
read(9,'(a)') line
|
||||
if(line(1:13).eq.kpoint) then
|
||||
print*, line(1:13)
|
||||
|
|
Loading…
Reference in New Issue