[cig-commits] commit: Fix a continued string and remove unused FORMAT's

[Mercurial]

changeset:   88:db6a3cb41cc8
user:        Walter Landry <wlandry at caltech.edu>
date:        Thu May 10 07:00:32 2012 -0700
files:       src/input.f90
description:
Fix a continued string and remove unused FORMAT's


diff -r 56822d6ff14f -r db6a3cb41cc8 src/input.f90
--- a/src/input.f90	Thu May 10 06:59:08 2012 -0700
+++ b/src/input.f90	Thu May 10 07:00:32 2012 -0700
@@ -904,8 +904,7 @@ CONTAINS
        ALLOCATE(in%inter%ts(in%inter%nt),in%inter%tsc(in%inter%nt),STAT=iostatus)
        IF (iostatus>0) STOP "could not allocate the tensile source list"
        PRINT 2000
-       PRINT '("no.  opening       xs       ys       ", &
-                   "zs  length   width strike   dip")'
+       PRINT '("no.  opening       xs       ys       ","zs  length   width strike   dip")'
        PRINT 2000
        DO k=1,in%inter%nt
           CALL getdata(iunit,dataline)
@@ -1106,8 +1105,7 @@ CONTAINS
                STAT=iostatus)
           IF (iostatus>0) STOP "could not allocate the tensile source list"
           PRINT 2000
-          PRINT '("no.  opening       xs       ys       ", &
-                      "zs  length   width strike   dip")'
+          PRINT '("no.  opening       xs       ys       ", "zs  length   width strike   dip")'
           PRINT 2000
           DO k=1,in%events(e)%nt
 
@@ -1293,9 +1291,7 @@ CONTAINS
 
 2000 FORMAT ("----------------------------------------------------------------------------")
 2100 FORMAT ("no.        x1       x2       x3   length    width strike    dip")
-2200 FORMAT ("no. slip        x1         x2         x3    length   width strike  dip  rake")
 2300 FORMAT ("no. name       x1       x2       x3 (name is a 4-character string)")
-2400 FORMAT ("no. strain       x1       x2       x3 (positive for extension)")
 2500 FORMAT ("no.        x1       x2       x3   length    width strike    dip   rake")
 
   END SUBROUTINE init