title: Error messages when compiling old fortran code
body: <p>I am trying to compile a code that hasn't been developed with the newest standards in mind. I am using the <em>gfortran</em> compiler and get a few errors that I can't correct. </p>
  
  <p>A partner of mine uses the Intel Visual Fortran compiler in MS Visual Studio and doesn't get any errors. Below are the relevant sections of code and their errors. Insight into any of these would be greatly appreciated. </p>
  
  <p><strong>Error 1:</strong></p>
  
  <pre><code>flow.for:63.63:
  
   3      *gjmh_old(j)*abs(gjmh_old(j))/2.0d0/dens_fjmh(j)  )         
                                                             1
  Error: Expected a right parenthesis in expression at (1)
  </code></pre>
  
  <p><strong>Corresponding code:</strong></p>
  
  <pre><code>sum_dpjmh_old= 1.0/2.0*(dens_jmh(j)+dens_old(j))*grav*(dzc(j)/2.0d0) !!!!
   1    + ( gavg_old(j)*gavg_old(j)/dens_mom(j)
   1       -gjmh_old(j)*gjmh_old(j)/dmom_jmh(j)     )
   3    + 1.0/2.0*
   3     ( fric(j)*dzc(j)/2.0/dhyd(j)
   3      *gavg_old(j)*abs(gavg_old(j))/2.0d0/dens_fric(j)
   3      +fjmh(j)*dzc(j)/2.0/dhyd(j)
   3      *gjmh_old(j)*abs(gjmh_old(j))/2.0d0/dens_fjmh(j)  )
  </code></pre>
  
  <p><strong>Error 2:</strong></p>
  
  <pre><code>flow.for:78.13:
  
   1    + ( gavg(j)*gavg(j)/dens_momn(j)                              
           1
  Error: Missing exponent in real number at (1)
  </code></pre>
  
  <p><strong>Corresponding Code:</strong></p>
  
  <pre><code>sum_dpjmh = 1.0/2.0*(dens_jmhn(j)+dens_ch(j))*grav*(dzc(j)/2.0d0) !!!!
   1    + ( gavg(j)*gavg(j)/dens_momn(j)
   1       -gjmh(j)*gjmh(j)/dmom_jmhn(j)     )
   3    + 1.0/2.0*
   3     ( fric(j)*(dzc(j)/2.0)/dhyd(j)
   3      *gavg(j)*abs(gavg(j))/2.0d0/dens_ch(j)
   3      + fjmh(j)*(dzc(j)/2.0)/dhyd(j)
   3      *gjmh(j)*abs(gjmh(j))/2.0d0/dens_jmhn(j)  )
  </code></pre>
  
  <p><strong>Error 3:</strong></p>
  
  <pre><code>flow.for:684.72:
  
   3           /dens_fjmh(j) )                                        
                                                                      1
  Error: Syntax error in argument list at (1)
  </code></pre>
  
  <p><strong>Corresponding code:</strong></p>
  
  <pre><code>gjmh(j) = gjmh_old(j) + dt/dzc(j)*(
   1           phi*2.0d0*(pjmh(j)-p(j))
   1         + (1.0-phi)*2.0d0*(pjmh_old(j)-p_old(j))
   1         - 2.0d0*( gavg_old(j)*gavg_old(j)/dens_mom(j)
   1          -gjmh_old(j)*gjmh_old(j)/dmom_jmh(j) )
   4         - dens_jmh(j)*grav*dzc(j)
   3         - fjmh(j)*dzc(j)/2.0d0/dhyd(j)*gjmh_old(j)*abs(gjmh_old(j))
   3           /dens_fjmh(j) )   
  </code></pre>