- 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

pwtools/bands_FS.f

@@ -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)