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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-12-13 06:45:02 -0800 (Thu, 13 Dec 2012)
New Revision: 21141

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90
Log:
removed old comments


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90	2012-12-13 12:39:26 UTC (rev 21140)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90	2012-12-13 14:45:02 UTC (rev 21141)
@@ -1134,12 +1134,12 @@
   integer, parameter :: NSERIES = 39
 
   double precision, parameter :: asnhcs(NSERIES) = (/ &
-   -.12820039911738186343372127359268D+0, -.58811761189951767565211757138362D-1, &
-   +.47274654322124815640725249756029D-2, -.49383631626536172101360174790273D-3, &
-   +.58506207058557412287494835259321D-4, -.74669983289313681354755069217188D-5, &
-   +.10011693583558199265966192015812D-5, -.13903543858708333608616472258886D-6, &
-   +.19823169483172793547317360237148D-7, -.28847468417848843612747272800317D-8, &
-   +.42672965467159937953457514995907D-9, -.63976084654366357868752632309681D-10, &
+   -.12820039911738186343372127359268D+0,  -.58811761189951767565211757138362D-1,  &
+   +.47274654322124815640725249756029D-2,  -.49383631626536172101360174790273D-3,  &
+   +.58506207058557412287494835259321D-4,  -.74669983289313681354755069217188D-5,  &
+   +.10011693583558199265966192015812D-5,  -.13903543858708333608616472258886D-6,  &
+   +.19823169483172793547317360237148D-7,  -.28847468417848843612747272800317D-8,  &
+   +.42672965467159937953457514995907D-9,  -.63976084654366357868752632309681D-10, &
    +.96991686089064704147878293131179D-11, -.14844276972043770830246658365696D-11, &
    +.22903737939027447988040184378983D-12, -.35588395132732645159978942651310D-13, &
    +.55639694080056789953374539088554D-14, -.87462509599624678045666593520162D-15, &
@@ -1170,8 +1170,6 @@
 ! taken from http://people.sc.fsu.edu/~jburkardt/f_src/machine/machine.f90
   double precision, parameter :: d1mach_3 = 1.110223024625157D-016
 
-!  integer, external :: inits
-!  double precision, external :: csevl
   double precision :: y
 
   if (nterms == 0) then
@@ -1209,7 +1207,7 @@
 
   integer, intent(in) :: n
   double precision, intent(in) :: x
-  double precision, intent(in) :: cs(n)
+  double precision, intent(in), dimension(n) :: cs
 
   integer i, ni
   double precision :: b0, b1, b2, twox
@@ -1249,7 +1247,7 @@
 integer function inits(os, nos, eta)
 
   integer, intent(in) :: nos
-  double precision, intent(in) :: os(nos)
+  double precision, intent(in), dimension(nos) :: os
   double precision, intent(in) :: eta
 
   integer :: i, ii