updated declarative section in gray.f in nocommon branch

2015-06-12 14:53:29 +00:00 · 2015-06-12 14:53:29 +00:00 · f755232b01
commit f755232b01
parent 5f8f6c454d
2 changed files with 2249 additions and 1608 deletions
--- a/src/dispersion.f90
+++ b/src/dispersion.f90
@ -6,7 +6,7 @@ module dispersion
  integer, parameter :: npts=500
  real(wp_), parameter :: tmax=5.0_wp_,dtex=2.0_wp_*tmax/dble(npts)
 ! variables
-  real(wp_), save :: ttv(npts+1),extv(npts+1)
+  real(wp_), dimension(npts+1), save :: ttv,extv
 !
 contains
 !
--- a/src/gray.f
+++ b/src/gray.f