title: Syntax error of DATA statement in Fortran 90
body: <p>I have to compute few complex integrals and for this purpose I got from my supervisor old program written in Fortran 77. However I have few problems with it. Mostly associated with syntax errors of DATA Statement. This is a part of code with a function calculating real integrals:</p>
  
  <pre><code>FUNCTION  CAUSSA(F,A,B,EPS)
    IMPLICIT DOUBLE PRECISION (A-H,O-Z)
    external f
    REAL :: W(12),X(12)
    DATA CONST /1.0D-12/
    DATA W &amp;
  1 /0.10122 85362 9037 , 0.22238 10344 5337 , 0.31370 66458 7788 ,&amp;
  2 0.36268 37833 7836 , 0.02715 24594 1175 , 0.06225 35239 3864 ,&amp;
  3 0.09515 85116 8249 , 0.12462 89712 5553 , 0.14959 59888 1657 ,&amp;
  4 0.16915 65193 9500 , 0.18260 34150 4492 , 0.18945 06104 5506 /
  
    DATA X &amp;
  1 /0.96028 98564 9753 , 0.79666 64774 1362 , 0.52553 24099 1632 ,&amp;
  2 0.18343 46424 9565 , 0.98940 09349 9165 , 0.94457 50230 7323 ,&amp;
  3 0.86563 12023 8783 , 0.75540 44083 5500 , 0.61787 62444 0264 ,&amp;
  4 0.45801 67776 5722 , 0.28160 35507 7925 , 0.09501 25098 3763 /
    DELTA=CONST*DABS(A-B)
    CAUSSA=0.d0
    AA=A
  5 Y=B-AA
    IF(DABS(Y) .LE. DELTA) RETURN
  2 BB=AA+Y
    C1=0.5*(AA+BB)
    C2=C1-AA
    S8=0.d0
    S16=0.d0
    DO 1 I=1,4
    U=X(I)*C2
  1 S8=S8+W(I)*(F(C1+U)+F(C1-U))
    DO 3 I = 5,12
    U=X(I)*C2
  3 S16=S16+W(I)*(F(C1+U)+F(C1-U))
    S8=S8*C2
    S16=S16*C2
    IF(DABS(S16-S8).GT.EPS*DABS(S16)) GO TO 4
    CAUSSA= CAUSSA+S16
    A=BB
    GO TO 5
  4 Y=0.5*Y
    IF(DABS(Y) .GT. DELTA) GO TO 2
    write(2,7)
    write(5,7)
  7 FORMAT(1X,35HCAUSSA...TOO HIGH ACCURACY REQUIRED)
    CAUSSA=0.d0
    RETURN
  END
  </code></pre>
  
  <p>The result of compilation is following:</p>
  
  <pre><code> sample.f90:11: 
  
   1 /0.10122 85362 9037 , 0.22238 10344 5337 , 0.31370 66458 7788 ,&amp;    
   1
   Error: Syntax error in DATA statement at (1)
   sample.f90:17:
  
   1 /0.96028 98564 9753 , 0.79666 64774 1362 , 0.52553 24099 1632 ,&amp;
   1     
   Error: Syntax error in DATA statement at (1)
  </code></pre>
  
  <p>I use gfortran version 4.4.7. I tried to rewrite those arrays but the result is always the same. Although this function is not the best for integrating, I still need it. Without it, that old program is collapsing.
  I would appreciate any advice.</p>