program getcp_bump
c 
c  Reads cp from cfl3d.prout (from bump run using bumpperiodic.inp)
c  This program is HARDWIRED for the specific bump
c  testcase bumpperiodic.inp
c
      dimension x(181),cp(181)
c
      open(2,file='cfl3d.prout',form='formatted',status='old')
      open(3,file='cp.dat',form='formatted',status='unknown')
c  read front matter that we do not need
      do n=1,10
        read(2,*)
      enddo
c  read cp
      write(3,'(''variables="x","C_p"'')')
      write(3,'(''zone,t="CFD"'')')
      do n=1,181
        read(2,*) idum,idum,idum,x(n),dum,dum,dum,dum,dum,dum,dum,
     +   dum,cp(n)
c  write results
        write(3,'(2e15.5)') x(n),cp(n)
      enddo
c
      write(6,'('' tecplot file output to cp.dat'')')
      stop
      end