[cig-commits] commit: Initialize an uninitialized variable

[Mercurial]

changeset:   112:6d107ca62541
user:        Walter Landry <wlandry at caltech.edu>
date:        Mon May 14 15:25:42 2012 -0700
files:       src/input.f90
description:
Initialize an uninitialized variable


diff -r 858b5634af46 -r 6d107ca62541 src/input.f90
--- a/src/input.f90	Sat May 12 18:07:12 2012 -0700
+++ b/src/input.f90	Mon May 14 15:25:42 2012 -0700
@@ -717,6 +717,7 @@ CONTAINS
     READ  (dataline,*) in%nfc
     PRINT '(I5)', in%nfc
 
+    in%np=0
     IF (in%nfc .GT. 0) THEN
        ALLOCATE(in%faultcreeplayer(in%nfc),in%faultcreepstruc(in%sx3/2),STAT=iostatus)
        IF (iostatus>0) STOP "could not allocate the layer structure"