C  D2SPRB.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 double precision b0
      implicit double precision b1
      implicit double precision b2
      implicit real*16 b3
      implicit real*100 b4
      real*8 john
c
      double precision c0
      double precision c1
      double precision c2
      real*16 c3
      real*100 c4
c
      real* e1
      double precision dsign
      double precision dsign,dcos,dsin,dsqrt
c
      double complex g0
      complex*4 g1
      double complex g2
      double complex g3
      complex*32 g4
      complex*100 g5
c
      x = dreal(i)
C
      CALL DGEFA(A,LDA,N,IPIVOT,INFO)
C
      call count(double precision)
      call count( cereal,a)
      call count(realty)
      call count( realty)
      call count( realty,b)
      x = e5.5
      x = 55
      x = .55d0
      x = 5.d05
      x = 55.d0
      x = 55d01
      x = .55d01
      x = 5.5d01
      x = 55.d01
      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