[cig-commits] r21505 - seismo/3D/SPECFEM3D/trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-11 19:06:54 -0700 (Mon, 11 Mar 2013)
New Revision: 21505

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/iterate_time.f90
Log:
fixed lines that were too long


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/iterate_time.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/iterate_time.f90	2013-03-12 00:37:30 UTC (rev 21504)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/iterate_time.f90	2013-03-12 02:06:54 UTC (rev 21505)
@@ -563,12 +563,12 @@
       ! puts elastic attenuation arrays to GPU
       if(GPU_MODE) &
           call transfer_b_fields_att_to_device(Mesh_pointer, &
-                                            b_R_xx,b_R_yy,b_R_xy,b_R_xz,b_R_yz,size(b_R_xx), &
-!ZN                                            b_R_trace,b_R_xx,b_R_yy,b_R_xy,b_R_xz,b_R_yz,size(b_R_xx), &  please change the above line with this
-                                            b_epsilondev_xx,b_epsilondev_yy,b_epsilondev_xy,b_epsilondev_xz,b_epsilondev_yz, &
-!ZN                                         b_epsilondev_trace,b_epsilondev_xx,b_epsilondev_yy,b_epsilondev_xy,b_epsilondev_xz,b_epsilondev_yz, &
-!ZN                                         please change the above line with this
-                                            size(b_epsilondev_xx))
+                    b_R_xx,b_R_yy,b_R_xy,b_R_xz,b_R_yz,size(b_R_xx), &
+!ZN                 b_R_trace,b_R_xx,b_R_yy,b_R_xy,b_R_xz,b_R_yz,size(b_R_xx), &  ! please change the above line with this
+                    b_epsilondev_xx,b_epsilondev_yy,b_epsilondev_xy,b_epsilondev_xz,b_epsilondev_yz, &
+!ZN                 b_epsilondev_trace,b_epsilondev_xx,b_epsilondev_yy,b_epsilondev_xy,b_epsilondev_xz,b_epsilondev_yz, &
+!ZN                 ! please change the above line with this
+                    size(b_epsilondev_xx))
     endif
 
   endif
@@ -640,11 +640,11 @@
         if(GPU_MODE) then
           ! attenuation arrays
           call transfer_b_fields_att_to_device(Mesh_pointer, &
-                                            b_R_xx,b_R_yy,b_R_xy,b_R_xz,b_R_yz,size(b_R_xx), &
-!ZN                                         b_R_trace,b_R_xx,b_R_yy,b_R_xy,b_R_xz,b_R_yz,size(b_R_xx), &
-                                            b_epsilondev_xx,b_epsilondev_yy,b_epsilondev_xy,b_epsilondev_xz,b_epsilondev_yz, &
-!ZN                                         b_epsilondev_trace,b_epsilondev_xx,b_epsilondev_yy,b_epsilondev_xy,b_epsilondev_xz,b_epsilondev_yz, &
-                                            size(b_epsilondev_xx))
+                  b_R_xx,b_R_yy,b_R_xy,b_R_xz,b_R_yz,size(b_R_xx), &
+!ZN               b_R_trace,b_R_xx,b_R_yy,b_R_xy,b_R_xz,b_R_yz,size(b_R_xx), &
+                  b_epsilondev_xx,b_epsilondev_yy,b_epsilondev_xy,b_epsilondev_xz,b_epsilondev_yz, &
+!ZN               b_epsilondev_trace,b_epsilondev_xx,b_epsilondev_yy,b_epsilondev_xy,b_epsilondev_xz,b_epsilondev_yz, &
+                  size(b_epsilondev_xx))
         endif
       endif
 
@@ -680,11 +680,11 @@
         if(GPU_MODE) then
           ! attenuation arrays
           call transfer_fields_att_from_device(Mesh_pointer, &
-                                            R_xx,R_yy,R_xy,R_xz,R_yz,size(R_xx), &
-!ZN                                         R_trace,R_xx,R_yy,R_xy,R_xz,R_yz,size(R_xx), &
-                                            epsilondev_xx,epsilondev_yy,epsilondev_xy,epsilondev_xz,epsilondev_yz, &
-!ZN                                         epsilondev_trace,epsilondev_xx,epsilondev_yy,epsilondev_xy,epsilondev_xz,epsilondev_yz, &
-                                            size(epsilondev_xx))
+                     R_xx,R_yy,R_xy,R_xz,R_yz,size(R_xx), &
+!ZN                  R_trace,R_xx,R_yy,R_xy,R_xz,R_yz,size(R_xx), &
+                     epsilondev_xx,epsilondev_yy,epsilondev_xy,epsilondev_xz,epsilondev_yz, &
+!ZN                  epsilondev_trace,epsilondev_xx,epsilondev_yy,epsilondev_xy,epsilondev_xz,epsilondev_yz, &
+                     size(epsilondev_xx))
         endif
 
         if(FULL_ATTENUATION_SOLID) write(27) R_trace  !ZN
@@ -770,11 +770,11 @@
 
       if (ATTENUATION) &
         call transfer_fields_att_from_device(Mesh_pointer, &
-                                            R_xx,R_yy,R_xy,R_xz,R_yz,size(R_xx), &
-!ZN                                         R_trace,R_xx,R_yy,R_xy,R_xz,R_yz,size(R_xx), &
-                                            epsilondev_xx,epsilondev_yy,epsilondev_xy,epsilondev_xz,epsilondev_yz, &
-!ZN                                         epsilondev_trace,epsilondev_xx,epsilondev_yy,epsilondev_xy,epsilondev_xz,epsilondev_yz, &
-                                            size(epsilondev_xx))
+                    R_xx,R_yy,R_xy,R_xz,R_yz,size(R_xx), &
+!ZN                 R_trace,R_xx,R_yy,R_xy,R_xz,R_yz,size(R_xx), &
+                    epsilondev_xx,epsilondev_yy,epsilondev_xy,epsilondev_xz,epsilondev_yz, &
+!ZN                 epsilondev_trace,epsilondev_xx,epsilondev_yy,epsilondev_xy,epsilondev_xz,epsilondev_yz, &
+                    size(epsilondev_xx))
 
     endif
   else if (SIMULATION_TYPE == 3) then