#79 EXO array out of bounds

[seismick]

With array bounds checking, process EXO in apply mode will abort like this:
At line 1280 of file /home/seismic/cpseis/src/exo.f90
Fortran runtime error: Array reference out of bounds for array 't0', upper bound of dimension 1 exceeded (7 > 6)

This is in subroutine exo_get_data, which reads the exo file written
previously in calc mode. Now if the first t0 is greater than obj%tstrt,
then index i2 becomes n+1, where n is the number of windows. Typically
obj%tstrt=0.0, so this is a common occurence. Unfortunately, array t0
has obj%nwin for first dimension, so at line 1280 it is accessed with
index i2, which is too big.
To patch exo.f90, go to line 1215 and increase the size of the array
declation for t0 to this:

real, dimension(obj%nwin+1,obj%off_tot) :: t0

[Bill Menger]

applied fix suggested.