C  S2DPRB.FOR  09 July 1990
C
C  Sample input file to S2D, which will try to convert this program
C  to using double precision.
C
C  We're being very hard on the program.  We throw in all sorts of 
C  occurrences of the REAL statement, and occurrences of the word REAL.
C  We include statements that are quoted, and hence should not be altered.
C  We include real constants, which should be modified.  We include calls
C  to single precision LINPACK routines, which should be changed to
C  double precision calls.
C
c real
      implicit real b0
      implicit real*4 b1
      implicit real*8 b2
      implicit real*16 b3
      implicit real*100 b4
c
      real c0
      real*4 c1
      real*8 c2
      real*16 c3
      real*100 c4
c
      real* e1
      real dsign
      real sign,cos,sin,sqrt
c
      complex g0
      complex*4 g1
      complex*8 g2
      complex*16 g3
      complex*32 g4
      complex*100 g5
c
      x = dreal(i)
C
      CALL SGEFA(A,LDA,N,IPIVOT,INFO)
C
      call count(real)
      call count( cereal,a)
      call count(realty)
      call count( realty)
      call count( realty,b)
      x = e5.5
      x = 55
      x = .55
      x = 5.5
      x = 55.
      x = 55e01
      x = .55e01
      x = 5.5e01
      x = 55.e01
      k = 'real double precision'
      f = 'don''t do it'
      foo = 'this is a real (very) long line ...............................
     +..........continued onto the next one, real ly'
  100.e0 this line should not be modified
  101.d0 this line shouldn''t be modified, either
      if (5.le.4) goto drawing_board
      call foo()
   99 format (d5.3,e5.1,f14.7,g9.3)
      stop
      end