sp4 compilation glitches

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@335 c92efa57-630b-4861-b058-cf58834340f0

Modules/clocks.f90

@@ -71,7 +71,7 @@ SUBROUTINE start_clock( label )
         !
         IF ( t0(n) /= notrunning ) THEN
            WRITE(6, '("start_clock: clock # ",I2," for ",A12, &
-                      " already started")') n, label
+                    & " already started")') n, label
         ELSE
            t0(n) = scnds()
         END IF
@@ -117,7 +117,7 @@ SUBROUTINE stop_clock( label )
         !
         IF ( t0(n) == notrunning ) THEN
            WRITE(6, '("stop_clock: clock # ",I2," for ",A12, &
-                      " not running")') n, label
+                    & " not running")') n, label
         ELSE
            myclock(n) = myclock(n) + scnds() - t0(n)
            t0(n)      = notrunning
@@ -235,11 +235,11 @@ SUBROUTINE print_this_clock( n )
   ELSE IF ( called(n) == 0 ) THEN
      ! For clocks that have never been called
      WRITE(6, '("print_this: clock # ",I2," for ",A12, &
-                " never called !")') n, clock_label(n)
+              & " never called !")') n, clock_label(n)
   ELSE
      ! For all other clocks
      WRITE(6, '(5X,A12," :",F9.2,"s CPU (", &
-                I8," calls,",F8.3," s avg)")') clock_label(n), &
+              & I8," calls,",F8.3," s avg)")') clock_label(n), &
           elapsed_cpu_time, called(n) , ( elapsed_cpu_time / called(n) )
   END IF
   !

PW/electrons.f90

@@ -21,7 +21,7 @@ SUBROUTINE electrons
   !    It prints on output the total energy and its decomposition in
   !    the separate contributions.
   !
-  USE parameters,    ONLY : DP  
+  USE parameters,    ONLY : DP, npk 
   USE brilz,         ONLY : at, bg, alat, omega, tpiba2
   USE basis,         ONLY : nat, ntyp, ityp, tau   
   USE gvect,         ONLY : ngm, gstart, nr1, nr2, nr3, nrx1, nrx2, nrx3, &

PW/forces.f90

@@ -158,7 +158,7 @@ SUBROUTINE forces
   END DO
   !
   WRITE(6, '(/5x,"Total force = ",F12.6,5X, &
-                 "Total SCF correction = ",F12.6)') SQRT(sum), SQRT(sumscf)
+              &  "Total SCF correction = ",F12.6)') SQRT(sum), SQRT(sumscf)
 #ifdef __PARA
   CALL check( ( 3 * nat ), force )
 #endif

PW/init_run.f90

@@ -19,7 +19,7 @@ SUBROUTINE init_run
   !
   IF ( gamma_only ) THEN
      WRITE(6, '(/5X,"Ultrasoft (Vanderbilt) Pseudopotentials, ", &
-                    "Gamma point")')
+                 &  "Gamma point")')
   ELSE
      WRITE(6, '(/5X,"Ultrasoft (Vanderbilt) Pseudopotentials")')
   END IF