fix a small bug in fortran scales. Comp/tests ok.

HySoP/src/scalesInterface/particles/advec_remesh_lambda.f90

@@ -331,11 +331,13 @@ subroutine AC_remesh_lambda2corrected_array(direction, p_pos_adim, scal1d, bl_ty
                 !end if
                 ! XXX Debug - end
             if (bl_type(bl_ind)) then
-                ! tagged, the first particle belong to a centered block and the last to left block.
-                call AC_remesh_tag_CL(direction, p_pos_adim(p_ind), scal1D(p_ind), p_pos_adim(p_ind+1), scal1D(p_ind+1), remesh_buffer)
+               ! tagged, the first particle belong to a centered block and the last to left block.
+               call AC_remesh_tag_CL(direction, p_pos_adim(p_ind), scal1D(p_ind), p_pos_adim(p_ind+1), &
+                    scal1D(p_ind+1), remesh_buffer)
             else
                 ! tagged, the first particle belong to a left block and the last to centered block.
-                call AC_remesh_tag_LC(direction, p_pos_adim(p_ind), scal1D(p_ind), p_pos_adim(p_ind+1), scal1D(p_ind+1), remesh_buffer)
+                call AC_remesh_tag_LC(direction, p_pos_adim(p_ind), scal1D(p_ind), p_pos_adim(p_ind+1), &
+                     scal1D(p_ind+1), remesh_buffer)
             end if
         else
             ! First particle
@@ -629,9 +631,11 @@ subroutine AC_remesh_lambda2limited_array(direction, p_pos_adim, scal1d, bl_type
             end if
         else
             ! First particle
-            call AC_remesh_limitO2(direction, p_pos_adim(p_ind),scal1D(p_ind), bl_type(bl_ind), limit(p_ind:p_ind+1), remesh_buffer)
+            call AC_remesh_limitO2(direction, p_pos_adim(p_ind),scal1D(p_ind), bl_type(bl_ind), &
+                 limit(p_ind:p_ind+1), remesh_buffer)
             ! Second particle is remeshed with left formula
-            call AC_remesh_limitO2(direction, p_pos_adim(p_ind+1),scal1D(p_ind+1), bl_type(bl_ind+1), limit(p_ind+1:p_ind+2), remesh_buffer)
+            call AC_remesh_limitO2(direction, p_pos_adim(p_ind+1),scal1D(p_ind+1), bl_type(bl_ind+1), &
+                 limit(p_ind+1:p_ind+2), remesh_buffer)
         end if
     end do