[cig-commits] r20732 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/src

[surendra at geodynamics.org]

Author: surendra
Date: 2012-09-19 05:43:51 -0700 (Wed, 19 Sep 2012)
New Revision: 20732

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
Log:
Initialized all pointers to NULL in type declaration

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-09-19 12:40:14 UTC (rev 20731)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-09-19 12:43:51 UTC (rev 20732)
@@ -40,12 +40,12 @@
   ! slip, slip velocity, fault stresses
   type dataT_type
     integer                                    :: npoin,npoin_local
-    integer, dimension(:), pointer             :: iglob   ! on-fault global index of output nodes
-    integer, dimension(:,:), pointer             :: iglob_all
-    integer, dimension(:), pointer             :: islice,glob_indx
-    real(kind=CUSTOM_REAL), dimension(:), pointer  :: dist
-    real(kind=CUSTOM_REAL), dimension(:,:), pointer  :: dist_all
-    real(kind=CUSTOM_REAL), dimension(:,:), pointer  :: d1,v1,t1,d2,v2,t2,t3,theta
+    integer, dimension(:), pointer             :: iglob=>null()   ! on-fault global index of output nodes
+    integer, dimension(:,:), pointer             :: iglob_all=>null()
+    integer, dimension(:), pointer             :: islice=>null(),glob_indx=>null()
+    real(kind=CUSTOM_REAL), dimension(:), pointer  :: dist=>null()
+    real(kind=CUSTOM_REAL), dimension(:,:), pointer  :: dist_all=>null()
+    real(kind=CUSTOM_REAL), dimension(:,:), pointer  :: d1=>null(),v1=>null(),t1=>null(),d2=>null(),v2=>null(),t2=>null(),t3=>null(),theta=>null()
     character(len=70), dimension(:), pointer   :: name
   end type dataT_type
 
@@ -55,9 +55,9 @@
   ! rupture time = first time when slip velocity = threshold V_RUPT (defined below)
   ! process zone time = first time when slip = Dc
   type dataXZ_type
-    real(kind=CUSTOM_REAL), dimension(:), pointer :: stg, sta, d1, d2, v1, v2, & 
-                                                     t1, t2, t3, tRUP,tPZ
-    real(kind=CUSTOM_REAL), dimension(:), pointer :: xcoord,ycoord,zcoord  
+    real(kind=CUSTOM_REAL), dimension(:), pointer :: stg=>null(), sta=>null(), d1=>null(), d2=>null(), v1=>null(), v2=>null(), & 
+                                                     t1=>null(), t2=>null(), t3=>null(), tRUP=>null(), tPZ=>null()
+    real(kind=CUSTOM_REAL), dimension(:), pointer :: xcoord=>null(), ycoord=>null(), zcoord=>null()  
     integer                                       :: npoin
   end type dataXZ_type