danh
/
pywafo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compilert fortran/c-kode for windows

Browse Source 
pep8
Moved smoothn from kdetools to sg_filter.py
Simplified sg_filter.py, dctpack.py
added autumn.gif
Fixed the imports in wafo.objects
master
Per.Andreas.Brodtkorb 10 years ago
parent 18a50edb23
commit abb0c8cd1f
61 changed files with 4798 additions and 4636 deletions
Show Stats Download Patch File Download Diff File

10
pywafo/build_all.py
Unescape Escape View File

@ -1,5 +1,13 @@
""" """
builds all extensions builds all extensions
In notepad (or your favourite text editor) create a new text file and enter the following in the file:
[build]
compiler = mingw32
Save the file as "C:\Python25\Lib\distutils\distutils.cfg".
This will tell python to use the MinGW compiler when compiling extensions
See also http://www.scipy.org/Cookbook/CompilingExtensionsOnWindowsWithMinGW See also http://www.scipy.org/Cookbook/CompilingExtensionsOnWindowsWithMinGW
""" """

BIN
pywafo/src/wafo/autumn.gif
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 240 KiB

BIN
pywafo/src/wafo/c_library.pyd
View File

Binary file not shown.

4
pywafo/src/wafo/containers.py
Unescape Escape View File

@ -68,7 +68,7 @@ class PlotData(object):
>>> h1 = d2() >>> h1 = d2()
Plot with confidence interval Plot with confidence interval
>>> d3 = PlotData(np.sin(x),x) >>> d3 = PlotData(np.sin(x), x)
>>> d3.children = [PlotData(np.vstack([np.sin(x)*0.9, np.sin(x)*1.2]).T,x)] >>> d3.children = [PlotData(np.vstack([np.sin(x)*0.9, np.sin(x)*1.2]).T,x)]
>>> d3.plot_args_children=[':r'] >>> d3.plot_args_children=[':r']
>>> h = d3.plot() >>> h = d3.plot()
@ -170,7 +170,7 @@ class PlotData(object):
fun = getattr(integrate, method) fun = getattr(integrate, method)
if isinstance(self.args, (list, tuple)): # Multidimensional data if isinstance(self.args, (list, tuple)): # Multidimensional data
raise NotImplementedError('integration for ndim>1 not implemented') raise NotImplementedError('integration for ndim>1 not implemented')
#ndim = len(self.args) # ndim = len(self.args)
# if ndim < 2: # if ndim < 2:
# msg = '''Unable to determine plotter-type, because # msg = '''Unable to determine plotter-type, because
# len(self.args)<2. # len(self.args)<2.

BIN
pywafo/src/wafo/cov2mod.pyd
View File

Binary file not shown.

4
pywafo/src/wafo/covariance/estimation.py
Unescape Escape View File

@ -34,7 +34,7 @@ def sampling_period(t_vec):
return dt return dt
class CovarianceEstimatior(object): class CovarianceEstimator(object):
''' '''
Class for estimating AutoCovariance from timeseries Class for estimating AutoCovariance from timeseries
@ -64,7 +64,7 @@ class CovarianceEstimatior(object):
''' '''
def __init__(self, lag=None, tr=None, detrend=None, window='boxcar', def __init__(self, lag=None, tr=None, detrend=None, window='boxcar',
flag='biased', norm=False, dt=None): flag='biased', norm=False, dt=None):
self.lag self.lag = lag
self.tr = tr self.tr = tr
self.detrend = detrend self.detrend = detrend
self.window = window self.window = window

4
pywafo/src/wafo/covariance/test/test_covariance.py
Unescape Escape View File

@ -1,6 +1,6 @@
from numpy.testing import (run_module_suite, assert_equal, from numpy.testing import (run_module_suite, assert_equal,
assert_array_almost_equal, assert_array_almost_equal)
assert_almost_equal, assert_array_equal) # @UnusedImport @IgnorePep8 # assert_almost_equal, assert_array_equal)
import wafo.spectrum.models as sm import wafo.spectrum.models as sm
# from wafo.covariance import CovData1D # from wafo.covariance import CovData1D

906
pywafo/src/wafo/data/info.py
Unescape Escape View File

@ -1,442 +1,464 @@
""" """
Data package in WAFO Toolbox. Data package in WAFO Toolbox.
Contents Contents
-------- --------
atlantic - Significant wave-height data recorded in the Atlantic Ocean atlantic - Significant wave-height data recorded in the Atlantic Ocean
gfaks89 - Surface elevation measured at Gullfaks C 24.12.1989 gfaks89 - Surface elevation measured at Gullfaks C 24.12.1989
gfaksr89 - Reconstructed surface elevation measured at Gullfaks C 24.12.1989. gfaksr89 - Reconstructed surface elevation measured at Gullfaks C 24.12.1989.
japansea - coastline map of The Japan Sea japansea - coastline map of The Japan Sea
northsea - coastline map of The Nortsea northsea - coastline map of The Nortsea
sea - Surface elevation dataset used in WAT version 1.1. sea - Surface elevation dataset used in WAT version 1.1.
sfa89 - Wind measurements at Statfjord A 24.12.1989 sfa89 - Wind measurements at Statfjord A 24.12.1989
sn - Fatigue experiment, constant-amplitude loading. sn - Fatigue experiment, constant-amplitude loading.
yura87 - Surface elevation measured off the coast of Yura yura87 - Surface elevation measured off the coast of Yura
This module gives gives detailed information and easy access to all datasets This module gives gives detailed information and easy access to all datasets
included in WAFO included in WAFO
""" """
from numpy import (loadtxt, nan) from numpy import (loadtxt, nan)
import os import os
__path2data = os.path.dirname(os.path.realpath(__file__)) __path2data = os.path.dirname(os.path.realpath(__file__))
__all__ = ['atlantic', 'gfaks89', 'gfaksr89', 'japansea', 'northsea', 'sea', __all__ = ['atlantic', 'gfaks89', 'gfaksr89', 'japansea', 'northsea', 'sea',
'sfa89', 'sn', 'yura87'] 'sfa89', 'sn', 'yura87']
_NANS = set(['nan', 'NaN', '-1.#IND00+00', '1.#IND00+00', '-1.#INF00+00']) _NANS = set(['nan', 'NaN', '-1.#IND00+00', '1.#IND00+00', '-1.#INF00+00'])
def _tofloat(x):
return nan if x in _NANS else float(x or 0) def _tofloat(x):
return nan if x in _NANS else float(x or 0)
_MYCONVERTER = {}
for i in range(2):
_MYCONVERTER[i] = _tofloat _MYCONVERTER = {}
for i in range(2):
def _load(file): _MYCONVERTER[i] = _tofloat
""" local load function
"""
return loadtxt(os.path.join(__path2data, file)) def _load(file): # @ReservedAssignment
""" local load function
def _loadnan(file): """
""" local load function accepting nan's return loadtxt(os.path.join(__path2data, file))
"""
return loadtxt(os.path.join(__path2data, file), converters=_MYCONVERTER)
def _loadnan(file): # @ReservedAssignment
def atlantic(): """ local load function accepting nan's
""" """
Return Significant wave-height data recorded in the Atlantic Ocean return loadtxt(os.path.join(__path2data, file), converters=_MYCONVERTER)
Data summary
------------ def atlantic():
Size : 582 X 1 """
Sampling Rate : ~ 14 times a month Return Significant wave-height data recorded in the Atlantic Ocean
Device :
Source : Data summary
Format : ascii ------------
Size : 582 X 1
Description Sampling Rate : ~ 14 times a month
------------ Device :
atlantic.dat contains average significant wave-height data recorded Source :
approximately 14 times a month in December-February during 7 years and Format : ascii
at 2 locations in the Atlantic Ocean
Description
Example ------------
-------- atlantic.dat contains average significant wave-height data recorded
>>> import pylab approximately 14 times a month in December-February during 7 years and
>>> import wafo at 2 locations in the Atlantic Ocean
>>> Hs = wafo.data.atlantic()
>>> h = pylab.plot(Hs) Example
--------
Acknowledgement: >>> import pylab
--------------- >>> import wafo
This dataset were made available by Dr. David Carter >>> Hs = wafo.data.atlantic()
and Dr. David Cotton, Satellite Observing Systems, UK. >>> h = pylab.plot(Hs)
"""
return _load('atlantic.dat') Acknowledgement:
def gfaks89(): ---------------
""" This dataset were made available by Dr. David Carter
Return Surface elevation measured at Gullfaks C 24.12.1989 and Dr. David Cotton, Satellite Observing Systems, UK.
"""
Data summary return _load('atlantic.dat')
------------
Size : 39000 X 2
Sampling Rate : 2.5 Hz def gfaks89():
Device : EMI laser """
Source : STATOIL Return Surface elevation measured at Gullfaks C 24.12.1989
Format : ascii, c1: time c2: surface elevation
Data summary
Description ------------
------------ Size : 39000 X 2
The wave data was measured 24th December 1989 at the Gullfaks C platform Sampling Rate : 2.5 Hz
in the North Sea from 17.00 to 21.20. The period from 20.00 to 20.20 Device : EMI laser
is missing and contains NaNs. The water depth of 218 m is Source : STATOIL
regarded as deep water for the most important wave components. Format : ascii, c1: time c2: surface elevation
There are two EMI laser sensors named 219 and 220. This data set is
obtained from sensor 219, which is located in the Northwest Description
corner approximately two platform leg diameters away from ------------
the closest leg. The wave data was measured 24th December 1989 at the Gullfaks C platform
Thus the wave elevation is not expected to be significantly in the North Sea from 17.00 to 21.20. The period from 20.00 to 20.20
affected by diffraction effects for incoming waves in the western sector. is missing and contains NaNs. The water depth of 218 m is
The wind direction for this period is from the south. regarded as deep water for the most important wave components.
Some difficulties in calibration of the instruments have been reported There are two EMI laser sensors named 219 and 220. This data set is
resulting in several consecutive measured values being equal or almost equal obtained from sensor 219, which is located in the Northwest
in the observed data set. corner approximately two platform leg diameters away from
the closest leg.
This dataset is for non-commercial use only. Thus the wave elevation is not expected to be significantly
affected by diffraction effects for incoming waves in the western sector.
Hm0 = 6.8m, Tm02 = 8s, Tp = 10.5 The wind direction for this period is from the south.
Some difficulties in calibration of the instruments have been reported
Example resulting in several consecutive measured values being equal or almost
------- equal in the observed data set.
>>> import pylab
>>> import wafo This dataset is for non-commercial use only.
>>> x = wafo.data.gfaks89()
>>> h = pylab.plot(x[:,0],x[:,1]) Hm0 = 6.8m, Tm02 = 8s, Tp = 10.5
Acknowledgement: Example
--------------- -------
This dataset were prepared and made available by Dr. S. Haver, >>> import pylab
STATOIL, Norway >>> import wafo
>>> x = wafo.data.gfaks89()
See also >>> h = pylab.plot(x[:,0],x[:,1])
--------
gfaksr89, northsea Acknowledgement:
---------------
""" This dataset were prepared and made available by Dr. S. Haver,
return _loadnan('gfaks89.dat') STATOIL, Norway
def gfaksr89():
""" See also
Return a reconstruction of surface elevation measured at Gullfaks C 24.12.1989. --------
gfaksr89, northsea
Data summary """
------------ return _loadnan('gfaks89.dat')
Size : 39000 X 2
Sampling Rate : 2.5 Hz
Device : EMI laser def gfaksr89():
Source : STATOIL """
Format : ascii, c1: time c2: surface elevation Return a reconstruction of surface elevation measured at Gullfaks C
24.12.1989.
Description
-----------
This is a reconstructed version of the data in the GFAKS89.DAT file. Data summary
The following calls were made to reconstruct the data: ------------
Size : 39000 X 2
inds = findoutliers(gfaks89,.02,2,1.23); Sampling Rate : 2.5 Hz
gfaksr89 = reconstruct(gfaks89,inds,6); Device : EMI laser
Source : STATOIL
The wave data was measured 24th December 1989 at the Gullfaks C platform Format : ascii, c1: time c2: surface elevation
in the North Sea from 17.00 to 21.20. The period from 20.00 to 20.20
is missing in the original data. The water depth of 218 m is Description
regarded as deep water for the most important wave components. -----------
There are two EMI laser sensors named 219 and 220. This data set is This is a reconstructed version of the data in the GFAKS89.DAT file.
obtained from sensor 219, which is located in the Northwest The following calls were made to reconstruct the data:
corner approximately two platform leg diameters away from
the closest leg. inds = findoutliers(gfaks89,.02,2,1.23);
Thus the wave elevation is not expected to be significantly gfaksr89 = reconstruct(gfaks89,inds,6);
affected by diffraction effects for incoming waves in the western sector.
The wind direction for this period is from the south. The wave data was measured 24th December 1989 at the Gullfaks C platform
Some difficulties in calibration of the instruments have been reported in the North Sea from 17.00 to 21.20. The period from 20.00 to 20.20
resulting in several consecutive measured values being equal or almost equal is missing in the original data. The water depth of 218 m is
in the observed data set. regarded as deep water for the most important wave components.
There are two EMI laser sensors named 219 and 220. This data set is
Hm0 = 6.8m, Tm02 = 8s, Tp = 10.5 obtained from sensor 219, which is located in the Northwest
corner approximately two platform leg diameters away from
the closest leg.
Example Thus the wave elevation is not expected to be significantly
------- affected by diffraction effects for incoming waves in the western sector.
>>> import pylab The wind direction for this period is from the south.
>>> import wafo Some difficulties in calibration of the instruments have been reported
>>> x = wafo.data.gfaksr89() resulting in several consecutive measured values being equal or almost
>>> h = pylab.plot(x[:,0],x[:,1]) equal in the observed data set.
Hm0 = 6.8m, Tm02 = 8s, Tp = 10.5
See also
--------
gfaks89 Example
""" -------
return _loadnan('gfaksr89.dat') >>> import pylab
def japansea(): >>> import wafo
""" >>> x = wafo.data.gfaksr89()
Return coastline map of The Japan Sea >>> h = pylab.plot(x[:,0],x[:,1])
Data summary See also
------------ --------
Size : 692 X 2 gfaks89
Sampling Rate : """
Device : return _loadnan('gfaksr89.dat')
Source : http://crusty.er.usgs.gov/coast/getcoast.html
Format : ascii, c1: longitude c2: latitude
def japansea():
Description """
----------- Return coastline map of The Japan Sea
JAPANSEA.DAT contains data for plotting a map of The Japan Sea.
The data is obtained from USGS coastline extractor.
Data summary
Example: ------------
------- Size : 692 X 2
#the map is seen by Sampling Rate :
Device :
>>> import pylab Source : http://crusty.er.usgs.gov/coast/getcoast.html
>>> import wafo Format : ascii, c1: longitude c2: latitude
>>> map1 = wafo.data.japansea()
>>> h = pylab.plot(map1[:,0],map1[:,1]) Description
>>> lon_loc = [131,132,132,135,139.5,139] -----------
>>> lat_loc = [46, 43, 40, 35, 38.3, 35.7] JAPANSEA.DAT contains data for plotting a map of The Japan Sea.
>>> loc = ['China','Vladivostok','Japan Sea', 'Japan', 'Yura','Tokyo'] The data is obtained from USGS coastline extractor.
>>> algn = 'right'
>>> for lon, lat, name in zip(lon_loc,lat_loc,loc): Example:
pylab.text(lon,lat,name,horizontalalignment=algn) -------
#the map is seen by
# If you have the m_map toolbox (see http://www.ocgy.ubc.ca/~rich/): >>> import pylab
m_proj('lambert','long',[130 148],'lat',[30 48]); >>> import wafo
m_line(map(:,1),map(:,2)); >>> map1 = wafo.data.japansea()
m_grid('box','fancy','tickdir','out'); >>> h = pylab.plot(map1[:,0],map1[:,1])
m_text(131,46,'China'); >>> lon_loc = [131,132,132,135,139.5,139]
m_text(132,43,'Vladivostok'); >>> lat_loc = [46, 43, 40, 35, 38.3, 35.7]
m_text(132,40,'Japan Sea'); >>> loc = ['China','Vladivostok','Japan Sea', 'Japan', 'Yura','Tokyo']
m_text(135,35,'Japan'); >>> algn = 'right'
m_text(139.5,38.3,'Yura'); >>> for lon, lat, name in zip(lon_loc,lat_loc,loc):
m_text(139,35.7,'Tokyo'); pylab.text(lon,lat,name,horizontalalignment=algn)
"""
return _loadnan('japansea.dat')
def northsea(): # If you have the m_map toolbox (see http://www.ocgy.ubc.ca/~rich/):
""" m_proj('lambert','long',[130 148],'lat',[30 48]);
NORTHSEA coastline map of The Nortsea m_line(map(:,1),map(:,2));
m_grid('box','fancy','tickdir','out');
Data summary m_text(131,46,'China');
------------- m_text(132,43,'Vladivostok');
Size : 60646 X 2 m_text(132,40,'Japan Sea');
Sampling Rate : m_text(135,35,'Japan');
Device : m_text(139.5,38.3,'Yura');
Source : http://crusty.er.usgs.gov/coast/getcoast.html m_text(139,35.7,'Tokyo');
Format : ascii, c1: longitude c2: latitude """
return _loadnan('japansea.dat')
Description
-----------
NORTHSEA.DAT contains data for plotting a map of The Northsea. def northsea():
The data is obtained from USGS coastline extractor. """
NORTHSEA coastline map of The Nortsea
Example
------- Data summary
# the map is seen by -------------
Size : 60646 X 2
>>> import pylab Sampling Rate :
>>> import wafo Device :
>>> map1 = wafo.data.northsea() Source : http://crusty.er.usgs.gov/coast/getcoast.html
>>> h = pylab.plot(map1[:,0],map1[:,1]) Format : ascii, c1: longitude c2: latitude
>>> lon_pltfrm = [1.8, 2.3, 2., 1.9, 2.6]
>>> lat_pltfrm = [61.2, 61.2, 59.9, 58.4, 57.7] Description
>>> pltfrm = ['Statfjord A', 'Gullfaks C', 'Frigg', 'Sleipner', 'Draupner'] -----------
>>> h = pylab.scatter(lon_pltfrm,lat_pltfrm); NORTHSEA.DAT contains data for plotting a map of The Northsea.
>>> algn = 'right' The data is obtained from USGS coastline extractor.
>>> for lon, lat, name in zip(lon_pltfrm,lat_pltfrm,pltfrm):
pylab.text(lon,lat,name,horizontalalignment=algn); algn = 'left' Example
-------
# the map is seen by
>>> lon_city = [10.8, 10.8, 5.52, 5.2]
>>> lat_city = [59.85, 63.4, 58.9, 60.3] >>> import pylab
>>> city = ['Oslo','Trondheim','Stavanger', 'Bergen'] >>> import wafo
>>> h = pylab.scatter(lon_city,lat_city); >>> map1 = wafo.data.northsea()
>>> algn = 'right' >>> h = pylab.plot(map1[:,0],map1[:,1])
>>> for lon, lat, name in zip(lon_city,lat_city,city): >>> lon_pltfrm = [1.8, 2.3, 2., 1.9, 2.6]
pylab.text(lon,lat,name,horizontalalignment=algn) >>> lat_pltfrm = [61.2, 61.2, 59.9, 58.4, 57.7]
>>> pltfrm = ['Statfjord A', 'Gullfaks C', 'Frigg', 'Sleipner', 'Draupner']
# If you have the mpl_toolkits.basemap installed >>> h = pylab.scatter(lon_pltfrm,lat_pltfrm);
>>> from mpl_toolkits.basemap import Basemap >>> algn = 'right'
>>> import matplotlib.pyplot as plt >>> for lon, lat, name in zip(lon_pltfrm,lat_pltfrm,pltfrm):
pylab.text(lon,lat,name,horizontalalignment=algn); algn = 'left'
# setup Lambert Conformal basemap.
>>> m = Basemap(width=1200000,height=900000,projection='lcc',
resolution='f',lat_1=56.,lat_2=64,lat_0=58,lon_0=5.) >>> lon_city = [10.8, 10.8, 5.52, 5.2]
>>> m.drawcoastlines() >>> lat_city = [59.85, 63.4, 58.9, 60.3]
>>> h = m.scatter(lon_pltfrm,lat_pltfrm); >>> city = ['Oslo','Trondheim','Stavanger', 'Bergen']
>>> algn = 'right' >>> h = pylab.scatter(lon_city,lat_city);
>>> for lon, lat, name in zip(lon_pltfrm,lat_pltfrm,pltfrm): >>> algn = 'right'
m.text(lon,lat,name,horizontalalignment=algn); algn = 'left' >>> for lon, lat, name in zip(lon_city,lat_city,city):
>>> m.scatter(lon_city,lat_city) pylab.text(lon,lat,name,horizontalalignment=algn)
>>> algn = 'right'
>>> for lon, lat, name in zip(lon_city,lat_city,city): # If you have the mpl_toolkits.basemap installed
m.text(lon,lat,name,horizontalalignment=algn) >>> from mpl_toolkits.basemap import Basemap
""" >>> import matplotlib.pyplot as plt
return _loadnan('northsea.dat')
def sea(): # setup Lambert Conformal basemap.
""" >>> m = Basemap(width=1200000,height=900000,projection='lcc',
Return Surface elevation dataset used in WAT version 1.1. resolution='f',lat_1=56.,lat_2=64,lat_0=58,lon_0=5.)
>>> m.drawcoastlines()
Data summary >>> h = m.scatter(lon_pltfrm,lat_pltfrm);
------------ >>> algn = 'right'
Size : 9524 X 2 >>> for lon, lat, name in zip(lon_pltfrm,lat_pltfrm,pltfrm):
Sampling Rate : 4.0 Hz m.text(lon,lat,name,horizontalalignment=algn); algn = 'left'
Device : unknown >>> m.scatter(lon_city,lat_city)
Source : unknown >>> algn = 'right'
Format : ascii, c1: time c2: surface elevation >>> for lon, lat, name in zip(lon_city,lat_city,city):
m.text(lon,lat,name,horizontalalignment=algn)
Description """
----------- return _loadnan('northsea.dat')
The wave data was used in one of WAFO predecessors, i.e. the Wave
Analysis Toolbox version 1.1 (WAT)
Hm0 = 1.9m, Tm02 = 4.0s, Tp2 = 11.5s Tp1=5.6s def sea():
"""
Example Return Surface elevation dataset used in WAT version 1.1.
-------
>>> import pylab Data summary
>>> import wafo ------------
>>> x = wafo.data.sea() Size : 9524 X 2
>>> h = pylab.plot(x[:,0],x[:,1]) Sampling Rate : 4.0 Hz
""" Device : unknown
return _load('sea.dat') Source : unknown
def sfa89(): Format : ascii, c1: time c2: surface elevation
"""
Return Wind measurements at Statfjord A 24.12.1989 Description
-----------
Data summary The wave data was used in one of WAFO predecessors, i.e. the Wave
------------ Analysis Toolbox version 1.1 (WAT)
Size : 144 X 3 Hm0 = 1.9m, Tm02 = 4.0s, Tp2 = 11.5s Tp1=5.6s
Sampling Rate : 1/600 Hz
Device : Example
Source : DNMI (The Norwegian Meteorological Institute) -------
Format : ascii, c1: time (hours) >>> import pylab
c2: velocity (m/s) >>> import wafo
c3: direction (degrees) >>> x = wafo.data.sea()
Description >>> h = pylab.plot(x[:,0],x[:,1])
----------- """
The registration of wind speeds at the Gullfaks field return _load('sea.dat')
started up on Statfjord A in 1978 and continued until 1990.
The dataregistration was transferred to Gullfaks C in Nov 1989.
Due to some difficulties of the windregistration on Gullfaks C in def sfa89():
the beginning, they continued to use the registered data from """
Statfjord A. Return Wind measurements at Statfjord A 24.12.1989
The windspeed is measured in (meter/second), 110 m above mean water
level (MWL) and the wind direction is given in degrees for the data. Data summary
The data are a mean value of every 10 minutes. ------------
Wind directions are defined in the meteorological convention, i.e., Size : 144 X 3
0 degrees = wind approaching from North, 90 degrees = wind from East, etc. Sampling Rate : 1/600 Hz
This dataset is for non-commercial use only. Device :
Source : DNMI (The Norwegian Meteorological Institute)
Example Format : ascii, c1: time (hours)
------- c2: velocity (m/s)
>>> import pylab c3: direction (degrees)
>>> import wafo Description
>>> x = wafo.data.sfa89() -----------
>>> h = pylab.plot(x[:,0],x[:,1]) The registration of wind speeds at the Gullfaks field
started up on Statfjord A in 1978 and continued until 1990.
Acknowledgement The dataregistration was transferred to Gullfaks C in Nov 1989.
---------------- Due to some difficulties of the windregistration on Gullfaks C in
These data are made available by Knut A. Iden, DNMI. the beginning, they continued to use the registered data from
Statfjord A.
See also The windspeed is measured in (meter/second), 110 m above mean water
-------- level (MWL) and the wind direction is given in degrees for the data.
northsea The data are a mean value of every 10 minutes.
""" Wind directions are defined in the meteorological convention, i.e.,
return _load('sfa89.dat') 0 degrees = wind approaching from North, 90 degrees = wind from East, etc.
def sn(): This dataset is for non-commercial use only.
"""
Return SN Fatigue experiment, constant-amplitude loading. Example
-------
>>> import pylab
Data summary >>> import wafo
------------ >>> x = wafo.data.sfa89()
Size : 40 X 2 >>> h = pylab.plot(x[:,0],x[:,1])
Source : unknown
Format : ascii, c1: Amplitude MPa c2: Number of cycles Acknowledgement
----------------
Description These data are made available by Knut A. Iden, DNMI.
-----------
A fatigue experiment with constant amplitudes at five levels: See also
10,15,20,25 and 30 MPa. For each level is related 8 observations of --------
the number of cycles to failure. northsea
"""
The origin of the data is unknown. return _load('sfa89.dat')
Example
------- def sn():
>>> import pylab """
>>> import wafo Return SN Fatigue experiment, constant-amplitude loading.
>>> x = wafo.data.sn()
>>> h = pylab.plot(x[:,0],x[:,1])
Data summary
See also ------------
-------- Size : 40 X 2
The same data appear in the directory wdemos/itmkurs/ Source : unknown
as SN.mat. Format : ascii, c1: Amplitude MPa c2: Number of cycles
""" Description
return _load('sn.dat') -----------
def yura87(): A fatigue experiment with constant amplitudes at five levels:
""" 10,15,20,25 and 30 MPa. For each level is related 8 observations of
Return Surface elevation measured off the coast of Yura. the number of cycles to failure.
The origin of the data is unknown.
Data summary
----------- Example
Size : 85547 X 4 -------
Sampling Rate : 1 Hz >>> import pylab
Device : ultrasonic wave gauges >>> import wafo
Source : SRI, Ministry of Transport, Japan >>> x = wafo.data.sn()
Format : ascii, c1: time (sec) c2-4: surface elevation (m) >>> h = pylab.plot(x[:,0],x[:,1])
Description See also
----------- --------
The wave data was measured at the Poseidon platform The same data appear in the directory wdemos/itmkurs/
in the Japan Sea from 24th November 1987 08.12 hours to 25th November as SN.mat.
1987 07.57 hours. Poseidon was located 3 km off the coast of Yura
in the Yamagata prefecture, in the Japan Sea during the measurements. """
The most important wave components are to some extent influenced by the return _load('sn.dat')
water depth of 42 m. The data are measured with three ultrasonic wave
gauges located at the sea floor and the relative coordinates of the
gauges are as follows (x-axis points to the East, y-axis points to def yura87():
the North): """
X (m) Y (m) Return Surface elevation measured off the coast of Yura.
c2: -4.93, 25.02
c3: 5.80, 92.12
c4: 0.00, 0.00 Data summary
-----------
This dataset is for non-commercial use only. Size : 85547 X 4
Sampling Rate : 1 Hz
Hm0 = 5.1m, Tm02 = 7.7s, Tp = 12.8s Device : ultrasonic wave gauges
Example Source : SRI, Ministry of Transport, Japan
------- Format : ascii, c1: time (sec) c2-4: surface elevation (m)
>>> import pylab
>>> import wafo Description
>>> x = wafo.data.yura87() -----------
>>> h = pylab.plot(x[:,0],x[:,1]) The wave data was measured at the Poseidon platform
in the Japan Sea from 24th November 1987 08.12 hours to 25th November
Acknowledgement: 1987 07.57 hours. Poseidon was located 3 km off the coast of Yura
----------------- in the Yamagata prefecture, in the Japan Sea during the measurements.
This dataset were prepared and made available by Dr. Sc. H. Tomita, The most important wave components are to some extent influenced by the
Ship Research Institute, Ministry of Transport, Japan. water depth of 42 m. The data are measured with three ultrasonic wave
gauges located at the sea floor and the relative coordinates of the
See also gauges are as follows (x-axis points to the East, y-axis points to
-------- the North):
japansea X (m) Y (m)
""" c2: -4.93, 25.02
return _load('yura87.dat') c3: 5.80, 92.12
if __name__ == '__main__': c4: 0.00, 0.00
import doctest
doctest.testmod() This dataset is for non-commercial use only.
Hm0 = 5.1m, Tm02 = 7.7s, Tp = 12.8s
Example
-------
>>> import pylab
>>> import wafo
>>> x = wafo.data.yura87()
>>> h = pylab.plot(x[:,0],x[:,1])
Acknowledgement:
-----------------
This dataset were prepared and made available by Dr. Sc. H. Tomita,
Ship Research Institute, Ministry of Transport, Japan.
See also
--------
japansea
"""
return _load('yura87.dat')
if __name__ == '__main__':
import doctest
doctest.testmod()

664
pywafo/src/wafo/dctpack.py
Unescape Escape View File

@ -1,9 +1,24 @@
import numpy as np import numpy as np
from scipy.fftpack import _fftpack
from scipy.fftpack import dct as _dct from scipy.fftpack import dct as _dct
from scipy.fftpack import idct as _idct from scipy.fftpack import idct as _idct
import os
path = os.path.dirname(os.path.realpath(__file__))
__all__ = ['dct', 'idct', 'dctn', 'idctn'] __all__ = ['dct', 'idct', 'dctn', 'idctn']
def _truncate_or_zero_pad(x, n, axis):
nt = n - np.shape(x)[axis]
if nt < 0:
x = np.take(x, np.r_[0:n], axis=axis)
elif 0 < nt:
pads = [(0, 0)] * np.ndim(x)
pads[axis] = 0, nt
x = np.pad(x, pads, 'constant')
return x
def dct(x, type=2, n=None, axis=-1, norm='ortho'): # @ReservedAssignment def dct(x, type=2, n=None, axis=-1, norm='ortho'): # @ReservedAssignment
''' '''
Return the Discrete Cosine Transform of arbitrary type sequence x. Return the Discrete Cosine Transform of arbitrary type sequence x.
@ -89,21 +104,54 @@ def dct(x, type=2, n=None, axis=-1, norm='ortho'): # @ReservedAssignment
to a factor `2N`. The orthonormalized DCT-III is exactly the inverse of to a factor `2N`. The orthonormalized DCT-III is exactly the inverse of
the orthonormalized DCT-II. the orthonormalized DCT-II.
Examples
--------
>>> import numpy as np
>>> x = np.arange(5)
>>> np.abs(x-idct(dct(x)))<1e-14
array([ True, True, True, True, True], dtype=bool)
>>> np.abs(x-dct(idct(x)))<1e-14
array([ True, True, True, True, True], dtype=bool)
References References
---------- ----------
http://en.wikipedia.org/wiki/Discrete_cosine_transform http://en.wikipedia.org/wiki/Discrete_cosine_transform
http://users.ece.utexas.edu/~bevans/courses/ee381k/lectures/
'A Fast Cosine Transform in One and Two Dimensions', by J. Makhoul, `IEEE 'A Fast Cosine Transform in One and Two Dimensions', by J. Makhoul, `IEEE
Transactions on acoustics, speech and signal processing` vol. 28(1), Transactions on acoustics, speech and signal processing` vol. 28(1),
pp. 27-34, http://dx.doi.org/10.1109/TASSP.1980.1163351 (1980). pp. 27-34, http://dx.doi.org/10.1109/TASSP.1980.1163351 (1980).
''' '''
farr = np.asfarray if n is not None:
if np.iscomplex(x).any(): # Hack until scipy.fftpack.dct implement this functionality
return _dct(farr(x.real), type, n, axis, norm) + \ x = _truncate_or_zero_pad(x, n, axis)
1j * _dct(farr(x.imag), type, n, axis, norm) n = None
return _dct(x, type, n, axis, norm)
dtype = np.result_type(np.float32, np.asarray(x))
x0 = np.asarray(x, dtype=dtype)
if dtype == complex:
return (_dct(x0.real, type, n, axis, norm) + 1j *
_dct(x0.imag, type, n, axis, norm))
else: else:
return _dct(farr(x), type, n, axis, norm) return _dct(x0, type, n, axis, norm)
def test(type=2, dtype=None, normalize='ortho'): # @ReservedAssignment
dtype = np.result_type(np.float64)
try:
nm = {None: 0, 'ortho': 1}[normalize]
except KeyError:
raise ValueError("Unknown normalize mode %s" % normalize)
try:
name = {'float64': 'ddct%d', 'float32': 'dct%d'}[dtype.name]
except KeyError:
raise ValueError("dtype %s not supported" % dtype)
try:
f = getattr(_fftpack, name % type)
except AttributeError as e:
raise ValueError(str(e) + ". Type %d not understood" % type)
return f, nm
def idct(x, type=2, n=None, axis=-1, norm='ortho'): # @ReservedAssignment def idct(x, type=2, n=None, axis=-1, norm='ortho'): # @ReservedAssignment
@ -144,25 +192,93 @@ def idct(x, type=2, n=None, axis=-1, norm='ortho'): # @ReservedAssignment
see `dct`. see `dct`.
''' '''
farr = np.asarray farr = np.asarray
if n is not None:
# Hack until scipy.fftpack.idct implement this functionality
x = _truncate_or_zero_pad(x, n, axis)
n = None
if np.iscomplex(x).any(): if np.iscomplex(x).any():
return _idct(farr(x.real), type, n, axis, norm) + \ x0 = farr(x, dtype=complex)
1j * _idct(farr(x.imag), type, n, axis, norm) return (_idct(x0.real, type, n, axis, norm) + 1j *
_idct(x0.imag, type, n, axis, norm))
else: else:
return _idct(farr(x), type, n, axis, norm) return _idct(farr(x, dtype=float), type, n, axis, norm)
def _get_shape(y, shape, axes):
if shape is None:
if axes is None:
shape = y.shape
else:
shape = np.take(y.shape, axes)
shape = tuple(shape)
return shape
def _get_axes(y, shape, axes):
if axes is None:
axes = range(y.ndim)
if len(axes) != len(shape):
raise ValueError("when given, axes and shape arguments "
"have to be of the same length")
return list(axes)
def _raw_dctn(y, type, shape, axes, norm, fun): # @ReservedAssignment
shape = _get_shape(y, shape, axes)
axes = _get_axes(y, shape, axes)
shape0 = list(y.shape)
ndim = y.ndim
isvector = max(shape0) == y.size
if isvector and ndim == 1:
y = np.atleast_2d(y)
y = y.T
for dim in range(ndim):
y = shiftdim(y, 1)
if dim not in axes:
continue
n = shape[axes.index(dim)]
shape0[dim] = n
y = fun(y, type, n, norm=norm)
return y.reshape(shape0)
def dctn(x, type=2, axis=None, norm='ortho'): # @ReservedAssignment def dctn(x, type=2, shape=None, axes=None, # @ReservedAssignment
norm='ortho'):
''' '''
DCTN N-D discrete cosine transform. Return the N-D Discrete Cosine Transform of array x.
Parameters
----------
x : array_like
The input array.
type : {1, 2, 3}, optional
Type of the DCT (see Notes). Default type is 2.
shape : tuple of ints, optional
The shape of the result. If both `shape` and `axes` (see below) are
None, `shape` is ``x.shape``; if `shape` is None but `axes` is
not None, then `shape` is ``scipy.take(x.shape, axes, axis=0)``.
If ``shape[i] > x.shape[i]``, the i-th dimension is padded with zeros.
If ``shape[i] < x.shape[i]``, the i-th dimension is truncated to
length ``shape[i]``.
axes : array_like of ints, optional
The axes of `x` (`y` if `shape` is not None) along which the
transform is applied.
norm : {None, 'ortho'}, optional
Normalization mode (see Notes in dct). Default is 'ortho'.
Returns
-------
y : ndarray of real
The transformed input array.
Notes
-----
Y = DCTN(X) returns the discrete cosine transform of X. The array Y is Y = DCTN(X) returns the discrete cosine transform of X. The array Y is
the same size as X and contains the discrete cosine transform the same size as X and contains the discrete cosine transform
coefficients. This transform can be inverted using IDCTN. coefficients. This transform can be inverted using IDCTN.
DCTN(X,axis) applies the DCTN operation across the dimension axis.
Class Support
-------------
Input array can be numeric or logical. The returned array is of class Input array can be numeric or logical. The returned array is of class
double. double.
@ -173,410 +289,62 @@ def dctn(x, type=2, axis=None, norm='ortho'): # @ReservedAssignment
Example Example
------- -------
RGB = imread('autumn.tif'); >>> import os
I = rgb2gray(RGB); >>> import numpy as np
J = dctn(I); >>> import scipy.ndimage as sn
imshow(log(abs(J)),[]), colormap(jet), colorbar >>> import matplotlib.pyplot as plt
>>> name = os.path.join(path, 'autumn.gif')
>>> rgb = sn.imread(name)
>>> J = dctn(rgb)
>>> (np.abs(rgb-idctn(J))<1e-7).all()
True
plt.imshow(np.log(np.abs(J)))
plt.colorbar() #colormap(jet), colorbar
The commands below set values less than magnitude 10 in the DCT matrix The commands below set values less than magnitude 10 in the DCT matrix
to zero, then reconstruct the image using the inverse DCT. to zero, then reconstruct the image using the inverse DCT.
J(abs(J)<10) = 0; J[np.abs(J)<10] = 0
K = idctn(J); K = idctn(J)
figure, imshow(I) plt.figure(0)
figure, imshow(K,[0 255]) plt.imshow(rgb)
plt.figure(1)
plt.imshow(K,[0 255])
See also See also
-------- --------
idctn, dct, idct idctn, dct, idct
''' '''
y = np.atleast_1d(x) y = np.atleast_1d(x)
shape0 = y.shape return _raw_dctn(y, type, shape, axes, norm, dct)
if axis is None:
y = y.squeeze() # Working across singleton dimensions is useless
ndim = y.ndim
isvector = max(shape0) == y.size
if isvector:
if ndim == 1:
y = np.atleast_2d(y)
y = y.T
elif y.shape[0] == 1:
if axis == 0:
return x
elif axis == 1:
axis = 0
y = y.T
elif axis == 1:
return y
if np.iscomplex(y).any():
y = dctn(y.real, type, axis, norm) + 1j * \
dctn(y.imag, type, axis, norm)
else:
y = np.asfarray(y)
for dim in range(ndim):
y = y.transpose(np.roll(range(y.ndim), -1))
#y = shiftdim(y,1)
if axis is not None and dim != axis:
continue
y = _dct(y, type, norm=norm)
return y.reshape(shape0)
def idctn(x, type=2, axis=None, norm='ortho'): # @ReservedAssignment def idctn(x, type=2, shape=None, axes=None, # @ReservedAssignment
y = np.atleast_1d(x) norm='ortho'):
shape0 = y.shape '''Return inverse N-D Discrete Cosine Transform of array x.
if axis is None:
y = y.squeeze() # Working across singleton dimensions is useless
ndim = y.ndim
isvector = max(shape0) == y.size
if isvector:
if ndim == 1:
y = np.atleast_2d(y)
y = y.T
elif y.shape[0] == 1:
if axis == 0:
return x
elif axis == 1:
axis = 0
y = y.T
elif axis == 1:
return y
if np.iscomplex(y).any():
y = idctn(y.real, type, axis, norm) + 1j * \
idctn(y.imag, type, axis, norm)
else:
y = np.asfarray(y)
for dim in range(ndim):
y = y.transpose(np.roll(range(y.ndim), -1))
#y = shiftdim(y,1)
if axis is not None and dim != axis:
continue
y = _idct(y, type, norm=norm)
return y.reshape(shape0)
# def dct(x, n=None): For description of parameters see `dctn`.
# """
# Discrete Cosine Transform
#
# N-1
# y[k] = 2* sum x[n]*cos(pi*k*(2n+1)/(2*N)), 0 <= k < N.
# n=0
#
# Examples
# --------
# >>> import numpy as np
# >>> x = np.arange(5)
# >>> np.abs(x-idct(dct(x)))<1e-14
# array([ True, True, True, True, True], dtype=bool)
# >>> np.abs(x-dct(idct(x)))<1e-14
# array([ True, True, True, True, True], dtype=bool)
#
# Reference
# ---------
# http://en.wikipedia.org/wiki/Discrete_cosine_transform
# http://users.ece.utexas.edu/~bevans/courses/ee381k/lectures/
# """
# fft = np.fft.fft
# x = np.atleast_1d(x)
#
# if n is None:
# n = x.shape[-1]
#
# if x.shape[-1] < n:
# n_shape = x.shape[:-1] + (n - x.shape[-1],)
# xx = np.hstack((x, np.zeros(n_shape)))
# else:
# xx = x[..., :n]
#
# real_x = np.all(np.isreal(xx))
# if (real_x and (np.remainder(n, 2) == 0)):
# xp = 2 * fft(np.hstack((xx[..., ::2], xx[..., ::-2])))
# else:
# xp = fft(np.hstack((xx, xx[..., ::-1])))
# xp = xp[..., :n]
#
# w = np.exp(-1j * np.arange(n) * np.pi / (2 * n))
#
# y = xp * w
#
# if real_x:
# return y.real
# else:
# return y
#
# def idct(x, n=None):
# """
# Inverse Discrete Cosine Transform
#
# N-1
# x[k] = 1/N sum w[n]*y[n]*cos(pi*k*(2n+1)/(2*N)), 0 <= k < N.
# n=0
#
# w(0) = 1/2
# w(n) = 1 for n>0
#
# Examples
# --------
# >>> import numpy as np
# >>> x = np.arange(5)
# >>> np.abs(x-idct(dct(x)))<1e-14
# array([ True, True, True, True, True], dtype=bool)
# >>> np.abs(x-dct(idct(x)))<1e-14
# array([ True, True, True, True, True], dtype=bool)
#
# Reference
# ---------
# http://en.wikipedia.org/wiki/Discrete_cosine_transform
# http://users.ece.utexas.edu/~bevans/courses/ee381k/lectures/
# """
#
# ifft = np.fft.ifft
# x = np.atleast_1d(x)
#
# if n is None:
# n = x.shape[-1]
#
# w = np.exp(1j * np.arange(n) * np.pi / (2 * n))
#
# if x.shape[-1] < n:
# n_shape = x.shape[:-1] + (n - x.shape[-1],)
# xx = np.hstack((x, np.zeros(n_shape))) * w
# else:
# xx = x[..., :n] * w
#
# real_x = np.all(np.isreal(x))
# if (real_x and (np.remainder(n, 2) == 0)):
# xx[..., 0] = xx[..., 0] * 0.5
# yp = ifft(xx)
# y = np.zeros(xx.shape, dtype=complex)
# y[..., ::2] = yp[..., :n / 2]
# y[..., ::-2] = yp[..., n / 2::]
# else:
# yp = ifft(np.hstack((xx, np.zeros_like(xx[..., 0]),
# np.conj(xx[..., :0:-1]))))
# y = yp[..., :n]
#
# if real_x:
# return y.real
# else:
# return y
#
# def dctn(y, axis=None, w=None):
# '''
# DCTN N-D discrete cosine transform.
#
# Y = DCTN(X) returns the discrete cosine transform of X. The array Y is
# the same size as X and contains the discrete cosine transform
# coefficients. This transform can be inverted using IDCTN.
#
# DCTN(X,axis) applies the DCTN operation across the dimension axis.
#
# Class Support
# -------------
# Input array can be numeric or logical. The returned array is of class
# double.
#
# Reference
# ---------
# Narasimha M. et al, On the computation of the discrete cosine
# transform, IEEE Trans Comm, 26, 6, 1978, pp 934-936.
#
# Example
# -------
# RGB = imread('autumn.tif');
# I = rgb2gray(RGB);
# J = dctn(I);
# imshow(log(abs(J)),[]), colormap(jet), colorbar
#
# The commands below set values less than magnitude 10 in the DCT matrix
# to zero, then reconstruct the image using the inverse DCT.
#
# J(abs(J)<10) = 0;
# K = idctn(J);
# figure, imshow(I)
# figure, imshow(K,[0 255])
#
# See also
# --------
# idctn, dct, idct
# '''
#
# y = np.atleast_1d(y)
# shape0 = y.shape
#
#
# if axis is None:
# y = y.squeeze() # Working across singleton dimensions is useless
# dimy = y.ndim
# if dimy==1:
# y = np.atleast_2d(y)
# y = y.T
# Some modifications are required if Y is a vector
# if isvector(y):
# if y.shape[0]==1:
# if axis==0:
# return y, None
# elif axis==1:
# axis=0
## y = y.T
# elif axis==1:
# return y, None
#
# if w is None:
# w = [0,] * dimy
# for dim in range(dimy):
# if axis is not None and dim!=axis:
# continue
# n = (dimy==1)*y.size + (dimy>1)*shape0[dim]
# w{dim} = exp(1i*(0:n-1)'*pi/2/n);
# w[dim] = np.exp(1j * np.arange(n) * np.pi / (2 * n))
#
# --- DCT algorithm ---
# if np.iscomplex(y).any():
# y = dctn(np.real(y),axis,w) + 1j*dctn(np.imag(y),axis,w)
# else:
# for dim in range(dimy):
# y = shiftdim(y,1)
# if axis is not None and dim!=axis:
# y = shiftdim(y, 1)
# continue
# siz = y.shape
# n = siz[-1]
# y = y[...,np.r_[0:n:2, 2*int(n//2)-1:0:-2]]
# y = y.reshape((-1,n))
# y = y*np.sqrt(2*n);
# y = (np.fft.ifft(y, n=n, axis=1) * w[dim]).real
# y[:,0] = y[:,0]/np.sqrt(2)
# y = y.reshape(siz)
#
# end
# end
#
# return y.reshape(shape0), w
#
# def idctn(y, axis=None, w=None):
# '''
# IDCTN N-D inverse discrete cosine transform.
# X = IDCTN(Y) inverts the N-D DCT transform, returning the original
# array if Y was obtained using Y = DCTN(X).
#
# IDCTN(X,DIM) applies the IDCTN operation across the dimension DIM.
#
# Class Support
# -------------
# Input array can be numeric or logical. The returned array is of class
# double.
#
# Reference
# ---------
# Narasimha M. et al, On the computation of the discrete cosine
# transform, IEEE Trans Comm, 26, 6, 1978, pp 934-936.
#
# Example
# -------
# RGB = imread('autumn.tif');
# I = rgb2gray(RGB);
# J = dctn(I);
# imshow(log(abs(J)),[]), colormap(jet), colorbar
#
# The commands below set values less than magnitude 10 in the DCT matrix
# to zero, then reconstruct the image using the inverse DCT.
#
# J(abs(J)<10) = 0;
# K = idctn(J);
# figure, imshow(I)
# figure, imshow(K,[0 255])
#
# See also
# --------
# dctn, idct, dct
#
# -- Damien Garcia -- 2009/04, revised 2009/11
# website: <a
# href="matlab:web('http://www.biomecardio.com')">www.BiomeCardio.com</a>
#
# ----------
# [Y,W] = IDCTN(X,DIM,W) uses and returns the weights which are used by
# the program. If IDCTN is required for several large arrays of same
# size, the weights can be reused to make the algorithm faster. A typical
# syntax is the following:
# w = [];
# for k = 1:10
# [y{k},w] = idctn(x{k},[],w);
# end
# The weights (w) are calculated during the first call of IDCTN then
# reused in the next calls.
# '''
#
# y = np.atleast_1d(y)
# shape0 = y.shape
#
# if axis is None:
# y = y.squeeze() # Working across singleton dimensions is useless
#
# dimy = y.ndim
# if dimy==1:
# y = np.atleast_2d(y)
# y = y.T
# Some modifications are required if Y is a vector
# if isvector(y):
# if y.shape[0]==1:
# if axis==0:
# return y, None
# elif axis==1:
# axis=0
## y = y.T
# elif axis==1:
# return y, None
##
#
#
# if w is None:
# w = [0,] * dimy
# for dim in range(dimy):
# if axis is not None and dim!=axis:
# continue
# n = (dimy==1)*y.size + (dimy>1)*shape0[dim]
# w{dim} = exp(1i*(0:n-1)'*pi/2/n);
# w[dim] = np.exp(1j * np.arange(n) * np.pi / (2 * n))
# --- IDCT algorithm ---
# if np.iscomplex(y).any():
# y = np.complex(idctn(np.real(y),axis,w),idctn(np.imag(y),axis,w))
# else:
# for dim in range(dimy):
# y = shiftdim(y,1)
# if axis is not None and dim!=axis:
# y = shiftdim(y, 1)
# continue
# siz = y.shape
# n = siz[-1]
#
# y = y.reshape((-1,n)) * w[dim]
# y[:,0] = y[:,0]/np.sqrt(2)
# y = (np.fft.ifft(y, n=n, axis=1)).real
# y = y * np.sqrt(2*n)
#
# I = np.empty(n,dtype=int)
# I.put(np.r_[0:n:2],np.r_[0:int(n//2)+np.remainder(n,2)])
# I.put(np.r_[1:n:2],np.r_[n-1:int(n//2)-1:-1])
# y = y[:,I]
#
# y = y.reshape(siz)
#
#
# y = y.reshape(shape0);
# return y, w
See Also
--------
dctn : for detailed information.
'''
y = np.atleast_1d(x)
return _raw_dctn(y, type, shape, axes, norm, idct)
def no_leading_ones(x):
def num_leading_ones(x):
first = 0 first = 0
for i, xi in enumerate(x): for i, xi in enumerate(x):
if xi != 1: if xi != 1:
first = i first = i
break break
return first
def no_leading_ones(x):
first = num_leading_ones(x)
return x[first:] return x[first:]
@ -615,11 +383,53 @@ def shiftdim(x, n=None):
return x.reshape((1,) * -n + x.shape) return x.reshape((1,) * -n + x.shape)
def test_shiftdim():
a = np.arange(6).reshape((1, 1, 3, 1, 2))
print a.shape
print a.ndim
print range(a.ndim)
# move items 2 places to the left so that x0 <- x2, x1 <- x3, etc
print np.roll(range(a.ndim), -2)
print a.transpose(np.roll(range(a.ndim), -2)) # transposition of the axes
# with a matrix 2x2, A.transpose((1,0)) would be the transpose of A
b = shiftdim(a)
print b.shape
c = shiftdim(b, -2)
print c.shape
print(c == a)
def test_dct3():
a = np.array([[[0.51699637, 0.42946223, 0.89843545],
[0.27853391, 0.8931508, 0.34319118],
[0.51984431, 0.09217771, 0.78764716]],
[[0.25019845, 0.92622331, 0.06111409],
[0.81363641, 0.06093368, 0.13123373],
[0.47268657, 0.39635091, 0.77978269]],
[[0.86098829, 0.07901332, 0.82169182],
[0.12560088, 0.78210188, 0.69805434],
[0.33544628, 0.81540172, 0.9393219]]])
d = dct(dct(dct(a).transpose(0, 2, 1)).transpose(2, 1, 0)
).transpose(2, 1, 0).transpose(0, 2, 1)
d0 = dctn(a)
e = idct(idct(idct(d).transpose(0, 2, 1)).transpose(2, 1, 0)
).transpose(2, 1, 0).transpose(0, 2, 1)
print(d)
print(d0)
print(np.allclose(d, d0))
print(np.allclose(a, e))
def test_dctn(): def test_dctn():
a = np.arange(12) # .reshape((3,-1)) a = np.arange(12).reshape((3, -1))
print('a = ', a) print('a = ', a)
print(' ') print(' ')
y = dct(a) y = dct(a, n=10)
x = idct(y) x = idct(y)
print('y = dct(a)') print('y = dct(a)')
print(y) print(y)
@ -627,28 +437,42 @@ def test_dctn():
print(x) print(x)
print(' ') print(' ')
# y1 = dct1(a) yn = dctn(a) #, shape=(10,), axes=(1,))
# x1 = idct1(y) xn = idctn(yn) #, axes=(1,))
# print('y1 = dct1(a)')
# print(y1)
# print('x1 = idct1(y)')
# print(x1)
# print(' ')
yn = dctn(a)
xn = idctn(yn)
print('yn = dctn(a)') print('yn = dctn(a)')
print(yn) print(yn)
print('xn = idctn(yn)') print('xn = idctn(yn)')
print(xn) print(xn)
print(' ') print(' ')
print xn-a
# yn1 = dctn1(a)
# xn1 = idctn1(yn1) def test_dct2():
# print('yn1 = dctn1(a)') import scipy.ndimage as sn
# print(yn1) import matplotlib.pyplot as plt
# print('xn1 = idctn1(yn)') name = os.path.join(path, 'autumn.gif')
# print(xn1) rgb = np.asarray(sn.imread(name), dtype=np.float16)
# np.fft.fft(rgb)
print(np.max(rgb), np.min(rgb))
plt.set_cmap('jet')
J = dctn(rgb)
irgb = idctn(J)
print(np.abs(rgb-irgb).max())
plt.imshow(np.log(np.abs(J)))
# plt.colorbar() #colormap(jet), colorbar
plt.show('hold')
v = np.percentile(np.abs(J.ravel()), 10.0)
print(len(np.flatnonzero(J)), v)
J[np.abs(J) < v] = 0
print(len(np.flatnonzero(J)))
plt.imshow(np.log(np.abs(J)))
plt.show('hold')
K = idctn(J)
print(np.abs(rgb-K).max())
plt.figure(1)
plt.imshow(rgb)
plt.figure(2)
plt.imshow(K, vmin=0, vmax=255)
plt.show('hold')
def test_docstrings(): def test_docstrings():
@ -658,5 +482,9 @@ def test_docstrings():
if __name__ == '__main__': if __name__ == '__main__':
test_docstrings() test_dct2()
# test_docstrings()
# test_dctn() # test_dctn()
# test_shiftdim()
# test_dct3()
# test()

4
pywafo/src/wafo/fig.py
Unescape Escape View File

@ -33,9 +33,9 @@ Example
>>> fig.close('all') >>> fig.close('all')
''' '''
#/usr/bin/env python #!/usr/bin/env python
from __future__ import division from __future__ import division
#import win32api # import win32api
import win32gui import win32gui
import win32con import win32con
import msvcrt import msvcrt

1172
pywafo/src/wafo/kdetools.py
View File

File diff suppressed because it is too large Load Diff

2
pywafo/src/wafo/misc.py
Unescape Escape View File

@ -3398,4 +3398,4 @@ def test_hyp2f1():
if __name__ == "__main__": if __name__ == "__main__":
test_docstrings() test_docstrings()
# test_hyp2f1() # test_hyp2f1()

BIN
pywafo/src/wafo/mvn.pyd
View File

Binary file not shown.

BIN
pywafo/src/wafo/mvnprdmod.pyd
View File

Binary file not shown.

93
pywafo/src/wafo/objects.py
Unescape Escape View File

@ -13,13 +13,13 @@
from __future__ import division from __future__ import division
from .transform.core import TrData from wafo.transform.core import TrData
from .transform.estimation import TransformEstimator from wafo.transform.estimation import TransformEstimator
from .stats import distributions from wafo.stats import distributions
from .misc import (nextpow2, findtp, findrfc, findtc, findcross, from wafo.misc import (nextpow2, findtp, findrfc, findtc, findcross,
ecross, JITImport, DotDict, gravity, findrfc_astm) ecross, JITImport, DotDict, gravity, findrfc_astm)
from .interpolate import stineman_interp from wafo.interpolate import stineman_interp
from .containers import PlotData from wafo.containers import PlotData
from scipy.integrate import trapz from scipy.integrate import trapz
from scipy.signal import welch, lfilter from scipy.signal import welch, lfilter
from scipy.signal.windows import get_window # @UnusedImport from scipy.signal.windows import get_window # @UnusedImport
@ -32,7 +32,7 @@ from numpy import (inf, pi, zeros, ones, sqrt, where, log, exp, cos, sin,
arcsin, mod, arcsin, mod,
linspace, arange, sort, all, abs, vstack, hstack, linspace, arange, sort, all, abs, vstack, hstack,
atleast_1d, finfo, polyfit, r_, nonzero, atleast_1d, finfo, polyfit, r_, nonzero,
cumsum, ravel, size, isnan, ceil, diff, array) cumsum, ravel, isnan, ceil, diff, array)
from numpy.fft import fft # @UnusedImport from numpy.fft import fft # @UnusedImport
from numpy.random import randn from numpy.random import randn
import matplotlib import matplotlib
@ -1231,6 +1231,8 @@ class TimeSeries(PlotData):
fact = 2.0 * pi fact = 2.0 * pi
w = fact * f w = fact * f
spec = _wafospec.SpecData1D(S / fact, w) spec = _wafospec.SpecData1D(S / fact, w)
elif method == 'cov':
pass
else: else:
raise ValueError('Unknown method (%s)' % method) raise ValueError('Unknown method (%s)' % method)
@ -1327,18 +1329,18 @@ class TimeSeries(PlotData):
>>> xs = S.sim(ns=2**16, iseed=10) >>> xs = S.sim(ns=2**16, iseed=10)
>>> ts = mat2timeseries(xs) >>> ts = mat2timeseries(xs)
>>> g0, g0emp = ts.trdata(plotflag=1) >>> g0, g0emp = ts.trdata(plotflag=1)
>>> g1, g1emp = ts.trdata(method='m', gvar=0.5 ) >>> g1, g1emp = ts.trdata(method='mnonlinear', gvar=0.5 )
>>> g2, g2emp = ts.trdata(method='n', gvar=[3.5, 0.5, 3.5]) >>> g2, g2emp = ts.trdata(method='nonlinear', gvar=[3.5, 0.5, 3.5])
>>> int(S.tr.dist2gauss()*100) >>> 100 < S.tr.dist2gauss()*100 < 200
141 True
>>> int(g0emp.dist2gauss()*100) >>> 2000 < g0emp.dist2gauss() < 4000
217949 True
>>> int(g0.dist2gauss()*100) >>> 80 < g0.dist2gauss()*100 < 150
93 True
>>> int(g1.dist2gauss()*100) >>> 50 < g1.dist2gauss()*100 < 100
66 True
>>> int(g2.dist2gauss()*100) >>> 70 < g2.dist2gauss()*100 < 140
84 True
See also See also
-------- --------
@ -1927,37 +1929,38 @@ class TimeSeries(PlotData):
Lm = np.minimum([n, 200, int(200/dT)]) # Lagmax 200 seconds Lm = np.minimum([n, 200, int(200/dT)]) # Lagmax 200 seconds
if L is not None: if L is not None:
Lm = max(L, Lm) Lm = max(L, Lm)
Lma = 1500 # size of the moving average window used # Lma: size of the moving average window used for detrending the
# for detrending the reconstructed signal # reconstructed signal
if not inds is None: Lma = 1500
if inds is not None:
xn[inds] = np.nan xn[inds] = np.nan
inds = isnan(xn) inds = isnan(xn)
if not inds.any(): if not inds.any():
raise ValueError('No spurious data given') raise ValueError('No spurious data given')
endpos = np.diff(inds) endpos = np.diff(inds)
strtpos = np.flatnonzero(endpos>0) strtpos = np.flatnonzero(endpos > 0)
endpos = np.flatnonzero(endpos<0) endpos = np.flatnonzero(endpos < 0)
indg = np.flatnonzero(1-inds) # indices to good points indg = np.flatnonzero(1-inds) # indices to good points
inds = np.flatnonzero(inds) # indices to spurious points inds = np.flatnonzero(inds) # indices to spurious points
indNaN = [] # indices to points omitted in the covariance estimation indNaN = [] # indices to points omitted in the covariance estimation
indr = np.arange(n) # indices to point used in the estimation of g indr = np.arange(n) # indices to point used in the estimation of g
# Finding more than cmvmax consecutive spurios points. # Finding more than cmvmax consecutive spurios points.
# They will not be used in the estimation of g and are thus removed # They will not be used in the estimation of g and are thus removed
# from indr. # from indr.
if strtpos.size>0 and (endpos.size==0 or endpos[-1] < strtpos[-1]): if strtpos.size > 0 and (endpos.size == 0 or endpos[-1] < strtpos[-1]):
if (n - strtpos[-1]) > cmvmax: if (n - strtpos[-1]) > cmvmax:
indNaN = indr[strtpos[-1]+1:n] indNaN = indr[strtpos[-1]+1:n]
indr = indr[:strtpos[-1]+1] indr = indr[:strtpos[-1]+1]
strtpos = strtpos[:-1] strtpos = strtpos[:-1]
if endpos.size>0 and (strtpos.size==0 or endpos[0] < strtpos[0]): if endpos.size > 0 and (strtpos.size == 0 or endpos[0] < strtpos[0]):
if endpos[0] > cmvmax: if endpos[0] > cmvmax:
indNaN = np.hstack((indNaN, indr[:endpos[0]])) indNaN = np.hstack((indNaN, indr[:endpos[0]]))
indr = indr[endpos[0]:] indr = indr[endpos[0]:]
@ -1965,12 +1968,13 @@ class TimeSeries(PlotData):
endpos = endpos-endpos[0] endpos = endpos-endpos[0]
endpos = endpos[1:] endpos = endpos[1:]
for ix in range(len(strtpos)-1,-1,-1): for ix in range(len(strtpos)-1, -1, -1):
if (endpos[ix]-strtpos[ix]>cmvmax): if (endpos[ix]-strtpos[ix] > cmvmax):
indNaN = np.hstack((indNaN, indr[strtpos[ix]+1:endpos[ix]])) indNaN = np.hstack((indNaN, indr[strtpos[ix]+1:endpos[ix]]))
del indr[strtpos[ix]+1:endpos[ix]] # remove this when estimating the transform # remove this when estimating the transform
del indr[strtpos[ix]+1:endpos[ix]]
if len(indr)<0.1*n: if len(indr) < 0.1*n:
raise ValueError('Not possible to reconstruct signal') raise ValueError('Not possible to reconstruct signal')
if indNaN.any(): if indNaN.any():
@ -1984,7 +1988,8 @@ class TimeSeries(PlotData):
# xnt(inds,2)=NaN; # xnt(inds,2)=NaN;
# rwin=findrwin(xnt,Lm,L); # rwin=findrwin(xnt,Lm,L);
# disp(['First reconstruction attempt, e(g-u)=', num2str(test)] ) # disp(['First reconstruction attempt, e(g-u)=', num2str(test)] )
# [samp ,mu1o, mu1oStd] = cov2csdat(xnt(:,2),rwin,1,method,inds); # old simcgauss # # old simcgauss
# [samp ,mu1o, mu1oStd] = cov2csdat(xnt(:,2),rwin,1,method,inds);
# if expect1,# reconstruction by expectation # if expect1,# reconstruction by expectation
# xnt(inds,2) =mu1o; # xnt(inds,2) =mu1o;
# else # else
@ -2214,7 +2219,7 @@ class TimeSeries(PlotData):
if len(ind2) > 0: if len(ind2) > 0:
plot(tn2[ind2] * dT, xn2[ind2], sym2) plot(tn2[ind2] * dT, xn2[ind2], sym2)
plot(h_scale * dT, [0, 0], 'k-') plot(h_scale * dT, [0, 0], 'k-')
#plotbackend.axis([h_scale*dT, v_scale]) # plotbackend.axis([h_scale*dT, v_scale])
for iy in [-2, 2]: for iy in [-2, 2]:
plot(h_scale * dT, iy * sigma * ones(2), ':') plot(h_scale * dT, iy * sigma * ones(2), ':')
ind = ind + Ns ind = ind + Ns
@ -2301,7 +2306,7 @@ class TimeSeries(PlotData):
def main(): def main():
import wafo import wafo
ts = wafo.objects.mat2timeseries(wafo.data.sea()) ts = wafo.objects.mat2timeseries(wafo.data.sea())
S = ts.tospecdata(method='psd') _S = ts.tospecdata(method='psd')
tp = ts.turning_points() tp = ts.turning_points()
mm = tp.cycle_pairs() mm = tp.cycle_pairs()
lc = mm.level_crossings() lc = mm.level_crossings()
@ -2346,5 +2351,5 @@ def test_docstrings():
if __name__ == '__main__': if __name__ == '__main__':
test_docstrings() test_docstrings()
#main() # main()
# test_levelcrossings_extrapolate() # test_levelcrossings_extrapolate()

BIN
pywafo/src/wafo/rindmod.pyd
View File

Binary file not shown.

781
pywafo/src/wafo/sg_filter.py
Unescape Escape View File

@ -1,71 +1,20 @@
from __future__ import division
import numpy as np import numpy as np
#from math import pow # from math import pow
#from numpy import zeros,dot # from numpy import zeros,dot
from numpy import abs, size, convolve, linalg, concatenate # @UnresolvedImport from numpy import (pi, abs, size, convolve, linalg, concatenate, sqrt)
from scipy.sparse import spdiags from scipy.sparse import spdiags
from scipy.sparse.linalg import spsolve, expm from scipy.sparse.linalg import spsolve, expm
from scipy.signal import medfilt from scipy.signal import medfilt
from wafo.dctpack import dctn, idctn
import scipy.optimize as optimize
from scipy.signal import _savitzky_golay
from scipy.ndimage import convolve1d
from scipy.ndimage.morphology import distance_transform_edt
import warnings
from wafo.plotbackend import plotbackend as plt
__all__ = ['calc_coeff', 'smooth', 'smooth_last', __all__ = ['SavitzkyGolay', 'Kalman', 'HodrickPrescott']
'SavitzkyGolay', 'Kalman', 'HodrickPrescott']
def calc_coeff(n, degree, diff_order=0):
""" calculates filter coefficients for symmetric savitzky-golay filter.
see: http://www.nrbook.com/a/bookcpdf/c14-8.pdf
n means that 2*n+1 values contribute to the smoother.
degree is degree of fitting polynomial
diff_order is degree of implicit differentiation.
0 means that filter results in smoothing of function
1 means that filter results in smoothing the first
derivative of function.
and so on ...
"""
order_range = np.arange(degree + 1)
k_range = np.arange(-n, n + 1, dtype=float).reshape(-1, 1)
b = np.mat(k_range ** order_range)
#b = np.mat([[float(k)**i for i in order_range] for k in range(-n,n+1)])
coeff = linalg.pinv(b).A[diff_order]
return coeff
def smooth_last(signal, coeff, k=0):
n = size(coeff - 1) // 2
y = np.squeeze(signal)
if y.ndim > 1:
coeff.shape = (-1, 1)
first_vals = y[0] - abs(y[n:0:-1] - y[0])
last_vals = y[-1] + abs(y[-2:-n - 2:-1] - y[-1])
y = concatenate((first_vals, y, last_vals))
return (y[-2 * n - 1 - k:-k] * coeff).sum(axis=0)
def smooth(signal, coeff, pad=True):
"""applies coefficients calculated by calc_coeff() to signal."""
n = size(coeff - 1) // 2
y = np.squeeze(signal)
if n == 0:
return y
if pad:
first_vals = y[0] - abs(y[n:0:-1] - y[0])
last_vals = y[-1] + abs(y[-2:-n - 2:-1] - y[-1])
y = concatenate((first_vals, y, last_vals))
n *= 2
d = y.ndim
if d > 1:
y1 = y.reshape(y.shape[0], -1)
res = []
for i in range(y1.shape[1]):
res.append(convolve(y1[:, i], coeff)[n:-n])
res = np.asarray(res).T
else:
res = convolve(y, coeff)[n:-n]
return res
class SavitzkyGolay(object): class SavitzkyGolay(object):
@ -81,21 +30,62 @@ class SavitzkyGolay(object):
n : int n : int
the size of the smoothing window is 2*n+1. the size of the smoothing window is 2*n+1.
degree : int degree : int
the order of the polynomial used in the filtering. the degree of the polynomial used in the filtering.
Must be less than `window_size` - 1, i.e, less than 2*n. Must be less than `window_size` - 1, i.e, less than 2*n.
diff_order : int diff_order : int
order of the derivative to compute (default = 0 means only smoothing) order of the derivative to compute (default = 0 means only smoothing)
0 means that filter results in smoothing of function 0 means that filter results in smoothing of function
1 means that filter results in smoothing the first derivative of the 1 means that filter results in smoothing the first derivative of the
function and so on ... function and so on ...
delta : float, optional
The spacing of the samples to which the filter will be applied.
This is only used if deriv > 0. Default is 1.0.
axis : int, optional
The axis of the array `x` along which the filter is to be applied.
Default is -1.
mode : str, optional
Must be 'mirror', 'constant', 'nearest', 'wrap' or 'interp'. This
determines the type of extension to use for the padded signal to
which the filter is applied. When `mode` is 'constant', the padding
value is given by `cval`. See the Notes for more details on 'mirror',
'constant', 'wrap', and 'nearest'.
When the 'interp' mode is selected (the default), no extension
is used. Instead, a degree `polyorder` polynomial is fit to the
last `window_length` values of the edges, and this polynomial is
used to evaluate the last `window_length // 2` output values.
cval : scalar, optional
Value to fill past the edges of the input if `mode` is 'constant'.
Default is 0.0.
Notes Notes
----- -----
The Savitzky-Golay is a type of low-pass filter, particularly The Savitzky-Golay is a type of low-pass filter, particularly suited for
suited for smoothing noisy data. The main idea behind this smoothing noisy data. The main idea behind this approach is to make for
approach is to make for each point a least-square fit with a each point a least-square fit with a polynomial of high order over a
polynomial of high order over a odd-sized window centered at odd-sized window centered at the point.
the point.
Details on the `mode` options:
'mirror':
Repeats the values at the edges in reverse order. The value
closest to the edge is not included.
'nearest':
The extension contains the nearest input value.
'constant':
The extension contains the value given by the `cval` argument.
'wrap':
The extension contains the values from the other end of the array.
For example, if the input is [1, 2, 3, 4, 5, 6, 7, 8], and
`window_length` is 7, the following shows the extended data for
the various `mode` options (assuming `cval` is 0)::
mode | Ext | Input | Ext
-----------+---------+------------------------+---------
'mirror' | 4 3 2 | 1 2 3 4 5 6 7 8 | 7 6 5
'nearest' | 1 1 1 | 1 2 3 4 5 6 7 8 | 8 8 8
'constant' | 0 0 0 | 1 2 3 4 5 6 7 8 | 0 0 0
'wrap' | 6 7 8 | 1 2 3 4 5 6 7 8 | 1 2 3
Examples Examples
-------- --------
@ -120,21 +110,19 @@ class SavitzkyGolay(object):
Cambridge University Press ISBN-13: 9780521880688 Cambridge University Press ISBN-13: 9780521880688
""" """
def __init__(self, n, degree=1, diff_order=0): def __init__(self, n, degree=1, diff_order=0, delta=1.0, axis=-1,
mode='interp', cval=0.0):
self.n = n self.n = n
self.degree = degree self.degree = degree
self.diff_order = diff_order self.diff_order = diff_order
self.calc_coeff() self.mode = mode
self.cval = cval
def calc_coeff(self): self.axis = axis
""" calculates filter coefficients for symmetric savitzky-golay filter. self.delta = delta
""" window_length = 2 * n + 1
n = self.n self._coeff = _savitzky_golay.savgol_coeffs(window_length,
order_range = np.arange(self.degree + 1) degree, deriv=diff_order,
k_range = np.arange(-n, n + 1, dtype=float).reshape(-1, 1) delta=delta)
b = np.mat(k_range ** order_range)
#b =np.mat([[float(k)**i for i in order_range] for k in range(-n,n+1)])
self._coeff = linalg.pinv(b).A[self.diff_order]
def smooth_last(self, signal, k=0): def smooth_last(self, signal, k=0):
coeff = self._coeff coeff = self._coeff
@ -152,7 +140,24 @@ class SavitzkyGolay(object):
def __call__(self, signal): def __call__(self, signal):
return self.smooth(signal) return self.smooth(signal)
def smooth(self, signal, pad=True): def smooth(self, signal):
x = np.asarray(signal)
if x.dtype != np.float64 and x.dtype != np.float32:
x = x.astype(np.float64)
coeffs = self._coeff
mode, axis = self.mode, self.axis
if mode == "interp":
window_length, polyorder = self.n * 2 + 1, self.degree
deriv, delta = self.diff_order, self.delta
y = convolve1d(x, coeffs, axis=axis, mode="constant")
_savitzky_golay._fit_edges_polyfit(x, window_length, polyorder,
deriv, delta, axis, y)
else:
y = convolve1d(x, coeffs, axis=axis, mode=mode, cval=self.cval)
return y
def _smooth(self, signal, pad=True):
""" """
Returns smoothed signal (or it's n-th derivative). Returns smoothed signal (or it's n-th derivative).
@ -190,6 +195,490 @@ class SavitzkyGolay(object):
return res return res
def evar(y):
"""Noise variance estimation. Assuming that the deterministic function Y
has additive Gaussian noise, EVAR(Y) returns an estimated variance of this
noise.
Note:
----
A thin-plate smoothing spline model is used to smooth Y. It is assumed
that the model whose generalized cross-validation score is minimum can
provide the variance of the additive noise. A few tests showed that
EVAR works very well with "not too irregular" functions.
Examples:
--------
1D signal
>>> n = 1e6
>>> x = np.linspace(0,100,n);
>>> y = np.cos(x/10)+(x/50)
>>> var0 = 0.02 # noise variance
>>> yn = y + sqrt(var0)*np.random.randn(*y.shape)
>>> s = evar(yn) # estimated variance
>>> np.abs(s-var0)/var0 < 3.5/np.sqrt(n)
True
2D function
>>> xp = np.linspace(0,1,50)
>>> x, y = np.meshgrid(xp,xp)
>>> f = np.exp(x+y) + np.sin((x-2*y)*3)
>>> var0 = 0.04 # noise variance
>>> fn = f + sqrt(var0)*np.random.randn(*f.shape)
>>> s = evar(fn) # estimated variance
>>> np.abs(s-var0)/var0 < 3.5/np.sqrt(50)
True
3D function
>>> yp = np.linspace(-2,2,50)
>>> [x,y,z] = meshgrid(yp,yp,yp, sparse=True)
>>> f = x*exp(-x**2-y**2-z**2)
>>> var0 = 0.5 # noise variance
>>> fn = f + sqrt(var0)*np.random.randn(*f.shape)
>>> s = evar(fn) # estimated variance
>>> np.abs(s-var0)/var0 < 3.5/np.sqrt(50)
True
Other example
-------------
http://www.biomecardio.com/matlab/evar.html
Note:
----
EVAR is only adapted to evenly-gridded 1-D to N-D data.
See also
--------
VAR, STD, SMOOTHN
"""
# Damien Garcia -- 2008/04, revised 2009/10
y = np.atleast_1d(y)
d = y.ndim
sh0 = y.shape
S = np.zeros(sh0)
sh1 = np.ones((d,))
cos = np.cos
pi = np.pi
for i in range(d):
ni = sh0[i]
sh1[i] = ni
t = np.arange(ni).reshape(sh1) / ni
S += cos(pi * t)
sh1[i] = 1
S2 = 2 * (d - S).ravel()
# N-D Discrete Cosine Transform of Y
dcty2 = dctn(y).ravel() ** 2
def score_fun(L, S2, dcty2):
# Generalized cross validation score
M = 1 - 1. / (1 + 10 ** L * S2)
noisevar = (dcty2 * M ** 2).mean()
return noisevar / M.mean() ** 2
# fun = lambda x : score_fun(x, S2, dcty2)
Lopt = optimize.fminbound(score_fun, -38, 38, args=(S2, dcty2))
M = 1.0 - 1.0 / (1 + 10 ** Lopt * S2)
noisevar = (dcty2 * M ** 2).mean()
return noisevar
def smoothn(data, s=None, weight=None, robust=False, z0=None, tolz=1e-3,
maxiter=100, fulloutput=False):
'''
SMOOTHN fast and robust spline smoothing for 1-D to N-D data.
Parameters
----------
data : array like
uniformly-sampled data array to smooth. Non finite values (NaN or Inf)
are treated as missing values.
s : real positive scalar
smooting parameter. The larger S is, the smoother the output will be.
Default value is automatically determined using the generalized
cross-validation (GCV) method.
weight : string or array weights
weighting array of real positive values, that must have the same size
as DATA. Note that a zero weight corresponds to a missing value.
robust : bool
If true carry out a robust smoothing that minimizes the influence of
outlying data.
tolz : real positive scalar
Termination tolerance on Z (default = 1e-3)
maxiter : scalar integer
Maximum number of iterations allowed (default = 100)
z0 : array-like
Initial value for the iterative process (default = original data)
Returns
-------
z : array like
smoothed data
To be made
----------
Estimate the confidence bands (see Wahba 1983, Nychka 1988).
Reference
---------
Garcia D, Robust smoothing of gridded data in one and higher dimensions
with missing values. Computational Statistics & Data Analysis, 2010.
http://www.biomecardio.com/pageshtm/publi/csda10.pdf
Examples:
--------
1-D example
>>> import matplotlib.pyplot as plt
>>> x = np.linspace(0,100,2**8)
>>> y = np.cos(x/10)+(x/50)**2 + np.random.randn(*x.shape)/10
>>> y[np.r_[70, 75, 80]] = np.array([5.5, 5, 6])
>>> z = smoothn(y) # Regular smoothing
>>> zr = smoothn(y,robust=True) # Robust smoothing
>>> h=plt.subplot(121),
>>> h = plt.plot(x,y,'r.',x,z,'k',linewidth=2)
>>> h=plt.title('Regular smoothing')
>>> h=plt.subplot(122)
>>> h=plt.plot(x,y,'r.',x,zr,'k',linewidth=2)
>>> h=plt.title('Robust smoothing')
2-D example
>>> xp = np.r_[0:1:.02]
>>> [x,y] = np.meshgrid(xp,xp)
>>> f = np.exp(x+y) + np.sin((x-2*y)*3);
>>> fn = f + np.random.randn(*f.shape)*0.5;
>>> fs = smoothn(fn);
>>> h=plt.subplot(121),
>>> h=plt.contourf(xp,xp,fn)
>>> h=plt.subplot(122)
>>> h=plt.contourf(xp,xp,fs)
2-D example with missing data
n = 256;
y0 = peaks(n);
y = y0 + rand(size(y0))*2;
I = randperm(n^2);
y(I(1:n^2*0.5)) = NaN; lose 1/2 of data
y(40:90,140:190) = NaN; create a hole
z = smoothn(y); smooth data
subplot(2,2,1:2), imagesc(y), axis equal off
title('Noisy corrupt data')
subplot(223), imagesc(z), axis equal off
title('Recovered data ...')
subplot(224), imagesc(y0), axis equal off
title('... compared with original data')
3-D example
[x,y,z] = meshgrid(-2:.2:2);
xslice = [-0.8,1]; yslice = 2; zslice = [-2,0];
vn = x.*exp(-x.^2-y.^2-z.^2) + randn(size(x))*0.06;
subplot(121), slice(x,y,z,vn,xslice,yslice,zslice,'cubic')
title('Noisy data')
v = smoothn(vn);
subplot(122), slice(x,y,z,v,xslice,yslice,zslice,'cubic')
title('Smoothed data')
Cardioid
t = linspace(0,2*pi,1000);
x = 2*cos(t).*(1-cos(t)) + randn(size(t))*0.1;
y = 2*sin(t).*(1-cos(t)) + randn(size(t))*0.1;
z = smoothn(complex(x,y));
plot(x,y,'r.',real(z),imag(z),'k','linewidth',2)
axis equal tight
Cellular vortical flow
[x,y] = meshgrid(linspace(0,1,24));
Vx = cos(2*pi*x+pi/2).*cos(2*pi*y);
Vy = sin(2*pi*x+pi/2).*sin(2*pi*y);
Vx = Vx + sqrt(0.05)*randn(24,24); adding Gaussian noise
Vy = Vy + sqrt(0.05)*randn(24,24); adding Gaussian noise
I = randperm(numel(Vx));
Vx(I(1:30)) = (rand(30,1)-0.5)*5; adding outliers
Vy(I(1:30)) = (rand(30,1)-0.5)*5; adding outliers
Vx(I(31:60)) = NaN; missing values
Vy(I(31:60)) = NaN; missing values
Vs = smoothn(complex(Vx,Vy),'robust'); automatic smoothing
subplot(121), quiver(x,y,Vx,Vy,2.5), axis square
title('Noisy velocity field')
subplot(122), quiver(x,y,real(Vs),imag(Vs)), axis square
title('Smoothed velocity field')
See also SMOOTH, SMOOTH3, DCTN, IDCTN.
-- Damien Garcia -- 2009/03, revised 2010/11
Visit
http://www.biomecardio.com/matlab/smoothn.html
for more details about SMOOTHN
'''
y = np.atleast_1d(data)
sizy = y.shape
noe = y.size
if noe < 2:
return data
weightstr = 'bisquare'
W = np.ones(sizy)
# Smoothness parameter and weights
if weight is None:
pass
elif isinstance(weight, str):
weightstr = weight.lower()
else:
W = weight
# Weights. Zero weights are assigned to not finite values (Inf or NaN),
# (Inf/NaN values = missing data).
IsFinite = np.isfinite(y)
nof = IsFinite.sum() # number of finite elements
W = W * IsFinite
if (W < 0).any():
raise ValueError('Weights must all be >=0')
else:
W = W / W.max()
isweighted = (W < 1).any() # Weighted or missing data?
isauto = s is None # Automatic smoothing?
# Creation of the Lambda tensor
# Lambda contains the eingenvalues of the difference matrix used in this
# penalized least squares process.
d = y.ndim
Lambda = np.zeros(sizy)
siz0 = [1, ] * d
for i in range(d):
siz0[i] = sizy[i]
Lambda = Lambda + \
np.cos(pi * np.arange(sizy[i]) / sizy[i]).reshape(siz0)
siz0[i] = 1
Lambda = -2 * (d - Lambda)
if not isauto:
Gamma = 1. / (1 + s * Lambda ** 2)
# Upper and lower bound for the smoothness parameter
# The average leverage (h) is by definition in [0 1]. Weak smoothing occurs
# if h is close to 1, while over-smoothing appears when h is near 0. Upper
# and lower bounds for h are given to avoid under- or over-smoothing. See
# equation relating h to the smoothness parameter (Equation #12 in the
# referenced CSDA paper).
N = (np.array(sizy) != 1).sum() # tensor rank of the y-array
hMin = 1e-6
hMax = 0.99
sMinBnd = (((1 + sqrt(1 + 8 * hMax ** (2. / N))) / 4. /
hMax ** (2. / N)) ** 2 - 1) / 16
sMaxBnd = (((1 + sqrt(1 + 8 * hMin ** (2. / N))) / 4. /
hMin ** (2. / N)) ** 2 - 1) / 16
# Initialize before iterating
Wtot = W
# Initial conditions for z
if isweighted:
# With weighted/missing data
# An initial guess is provided to ensure faster convergence. For that
# purpose, a nearest neighbor interpolation followed by a coarse
# smoothing are performed.
if z0 is None:
z = InitialGuess(y, IsFinite)
else:
# an initial guess (z0) has been provided
z = z0
else:
z = np.zeros(sizy)
z0 = z
y[~IsFinite] = 0 # arbitrary values for missing y-data
tol = 1
RobustIterativeProcess = True
RobustStep = 1
# Error on p. Smoothness parameter s = 10^p
errp = 0.1
# Relaxation factor RF: to speedup convergence
RF = 1.75 if isweighted else 1.0
norm = linalg.norm
# Main iterative process
while RobustIterativeProcess:
# "amount" of weights (see the function GCVscore)
aow = Wtot.sum() / noe # 0 < aow <= 1
exitflag = True
for nit in range(1, maxiter + 1):
DCTy = dctn(Wtot * (y - z) + z)
if isauto and not np.remainder(np.log2(nit), 1):
# The generalized cross-validation (GCV) method is used.
# We seek the smoothing parameter s that minimizes the GCV
# score i.e. s = Argmin(GCVscore).
# Because this process is time-consuming, it is performed from
# time to time (when nit is a power of 2)
log10s = optimize.fminbound(
gcv, np.log10(sMinBnd), np.log10(sMaxBnd),
args=(aow, Lambda, DCTy, y, Wtot, IsFinite, nof, noe),
xtol=errp, full_output=False, disp=False)
s = 10 ** log10s
Gamma = 1.0 / (1 + s * Lambda ** 2)
z = RF * idctn(Gamma * DCTy) + (1 - RF) * z
# if no weighted/missing data => tol=0 (no iteration)
tol = norm(z0.ravel() - z.ravel()) / norm(
z.ravel()) if isweighted else 0.0
if tol <= tolz:
break
z0 = z # re-initialization
else:
exitflag = False # nit<MaxIter;
if robust:
# -- Robust Smoothing: iteratively re-weighted process
# --- average leverage
h = sqrt(1 + 16 * s)
h = sqrt(1 + h) / sqrt(2) / h
h = h ** N
# take robust weights into account
Wtot = W * RobustWeights(y - z, IsFinite, h, weightstr)
# re-initialize for another iterative weighted process
isweighted = True
tol = 1
RobustStep = RobustStep + 1
# 3 robust steps are enough.
RobustIterativeProcess = RobustStep < 4
else:
RobustIterativeProcess = False # stop the whole process
# Warning messages
if isauto:
if abs(np.log10(s) - np.log10(sMinBnd)) < errp:
warnings.warn('''s = %g: the lower bound for s has been reached.
Put s as an input variable if required.''' % s)
elif abs(np.log10(s) - np.log10(sMaxBnd)) < errp:
warnings.warn('''s = %g: the Upper bound for s has been reached.
Put s as an input variable if required.''' % s)
if not exitflag:
warnings.warn('''Maximum number of iterations (%d) has been exceeded.
Increase MaxIter option or decrease TolZ value.''' % (maxiter))
if fulloutput:
return z, s
else:
return z
def gcv(p, aow, Lambda, DCTy, y, Wtot, IsFinite, nof, noe):
# Search the smoothing parameter s that minimizes the GCV score
s = 10 ** p
Gamma = 1.0 / (1 + s * Lambda ** 2)
# RSS = Residual sum-of-squares
if aow > 0.9: # aow = 1 means that all of the data are equally weighted
# very much faster: does not require any inverse DCT
RSS = linalg.norm(DCTy.ravel() * (Gamma.ravel() - 1)) ** 2
else:
# take account of the weights to calculate RSS:
yhat = idctn(Gamma * DCTy)
RSS = linalg.norm(sqrt(Wtot[IsFinite]) *
(y[IsFinite] - yhat[IsFinite])) ** 2
TrH = Gamma.sum()
GCVscore = RSS / nof / (1.0 - TrH / noe) ** 2
return GCVscore
# Robust weights
def RobustWeights(r, I, h, wstr):
# weights for robust smoothing.
MAD = np.median(abs(r[I] - np.median(r[I]))) # median absolute deviation
u = abs(r / (1.4826 * MAD) / sqrt(1 - h)) # studentized residuals
if wstr == 'cauchy':
c = 2.385
W = 1. / (1 + (u / c) ** 2) # Cauchy weights
elif wstr == 'talworth':
c = 2.795
W = u < c # Talworth weights
else: # bisquare weights
c = 4.685
W = (1 - (u / c) ** 2) ** 2 * ((u / c) < 1)
W[np.isnan(W)] = 0
return W
def InitialGuess(y, I):
# Initial Guess with weighted/missing data
# nearest neighbor interpolation (in case of missing values)
z = y
if (1 - I).any():
notI = ~I
z, L = distance_transform_edt(notI, return_indices=True)
z[notI] = y[L.flat[notI]]
# coarse fast smoothing using one-tenth of the DCT coefficients
siz = z.shape
d = z.ndim
z = dctn(z)
for k in range(d):
z[int((siz[k] + 0.5) / 10) + 1::, ...] = 0
z = z.reshape(np.roll(siz, -k))
z = z.transpose(np.roll(range(z.ndim), -1))
# z = shiftdim(z,1);
z = idctn(z)
return z
def test_smoothn_1d():
x = np.linspace(0, 100, 2 ** 8)
y = np.cos(x / 10) + (x / 50) ** 2 + np.random.randn(x.size) / 10
y[np.r_[70, 75, 80]] = np.array([5.5, 5, 6])
z = smoothn(y) # Regular smoothing
zr = smoothn(y, robust=True) # Robust smoothing
plt.subplot(121),
unused_h = plt.plot(x, y, 'r.', x, z, 'k', linewidth=2)
plt.title('Regular smoothing')
plt.subplot(122)
plt.plot(x, y, 'r.', x, zr, 'k', linewidth=2)
plt.title('Robust smoothing')
plt.show('hold')
def test_smoothn_2d():
# import mayavi.mlab as plt
xp = np.r_[0:1:.02]
[x, y] = np.meshgrid(xp, xp)
f = np.exp(x + y) + np.sin((x - 2 * y) * 3)
fn = f + np.random.randn(*f.shape) * 0.5
fs, s = smoothn(fn, fulloutput=True) # @UnusedVariable
fs2 = smoothn(fn, s=2 * s)
plt.subplot(131),
plt.contourf(xp, xp, fn)
plt.subplot(132),
plt.contourf(xp, xp, fs2)
plt.subplot(133),
plt.contourf(xp, xp, f)
plt.show('hold')
def test_smoothn_cardioid():
t = np.linspace(0, 2 * pi, 1000)
cos = np.cos
sin = np.sin
randn = np.random.randn
x0 = 2 * cos(t) * (1 - cos(t))
x = x0 + randn(t.size) * 0.1
y0 = 2 * sin(t) * (1 - cos(t))
y = y0 + randn(t.size) * 0.1
z = smoothn(x + 1j * y, robust=False)
plt.plot(x0, y0, 'y',
x, y, 'r.',
z.real, z.imag, 'k', linewidth=2)
plt.show('hold')
class HodrickPrescott(object): class HodrickPrescott(object):
'''Smooth data with a Hodrick-Prescott filter. '''Smooth data with a Hodrick-Prescott filter.
@ -445,7 +934,7 @@ class Kalman(object):
H = self.H H = self.H
PHT = np.dot(P, H.T) PHT = np.dot(P, H.T)
innovation_covariance = np.dot(H, PHT) + self.R innovation_covariance = np.dot(H, PHT) + self.R
#return np.linalg.solve(PHT, innovation_covariance) # return np.linalg.solve(PHT, innovation_covariance)
return np.dot(PHT, np.linalg.inv(innovation_covariance)) return np.dot(PHT, np.linalg.inv(innovation_covariance))
def _update_state_from_observation(self, x, z, K): def _update_state_from_observation(self, x, z, K):
@ -491,7 +980,6 @@ def test_kalman():
for i, zi in enumerate(z): for i, zi in enumerate(z):
x[i] = filt(zi, u) # perform a Kalman filter iteration x[i] = filt(zi, u) # perform a Kalman filter iteration
import matplotlib.pyplot as plt
_hz = plt.plot(z, 'r.', label='observations') _hz = plt.plot(z, 'r.', label='observations')
# a-posteriori state estimates: # a-posteriori state estimates:
_hx = plt.plot(x, 'b-', label='Kalman output') _hx = plt.plot(x, 'b-', label='Kalman output')
@ -502,8 +990,7 @@ def test_kalman():
def lti_disc(F, L=None, Q=None, dt=1): def lti_disc(F, L=None, Q=None, dt=1):
''' """LTI_DISC Discretize LTI ODE with Gaussian Noise.
LTI_DISC Discretize LTI ODE with Gaussian Noise
Syntax: Syntax:
[A,Q] = lti_disc(F,L,Qc,dt) [A,Q] = lti_disc(F,L,Qc,dt)
@ -531,7 +1018,8 @@ def lti_disc(F, L=None, Q=None, dt=1):
Which can be used for integrating the model Which can be used for integrating the model
exactly over time steps, which are multiples exactly over time steps, which are multiples
of dt. of dt.
'''
"""
n = np.shape(F)[0] n = np.shape(F)[0]
if L is None: if L is None:
L = np.eye(n) L = np.eye(n)
@ -547,13 +1035,13 @@ def lti_disc(F, L=None, Q=None, dt=1):
Phi = np.vstack((np.hstack((F, np.dot(np.dot(L, Q), L.T))), Phi = np.vstack((np.hstack((F, np.dot(np.dot(L, Q), L.T))),
np.hstack((np.zeros((n, n)), -F.T)))) np.hstack((np.zeros((n, n)), -F.T))))
AB = np.dot(expm(Phi * dt), np.vstack((np.zeros((n, n)), np.eye(n)))) AB = np.dot(expm(Phi * dt), np.vstack((np.zeros((n, n)), np.eye(n))))
#Q = AB[:n, :] / AB[n:(2 * n), :] # Q = AB[:n, :] / AB[n:(2 * n), :]
Q = np.linalg.solve(AB[n:(2 * n), :].T, AB[:n, :].T) Q = np.linalg.solve(AB[n:(2 * n), :].T, AB[:n, :].T)
return A, Q return A, Q
def test_kalman_sine(): def test_kalman_sine():
'''Kalman Filter demonstration with sine signal.''' """Kalman Filter demonstration with sine signal."""
sd = 1. sd = 1.
dt = 0.1 dt = 0.1
w = 1 w = 1
@ -578,17 +1066,17 @@ def test_kalman_sine():
# Track and animate # Track and animate
m = M.shape[0] m = M.shape[0]
MM = np.zeros((m, n)) _MM = np.zeros((m, n))
PP = np.zeros((m, m, n)) _PP = np.zeros((m, m, n))
'''In this demonstration we estimate a stationary sine signal from noisy '''In this demonstration we estimate a stationary sine signal from noisy
measurements by using the classical Kalman filter.' measurements by using the classical Kalman filter.'
''' '''
filt = Kalman(R=R, x=M, P=P, A=A, Q=Q, H=H, B=0) filt = Kalman(R=R, x=M, P=P, A=A, Q=Q, H=H, B=0)
# Generate random voltages and watch the filter operate. # Generate random voltages and watch the filter operate.
#n = 50 # n = 50
#truth = np.random.randn(n) * np.sqrt(q) + V0 # truth = np.random.randn(n) * np.sqrt(q) + V0
#z = truth + np.random.randn(n) * np.sqrt(r) # measurement # z = truth + np.random.randn(n) * np.sqrt(r) # measurement
truth = X truth = X
z = Y z = Y
x = np.zeros((n, m)) x = np.zeros((n, m))
@ -596,7 +1084,6 @@ def test_kalman_sine():
for i, zi in enumerate(z): for i, zi in enumerate(z):
x[i] = filt(zi, u=0).ravel() x[i] = filt(zi, u=0).ravel()
import matplotlib.pyplot as plt
_hz = plt.plot(z, 'r.', label='observations') _hz = plt.plot(z, 'r.', label='observations')
# a-posteriori state estimates: # a-posteriori state estimates:
_hx = plt.plot(x[:, 0], 'b-', label='Kalman output') _hx = plt.plot(x[:, 0], 'b-', label='Kalman output')
@ -620,7 +1107,8 @@ def test_kalman_sine():
# T,Y,'ro',... # T,Y,'ro',...
# T(k),M(1),'k*',... # T(k),M(1),'k*',...
# T(1:k),MM(1,1:k),'k-'); # T(1:k),MM(1,1:k),'k-');
# legend('Real signal','Measurements','Latest estimate','Filtered estimate') # legend('Real signal','Measurements','Latest estimate',
# 'Filtered estimate')
# title('Estimating a noisy sine signal with Kalman filter.'); # title('Estimating a noisy sine signal with Kalman filter.');
# drawnow; # drawnow;
# #
@ -629,9 +1117,11 @@ def test_kalman_sine():
# end # end
# #
# clc; # clc;
# disp('In this demonstration we estimate a stationary sine signal from noisy measurements by using the classical Kalman filter.'); # disp('In this demonstration we estimate a stationary sine signal '
# 'from noisy measurements by using the classical Kalman filter.');
# disp(' '); # disp(' ');
# disp('The filtering results are now displayed sequantially for 10 time step at a time.'); # disp('The filtering results are now displayed sequantially for 10 time '
# 'step at a time.');
# disp(' '); # disp(' ');
# disp('<push any key to see the filtered and smoothed results together>') # disp('<push any key to see the filtered and smoothed results together>')
# pause; # pause;
@ -642,11 +1132,12 @@ def test_kalman_sine():
# plot(T,X,'b--',... # plot(T,X,'b--',...
# T,MM(1,:),'k-',... # T,MM(1,:),'k-',...
# T,SM(1,:),'r-'); # T,SM(1,:),'r-');
# legend('Real signal','Filtered estimate','Smoothed estimate') # legend('Real signal','Filtered estimate','Smoothed estimate')
# title('Filtered and smoothed estimate of the original signal'); # title('Filtered and smoothed estimate of the original signal');
# #
# clc; # clc;
# disp('The filtered and smoothed estimates of the signal are now displayed.') # disp('The filtered and smoothed estimates of the signal are now '
# 'displayed.')
# disp(' '); # disp(' ');
# disp('RMS errors:'); # disp('RMS errors:');
# % # %
@ -658,8 +1149,7 @@ def test_kalman_sine():
class HampelFilter(object): class HampelFilter(object):
''' """Hampel Filter.
Hampel Filter.
HAMPEL(X,Y,DX,T,varargin) returns the Hampel filtered values of the HAMPEL(X,Y,DX,T,varargin) returns the Hampel filtered values of the
elements in Y. It was developed to detect outliers in a time series, elements in Y. It was developed to detect outliers in a time series,
@ -718,7 +1208,8 @@ class HampelFilter(object):
window filters. Please visit his blog at: window filters. Please visit his blog at:
http://exploringdatablog.blogspot.com/2012/01/moving-window-filters-and http://exploringdatablog.blogspot.com/2012/01/moving-window-filters-and
-pracma.html -pracma.html
'''
"""
def __init__(self, dx=None, t=3, adaptive=None, fulloutput=False): def __init__(self, dx=None, t=3, adaptive=None, fulloutput=False):
self.dx = dx self.dx = dx
self.t = t self.t = t
@ -790,7 +1281,7 @@ class HampelFilter(object):
Y0 = smgauss(X, Y0, DX) Y0 = smgauss(X, Y0, DX)
T = self.t T = self.t
## Prepare Output # Prepare Output
self.UB = Y0 + T * S0 self.UB = Y0 + T * S0
self.LB = Y0 - T * S0 self.LB = Y0 - T * S0
outliers = np.abs(Y - Y0) > T * S0 # possible outliers outliers = np.abs(Y - Y0) > T * S0 # possible outliers
@ -806,7 +1297,6 @@ class HampelFilter(object):
def test_hampel(): def test_hampel():
import matplotlib.pyplot as plt
randint = np.random.randint randint = np.random.randint
Y = 5000 + np.random.randn(1000) Y = 5000 + np.random.randn(1000)
outliers = randint(0, 1000, size=(10,)) outliers = randint(0, 1000, size=(10,))
@ -827,7 +1317,6 @@ def test_hampel():
def plot_hampel(Y, YY, res): def plot_hampel(Y, YY, res):
import matplotlib.pyplot as plt
X = np.arange(len(YY)) X = np.arange(len(YY))
plt.plot(X, Y, 'b.') # Original Data plt.plot(X, Y, 'b.') # Original Data
plt.plot(X, YY, 'r') # Hampel Filtered Data plt.plot(X, YY, 'r') # Hampel Filtered Data
@ -836,14 +1325,14 @@ def plot_hampel(Y, YY, res):
plt.plot(X, res['UB'], 'r--') # Upper Bounds on Hampel Filter plt.plot(X, res['UB'], 'r--') # Upper Bounds on Hampel Filter
i = res['outliers'] i = res['outliers']
plt.plot(X[i], Y[i], 'ks') # Identified Outliers plt.plot(X[i], Y[i], 'ks') # Identified Outliers
#plt.show('hold') # plt.show('hold')
def test_tide_filter(): def test_tide_filter():
# import statsmodels.api as sa # import statsmodels.api as sa
import wafo.spectrum.models as sm import wafo.spectrum.models as sm
sd = 10 sd = 10
Sj = sm.Jonswap(Hm0=4.* sd) Sj = sm.Jonswap(Hm0=4.*sd)
S = Sj.tospecdata() S = Sj.tospecdata()
q = (0.1 * sd) ** 2 # variance of process noise s the car operates q = (0.1 * sd) ** 2 # variance of process noise s the car operates
@ -851,7 +1340,7 @@ def test_tide_filter():
b = 0 # no system input b = 0 # no system input
u = 0 # no system input u = 0 # no system input
from scipy.signal import butter, lfilter, filtfilt, lfilter_zi from scipy.signal import butter, filtfilt, lfilter_zi # lfilter,
freq_tide = 1. / (12 * 60 * 60) freq_tide = 1. / (12 * 60 * 60)
freq_wave = 1. / 10 freq_wave = 1. / 10
freq_filt = freq_wave / 10 freq_filt = freq_wave / 10
@ -859,7 +1348,7 @@ def test_tide_filter():
freq = 1. / dt freq = 1. / dt
fn = (freq / 2) fn = (freq / 2)
P = 10* np.diag([1, 0.01]) P = 10 * np.diag([1, 0.01])
R = r R = r
H = np.atleast_2d([1, 0]) H = np.atleast_2d([1, 0])
@ -876,19 +1365,21 @@ def test_tide_filter():
filt = Kalman(R=R, x=np.array([[tide[0]], [0]]), P=P, A=A, Q=Q, H=H, B=b) filt = Kalman(R=R, x=np.array([[tide[0]], [0]]), P=P, A=A, Q=Q, H=H, B=b)
filt2 = Kalman(R=R, x=np.array([[tide[0]], [0]]), P=P, A=A, Q=Q, H=H, B=b) filt2 = Kalman(R=R, x=np.array([[tide[0]], [0]]), P=P, A=A, Q=Q, H=H, B=b)
#y = tide + 0.5 * np.sin(freq_wave * w * t) # y = tide + 0.5 * np.sin(freq_wave * w * t)
# Butterworth filter # Butterworth filter
b, a = butter(9, (freq_filt / fn), btype='low') b, a = butter(9, (freq_filt / fn), btype='low')
#y2 = [lowess(y[max(i-60,0):i + 1], t[max(i-60,0):i + 1], frac=.3)[-1,1] for i in range(len(y))] # y2 = [lowess(y[max(i-60,0):i + 1], t[max(i-60,0):i + 1], frac=.3)[-1,1]
#y2 = [lfilter(b, a, y[:i + 1])[i] for i in range(len(y))] # for i in range(len(y))]
#y3 = filtfilt(b, a, y[:16]).tolist() + [filtfilt(b, a, y[:i + 1])[i] for i in range(16, len(y))] # y2 = [lfilter(b, a, y[:i + 1])[i] for i in range(len(y))]
#y0 = medfilt(y, 41) # y3 = filtfilt(b, a, y[:16]).tolist() + [filtfilt(b, a, y[:i + 1])[i]
zi = lfilter_zi(b, a) # for i in range(16, len(y))]
#y2 = lfilter(b, a, y)#, zi=y[0]*zi) # standard filter # y0 = medfilt(y, 41)
_zi = lfilter_zi(b, a)
# y2 = lfilter(b, a, y)#, zi=y[0]*zi) # standard filter
y3 = filtfilt(b, a, y) # filter with phase shift correction y3 = filtfilt(b, a, y) # filter with phase shift correction
y4 =[] y4 = []
y5 = [] y5 = []
for i, j in enumerate(y): for _i, j in enumerate(y):
tmp = filt(j, u=u).ravel() tmp = filt(j, u=u).ravel()
tmp = filt2(tmp[0], u=u).ravel() tmp = filt2(tmp[0], u=u).ravel()
# if i==0: # if i==0:
@ -896,16 +1387,16 @@ def test_tide_filter():
# print(filt2.x) # print(filt2.x)
y4.append(tmp[0]) y4.append(tmp[0])
y5.append(tmp[1]) y5.append(tmp[1])
y0 = medfilt(y4, 41) _y0 = medfilt(y4, 41)
print(filt.P) print(filt.P)
# plot # plot
import matplotlib.pyplot as plt
plt.plot(t, y, 'r.-', linewidth=2, label='raw data') plt.plot(t, y, 'r.-', linewidth=2, label='raw data')
#plt.plot(t, y2, 'b.-', linewidth=2, label='lowess @ %g Hz' % freq_filt) # plt.plot(t, y2, 'b.-', linewidth=2, label='lowess @ %g Hz' % freq_filt)
#plt.plot(t, y2, 'b.-', linewidth=2, label='filter @ %g Hz' % freq_filt) # plt.plot(t, y2, 'b.-', linewidth=2, label='filter @ %g Hz' % freq_filt)
plt.plot(t, y3, 'g.-', linewidth=2, label='filtfilt @ %g Hz' % freq_filt) plt.plot(t, y3, 'g.-', linewidth=2, label='filtfilt @ %g Hz' % freq_filt)
plt.plot(t, y4, 'k.-', linewidth=2, label='kalman') plt.plot(t, y4, 'k.-', linewidth=2, label='kalman')
#plt.plot(t, y5, 'k.', linewidth=2, label='kalman2') # plt.plot(t, y5, 'k.', linewidth=2, label='kalman2')
plt.plot(t, tide, 'y-', linewidth=2, label='True tide') plt.plot(t, tide, 'y-', linewidth=2, label='True tide')
plt.legend(frameon=False, fontsize=14) plt.legend(frameon=False, fontsize=14)
plt.xlabel("Time [s]") plt.xlabel("Time [s]")
@ -914,14 +1405,31 @@ def test_tide_filter():
def test_smooth(): def test_smooth():
import matplotlib.pyplot as plt
t = np.linspace(-4, 4, 500) t = np.linspace(-4, 4, 500)
y = np.exp(-t ** 2) + np.random.normal(0, 0.05, t.shape) y = np.exp(-t ** 2) + np.random.normal(0, 0.05, t.shape)
coeff = calc_coeff(n=0, degree=0, diff_order=0) n = 11
ysg = smooth(y, coeff, pad=True) ysg = SavitzkyGolay(n, degree=1, diff_order=0)(y)
plt.plot(t, y, t, ysg, '--') plt.plot(t, y, t, ysg, '--')
plt.show() plt.show('hold')
def test_hodrick_cardioid():
t = np.linspace(0, 2 * np.pi, 1000)
cos = np.cos
sin = np.sin
randn = np.random.randn
x0 = 2 * cos(t) * (1 - cos(t))
x = x0 + randn(t.size) * 0.1
y0 = 2 * sin(t) * (1 - cos(t))
y = y0 + randn(t.size) * 0.1
smooth = HodrickPrescott(w=20000)
# smooth = HampelFilter(adaptive=50)
z = smooth(x) + 1j * smooth(y)
plt.plot(x0, y0, 'y',
x, y, 'r.',
z.real, z.imag, 'k', linewidth=2)
plt.show('hold')
def test_docstrings(): def test_docstrings():
@ -930,9 +1438,12 @@ def test_docstrings():
doctest.testmod(optionflags=doctest.NORMALIZE_WHITESPACE) doctest.testmod(optionflags=doctest.NORMALIZE_WHITESPACE)
if __name__ == '__main__': if __name__ == '__main__':
#test_kalman_sine() test_docstrings()
test_tide_filter() # test_kalman_sine()
#test_docstrings() # test_tide_filter()
#test_hampel() # test_hampel()
#test_kalman() # test_kalman()
# test_smooth() # test_smooth()
# test_hodrick_cardioid()
test_smoothn_1d()
# test_smoothn_cardioid()

BIN
pywafo/src/wafo/source/c_codes/c_library.pyd
View File

Binary file not shown.

64
pywafo/src/wafo/source/mreg/checkmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 GFORTRAN module version '10' created from mregmodule.f
MD5:fe57607d30a725f711d7629678581d81 -- If you edit this, you'll get what you deserve. MD5:d9cc3708c49161cf45724d686af16cf0 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,33 +14,39 @@ MD5:fe57607d30a725f711d7629678581d81 -- If you edit this, you'll get what you de
() ()
(2 'checkmod' 'checkmod' 'checkmod' 1 ((MODULE UNKNOWN-INTENT (2 'checkmod' 'checkmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0
() () () 0 0) 0)
3 'iii0' 'checkmod' 'iii0' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 3 'iii0' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
4 'iii01' 'checkmod' 'iii01' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 4 'iii01' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
5 'iii101' 'checkmod' 'iii101' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 5 'iii101' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
6 'iii11' 'checkmod' 'iii11' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC () 0 0)
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 6 'iii11' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
7 'iii21' 'checkmod' 'iii21' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 7 'iii21' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
8 'iii31' 'checkmod' 'iii31' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 8 'iii31' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
9 'iii41' 'checkmod' 'iii41' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 9 'iii41' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
10 'iii51' 'checkmod' 'iii51' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 10 'iii51' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
11 'iii61' 'checkmod' 'iii61' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) () 0 0)
12 'iii71' 'checkmod' 'iii71' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 11 'iii61' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
13 'iii81' 'checkmod' 'iii81' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC () 0 0)
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 12 'iii71' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
14 'iii91' 'checkmod' 'iii91' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) () 0 0)
13 'iii81' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
() 0 0)
14 'iii91' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
() 0 0)
) )
('checkmod' 0 2 'iii0' 0 3 'iii01' 0 4 'iii101' 0 5 'iii11' 0 6 'iii21' ('checkmod' 0 2 'iii0' 0 3 'iii01' 0 4 'iii101' 0 5 'iii11' 0 6 'iii21'

20
pywafo/src/wafo/source/mreg/epsmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 GFORTRAN module version '10' created from mregmodule.f
MD5:deb744d8baea0ddd5fc5faf9be58df7e -- If you edit this, you'll get what you deserve. MD5:6ae09751c5b336ec35eb71534e46a563 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,14 +14,14 @@ MD5:deb744d8baea0ddd5fc5faf9be58df7e -- If you edit this, you'll get what you de
() ()
(2 'eps' 'epsmod' 'eps' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN (2 'eps' 'epsmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
3 'eps0' 'epsmod' 'eps0' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 3 'eps0' 'epsmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
4 'epsmod' 'epsmod' 'epsmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 4 'epsmod' 'epsmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
5 'epss' 'epsmod' 'epss' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 5 'epss' 'epsmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
) )
('eps' 0 2 'eps0' 0 3 'epsmod' 0 4 'epss' 0 5) ('eps' 0 2 'eps0' 0 3 'epsmod' 0 4 'epss' 0 5)

16
pywafo/src/wafo/source/mreg/expaccmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 GFORTRAN module version '10' created from mregmodule.f
MD5:d82385a3a446da945f345d09302f933e -- If you edit this, you'll get what you deserve. MD5:4fddbcea71fd92bd3345281bbf49e6eb -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,12 +14,12 @@ MD5:d82385a3a446da945f345d09302f933e -- If you edit this, you'll get what you de
() ()
(2 'expaccmod' 'expaccmod' 'expaccmod' 1 ((MODULE UNKNOWN-INTENT (2 'expaccmod' 'expaccmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0
() () () 0 0) 0)
3 'pmax' 'expaccmod' 'pmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 3 'pmax' 'expaccmod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
0 0 REAL ()) 0 '0.28000000000000@2') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.28000000000000@2') () 0 () () () 0 0)
) )
('expaccmod' 0 2 'pmax' 0 3) ('expaccmod' 0 2 'pmax' 0 3)

33
pywafo/src/wafo/source/mreg/infcmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 GFORTRAN module version '10' created from mregmodule.f
MD5:5dadee8498f04fe7df773933dace020d -- If you edit this, you'll get what you deserve. MD5:88b29dedfc036f5dd0339afd03f086f2 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,21 +14,20 @@ MD5:5dadee8498f04fe7df773933dace020d -- If you edit this, you'll get what you de
() ()
(2 'iac' 'infcmod' 'iac' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC (2 'iac' 'infcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
() 0 0) 3 'inf' 'infcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
3 'inf' 'infcmod' 'inf' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0
UNKNOWN 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT ( EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 '10')) 0 () () () 0 0)
INTEGER ()) 0 '10')) 0 () () () 0 0) 4 'infcmod' 'infcmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
4 'infcmod' 'infcmod' 'infcmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) 5 'info' 'infcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
5 'info' 'infcmod' 'info' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0
UNKNOWN UNKNOWN 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER INTEGER 4 0 0 0 INTEGER ()) 0 '10')) 0 () () () 0 0)
4 0 0 INTEGER ()) 0 '10')) 0 () () () 0 0) 6 'isq' 'infcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
6 'isq' 'infcmod' 'isq' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
) )
('iac' 0 2 'inf' 0 3 'infcmod' 0 4 'info' 0 5 'isq' 0 6) ('iac' 0 2 'inf' 0 3 'infcmod' 0 4 'info' 0 5 'isq' 0 6)

164
pywafo/src/wafo/source/mreg/mregmod.mod
Unescape Escape View File

@ -1,12 +1,12 @@
GFORTRAN module version '4' created from mregmodule.f on Fri Apr 05 14:43:22 2013 GFORTRAN module version '10' created from mregmodule.f
MD5:c1cf222ca4db814a5038de74f7d5b48e -- If you edit this, you'll get what you deserve. MD5:c0ff9d5617455613bb8b25284c401293 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
() ()
(('fi' 'mregmod' 2) ('rind' 'mregmod' 3) ('mreg' 'mregmod' 4)) (('fi' 'mregmod' 2) ('mreg' 'mregmod' 3) ('rind' 'mregmod' 4))
() ()
@ -14,86 +14,86 @@ MD5:c1cf222ca4db814a5038de74f7d5b48e -- If you edit this, you'll get what you de
() ()
(2 'fi' 'mregmod' 'fi' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL (2 'fi' 'mregmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 5 0 (6) () 2 () () () UNKNOWN 0 0 FUNCTION GENERIC IMPLICIT_PURE) (REAL 8 0 0 0 REAL ()) 5 0 (
0 0) 6) () 2 () () () 0 0)
4 'mreg' 'mregmod' 'mreg' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 3 'mreg' 'mregmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 7 0 (8 9 10 UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 7 0 (8 9 10
11 12 13 14 15 16 17 18 19 20) () 0 () () () 0 0) 11 12 13 14 15 16 17 18 19 20) () 0 () () () 0 0)
3 'rind' 'mregmod' 'rind' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 4 'rind' 'mregmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 21 0 (22 23 UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 21 0 (22 23
24 25 26 27 28 29 30 31) () 0 () () () 0 0) 24 25 26 27 28 29 30 31) () 0 () () () 0 0)
22 'xind' '' 'xind' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 6 'xx' '' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
23 'r' '' 'r' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 8 'f' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 9 'r' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
'40401')) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
24 'bu' '' 'bu' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 0 '40401')) 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 10 'b' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
'201')) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
28 'vder' '' 'vder' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 '201')) 0 () () () 0 0)
29 'nit' '' 'nit' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 11 'db' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
30 'n' '' 'n' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 0 '201')) 0 () () () 0 0)
31 'infr' '' 'infr' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 12 'aa' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
25 'dbun' '' 'dbun' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 '4') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
26 'db' '' 'db' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 4 0 0 0 INTEGER ()) 0 '4')) 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 13 'bb' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
'201')) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
27 'sq' '' 'sq' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 0 '7')) 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 14 'a' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
'201')) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
6 'xx' '' 'xx' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 0 '1407')) 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 15 'da' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
8 'f' '' 'f' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
9 'r' '' 'r' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 0 '7')) 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 16 'vder' '' '' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
'40401')) 0 () () () 0 0) 17 'm' '' '' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
10 'b' '' 'b' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 18 'n' '' '' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
'201')) 0 () () () 0 0) 19 'nit' '' '' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
18 'n' '' 'n' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 20 'infr' '' '' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
11 'db' '' 'db' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 22 'xind' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
'201')) 0 () () () 0 0) 23 'r' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
12 'aa' '' 'aa' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT (CONSTANT ( INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 0 '40401')) 0 () () () 0 0)
'4') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 24 'bu' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 INTEGER ()) 0 '4')) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
13 'bb' '' 'bb' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 0 '201')) 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 25 'dbun' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
'7')) 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
19 'nit' '' 'nit' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 26 'db' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
14 'a' '' 'a' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 0 '201')) 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 27 'sq' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
'1407')) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
20 'infr' '' 'infr' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ())
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 0 '201')) 0 () () () 0 0)
15 'da' '' 'da' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 28 'vder' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 29 'nit' '' '' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
'7')) 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
16 'vder' '' 'vder' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 30 'n' '' '' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
17 'm' '' 'm' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 31 'infr' '' '' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
) )
('fi' 0 2 'mreg' 0 4 'rind' 0 3) ('fi' 0 2 'mreg' 0 3 'rind' 0 4)

40
pywafo/src/wafo/source/mreg/quadrmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 GFORTRAN module version '10' created from mregmodule.f
MD5:60519873a9b0b44a975f51ae49005353 -- If you edit this, you'll get what you deserve. MD5:28f744b94fb4ee56c4d53d5079b965d6 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,25 +14,25 @@ MD5:60519873a9b0b44a975f51ae49005353 -- If you edit this, you'll get what you de
() ()
(2 'h' 'quadrmod' 'h' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN (2 'h' 'quadrmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT ( UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0
INTEGER ()) 0 '126')) 0 () () () 0 0) INTEGER ()) 0 '126')) 0 () () () 0 0)
3 'i' 'quadrmod' 'i' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 3 'i' 'quadrmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
4 'nn' 'quadrmod' 'nn' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 4 'nn' 'quadrmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 DIMENSION DATA) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 IMPLICIT-SAVE 0 0 DIMENSION DATA) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (
EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
4 0 0 INTEGER ()) 0 '25')) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '25')) 0 () () () 0 0)
5 'nnw' 'quadrmod' 'nnw' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 5 'nnw' 'quadrmod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
6 'quadrmod' 'quadrmod' 'quadrmod' 1 ((MODULE UNKNOWN-INTENT 6 'quadrmod' 'quadrmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0
() () () 0 0) 0)
7 'z' 'quadrmod' 'z' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 7 'z' 'quadrmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT ( UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0
INTEGER ()) 0 '126')) 0 () () () 0 0) INTEGER ()) 0 '126')) 0 () () () 0 0)
) )

16
pywafo/src/wafo/source/mreg/rintmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 GFORTRAN module version '10' created from mregmodule.f
MD5:c272ea8a24ebb29c49c7755fa1ba58fd -- If you edit this, you'll get what you deserve. MD5:b066accfa9abc965446066977295c242 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,12 +14,12 @@ MD5:c272ea8a24ebb29c49c7755fa1ba58fd -- If you edit this, you'll get what you de
() ()
(2 'c' 'rintmod' 'c' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN (2 'c' 'rintmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
3 'fc' 'rintmod' 'fc' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 3 'fc' 'rintmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
4 'rintmod' 'rintmod' 'rintmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 4 'rintmod' 'rintmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
) )
('c' 0 2 'fc' 0 3 'rintmod' 0 4) ('c' 0 2 'fc' 0 3 'rintmod' 0 4)

26
pywafo/src/wafo/source/mreg/sizemod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 GFORTRAN module version '10' created from mregmodule.f
MD5:9fbc3ee9bf9bf359ed3c3cd78067ab58 -- If you edit this, you'll get what you deserve. MD5:045224226b5a92ce3fb027e2c0064e27 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,17 +14,17 @@ MD5:9fbc3ee9bf9bf359ed3c3cd78067ab58 -- If you edit this, you'll get what you de
() ()
(2 'mmax' 'sizemod' 'mmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC (2 'mmax' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0)
3 'nmax' 'sizemod' 'nmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 3 'nmax' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '201') () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '201') () 0 () () () 0 0)
4 'rdim' 'sizemod' 'rdim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 4 'rdim' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '40401') () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '40401') () 0 () () () 0 0)
5 'sizemod' 'sizemod' 'sizemod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 5 'sizemod' 'sizemod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
) )
('mmax' 0 2 'nmax' 0 3 'rdim' 0 4 'sizemod' 0 5) ('mmax' 0 2 'nmax' 0 3 'rdim' 0 4 'sizemod' 0 5)

152
pywafo/src/wafo/source/mreg/svd.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from dsvdc.f on Fri Apr 05 14:43:21 2013 GFORTRAN module version '10' created from dsvdc.f
MD5:324936151a800ce072449221cf8c2383 -- If you edit this, you'll get what you deserve. MD5:abcd8831f7c356963533637fa7c27518 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,80 +14,80 @@ MD5:324936151a800ce072449221cf8c2383 -- If you edit this, you'll get what you de
() ()
(2 'dp' 'svd' 'dp' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN (2 'dp' 'svd' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
3 'drot1' 'svd' 'drot1' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 3 'drot1' 'svd' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN
UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 4 0 (5 6 7 8 9) () 0 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 4 0 (5 6 7 8
() () () 0 0) 9) () 0 () () () 0 0)
10 'drotg' 'svd' 'drotg' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 10 'drotg' 'svd' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 11 0 (12 13 14 15) () UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 11 0
0 () () () 0 0) (12 13 14 15) () 0 () () () 0 0)
16 'dsvdc' 'svd' 'dsvdc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 16 'dsvdc' 'svd' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 17 0 UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN ()) 17
(18 19 20 21 22 23 24 25 26) () 0 () () () 0 0) 0 (18 19 20 21 22 23 24 25 26) () 0 () () () 0 0)
27 'dswap1' 'svd' 'dswap1' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 27 'dswap1' 'svd' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 28 0 (29 30 31) () 0 UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 28 0
() () () 0 0) (29 30 31) () 0 () () () 0 0)
32 'selected_real_kind' '(intrinsic)' 'selected_real_kind' 1 (( 32 'selected_real_kind' '(intrinsic)' '' 1 ((PROCEDURE UNKNOWN-INTENT
PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION) ( UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION) (UNKNOWN 0 0 0 0 UNKNOWN ())
UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 32 () () () 0 0) 0 0 () () 32 () () () 0 0)
33 'svd' 'svd' 'svd' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 33 'svd' 'svd' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
30 'dx' '' 'dx' 28 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 5 'n' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SIZE (CONSTANT ( INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 6 'dx' '' '' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
31 'dy' '' 'dy' 28 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SIZE (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SIZE (CONSTANT ( CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 7 'dy' '' '' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
8 'c' '' 'c' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SIZE (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
9 's' '' 's' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 8 'c' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
5 'n' '' 'n' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 9 's' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
6 'dx' '' 'dx' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 12 'da' '' '' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SIZE (CONSTANT ( (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 13 'db' '' '' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
7 'dy' '' 'dy' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SIZE (CONSTANT ( 14 'dc' '' '' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
21 's' '' 's' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 15 'ds' '' '' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 18 'x' '' '' 17 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
22 'e' '' 'e' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
23 'u' '' 'u' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 19 'n' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 20 'p' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
24 'v' '' 'v' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 21 's' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
0 '1') ()) 0 () () () 0 0) 22 'e' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
25 'job' '' 'job' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
26 'info' '' 'info' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 23 'u' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
18 'x' '' 'x' 17 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 24 'v' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 '1') ()) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
19 'n' '' 'n' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
20 'p' '' 'p' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 25 'job' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
15 'ds' '' 'ds' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 26 'info' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
12 'da' '' 'da' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 29 'n' '' '' 28 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
13 'db' '' 'db' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 30 'dx' '' '' 28 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SIZE (
14 'dc' '' 'dc' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 31 'dy' '' '' 28 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
29 'n' '' 'n' 28 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SIZE (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('dp' 0 2 'drot1' 0 3 'drotg' 0 10 'dsvdc' 0 16 'dswap1' 0 27 ('dp' 0 2 'drot1' 0 3 'drotg' 0 10 'dsvdc' 0 16 'dswap1' 0 27

36
pywafo/src/wafo/source/mreg/tbrmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 GFORTRAN module version '10' created from mregmodule.f
MD5:1ca9424273ef49cacfd88e3bffcc7949 -- If you edit this, you'll get what you deserve. MD5:4a3c9785928b78adb9e08df8fc7a2445 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
@ -14,23 +14,23 @@ MD5:1ca9424273ef49cacfd88e3bffcc7949 -- If you edit this, you'll get what you de
() ()
(2 'hh' 'tbrmod' 'hh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN (2 'hh' 'tbrmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT ( IMPLICIT-SAVE 0 0 DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0
INTEGER ()) 0 '201')) 0 () () () 0 0) INTEGER ()) 0 '201')) 0 () () () 0 0)
3 'mmax' 'sizemod' 'mmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 3 'mmax' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0)
4 'nmax' 'sizemod' 'nmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 4 'nmax' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '201') () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '201') () 0 () () () 0 0)
5 'rdim' 'sizemod' 'rdim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 5 'rdim' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '40401') () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '40401') () 0 () () () 0 0)
6 'sizemod' 'sizemod' 'sizemod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 6 'sizemod' 'sizemod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
7 'tbrmod' 'tbrmod' 'tbrmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 7 'tbrmod' 'tbrmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
) )
('hh' 0 2 'mmax' 0 3 'nmax' 0 4 'rdim' 0 5 'sizemod' 0 6 'tbrmod' 0 7) ('hh' 0 2 'mmax' 0 3 'nmax' 0 4 'rdim' 0 5 'sizemod' 0 6 'tbrmod' 0 7)

BIN
pywafo/src/wafo/source/mvn/mvn.pyd
View File

Binary file not shown.

191
pywafo/src/wafo/source/mvnprd/adaptivegausskronrod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mvnprodcorrprb.f on Tue Mar 27 09:05:10 2012 GFORTRAN module version '10' created from mvnprodcorrprb.f
MD5:890492d834c402a25f8ffb901b047b9e -- If you edit this, you'll get what you deserve. MD5:4cf088ac31844fc439b9335751705634 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,102 +14,103 @@ MD5:890492d834c402a25f8ffb901b047b9e -- If you edit this, you'll get what you de
() ()
(2 'dqagp' 'adaptivegausskronrod' 'dqagp' 1 ((PROCEDURE UNKNOWN-INTENT (2 'dqagp' 'adaptivegausskronrod' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0
()) 4 0 (5 6 7 8 9 10 11 12 13 14 15 16) () 0 () () () 0 0) UNKNOWN ()) 4 0 (5 6 7 8 9 10 11 12 13 14 15 16) () 0 () () () 0 0)
3 'dqagpe' 'adaptivegausskronrod' 'dqagpe' 1 ((PROCEDURE UNKNOWN-INTENT 3 'dqagpe' 'adaptivegausskronrod' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0
()) 17 0 (18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38) UNKNOWN ()) 17 0 (18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
() 0 () () () 0 0) 36 37 38) () 0 () () () 0 0)
5 'f' '' 'f' 4 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 5 'f' '' '' 4 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
6 'a' '' 'a' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
7 'b' '' 'b' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
8 'npts' '' 'npts' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
9 'points' '' 'points' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
8 ())) 0 () () () 0 0)
10 'epsabs' '' 'epsabs' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
11 'epsrel' '' 'epsrel' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
12 'limit' '' 'limit' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
13 'result1' '' 'result1' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
14 'abserr' '' 'abserr' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
15 'neval' '' 'neval' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
16 'ier' '' 'ier' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
18 'f' '' 'f' 17 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0
0) 0)
19 'a' '' 'a' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 6 'a' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
20 'b' '' 'b' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 7 'b' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
21 'npts' '' 'npts' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 8 'npts' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
22 'points' '' 'points' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 9 'points' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ())
21 ())) 0 () () () 0 0) 0 8 ())) 0 () () () 0 0)
23 'epsabs' '' 'epsabs' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 10 'epsabs' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
24 'epsrel' '' 'epsrel' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 11 'epsrel' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
25 'limit' '' 'limit' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 12 'limit' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
26 'result' '' 'result' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 13 'result1' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
27 'abserr' '' 'abserr' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 14 'abserr' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
28 'neval' '' 'neval' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 15 'neval' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
29 'ier' '' 'ier' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 16 'ier' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
30 'alist' '' 'alist' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 18 'f' '' '' 17 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () ()
INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 0 0)
25 ())) 0 () () () 0 0) 19 'a' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
31 'blist' '' 'blist' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 20 'b' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
25 ())) 0 () () () 0 0) 21 'npts' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
32 'rlist' '' 'rlist' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 22 'points' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
25 ())) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ())
33 'elist' '' 'elist' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 0 21 ())) 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 23 'epsabs' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
25 ())) 0 () () () 0 0) 24 'epsrel' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
34 'pts' '' 'pts' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( 25 'limit' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
INTEGER 4 0 0 INTEGER ()) 0 '1') (OP (INTEGER 4 0 0 INTEGER ()) 0 PLUS ( (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 21 ()) (CONSTANT (INTEGER 4 0 0 26 'result' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER ()) 0 '2'))) 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
35 'iord' '' 'iord' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 27 'abserr' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT ( DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 28 'neval' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
29 'ier' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
30 'alist' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ())
0 25 ())) 0 () () () 0 0)
31 'blist' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ())
0 25 ())) 0 () () () 0 0)
32 'rlist' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ())
0 25 ())) 0 () () () 0 0)
33 'elist' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ())
0 25 ())) 0 () () () 0 0)
34 'pts' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
INTEGER 4 0 0 0 INTEGER ()) 0 '1') (OP (INTEGER 4 0 0 0 INTEGER ()) 0
PLUS (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 21 ()) (CONSTANT (INTEGER
4 0 0 0 INTEGER ()) 0 '2'))) 0 () () () 0 0)
35 'iord' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT (
CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0
INTEGER ()) 0 25 ())) 0 () () () 0 0) INTEGER ()) 0 25 ())) 0 () () () 0 0)
36 'level' '' 'level' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 36 'level' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT ( DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0
INTEGER ()) 0 25 ())) 0 () () () 0 0) INTEGER ()) 0 25 ())) 0 () () () 0 0)
37 'ndin' '' 'ndin' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 37 'ndin' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT ( DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (OP (INTEGER 4 0 0 INTEGER ()) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (OP (INTEGER 4 0 0 0
0 PLUS (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 21 ()) (CONSTANT (INTEGER INTEGER ()) 0 PLUS (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 21 ()) (
4 0 0 INTEGER ()) 0 '2'))) 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2'))) 0 () () () 0 0)
38 'last' '' 'last' 17 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 38 'last' '' '' 17 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
) )
('dqagp' 0 2 'dqagpe' 0 3) ('dqagp' 0 2 'dqagpe' 0 3)

76
pywafo/src/wafo/source/mvnprd/erfcoremod.mod
Unescape Escape View File

@ -1,13 +1,13 @@
GFORTRAN module version '4' created from mvnprodcorrprb.f on Mon Feb 18 02:58:24 2013 GFORTRAN module version '10' created from mvnprodcorrprb.f
MD5:3c74315b2657777cdd2d82ef024b4aea -- If you edit this, you'll get what you deserve. MD5:d50eebbb2a58cec28466fffd901e30ce -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
() ()
(('derf' 'erfcoremod' 2) ('calerf' 'erfcoremod' 3) ('derfcx' 'erfcoremod' (('calerf' 'erfcoremod' 2) ('derf' 'erfcoremod' 3) ('derfc' 'erfcoremod'
4) ('derfc' 'erfcoremod' 5)) 4) ('derfcx' 'erfcoremod' 5))
() ()
@ -15,39 +15,39 @@ MD5:3c74315b2657777cdd2d82ef024b4aea -- If you edit this, you'll get what you de
() ()
(3 'calerf' 'erfcoremod' 'calerf' 1 ((PROCEDURE UNKNOWN-INTENT (2 'calerf' 'erfcoremod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN DECL UNKNOWN 0 0 SUBROUTINE GENERIC IMPLICIT_PURE) (UNKNOWN 0 0 0 0
()) 6 0 (7 8 9) () 0 () () () 0 0) UNKNOWN ()) 6 0 (7 8 9) () 0 () () () 0 0)
2 'derf' 'erfcoremod' 'derf' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 3 'derf' 'erfcoremod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 10 0 (11) () 12 UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 10 0 (11) () 12 ()
() () () 0 0) () () 0 0)
5 'derfc' 'erfcoremod' 'derfc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 4 'derfc' 'erfcoremod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 13 0 (14) () 15 UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 13 0 (14) () 15 ()
() () () 0 0) () () 0 0)
4 'derfcx' 'erfcoremod' 'derfcx' 1 ((PROCEDURE UNKNOWN-INTENT 5 'derfcx' 'erfcoremod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
MODULE-PROC DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 16 0 UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 16 0 (17) () 18 ()
(17) () 18 () () () 0 0) () () 0 0)
19 'erfcoremod' 'erfcoremod' 'erfcoremod' 1 ((MODULE UNKNOWN-INTENT 19 'erfcoremod' 'erfcoremod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0
() () () 0 0) 0)
11 'x' '' 'x' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 7 'arg' '' '' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
12 'value' '' 'value' 10 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 8 'result' '' '' 6 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
14 'x' '' 'x' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 9 'jint' '' '' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
15 'value' '' 'value' 13 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 11 'x' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
17 'x' '' 'x' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 12 'value' '' '' 10 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
18 'value' '' 'value' 16 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 14 'x' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
7 'arg' '' 'arg' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 15 'value' '' '' 13 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
8 'result' '' 'result' 6 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 17 'x' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'jint' '' 'jint' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 18 'value' '' '' 16 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
) )
('calerf' 0 3 'derf' 0 2 'derfc' 0 5 'derfcx' 0 4 'erfcoremod' 0 19) ('calerf' 0 2 'derf' 0 3 'derfc' 0 4 'derfcx' 0 5 'erfcoremod' 0 19)

24
pywafo/src/wafo/source/mvnprd/functioninterface.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mvnprodcorrprb.f on Tue Mar 27 09:05:10 2012 GFORTRAN module version '10' created from mvnprodcorrprb.f
MD5:98dc6085ed18b1d1cace7efd77465292 -- If you edit this, you'll get what you deserve. MD5:2635116f2ab857b1a31d22224a34abc8 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,16 +14,16 @@ MD5:98dc6085ed18b1d1cace7efd77465292 -- If you edit this, you'll get what you de
() ()
(2 'f' 'functioninterface' 'f' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC (2 'f' 'functioninterface' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
BODY UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 REAL ()) 3 0 (4) () 5 () BODY UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 0 REAL ()) 3 0 (4) () 5
() () 0 0) () () () 0 0)
6 'functioninterface' 'functioninterface' 'functioninterface' 1 (( 6 'functioninterface' 'functioninterface' '' 1 ((MODULE UNKNOWN-INTENT
MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () ()
UNKNOWN ()) 0 0 () () 0 () () () 0 0) 0 () () () 0 0)
4 'z' '' 'z' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 4 'z' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
5 'val' '' 'val' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 5 'val' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
) )
('f' 0 2 'functioninterface' 0 6) ('f' 0 2 'functioninterface' 0 6)

464
pywafo/src/wafo/source/mvnprd/integration1dmodule.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mvnprodcorrprb.f on Tue Mar 27 09:05:10 2012 GFORTRAN module version '10' created from mvnprodcorrprb.f
MD5:c511a9aa7e31370eaf1e1a904f0a7c1c -- If you edit this, you'll get what you deserve. MD5:c465e58723b4af4dc6c95dff6bfd5851 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
@ -7,8 +7,8 @@ MD5:c511a9aa7e31370eaf1e1a904f0a7c1c -- If you edit this, you'll get what you de
() ()
(('adaptivesimpson' 'integration1dmodule' 2 3) ('adaptivetrapz' (('adaptivesimpson' 'integration1dmodule' 2 3) ('adaptivetrapz'
'integration1dmodule' 4 5) ('d1mach' 'integration1dmodule' 6) ('romberg' 'integration1dmodule' 4 5) ('d1mach' 'integration1dmodule' 6) ('dea'
'integration1dmodule' 7 8) ('dea' 'integration1dmodule' 9)) 'integration1dmodule' 7) ('romberg' 'integration1dmodule' 8 9))
() ()
@ -16,237 +16,237 @@ MD5:c511a9aa7e31370eaf1e1a904f0a7c1c -- If you edit this, you'll get what you de
() ()
(10 'adaptiveintwithbreaks' 'integration1dmodule' 'adaptiveintwithbreaks' (10 'adaptiveintwithbreaks' 'integration1dmodule' '' 1 ((PROCEDURE
1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 11 0 (12 13 14 15 16 17 18 (UNKNOWN 0 0 0 0 UNKNOWN ()) 11 0 (12 13 14 15 16 17 18 19 20) () 0 () ()
19 20) () 0 () () () 0 0) () 0 0)
21 'adaptivesimpson1' 'integration1dmodule' 'adaptivesimpson1' 1 (( 21 'adaptivesimpson1' 'integration1dmodule' '' 1 ((PROCEDURE
PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) ( UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0
UNKNOWN 0 0 0 UNKNOWN ()) 22 0 (23 24 25 26 27 28 29) () 0 () () () 0 0) UNKNOWN ()) 22 0 (23 24 25 26 27 28 29) () 0 () () () 0 0)
3 'adaptivesimpson2' 'integration1dmodule' 'adaptivesimpson2' 1 (( 3 'adaptivesimpson2' 'integration1dmodule' '' 1 ((PROCEDURE
PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) ( UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0
UNKNOWN 0 0 0 UNKNOWN ()) 30 0 (31 32 33 34 35 36 37) () 0 () () () 0 0) UNKNOWN ()) 30 0 (31 32 33 34 35 36 37) () 0 () () () 0 0)
38 'adaptivesimpson3' 'integration1dmodule' 'adaptivesimpson3' 1 (( 38 'adaptivesimpson3' 'integration1dmodule' '' 1 ((PROCEDURE
PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) ( UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0
UNKNOWN 0 0 0 UNKNOWN ()) 39 0 (40 41 42 43 44 45 46) () 0 () () () 0 0) UNKNOWN ()) 39 0 (40 41 42 43 44 45 46) () 0 () () () 0 0)
2 'adaptivesimpsonwithbreaks' 'integration1dmodule' 2 'adaptivesimpsonwithbreaks' 'integration1dmodule' '' 1 ((PROCEDURE
'adaptivesimpsonwithbreaks' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) (UNKNOWN 0 0 0 0 UNKNOWN ()) 47 0 (48 49 50 51 52 53 54 55 56) () 0 () ()
47 0 (48 49 50 51 52 53 54 55 56) () 0 () () () 0 0) () 0 0)
5 'adaptivetrapz1' 'integration1dmodule' 'adaptivetrapz1' 1 ((PROCEDURE 5 'adaptivetrapz1' 'integration1dmodule' '' 1 ((PROCEDURE UNKNOWN-INTENT
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 57
UNKNOWN ()) 57 0 (58 59 60 61 62 63 64) () 0 () () () 0 0) 0 (58 59 60 61 62 63 64) () 0 () () () 0 0)
4 'adaptivetrapzwithbreaks' 'integration1dmodule' 4 'adaptivetrapzwithbreaks' 'integration1dmodule' '' 1 ((PROCEDURE
'adaptivetrapzwithbreaks' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 65 0 (UNKNOWN 0 0 0 0 UNKNOWN ()) 65 0 (66 67 68 69 70 71 72 73 74) () 0 () ()
(66 67 68 69 70 71 72 73 74) () 0 () () () 0 0) () 0 0)
6 'd1mach' 'integration1dmodule' 'd1mach' 1 ((PROCEDURE UNKNOWN-INTENT 6 'd1mach' 'integration1dmodule' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 75 0 MODULE-PROC DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 75
(76) () 6 () () () 0 0) 0 (76) () 6 () () () 0 0)
9 'dea' 'integration1dmodule' 'dea' 1 ((PROCEDURE UNKNOWN-INTENT 7 'dea' 'integration1dmodule' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0
()) 77 0 (78 79 80 81 82 83 84) () 0 () () () 0 0) UNKNOWN ()) 77 0 (78 79 80 81 82 83 84) () 0 () () () 0 0)
85 'dea3' 'integration1dmodule' 'dea3' 1 ((PROCEDURE UNKNOWN-INTENT 85 'dea3' 'integration1dmodule' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 86 0 MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0
(87 88 89 90 91) () 0 () () () 0 0) UNKNOWN ()) 86 0 (87 88 89 90 91) () 0 () () () 0 0)
92 'integration1dmodule' 'integration1dmodule' 'integration1dmodule' 1 ( 92 'integration1dmodule' 'integration1dmodule' '' 1 ((MODULE
(MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0
UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN ()) 0 0 () () 0 () () () 0 0)
8 'romberg1' 'integration1dmodule' 'romberg1' 1 ((PROCEDURE 9 'romberg1' 'integration1dmodule' '' 1 ((PROCEDURE UNKNOWN-INTENT
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 93
UNKNOWN ()) 93 0 (94 95 96 97 98 99 100 101) () 0 () () () 0 0) 0 (94 95 96 97 98 99 100 101) () 0 () () () 0 0)
7 'rombergwithbreaks' 'integration1dmodule' 'rombergwithbreaks' 1 (( 8 'rombergwithbreaks' 'integration1dmodule' '' 1 ((PROCEDURE
PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 102 0 (103 104 105 106 107 (UNKNOWN 0 0 0 0 UNKNOWN ()) 102 0 (103 104 105 106 107 108 109 110 111)
108 109 110 111) () 0 () () () 0 0) () 0 () () () 0 0)
76 'i' '' 'i' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 12 'f' '' '' 11 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () ()
87 'e0' '' 'e0' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 13 'a' '' '' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
88 'e1' '' 'e1' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 14 'b' '' '' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
89 'e2' '' 'e2' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 15 'n' '' '' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
90 'abserr' '' 'abserr' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 16 'brks' '' '' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
91 'result' '' 'result' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
78 'newflg' '' 'newflg' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 17 'epsi' '' '' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
79 'svalue' '' 'svalue' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 18 'iflg' '' '' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
80 'limexp' '' 'limexp' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 19 'abserr' '' '' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
81 'result' '' 'result' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 20 'val' '' '' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
82 'abserr' '' 'abserr' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 23 'f' '' '' 22 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0
0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 23 () () ()
83 'epstab' '' 'epstab' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0)
0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SIZE ( 24 'a' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
84 'ierr' '' 'ierr' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 25 'b' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
12 'f' '' 'f' 11 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 26 'epsi' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0) 27 'iflg' '' '' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
13 'a' '' 'a' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 28 'abserr' '' '' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
14 'b' '' 'b' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 29 'val' '' '' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
15 'n' '' 'n' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 31 'f' '' '' 30 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0
16 'brks' '' 'brks' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 31 () () ()
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 32 'a' '' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
17 'epsi' '' 'epsi' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 33 'b' '' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
18 'iflg' '' 'iflg' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 34 'epsi' '' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
19 'abserr' '' 'abserr' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 35 'iflg' '' '' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
20 'val' '' 'val' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 36 'abserr' '' '' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
48 'f' '' 'f' 47 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 37 'val' '' '' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
49 'a' '' 'a' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 40 'f' '' '' 39 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 40 () () ()
50 'b' '' 'b' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 41 'a' '' '' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
51 'n' '' 'n' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 42 'b' '' '' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
52 'brks' '' 'brks' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 43 'epsi' '' '' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
53 'epsi' '' 'epsi' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 44 'iflg' '' '' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
54 'iflg' '' 'iflg' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 45 'abserr' '' '' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
55 'abserr' '' 'abserr' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 46 'val' '' '' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
56 'val' '' 'val' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 48 'f' '' '' 47 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () ()
23 'f' '' 'f' 22 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0 0 0)
0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 23 () () () 0 49 'a' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
24 'a' '' 'a' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 50 'b' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
25 'b' '' 'b' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 51 'n' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
26 'epsi' '' 'epsi' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 52 'brks' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
27 'iflg' '' 'iflg' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 53 'epsi' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
28 'abserr' '' 'abserr' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 54 'iflg' '' '' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
29 'val' '' 'val' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 55 'abserr' '' '' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
31 'f' '' 'f' 30 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 31 () () () 0 56 'val' '' '' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
32 'a' '' 'a' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 58 'f' '' '' 57 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 58 () () ()
33 'b' '' 'b' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 59 'a' '' '' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
34 'epsi' '' 'epsi' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 60 'b' '' '' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
35 'iflg' '' 'iflg' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 61 'epsi' '' '' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
36 'abserr' '' 'abserr' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 62 'iflg' '' '' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
37 'val' '' 'val' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 63 'abserr' '' '' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
40 'f' '' 'f' 39 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 40 () () () 0 64 'val' '' '' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
41 'a' '' 'a' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 66 'f' '' '' 65 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () ()
42 'b' '' 'b' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 67 'a' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
43 'epsi' '' 'epsi' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 68 'b' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
44 'iflg' '' 'iflg' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 69 'n' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
45 'abserr' '' 'abserr' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 70 'brks' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
46 'val' '' 'val' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
66 'f' '' 'f' 65 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 71 'epsi' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0) 72 'iflg' '' '' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
67 'a' '' 'a' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 73 'abserr' '' '' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
68 'b' '' 'b' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 74 'val' '' '' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
69 'n' '' 'n' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 76 'i' '' '' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
70 'brks' '' 'brks' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 78 'newflg' '' '' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) DUMMY) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
71 'epsi' '' 'epsi' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 79 'svalue' '' '' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
72 'iflg' '' 'iflg' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 80 'limexp' '' '' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
73 'abserr' '' 'abserr' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 81 'result' '' '' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
74 'val' '' 'val' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 82 'abserr' '' '' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
58 'f' '' 'f' 57 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0 83 'epstab' '' '' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 58 () () () 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SIZE (
0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
59 'a' '' 'a' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 84 'ierr' '' '' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
60 'b' '' 'b' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 87 'e0' '' '' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
61 'epsi' '' 'epsi' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 88 'e1' '' '' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
62 'iflg' '' 'iflg' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 89 'e2' '' '' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
63 'abserr' '' 'abserr' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 90 'abserr' '' '' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
64 'val' '' 'val' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 91 'result' '' '' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
103 'f' '' 'f' 102 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 94 'f' '' '' 93 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0
UNKNOWN 0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 94 () () ()
() () 0 0) 0 0)
104 'a' '' 'a' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 95 'a' '' '' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
105 'b' '' 'b' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 96 'b' '' '' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
106 'n' '' 'n' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 97 'decdigs' '' '' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
107 'brks' '' 'brks' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 98 'abseps' '' '' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 99 'errflg' '' '' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
108 'epsi' '' 'epsi' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 100 'abserr' '' '' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
109 'iflg' '' 'iflg' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 101 'val' '' '' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
110 'abserr' '' 'abserr' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 103 'f' '' '' 102 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
111 'val' '' 'val' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 UNKNOWN 0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) () () () 0 0)
94 'f' '' 'f' 93 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0 104 'a' '' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 94 () () () 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0) 105 'b' '' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
95 'a' '' 'a' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 106 'n' '' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
96 'b' '' 'b' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 107 'brks' '' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
97 'decdigs' '' 'decdigs' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
98 'abseps' '' 'abseps' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 108 'epsi' '' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
99 'errflg' '' 'errflg' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 109 'iflg' '' '' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
100 'abserr' '' 'abserr' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 110 'abserr' '' '' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
101 'val' '' 'val' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 111 'val' '' '' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
) )
('adaptiveintwithbreaks' 0 10 'adaptivesimpson1' 0 21 'adaptivesimpson2' ('adaptiveintwithbreaks' 0 10 'adaptivesimpson1' 0 21 'adaptivesimpson2'
0 3 'adaptivesimpson3' 0 38 'adaptivesimpsonwithbreaks' 0 2 0 3 'adaptivesimpson3' 0 38 'adaptivesimpsonwithbreaks' 0 2
'adaptivetrapz1' 0 5 'adaptivetrapzwithbreaks' 0 4 'd1mach' 0 6 'dea' 0 'adaptivetrapz1' 0 5 'adaptivetrapzwithbreaks' 0 4 'd1mach' 0 6 'dea' 0
9 'dea3' 0 85 'integration1dmodule' 0 92 'romberg1' 0 8 7 'dea3' 0 85 'integration1dmodule' 0 92 'romberg1' 0 9
'rombergwithbreaks' 0 7) 'rombergwithbreaks' 0 8)

BIN
pywafo/src/wafo/source/mvnprd/mvnprdmod.pyd
View File

Binary file not shown.

59
pywafo/src/wafo/source/mvnprd/mvnprodcorrprbmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from mvnprodcorrprb.f on Tue Mar 27 09:05:10 2012 GFORTRAN module version '10' created from mvnprodcorrprb.f
MD5:42ed7a885b5e63fb849ed2589623724d -- If you edit this, you'll get what you deserve. MD5:8740350189059c565ea73e4e38d4d956 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
@ -14,34 +14,33 @@ MD5:42ed7a885b5e63fb849ed2589623724d -- If you edit this, you'll get what you de
() ()
(2 'mvnprodcorrprb' 'mvnprodcorrprbmod' 'mvnprodcorrprb' 1 ((PROCEDURE (2 'mvnprodcorrprb' 'mvnprodcorrprbmod' '' 1 ((PROCEDURE UNKNOWN-INTENT
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (
ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4 5 6 7 8 9 10 11 12 13) UNKNOWN 0 0 0 0 UNKNOWN ()) 3 0 (4 5 6 7 8 9 10 11 12 13) () 0 () () ()
() 0 () () () 0 0) 0 0)
4 'rho' '' 'rho' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 4 'rho' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
5 'a' '' 'a' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION 5 'a' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
6 'b' '' 'b' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION 6 'b' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
7 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 7 'abseps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
8 'releps' '' 'releps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 8 'releps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'usebreakpoints' '' 'usebreakpoints' 3 ((VARIABLE IN UNKNOWN-PROC 9 'usebreakpoints' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () 0 DUMMY) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
() 0 0) 10 'usesimpson' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
10 'usesimpson' '' 'usesimpson' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 11 'abserr' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
11 'abserr' '' 'abserr' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 12 'errflg' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
12 'errflg' '' 'errflg' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 13 'prb' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
13 'prb' '' 'prb' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
) )
('mvnprodcorrprb' 0 2) ('mvnprodcorrprb' 0 2)

108
pywafo/src/wafo/source/rind2007/adaptmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from intmodule.f on Fri Apr 05 14:43:34 2013 GFORTRAN module version '10' created from intmodule.f
MD5:eb86eb23c4dd9c63b34e5099ef78d184 -- If you edit this, you'll get what you deserve. MD5:6b832f3082aec892583a61a9998cf5eb -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,58 +14,58 @@ MD5:eb86eb23c4dd9c63b34e5099ef78d184 -- If you edit this, you'll get what you de
() ()
(2 'adapt' 'adaptmod' 'adapt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC (2 'adapt' 'adaptmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 4 0 (5 6 UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 4 0 (5 6 7
7 8 9 10 11 12 13) () 0 () () () 0 0) 8 9 10 11 12 13) () 0 () () () 0 0)
3 'sadapt' 'adaptmod' 'sadapt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 3 'sadapt' 'adaptmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 14 0 ( UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 14 0 (15 16
15 16 17 18 19 20 21 22) () 0 () () () 0 0) 17 18 19 20 21 22) () 0 () () () 0 0)
18 'abseps' '' 'abseps' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 5 'ndim' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
19 'releps' '' 'releps' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 6 'mincls' '' '' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
20 'error' '' 'error' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 7 'maxcls' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
21 'value' '' 'value' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 8 'functn' '' '' 4 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY UNKNOWN
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 23 0 (24 25)
22 'inform' '' 'inform' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 () 8 () () () 0 0)
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 9 'absreq' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
15 'n' '' 'n' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 10 'relreq' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
16 'maxpts' '' 'maxpts' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 11 'absest' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
17 'functn' '' 'functn' 14 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 23 0 ( 12 'finest' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
24 25) () 17 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
24 'n' '' 'n' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 13 'inform' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
25 'z' '' 'z' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 15 'n' '' '' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 16 'maxpts' '' '' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
8 'functn' '' 'functn' 4 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 26 0 ( 17 'functn' '' '' 14 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY
27 28) () 8 () () () 0 0) UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 26 0
9 'absreq' '' 'absreq' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (27 28) () 17 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 18 'abseps' '' '' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
10 'relreq' '' 'relreq' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 19 'releps' '' '' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
11 'absest' '' 'absest' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 20 'error' '' '' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
12 'finest' '' 'finest' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 21 'value' '' '' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
5 'ndim' '' 'ndim' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 22 'inform' '' '' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
6 'mincls' '' 'mincls' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 24 'n' '' '' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
7 'maxcls' '' 'maxcls' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 25 'z' '' '' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
13 'inform' '' 'inform' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
27 'n' '' 'n' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 27 'n' '' '' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
28 'z' '' 'z' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 28 'z' '' '' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('adapt' 0 2 'sadapt' 0 3) ('adapt' 0 2 'sadapt' 0 3)

46
pywafo/src/wafo/source/rind2007/c1c2mod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from rind71mod.f on Fri Apr 05 14:43:36 2013 GFORTRAN module version '10' created from rind71mod.f
MD5:03dc18351a9cdc1dd505edc7a8479944 -- If you edit this, you'll get what you deserve. MD5:29854c062906bbb41e95ea0739b932af -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
@ -14,27 +14,27 @@ MD5:03dc18351a9cdc1dd505edc7a8479944 -- If you edit this, you'll get what you de
() ()
(2 'c1c2' 'c1c2mod' 'c1c2' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL (2 'c1c2' 'c1c2mod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) UNKNOWN 0 0 SUBROUTINE GENERIC IMPLICIT_PURE ALWAYS_EXPLICIT) (UNKNOWN 0
3 0 (4 5 6 7 8 9) () 0 () () () 0 0) 0 0 0 UNKNOWN ()) 3 0 (4 5 6 7 8 9) () 0 () () () 0 0)
10 'c1c2mod' 'c1c2mod' 'c1c2mod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 10 'c1c2mod' 'c1c2mod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
6 'cm' '' 'cm' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 4 'c1' '' '' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 5 'c2' '' '' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
9 'ind' '' 'ind' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE ( 6 'cm' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
5 'c2' '' 'c2' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 7 'b1' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
8 'sq' '' 'sq' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 8 'sq' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
4 'c1' '' 'c1' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
7 'b1' '' 'b1' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 9 'ind' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('c1c2' 0 2 'c1c2mod' 0 10) ('c1c2' 0 2 'c1c2mod' 0 10)

58
pywafo/src/wafo/source/rind2007/dkbvrcmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:13 2012 GFORTRAN module version '10' created from intmodule.f
MD5:b6f4cab19d3974f3ff5593102c4c0dfd -- If you edit this, you'll get what you deserve. MD5:5db9060e86b2574cd530f108139d8f83 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,33 +14,33 @@ MD5:b6f4cab19d3974f3ff5593102c4c0dfd -- If you edit this, you'll get what you de
() ()
(2 'dkbvrc' 'dkbvrcmod' 'dkbvrc' 1 ((PROCEDURE UNKNOWN-INTENT (2 'dkbvrc' 'dkbvrcmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 3 0 (4 5 6
()) 3 0 (4 5 6 7 8 9 10 11 12) () 0 () () () 0 0) 7 8 9 10 11 12) () 0 () () () 0 0)
4 'ndim' '' 'ndim' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 4 'ndim' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
5 'minvls' '' 'minvls' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 5 'minvls' '' '' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
6 'maxvls' '' 'maxvls' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 6 'maxvls' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
7 'functn' '' 'functn' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY 7 'functn' '' '' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY UNKNOWN
UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 13 0 ( 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 13 0 (14 15)
14 15) () 7 () () () 0 0) () 7 () () () 0 0)
8 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 8 'abseps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'releps' '' 'releps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 9 'releps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
10 'abserr' '' 'abserr' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 10 'abserr' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
11 'finest' '' 'finest' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 11 'finest' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
12 'inform' '' 'inform' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 12 'inform' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
14 'n' '' 'n' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 14 'n' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
15 'z' '' 'z' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 15 'z' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('dkbvrc' 0 2) ('dkbvrc' 0 2)

400
pywafo/src/wafo/source/rind2007/fimod.mod
Unescape Escape View File

@ -1,15 +1,15 @@
GFORTRAN module version '4' created from fimod.f on Tue Mar 27 09:05:13 2012 GFORTRAN module version '10' created from fimod.f
MD5:a146ceadee4e001c58457ec1a4dcc4bc -- If you edit this, you'll get what you deserve. MD5:91d910b9ce2741a570f24f5bec6fdc83 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
() ()
(('bvu' 'fimod' 2) ('bvtl' 'fimod' 3) ('exinv' 'fimod' 4) ('bvnmvn' (('bvnmvn' 'fimod' 2) ('bvtl' 'fimod' 3) ('bvu' 'fimod' 4) ('exinv'
'fimod' 5) ('fi' 'fimod' 6) ('fiinv' 'fimod' 7) ('gausint' 'fimod' 8) ( 'fimod' 5) ('exlms' 'fimod' 6) ('fi' 'fimod' 7) ('fiinv' 'fimod' 8) (
'mvnlimits' 'fimod' 9) ('normprb' 'fimod' 10) ('mvnlms' 'fimod' 11) ( 'gausint' 'fimod' 9) ('gausint2' 'fimod' 10) ('mvnlimits' 'fimod' 11) (
'gausint2' 'fimod' 12) ('tvtl' 'fimod' 13) ('studnt' 'fimod' 14) ('exlms' 'mvnlms' 'fimod' 12) ('normprb' 'fimod' 13) ('studnt' 'fimod' 14) ('tvtl'
'fimod' 15)) 'fimod' 15))
() ()
@ -18,200 +18,200 @@ MD5:a146ceadee4e001c58457ec1a4dcc4bc -- If you edit this, you'll get what you de
() ()
(5 'bvnmvn' 'fimod' 'bvnmvn' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC (2 'bvnmvn' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 16
16 0 (17 18 19 20) () 21 () () () 0 0) 0 (17 18 19 20) () 21 () () () 0 0)
3 'bvtl' 'fimod' 'bvtl' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 3 'bvtl' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 22 0 (23 24 25 26) () UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 22 0 (23 24 25 26)
3 () () () 0 0) () 3 () () () 0 0)
2 'bvu' 'fimod' 'bvu' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 4 'bvu' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN
UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 27 0 (28 29 30) () 31 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 27 0 (28 29 30) () 31 () ()
() () () 0 0)
4 'exinv' 'fimod' 'exinv' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 32 0 (33 34 35 36) ()
37 () () () 0 0)
15 'exlms' 'fimod' 'exlms' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 38 0 (39 40
41 42 43 44 45 46) () 0 () () () 0 0)
6 'fi' 'fimod' 'fi' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 47 0 (48) () 49 () ()
() 0 0)
7 'fiinv' 'fimod' 'fiinv' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 50 0 (51) () 52 () ()
() 0 0) () 0 0)
8 'gausint' 'fimod' 'gausint' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 5 'exinv' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 53 0 (54 55 56 UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 32 0 (33 34 35 36)
57 58 59) () 60 () () () 0 0) () 37 () () () 0 0)
12 'gausint2' 'fimod' 'gausint2' 1 ((PROCEDURE UNKNOWN-INTENT 6 'exlms' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
MODULE-PROC DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 61 0 UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 38 0 (39 40
(62 63 64 65) () 66 () () () 0 0) 41 42 43 44 45 46) () 0 () () () 0 0)
9 'mvnlimits' 'fimod' 'mvnlimits' 1 ((PROCEDURE UNKNOWN-INTENT 7 'fi' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) ( 0 0 FUNCTION GENERIC IMPLICIT_PURE) (REAL 8 0 0 0 REAL ()) 47 0 (48) ()
UNKNOWN 0 0 0 UNKNOWN ()) 67 0 (68 69 70 71 72 73) () 0 () () () 0 0) 49 () () () 0 0)
11 'mvnlms' 'fimod' 'mvnlms' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 8 'fiinv' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 74 0 ( UNKNOWN 0 0 FUNCTION GENERIC IMPLICIT_PURE) (REAL 8 0 0 0 REAL ()) 50 0
75 76 77 78 79) () 0 () () () 0 0) (51) () 52 () () () 0 0)
10 'normprb' 'fimod' 'normprb' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 9 'gausint' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 53 0 (54 55 56 57
UNKNOWN ()) 80 0 (81 82 83) () 0 () () () 0 0) 58 59) () 60 () () () 0 0)
14 'studnt' 'fimod' 'studnt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 10 'gausint2' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 84 0 (85 86) () UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 61 0 (62 63 64 65)
14 () () () 0 0) () 66 () () () 0 0)
87 'tvnmvn' 'fimod' 'tvnmvn' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 11 'mvnlimits' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 88 0 ( UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN
89 90 91 92 93) () 94 () () () 0 0) ()) 67 0 (68 69 70 71 72 73) () 0 () () () 0 0)
13 'tvtl' 'fimod' 'tvtl' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 12 'mvnlms' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 95 0 UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 74 0 (75 76
(96 97 98 99) () 13 () () () 0 0) 77 78 79) () 0 () () () 0 0)
51 'p' '' 'p' 50 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 13 'normprb' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 SUBROUTINE GENERIC IMPLICIT_PURE ALWAYS_EXPLICIT) (UNKNOWN 0
52 'val' '' 'val' 50 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 0 0 0 UNKNOWN ()) 80 0 (81 82 83) () 0 () () () 0 0)
UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 14 'studnt' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
81 'z' '' 'z' 80 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 84 0 (85 86) () 14
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) () () () 0 0)
82 'p' '' 'p' 80 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 87 'tvnmvn' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 88 0 (89 90
83 'q' '' 'q' 80 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 91 92 93) () 94 () () () 0 0)
OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 15 'tvtl' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
48 'z' '' 'z' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 95
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 (96 97 98 99) () 15 () () () 0 0)
49 'value' '' 'value' 47 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 17 'lower' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
68 'a' '' 'a' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 18 'upper' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
69 'b' '' 'b' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
70 'infin' '' 'infin' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 19 'infin' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE
71 'ap' '' 'ap' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 20 'correl' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
72 'prb' '' 'prb' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 21 'val' '' '' 16 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
73 'aq' '' 'aq' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () ()
OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 0)
75 'a' '' 'a' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 23 'nu' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
76 'b' '' 'b' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 24 'dh' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
77 'infin' '' 'infin' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 25 'dk' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
78 'lower' '' 'lower' 74 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 26 'r' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
79 'upper' '' 'upper' 74 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 28 'sh' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
89 'a' '' 'a' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 29 'sk' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 30 'r' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
90 'b' '' 'b' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 31 'val' '' '' 27 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
91 'infin' '' 'infin' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 33 'p' '' '' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE ( REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 34 'a' '' '' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
92 'r' '' 'r' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 35 'ca' '' '' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
93 'epsi' '' 'epsi' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 36 'pa' '' '' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
94 'val' '' 'val' 88 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 37 'val' '' '' 32 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
() () 0 0) 39 'a' '' '' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
17 'lower' '' 'lower' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 40 'x1' '' '' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
18 'upper' '' 'upper' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 41 'x2' '' '' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 42 'infin' '' '' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
19 'infin' '' 'infin' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE ( 43 'lower' '' '' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
20 'correl' '' 'correl' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 44 'upper' '' '' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
21 'val' '' 'val' 16 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 45 'ca' '' '' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
() () 0 0) 46 'pa' '' '' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
28 'sh' '' 'sh' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 48 'z' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
29 'sk' '' 'sk' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 49 'value' '' '' 47 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
30 'r' '' 'r' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 51 'p' '' '' 50 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
31 'val' '' 'val' 27 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 52 'val' '' '' 50 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
85 'nu' '' 'nu' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 54 'x1' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
86 't' '' 't' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 55 'x2' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
23 'nu' '' 'nu' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 56 'a' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
24 'dh' '' 'dh' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 57 'b' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
25 'dk' '' 'dk' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 58 'c' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
26 'r' '' 'r' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 59 'd' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
96 'nu1' '' 'nu1' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 60 'value' '' '' 53 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
97 'h' '' 'h' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 62 'x1' '' '' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
98 'r' '' 'r' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 63 'x2' '' '' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 64 'a' '' '' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
99 'epsi' '' 'epsi' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 65 'b' '' '' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
54 'x1' '' 'x1' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 66 'value' '' '' 61 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
55 'x2' '' 'x2' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 68 'a' '' '' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
56 'a' '' 'a' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 69 'b' '' '' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
57 'b' '' 'b' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 70 'infin' '' '' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
58 'c' '' 'c' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 71 'ap' '' '' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
59 'd' '' 'd' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 72 'prb' '' '' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
60 'value' '' 'value' 53 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 73 'aq' '' '' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
62 'x1' '' 'x1' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 75 'a' '' '' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
63 'x2' '' 'x2' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 76 'b' '' '' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
64 'a' '' 'a' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 77 'infin' '' '' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
65 'b' '' 'b' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 78 'lower' '' '' 74 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
66 'value' '' 'value' 61 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 79 'upper' '' '' 74 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
39 'a' '' 'a' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 81 'z' '' '' 80 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
40 'x1' '' 'x1' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 82 'p' '' '' 80 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
41 'x2' '' 'x2' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 83 'q' '' '' 80 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL
42 'infin' '' 'infin' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 85 'nu' '' '' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
43 'lower' '' 'lower' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 86 't' '' '' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
44 'upper' '' 'upper' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 89 'a' '' '' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
45 'ca' '' 'ca' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
46 'pa' '' 'pa' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 90 'b' '' '' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
33 'p' '' 'p' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 91 'infin' '' '' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
34 'a' '' 'a' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
35 'ca' '' 'ca' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 92 'r' '' '' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
36 'pa' '' 'pa' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 93 'epsi' '' '' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
37 'val' '' 'val' 32 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 94 'val' '' '' 88 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () ()
0 0)
96 'nu1' '' '' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
97 'h' '' '' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
98 'r' '' '' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
99 'epsi' '' '' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
) )
('bvnmvn' 0 5 'bvtl' 0 3 'bvu' 0 2 'exinv' 0 4 'exlms' 0 15 'fi' 0 6 ('bvnmvn' 0 2 'bvtl' 0 3 'bvu' 0 4 'exinv' 0 5 'exlms' 0 6 'fi' 0 7
'fiinv' 0 7 'gausint' 0 8 'gausint2' 0 12 'mvnlimits' 0 9 'mvnlms' 0 11 'fiinv' 0 8 'gausint' 0 9 'gausint2' 0 10 'mvnlimits' 0 11 'mvnlms' 0 12
'normprb' 0 10 'studnt' 0 14 'tvnmvn' 0 87 'tvtl' 0 13) 'normprb' 0 13 'studnt' 0 14 'tvnmvn' 0 87 'tvtl' 0 15)

88
pywafo/src/wafo/source/rind2007/funcmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from rind71mod.f on Tue Mar 27 09:05:15 2012 GFORTRAN module version '10' created from rind71mod.f
MD5:9f2decea4665f05cb1f13246613c3d3e -- If you edit this, you'll get what you deserve. MD5:6bcfb6bfc6e35ac2718a061882cb76df -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
@ -14,48 +14,48 @@ MD5:9f2decea4665f05cb1f13246613c3d3e -- If you edit this, you'll get what you de
() ()
(4 'big' 'funcmod' 'big' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC (4 'big' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () ( IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () (
2 DEFERRED () () () ()) 0 () () () 0 0) 2 0 DEFERRED () () () ()) 0 () () () 0 0)
5 'cm' 'funcmod' 'cm' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 5 'cm' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () (
DEFERRED () ()) 0 () () () 0 0) 1 0 DEFERRED () ()) 0 () () () 0 0)
6 'cmn' 'funcmod' 'cmn' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 6 'cmn' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () (
DEFERRED () ()) 0 () () () 0 0) 1 0 DEFERRED () ()) 0 () () () 0 0)
7 'funcmod' 'funcmod' 'funcmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 7 'funcmod' 'funcmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
2 'mvnfun' 'funcmod' 'mvnfun' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 2 'mvnfun' 'funcmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 8 0
8 0 (9 10) () 11 () () () 0 0) (9 10) () 11 () () () 0 0)
3 'mvnfun2' 'funcmod' 'mvnfun2' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 3 'mvnfun2' 'funcmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 12
12 0 (13 14) () 15 () () () 0 0) 0 (13 14) () 15 () () () 0 0)
16 'pl1' 'funcmod' 'pl1' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 16 'pl1' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
17 'pu1' 'funcmod' 'pu1' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 17 'pu1' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
18 'xc' 'funcmod' 'xc' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 18 'xc' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () (
DEFERRED () ()) 0 () () () 0 0) 1 0 DEFERRED () ()) 0 () () () 0 0)
19 'xd' 'funcmod' 'xd' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 19 'xd' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () (
DEFERRED () ()) 0 () () () 0 0) 1 0 DEFERRED () ()) 0 () () () 0 0)
9 'ndim' '' 'ndim' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 9 'ndim' '' '' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
10 'w' '' 'w' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION 10 'w' '' '' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
11 'xind' '' 'xind' 8 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 11 'xind' '' '' 8 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () ()
() () 0 0) 0 0)
13 'ndim' '' 'ndim' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 13 'ndim' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
14 'w' '' 'w' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 14 'w' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
15 'xind' '' 'xind' 12 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 15 'xind' '' '' 12 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 ()
() () 0 0) () () 0 0)
) )

94
pywafo/src/wafo/source/rind2007/globalconst.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from rindmod.f on Tue Mar 27 09:05:14 2012 GFORTRAN module version '10' created from rindmod.f
MD5:ae9c8f3a80b4cfd7e5dcaa5c3573dc85 -- If you edit this, you'll get what you deserve. MD5:f808c5946c0c41fb2c75e26aa349bbd9 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,51 +14,51 @@ MD5:ae9c8f3a80b4cfd7e5dcaa5c3573dc85 -- If you edit this, you'll get what you de
() ()
(2 'ghalf' 'globalconst' 'ghalf' 1 ((PARAMETER UNKNOWN-INTENT (2 'ghalf' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.80000000000000@0') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.80000000000000@0') () 0 () () () 0 0)
3 'ginfinity' 'globalconst' 'ginfinity' 1 ((PARAMETER UNKNOWN-INTENT 3 'ginfinity' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.25000000000000@2') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.25000000000000@2') () 0 () () () 0 0)
4 'globalconst' 'globalconst' 'globalconst' 1 ((MODULE UNKNOWN-INTENT 4 'globalconst' 'globalconst' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0
() () () 0 0) 0)
5 'gone' 'globalconst' 'gone' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 5 'gone' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
0 0 REAL ()) 0 '0.10000000000000@1') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.10000000000000@1') () 0 () () () 0 0)
6 'gpi' 'globalconst' 'gpi' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 6 'gpi' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
0 0 REAL ()) 0 '0.3243f6a8885a22@1') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.3243f6a8885a22@1') () 0 () () () 0 0)
7 'gpi1' 'globalconst' 'gpi1' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 7 'gpi1' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
0 0 REAL ()) 0 '0.517cc1b72721dc@0') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.517cc1b72721dc@0') () 0 () () () 0 0)
8 'gsqpi' 'globalconst' 'gsqpi' 1 ((PARAMETER UNKNOWN-INTENT 8 'gsqpi' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.1c5bf891b4ef7d@1') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.1c5bf891b4ef7d@1') () 0 () () () 0 0)
9 'gsqpi1' 'globalconst' 'gsqpi1' 1 ((PARAMETER UNKNOWN-INTENT 9 'gsqpi1' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.906eba8214dc78@0') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.906eba8214dc78@0') () 0 () () () 0 0)
10 'gsqtw' 'globalconst' 'gsqtw' 1 ((PARAMETER UNKNOWN-INTENT 10 'gsqtw' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.16a09e667f3be3@1') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.16a09e667f3be3@1') () 0 () () () 0 0)
11 'gsqtw1' 'globalconst' 'gsqtw1' 1 ((PARAMETER UNKNOWN-INTENT 11 'gsqtw1' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.b504f333f9df18@0') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.b504f333f9df18@0') () 0 () () () 0 0)
12 'gsqtwpi' 'globalconst' 'gsqtwpi' 1 ((PARAMETER UNKNOWN-INTENT 12 'gsqtwpi' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.281b263fec4e08@1') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.281b263fec4e08@1') () 0 () () () 0 0)
13 'gsqtwpi1' 'globalconst' 'gsqtwpi1' 1 ((PARAMETER UNKNOWN-INTENT 13 'gsqtwpi1' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.662114cf50d880@0') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.662114cf50d880@0') () 0 () () () 0 0)
14 'gtwo' 'globalconst' 'gtwo' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 14 'gtwo' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
0 0 REAL ()) 0 '0.20000000000000@1') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.20000000000000@1') () 0 () () () 0 0)
15 'gtwpi' 'globalconst' 'gtwpi' 1 ((PARAMETER UNKNOWN-INTENT 15 'gtwpi' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6487ed5110b444@1') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.6487ed5110b444@1') () 0 () () () 0 0)
16 'gzero' 'globalconst' 'gzero' 1 ((PARAMETER UNKNOWN-INTENT 16 'gzero' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0) REAL 8 0 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
) )
('ghalf' 0 2 'ginfinity' 0 3 'globalconst' 0 4 'gone' 0 5 'gpi' 0 6 'gpi1' ('ghalf' 0 2 'ginfinity' 0 3 'globalconst' 0 4 'gone' 0 5 'gpi' 0 6 'gpi1'

273
pywafo/src/wafo/source/rind2007/globaldata.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from rind71mod.f on Tue Mar 27 09:05:15 2012 GFORTRAN module version '10' created from rind71mod.f
MD5:64b6163cdd038fc7793132a2cb7cee10 -- If you edit this, you'll get what you deserve. MD5:60dce69be122281d64fa324954fe4b9a -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,141 +14,148 @@ MD5:64b6163cdd038fc7793132a2cb7cee10 -- If you edit this, you'll get what you de
() ()
(2 '__convert_r4_r8' '(intrinsic)' '__convert_r4_r8' 1 ((PROCEDURE (2 '__convert_r4_r8' '(intrinsic)' '' 1 ((PROCEDURE UNKNOWN-INTENT
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION ELEMENTAL PURE) UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION ELEMENTAL PURE) (REAL 8 0 0 0
(REAL 8 0 0 REAL ()) 0 0 () () 2 () () () 0 0) REAL ()) 0 0 () () 2 () () () 0 0)
3 'c1c2det' 'globaldata' 'c1c2det' 1 ((PARAMETER UNKNOWN-INTENT 3 'c1c2det' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () (
(CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0) CONSTANT (LOGICAL 4 0 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
4 'cepss' 'globaldata' 'cepss' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 4 'cepss' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
5 'cov' 'globaldata' 'cov' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 0)
UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () ( 5 'cov' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
1 DEFERRED () ()) 0 () () () 0 0) IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () (
6 'covix' 'globaldata' 'covix' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 1 0 DEFERRED () ()) 0 () () () 0 0)
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 6 'covix' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
7 'eps' 'globaldata' 'eps' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
8 'eps0' 'globaldata' 'eps0' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'eps2' 'globaldata' 'eps2' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
10 'epss' 'globaldata' 'epss' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
11 'fxcepss' 'globaldata' 'fxcepss' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0
() () () 0 0)
12 'globaldata' 'globaldata' 'globaldata' 1 ((MODULE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0
() () () 0 0)
13 'hlo' 'globaldata' 'hlo' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (
1 DEFERRED () ()) 0 () () () 0 0)
14 'hup' 'globaldata' 'hup' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (
1 DEFERRED () ()) 0 () () () 0 0)
15 'index1' 'globaldata' 'index1' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0
INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
16 'indxtd' 'globaldata' 'indxtd' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0
INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
17 'mb' 'globaldata' 'mb' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
18 'nc' 'globaldata' 'nc' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
19 'nd' 'globaldata' 'nd' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
20 'ni' 'globaldata' 'ni' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
21 'nit' 'globaldata' 'nit' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () ()
() 0 0) () 0 0)
22 'nj' 'globaldata' 'nj' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 7 'eps' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
8 'eps0' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
0)
9 'eps2' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
0)
10 'epss' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
0)
11 'fxcepss' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
0)
12 'globaldata' 'globaldata' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0
0)
13 'hlo' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ())
0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0)
14 'hup' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ())
0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0)
15 'index1' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 0
INTEGER ()) 0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0)
16 'indxtd' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 0
INTEGER ()) 0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0)
17 'mb' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
18 'nc' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
19 'nd' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
20 'ni' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
21 'nit' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
() 0 0) () 0 0)
23 'njj' 'globaldata' 'njj' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 22 'nj' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
23 'njj' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
() 0 0) () 0 0)
24 'nsimmax' 'globaldata' 'nsimmax' 1 ((VARIABLE UNKNOWN-INTENT 24 'nsimmax' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
() 0 () () () 0 0)
25 'nsimmin' 'globaldata' 'nsimmin' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
() 0 () () () 0 0)
26 'nsxdj' 'globaldata' 'nsxdj' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0
0 () (1 DEFERRED () ()) 0 () () () 0 0)
27 'nsxtmj' 'globaldata' 'nsxtmj' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0
INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
28 'nt' 'globaldata' 'nt' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
29 'ntd' 'globaldata' 'ntd' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
30 'ntdc' 'globaldata' 'ntdc' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
31 'ntscis' 'globaldata' 'ntscis' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
() 0 () () () 0 0)
32 'nugget' 'globaldata' 'nugget' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0
() () () 0 0)
33 'nx' 'globaldata' 'nx' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
34 'pi' 'globaldata' 'pi' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8
0 0 REAL ()) 0 '0.3243f6a8885a22@1') () 0 () () () 0 0)
35 'pi1' 'globaldata' 'pi1' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8
0 0 REAL ()) 0 '0.517cc1b72721dc@0') () 0 () () () 0 0)
36 'plowgth' 'globaldata' 'plowgth' 1 ((PARAMETER UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
37 'releps' 'globaldata' 'releps' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0
() () () 0 0)
38 'scis' 'globaldata' 'scis' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () ()
() 0 0) () 0 0)
39 'sq' 'globaldata' 'sq' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 25 'nsimmin' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
2 DEFERRED () () () ()) 0 () () () 0 0) () 0 0)
40 'sqpi' 'globaldata' 'sqpi' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 26 'nsxdj' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 0
0 0 REAL ()) 0 '0.1c5bf891b4ef7d@1') () 0 () () () 0 0) INTEGER ()) 0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0)
41 'sqpi1' 'globaldata' 'sqpi1' 1 ((PARAMETER UNKNOWN-INTENT 27 'nsxtmj' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 0
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.906eba8214dc78@0') () 0 () () () 0 0) INTEGER ()) 0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0)
42 'sqtwo' 'globaldata' 'sqtwo' 1 ((PARAMETER UNKNOWN-INTENT 28 'nt' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.16a09e667f3be3@1') () 0 () () () 0 0) 29 'ntd' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
43 'sqtwo1' 'globaldata' 'sqtwo1' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( () 0 0)
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.b504f333f9df18@0') () 0 () () () 0 0) 30 'ntdc' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
44 'sqtwopi1' 'globaldata' 'sqtwopi1' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( () 0 0)
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.662114cf50d880@0') () 0 () () () 0 0) 31 'ntscis' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
45 'twopi' 'globaldata' 'twopi' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () ( () 0 0)
CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6487ed5110b444@1') () 0 () () () 0 0) 32 'nugget' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
46 'usec1c2' 'globaldata' 'usec1c2' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () 0)
(CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0) 33 'nx' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
47 'xceps2' 'globaldata' 'xceps2' 1 ((VARIABLE UNKNOWN-INTENT IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 34 'pi' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
() () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
48 'xcscale' 'globaldata' 'xcscale' 1 ((VARIABLE UNKNOWN-INTENT REAL 8 0 0 0 REAL ()) 0 '0.3243f6a8885a22@1') () 0 () () () 0 0)
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 35 'pi1' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
() () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
49 'xcutoff' 'globaldata' 'xcutoff' 1 ((VARIABLE UNKNOWN-INTENT REAL 8 0 0 0 REAL ()) 0 '0.517cc1b72721dc@0') () 0 () () () 0 0)
UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 36 'plowgth' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
() () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
50 'xedni' 'globaldata' 'xedni' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC REAL 8 0 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 37 'releps' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
0 () (1 DEFERRED () ()) 0 () () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
51 'xsplt' 'globaldata' 'xsplt' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 0)
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 38 'scis' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
() 0 0)
39 'sq' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () (
2 0 DEFERRED () () () ()) 0 () () () 0 0)
40 'sqpi' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
REAL 8 0 0 0 REAL ()) 0 '0.1c5bf891b4ef7d@1') () 0 () () () 0 0)
41 'sqpi1' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
REAL 8 0 0 0 REAL ()) 0 '0.906eba8214dc78@0') () 0 () () () 0 0)
42 'sqtwo' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
REAL 8 0 0 0 REAL ()) 0 '0.16a09e667f3be3@1') () 0 () () () 0 0)
43 'sqtwo1' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
REAL 8 0 0 0 REAL ()) 0 '0.b504f333f9df18@0') () 0 () () () 0 0)
44 'sqtwopi1' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
REAL 8 0 0 0 REAL ()) 0 '0.662114cf50d880@0') () 0 () () () 0 0)
45 'twopi' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT (
REAL 8 0 0 0 REAL ()) 0 '0.6487ed5110b444@1') () 0 () () () 0 0)
46 'usec1c2' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () (
CONSTANT (LOGICAL 4 0 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
47 'xceps2' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
0)
48 'xcscale' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
0)
49 'xcutoff' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
0)
50 'xedni' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 0
INTEGER ()) 0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0)
51 'xsplt' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
0)
) )
('__convert_r4_r8' 0 2 'c1c2det' 0 3 'cepss' 0 4 'cov' 0 5 'covix' 0 6 ('__convert_r4_r8' 0 2 'c1c2det' 0 3 'cepss' 0 4 'cov' 0 5 'covix' 0 6

26
pywafo/src/wafo/source/rind2007/jacobmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from jacobmod.f on Tue Mar 27 09:05:13 2012 GFORTRAN module version '10' created from jacobmod.f
MD5:b29efb77c49d92c2e25a3931a79a5cbd -- If you edit this, you'll get what you deserve. MD5:7a6067e5bb3ccfd4f42952ae9bfa1ad5 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,17 +14,17 @@ MD5:b29efb77c49d92c2e25a3931a79a5cbd -- If you edit this, you'll get what you de
() ()
(2 'jacob' 'jacobmod' 'jacob' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC (2 'jacob' 'jacobmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) UNKNOWN 0 0 FUNCTION GENERIC IMPLICIT_PURE ALWAYS_EXPLICIT) (REAL 8 0 0
3 0 (4 5) () 6 () () () 0 0) 0 REAL ()) 3 0 (4 5) () 6 () () () 0 0)
4 'xd' '' 'xd' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 4 'xd' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
5 'xc' '' 'xc' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 5 'xc' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
6 'value1' '' 'value1' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 6 'value1' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 ()
() () 0 0) () () 0 0)
) )

58
pywafo/src/wafo/source/rind2007/krbvrcmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:12 2012 GFORTRAN module version '10' created from intmodule.f
MD5:5424d0fd5c64596edc31ebaf26119169 -- If you edit this, you'll get what you deserve. MD5:589ca1c63e3206ea8f2c160cd1272c74 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,33 +14,33 @@ MD5:5424d0fd5c64596edc31ebaf26119169 -- If you edit this, you'll get what you de
() ()
(2 'krbvrc' 'krbvrcmod' 'krbvrc' 1 ((PROCEDURE UNKNOWN-INTENT (2 'krbvrc' 'krbvrcmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 3 0 (4 5 6
()) 3 0 (4 5 6 7 8 9 10 11 12) () 0 () () () 0 0) 7 8 9 10 11 12) () 0 () () () 0 0)
4 'ndim' '' 'ndim' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 4 'ndim' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
5 'minvls' '' 'minvls' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 5 'minvls' '' '' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
6 'maxvls' '' 'maxvls' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 6 'maxvls' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
7 'functn' '' 'functn' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY 7 'functn' '' '' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY UNKNOWN
UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 13 0 ( 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 13 0 (14 15)
14 15) () 7 () () () 0 0) () 7 () () () 0 0)
8 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 8 'abseps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'releps' '' 'releps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 9 'releps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
10 'abserr' '' 'abserr' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 10 'abserr' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
11 'finest' '' 'finest' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 11 'finest' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
12 'inform' '' 'inform' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 12 'inform' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
14 'n' '' 'n' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 14 'n' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
15 'z' '' 'z' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 15 'z' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('krbvrc' 0 2) ('krbvrc' 0 2)

58
pywafo/src/wafo/source/rind2007/krobovmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from intmodule.f on Fri Apr 05 14:43:34 2013 GFORTRAN module version '10' created from intmodule.f
MD5:99db0c86db329df2a1ee0bbf67b9ec99 -- If you edit this, you'll get what you deserve. MD5:26b7b13d2d0907b2794fa7eafca04d0f -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,33 +14,33 @@ MD5:99db0c86db329df2a1ee0bbf67b9ec99 -- If you edit this, you'll get what you de
() ()
(2 'krobov' 'krobovmod' 'krobov' 1 ((PROCEDURE UNKNOWN-INTENT (2 'krobov' 'krobovmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 3 0 (4 5 6
()) 3 0 (4 5 6 7 8 9 10 11 12) () 0 () () () 0 0) 7 8 9 10 11 12) () 0 () () () 0 0)
4 'ndim' '' 'ndim' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 4 'ndim' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
8 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 5 'minvls' '' '' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
6 'maxvls' '' 'maxvls' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 6 'maxvls' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
9 'releps' '' 'releps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 7 'functn' '' '' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY UNKNOWN
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 13 0 (14 15)
11 'finest' '' 'finest' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 () 7 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 8 'abseps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
12 'inform' '' 'inform' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 9 'releps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
5 'minvls' '' 'minvls' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 10 'abserr' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
10 'abserr' '' 'abserr' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 11 'finest' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
7 'functn' '' 'functn' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 13 0 ( 12 'inform' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
14 15) () 7 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
15 'z' '' 'z' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 14 'n' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 15 'z' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
14 'n' '' 'n' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('krobov' 0 2) ('krobov' 0 2)

22
pywafo/src/wafo/source/rind2007/precisionmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:13 2012 GFORTRAN module version '10' created from intmodule.f
MD5:daade6aaa08988dd52027fc3fdef05b7 -- If you edit this, you'll get what you deserve. MD5:05080898712bd6dd12fae55e2dee5263 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,15 +14,15 @@ MD5:daade6aaa08988dd52027fc3fdef05b7 -- If you edit this, you'll get what you de
() ()
(2 'gp' 'precisionmod' 'gp' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC (2 'gp' 'precisionmod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (
INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
3 'precisionmod' 'precisionmod' 'precisionmod' 1 ((MODULE UNKNOWN-INTENT 3 'precisionmod' 'precisionmod' '' 1 ((MODULE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () ()
() () () 0 0) 0 () () () 0 0)
4 'selected_real_kind' '(intrinsic)' 'selected_real_kind' 1 ((PROCEDURE 4 'selected_real_kind' '(intrinsic)' '' 1 ((PROCEDURE UNKNOWN-INTENT
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION) (UNKNOWN 0 0 0 UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION) (UNKNOWN 0 0 0 0 UNKNOWN ())
UNKNOWN ()) 0 0 () () 4 () () () 0 0) 0 0 () () 4 () () () 0 0)
) )
('gp' 0 2 'precisionmod' 0 3 'selected_real_kind' 0 4) ('gp' 0 2 'precisionmod' 0 3 'selected_real_kind' 0 4)

509
pywafo/src/wafo/source/rind2007/quad.mod
Unescape Escape View File

@ -1,13 +1,13 @@
GFORTRAN module version '4' created from rind71mod.f on Fri Apr 05 14:43:36 2013 GFORTRAN module version '10' created from rind71mod.f
MD5:7894124eb6e1c7a3f817b6596dd96b5e -- If you edit this, you'll get what you deserve. MD5:1c9b25b1c3f920c049665fe552e92643 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
() ()
(('gausshe0' 'quad' 2) ('gaussle0' 'quad' 3) ('gaussle1' 'quad' 4) ( (('gausshe0' 'quad' 2) ('gaussla0' 'quad' 3) ('gaussle0' 'quad' 4) (
'gaussq' 'quad' 5) ('gaussle2' 'quad' 6) ('gaussla0' 'quad' 7)) 'gaussle1' 'quad' 5) ('gaussle2' 'quad' 6) ('gaussq' 'quad' 7))
() ()
@ -15,258 +15,259 @@ MD5:7894124eb6e1c7a3f817b6596dd96b5e -- If you edit this, you'll get what you de
() ()
(8 '__convert_r4_r8' '(intrinsic)' '__convert_r4_r8' 1 ((PROCEDURE (8 '__convert_r4_r8' '(intrinsic)' '' 1 ((PROCEDURE UNKNOWN-INTENT
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION ELEMENTAL PURE) UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION ELEMENTAL PURE) (REAL 8 0 0 0
(REAL 8 0 0 REAL ()) 0 0 () () 8 () () () 0 0) REAL ()) 0 0 () () 8 () () () 0 0)
2 'gausshe0' 'quad' 'gausshe0' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 2 'gausshe0' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN
UNKNOWN ()) 9 0 (10 11 12 13 14 15) () 0 () () () 0 0) ()) 9 0 (10 11 12 13 14 15) () 0 () () () 0 0)
7 'gaussla0' 'quad' 'gaussla0' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 3 'gaussla0' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN
UNKNOWN ()) 16 0 (17 18 19 20 21 22) () 0 () () () 0 0) ()) 16 0 (17 18 19 20 21 22) () 0 () () () 0 0)
3 'gaussle0' 'quad' 'gaussle0' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 4 'gaussle0' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN
UNKNOWN ()) 23 0 (24 25 26 27 28 29) () 0 () () () 0 0) ()) 23 0 (24 25 26 27 28 29) () 0 () () () 0 0)
4 'gaussle1' 'quad' 'gaussle1' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 5 'gaussle1' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN
UNKNOWN ()) 30 0 (31 32 33 34 35) () 0 () () () 0 0) ()) 30 0 (31 32 33 34 35) () 0 () () () 0 0)
6 'gaussle2' 'quad' 'gaussle2' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 6 'gaussle2' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN 0 0 SUBROUTINE GENERIC IMPLICIT_PURE ALWAYS_EXPLICIT) (UNKNOWN 0
UNKNOWN ()) 36 0 (37 38 39 40 41 42) () 0 () () () 0 0) 0 0 0 UNKNOWN ()) 36 0 (37 38 39 40 41 42) () 0 () () () 0 0)
5 'gaussq' 'quad' 'gaussq' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 7 'gaussq' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN
43 0 (44 45 46 47 48 49) () 0 () () () 0 0) ()) 43 0 (44 45 46 47 48 49) () 0 () () () 0 0)
50 'hebp' 'quad' 'hebp' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 50 'hebp' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT ( IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
INTEGER ()) 0 '126')) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0)
51 'heind' 'quad' 'heind' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 51 'heind' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY
ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) (INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ())
0 '0') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') ()) ((CONSTANT ( 0 '0') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') ()) ((
INTEGER 4 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0
0 '9') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14') ()) ((CONSTANT 0 0 INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14')
(INTEGER 4 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT (
()) 0 '27') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '35') ()) (( INTEGER 4 0 0 0 INTEGER ()) 0 '27') ()) ((CONSTANT (INTEGER 4 0 0 0
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '44') ()) ((CONSTANT (INTEGER 4 0 INTEGER ()) 0 '35') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '44')
0 INTEGER ()) 0 '54') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '66') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '54') ()) ((CONSTANT (
()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '82') ()) ((CONSTANT ( INTEGER 4 0 0 0 INTEGER ()) 0 '66') ()) ((CONSTANT (INTEGER 4 0 0 0
INTEGER 4 0 0 INTEGER ()) 0 '102') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER INTEGER ()) 0 '82') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '102')
()) 0 '126') ())) ('14')) (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '126') ())) ('14')) (1 0
0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0) EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
52 'heqnr' 'quad' 'heqnr' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC INTEGER 4 0 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0)
UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( 52 'heqnr' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY
0 '2') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') ()) ((CONSTANT ( (INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ())
INTEGER 4 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') ()) ((
0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') ()) ((CONSTANT ( CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0
INTEGER 4 0 0 INTEGER ()) 0 '7') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6')
0 '8') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9') ()) ((CONSTANT ( ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') ()) ((CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '10') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER INTEGER 4 0 0 0 INTEGER ()) 0 '8') ()) ((CONSTANT (INTEGER 4 0 0 0
()) 0 '12') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '16') ()) (( INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') ())
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT (INTEGER 4 0 ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') ()) ((CONSTANT (INTEGER
0 INTEGER ()) 0 '24') ())) ('13')) (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 4 0 0 0 INTEGER ()) 0 '16') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ())
INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13')) 0 () () 0 '20') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '24') ())) ('13'))
() 0 0) (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
53 'hewf' 'quad' 'hewf' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN INTEGER 4 0 0 0 INTEGER ()) 0 '13')) 0 () () () 0 0)
UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT ( 53 'hewf' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0
INTEGER ()) 0 '126')) 0 () () () 0 0) EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
54 'i' 'quad' 'i' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0)
UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 54 'i' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
55 'labp0' 'quad' 'labp0' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
UNKNOWN UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 55 'labp0' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0
4 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
56 'labp5' 'quad' 'labp5' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0)
UNKNOWN UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 56 'labp5' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0
4 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
57 'laind' 'quad' 'laind' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0)
UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( 57 'laind' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY
0 '0') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') ()) ((CONSTANT ( (INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ())
INTEGER 4 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') ()) ((
0 '9') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14') ()) ((CONSTANT CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0
(INTEGER 4 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER 0 0 INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14')
()) 0 '27') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '35') ()) (( ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '44') ()) ((CONSTANT (INTEGER 4 0 INTEGER 4 0 0 0 INTEGER ()) 0 '27') ()) ((CONSTANT (INTEGER 4 0 0 0
0 INTEGER ()) 0 '54') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '66') INTEGER ()) 0 '35') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '44')
()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '82') ()) ((CONSTANT ( ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '54') ()) ((CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '102') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER INTEGER 4 0 0 0 INTEGER ()) 0 '66') ()) ((CONSTANT (INTEGER 4 0 0 0
()) 0 '126') ())) ('14')) (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) INTEGER ()) 0 '82') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '102')
0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0) ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '126') ())) ('14')) (1 0
58 'laqnr' 'quad' 'laqnr' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( INTEGER 4 0 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0)
ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) 58 'laqnr' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
0 '2') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') ()) ((CONSTANT ( IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY
INTEGER 4 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) (INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ())
0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') ()) ((CONSTANT ( 0 '2') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') ()) ((
INTEGER 4 0 0 INTEGER ()) 0 '7') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0
0 '8') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9') ()) ((CONSTANT ( 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6')
INTEGER 4 0 0 INTEGER ()) 0 '10') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') ()) ((CONSTANT (
()) 0 '12') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '16') ()) (( INTEGER 4 0 0 0 INTEGER ()) 0 '8') ()) ((CONSTANT (INTEGER 4 0 0 0
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT (INTEGER 4 0 INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') ())
0 INTEGER ()) 0 '24') ())) ('13')) (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') ()) ((CONSTANT (INTEGER
INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13')) 0 () () 4 0 0 0 INTEGER ()) 0 '16') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ())
() 0 0) 0 '20') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '24') ())) ('13'))
59 'lawf0' 'quad' 'lawf0' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
UNKNOWN UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 INTEGER 4 0 0 0 INTEGER ()) 0 '13')) 0 () () () 0 0)
EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 59 'lawf0' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
4 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0
60 'lawf5' 'quad' 'lawf5' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
UNKNOWN UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0)
EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 60 'lawf5' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
4 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0
61 'le2qnr' 'quad' 'le2qnr' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0)
() 0 0) 61 'le2qnr' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
62 'lebp' 'quad' 'lebp' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT ( 62 'lebp' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0
INTEGER ()) 0 '126')) 0 () () () 0 0) EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
63 'leind' 'quad' 'leind' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0)
UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( 63 'leind' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY
0 '0') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') ()) ((CONSTANT ( (INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ())
INTEGER 4 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') ()) ((
0 '9') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14') ()) ((CONSTANT CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0
(INTEGER 4 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER 0 0 INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14')
()) 0 '27') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '35') ()) (( ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '44') ()) ((CONSTANT (INTEGER 4 0 INTEGER 4 0 0 0 INTEGER ()) 0 '27') ()) ((CONSTANT (INTEGER 4 0 0 0
0 INTEGER ()) 0 '54') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '66') INTEGER ()) 0 '35') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '44')
()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '82') ()) ((CONSTANT ( ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '54') ()) ((CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '102') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER INTEGER 4 0 0 0 INTEGER ()) 0 '66') ()) ((CONSTANT (INTEGER 4 0 0 0
()) 0 '126') ())) ('14')) (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) INTEGER ()) 0 '82') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '102')
0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0) ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '126') ())) ('14')) (1 0
64 'leqnr' 'quad' 'leqnr' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( INTEGER 4 0 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0)
ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) 64 'leqnr' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
0 '2') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') ()) ((CONSTANT ( IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY
INTEGER 4 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) (INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ())
0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') ()) ((CONSTANT ( 0 '2') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') ()) ((
INTEGER 4 0 0 INTEGER ()) 0 '7') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0
0 '8') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9') ()) ((CONSTANT ( 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6')
INTEGER 4 0 0 INTEGER ()) 0 '10') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') ()) ((CONSTANT (
()) 0 '12') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '16') ()) (( INTEGER 4 0 0 0 INTEGER ()) 0 '8') ()) ((CONSTANT (INTEGER 4 0 0 0
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT (INTEGER 4 0 INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') ())
0 INTEGER ()) 0 '24') ())) ('13')) (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') ()) ((CONSTANT (INTEGER
INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13')) 0 () () 4 0 0 0 INTEGER ()) 0 '16') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ())
() 0 0) 0 '20') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '24') ())) ('13'))
65 'lewf' 'quad' 'lewf' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT ( INTEGER 4 0 0 0 INTEGER ()) 0 '13')) 0 () () () 0 0)
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 65 'lewf' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
INTEGER ()) 0 '126')) 0 () () () 0 0) IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0
66 'minqnr' 'quad' 'minqnr' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0)
() 0 0) 66 'minqnr' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
67 'nhew' 'quad' 'nhew' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( 67 'nhew' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
68 'nint1' 'quad' 'nint1' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
UNKNOWN UNKNOWN 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 68 'nint1' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0
4 0 0 INTEGER ()) 0 '13')) 0 () () () 0 0) EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (
69 'nlaw' 'quad' 'nlaw' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC INTEGER 4 0 0 0 INTEGER ()) 0 '13')) 0 () () () 0 0)
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( 69 'nlaw' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
70 'nlew' 'quad' 'nlew' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( 70 'nlew' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
71 'pmax' 'quad' 'pmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( 71 'pmax' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
INTEGER 4 0 0 INTEGER ()) 0 '24') () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
72 'quad' 'quad' 'quad' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN INTEGER 4 0 0 0 INTEGER ()) 0 '24') () 0 () () () 0 0)
UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) 72 'quad' 'quad' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
73 'siznint' 'quad' 'siznint' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( 73 'siznint' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT (
31 'n' '' 'n' 30 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 10 'n' '' '' 9 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
32 'wfout' '' 'wfout' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 11 'wfout' '' '' 9 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
33 'bpout' '' 'bpout' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 12 'bpout' '' '' 9 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
34 'xmi' '' 'xmi' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 13 'xmi' '' '' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
35 'xma' '' 'xma' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 14 'xma' '' '' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
24 'n' '' 'n' 23 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 15 'n0' '' '' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
25 'wfout' '' 'wfout' 23 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 17 'n' '' '' 16 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
26 'bpout' '' 'bpout' 23 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 18 'wfout' '' '' 16 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
27 'xmi' '' 'xmi' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 19 'bpout' '' '' 16 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
28 'xma' '' 'xma' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 20 'xmi' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
29 'n0' '' 'n0' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 21 'xma' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
37 'n' '' 'n' 36 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 22 'n0' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
38 'wfout' '' 'wfout' 36 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 24 'n' '' '' 23 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
39 'bpout' '' 'bpout' 36 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 25 'wfout' '' '' 23 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
40 'xmi' '' 'xmi' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 26 'bpout' '' '' 23 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
41 'xma' '' 'xma' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 27 'xmi' '' '' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
42 'n0' '' 'n0' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 28 'xma' '' '' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
10 'n' '' 'n' 9 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 29 'n0' '' '' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
11 'wfout' '' 'wfout' 9 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 31 'n' '' '' 30 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
12 'bpout' '' 'bpout' 9 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 32 'wfout' '' '' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
13 'xmi' '' 'xmi' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 33 'bpout' '' '' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
14 'xma' '' 'xma' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 34 'xmi' '' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
15 'n0' '' 'n0' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 35 'xma' '' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
17 'n' '' 'n' 16 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 37 'n' '' '' 36 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
18 'wfout' '' 'wfout' 16 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 38 'wfout' '' '' 36 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
19 'bpout' '' 'bpout' 16 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 39 'bpout' '' '' 36 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
20 'xmi' '' 'xmi' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 40 'xmi' '' '' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
21 'xma' '' 'xma' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 41 'xma' '' '' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
22 'n0' '' 'n0' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 42 'n0' '' '' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
45 'wf' '' 'wf' 43 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 44 'n' '' '' 43 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
44 'n' '' 'n' 43 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 45 'wf' '' '' 43 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
46 'bp' '' 'bp' 43 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 46 'bp' '' '' 43 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
47 'xmi' '' 'xmi' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 47 'xmi' '' '' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
48 'xma' '' 'xma' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 48 'xma' '' '' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
49 'n0' '' 'n0' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 49 'n0' '' '' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
) )
('__convert_r4_r8' 0 8 'gausshe0' 0 2 'gaussla0' 0 7 'gaussle0' 0 3 ('__convert_r4_r8' 0 8 'gausshe0' 0 2 'gaussla0' 0 3 'gaussle0' 0 4
'gaussle1' 0 4 'gaussle2' 0 6 'gaussq' 0 5 'hebp' 0 50 'heind' 0 51 'gaussle1' 0 5 'gaussle2' 0 6 'gaussq' 0 7 'hebp' 0 50 'heind' 0 51
'heqnr' 0 52 'hewf' 0 53 'i' 0 54 'labp0' 0 55 'labp5' 0 56 'laind' 0 57 'heqnr' 0 52 'hewf' 0 53 'i' 0 54 'labp0' 0 55 'labp5' 0 56 'laind' 0 57
'laqnr' 0 58 'lawf0' 0 59 'lawf5' 0 60 'le2qnr' 0 61 'lebp' 0 62 'leind' 'laqnr' 0 58 'lawf0' 0 59 'lawf5' 0 60 'le2qnr' 0 61 'lebp' 0 62 'leind'
0 63 'leqnr' 0 64 'lewf' 0 65 'minqnr' 0 66 'nhew' 0 67 'nint1' 0 68 0 63 'leqnr' 0 64 'lewf' 0 65 'minqnr' 0 66 'nhew' 0 67 'nint1' 0 68

54
pywafo/src/wafo/source/rind2007/rcrudemod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from intmodule.f on Fri Apr 05 14:43:34 2013 GFORTRAN module version '10' created from intmodule.f
MD5:c88c5a15c480306fb971bd1e5ced587e -- If you edit this, you'll get what you deserve. MD5:07b8298075e9a9f54709398e56efc6eb -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,31 +14,31 @@ MD5:c88c5a15c480306fb971bd1e5ced587e -- If you edit this, you'll get what you de
() ()
(2 'ranmc' 'rcrudemod' 'ranmc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC (2 'ranmc' 'rcrudemod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4 5 UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 3 0 (4 5 6
6 7 8 9 10 11) () 0 () () () 0 0) 7 8 9 10 11) () 0 () () () 0 0)
8 'releps' '' 'releps' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 4 'n' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
9 'error' '' 'error' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 5 'maxpts' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
10 'value' '' 'value' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 6 'functn' '' '' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY UNKNOWN
UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 12 0 (13 14)
11 'inform' '' 'inform' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN () 6 () () () 0 0)
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 7 'abseps' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
4 'n' '' 'n' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 8 'releps' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
5 'maxpts' '' 'maxpts' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 9 'error' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
6 'functn' '' 'functn' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 12 0 ( 10 'value' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
13 14) () 6 () () () 0 0) UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
7 'abseps' '' 'abseps' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 11 'inform' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
13 'n' '' 'n' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 13 'n' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
14 'z' '' 'z' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 14 'z' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('ranmc' 0 2) ('ranmc' 0 2)

136
pywafo/src/wafo/source/rind2007/rind71mod.mod
Unescape Escape View File

@ -1,13 +1,13 @@
GFORTRAN module version '4' created from rind71mod.f on Fri Apr 05 14:43:37 2013 GFORTRAN module version '10' created from rind71mod.f
MD5:c5460e9301460ce17aef8031cd82ad57 -- If you edit this, you'll get what you deserve. MD5:08e55dca717f64ecaccc2cce27eb575a -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
() ()
(('echo' 'rind71mod' 2) ('initdata' 'rind71mod' 3) ('setdata' 'rind71mod' (('echo' 'rind71mod' 2) ('initdata' 'rind71mod' 3) ('rind71' 'rind71mod'
4) ('rind71' 'rind71mod' 5)) 4) ('setdata' 'rind71mod' 5))
() ()
@ -15,69 +15,69 @@ MD5:c5460e9301460ce17aef8031cd82ad57 -- If you edit this, you'll get what you de
() ()
(2 'echo' 'rind71mod' 'echo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC (2 'echo' 'rind71mod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN
UNKNOWN ()) 6 0 (7) () 0 () () () 0 0) ()) 6 0 (7) () 0 () () () 0 0)
3 'initdata' 'rind71mod' 'initdata' 1 ((PROCEDURE UNKNOWN-INTENT 3 'initdata' 'rind71mod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 8 0 (
()) 8 0 (9) () 0 () () () 0 0) 9) () 0 () () () 0 0)
5 'rind71' 'rind71mod' 'rind71' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 4 'rind71' 'rind71mod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN
UNKNOWN ()) 10 0 (11 12 13 14 15 16 17 18) () 0 () () () 0 0) ()) 10 0 (11 12 13 14 15 16 17 18) () 0 () () () 0 0)
4 'setdata' 'rind71mod' 'setdata' 1 ((PROCEDURE UNKNOWN-INTENT 5 'setdata' 'rind71mod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 19 0 (20 21
()) 19 0 (20 21 22 23 24 25 26 27 28) () 0 () () () 0 0) 22 23 24 25 26 27 28) () 0 () () () 0 0)
27 'dnint' '' 'dnint' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 7 'array' '' '' 6 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
28 'dxsplt' '' 'dxsplt' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
20 'method' '' 'method' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 9 'speed' '' '' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
23 'dreps' '' 'dreps' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 11 'fxind' '' '' 10 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
24 'deps2' '' 'deps2' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 12 'big1' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
25 'dnit' '' 'dnit' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
26 'dxc' '' 'dxc' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 13 'ex' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
21 'scale' '' 'scale' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
22 'depss' '' 'depss' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 14 'xc1' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
9 'speed' '' 'speed' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
7 'array' '' 'array' 6 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 15 'nt1' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT ( 16 'indi' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE
11 'fxind' '' 'fxind' 10 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 17 'blo' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
12 'big1' '' 'big1' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 18 'bup' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 '1') ()) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
13 'ex' '' 'ex' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 20 'method' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
14 'xc1' '' 'xc1' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT 21 'scale' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 '1') ()) 0 () () () 0 0) 22 'depss' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
15 'nt1' '' 'nt1' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 23 'dreps' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
16 'indi' '' 'indi' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE ( 24 'deps2' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
17 'blo' '' 'blo' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 25 'dnit' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 26 'dxc' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
0 '1') ()) 0 () () () 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
18 'bup' '' 'bup' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 27 'dnint' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 28 'dxsplt' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 '1') ()) 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
) )
('echo' 0 2 'initdata' 0 3 'rind71' 0 5 'setdata' 0 4) ('echo' 0 2 'initdata' 0 3 'rind71' 0 4 'setdata' 0 5)

185
pywafo/src/wafo/source/rind2007/rindmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from rindmod.f on Fri Apr 05 14:43:35 2013 GFORTRAN module version '10' created from rindmod.f
MD5:dcdbb9dedca21469ecd6ba2a3e2bf880 -- If you edit this, you'll get what you deserve. MD5:65b72428787a61c0a824d8a584a49497 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
@ -14,100 +14,99 @@ MD5:dcdbb9dedca21469ecd6ba2a3e2bf880 -- If you edit this, you'll get what you de
() ()
(4 'mabseps' 'rindmod' 'mabseps' 1 ((VARIABLE UNKNOWN-INTENT (4 'mabseps' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
() () () 0 0) 0)
5 'mcoveps' 'rindmod' 'mcoveps' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 5 'mcoveps' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
6 'mmaxpts' 'rindmod' 'mmaxpts' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 0)
UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 6 'mmaxpts' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
() 0 0) () 0 0)
7 'mmethod' 'rindmod' 'mmethod' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 7 'mmethod' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
() 0 0) () 0 0)
8 'mminpts' 'rindmod' 'mminpts' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 8 'mminpts' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
() 0 0) () 0 0)
9 'mnc1c2' 'rindmod' 'mnc1c2' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 9 'mnc1c2' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
() 0 0) 10 'mnit' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
10 'mnit' 'rindmod' 'mnit' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 11 'mreleps' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
() 0 0) UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
11 'mreleps' 'rindmod' 'mreleps' 1 ((VARIABLE UNKNOWN-INTENT 0)
UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 12 'msmall' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
() () () 0 0) UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
12 'msmall' 'rindmod' 'msmall' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 0)
UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 13 'mxcscale' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
13 'mxcscale' 'rindmod' 'mxcscale' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 0)
() () () 0 0) 14 'mxcutoff' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
14 'mxcutoff' 'rindmod' 'mxcutoff' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 0)
() () () 0 0) 2 'rindd' 'rindmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
2 'rindd' 'rindmod' 'rindd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN
DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 ()) 15 0 (16 17 18 19 20 21 22 23 24 25 26) () 0 () () () 0 0)
UNKNOWN ()) 15 0 (16 17 18 19 20 21 22 23 24 25 26) () 0 () () () 0 0) 3 'setconstants' 'rindmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
3 'setconstants' 'rindmod' 'setconstants' 1 ((PROCEDURE UNKNOWN-INTENT DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) ( UNKNOWN ()) 27 0 (28 29 30 31 32 33 34 35 36 37) () 0 () () () 0 0)
UNKNOWN 0 0 0 UNKNOWN ()) 27 0 (28 29 30 31 32 33 34 35 36 37) () 0 () () 16 'vals' '' '' 15 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
() 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
31 'releps' '' 'releps' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
0 OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 17 'err' '' '' 15 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
32 'coveps' '' 'coveps' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
0 OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
33 'maxpts' '' 'maxpts' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 18 'terr' '' '' 15 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
34 'minpts' '' 'minpts' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 19 'big' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
35 'nit' '' 'nit' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
36 'xcutoff' '' 'xcutoff' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
0 0 OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 20 'ex' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
37 'nc1c2' '' 'nc1c2' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
28 'method' '' 'method' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 21 'xc' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
29 'xcscale' '' 'xcscale' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
0 0 OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
30 'abseps' '' 'abseps' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 22 'nt' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
0 OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
16 'vals' '' 'vals' 15 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 23 'indi' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
17 'err' '' 'err' 15 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 24 'blo' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
18 'terr' '' 'terr' 15 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 25 'bup' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE (
19 'big' '' 'big' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 26 'infin' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 '1') ()) 0 () () () 0 0) DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE
20 'ex' '' 'ex' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT 28 'method' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) OPTIONAL DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
21 'xc' '' 'xc' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 29 'xcscale' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 30 'abseps' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 '1') ()) 0 () () () 0 0) OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
22 'nt' '' 'nt' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 31 'releps' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
23 'indi' '' 'indi' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 32 'coveps' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE ( OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 33 'maxpts' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
24 'blo' '' 'blo' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT 34 'minpts' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) OPTIONAL DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
0 '1') ()) 0 () () () 0 0) 35 'nit' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
25 'bup' '' 'bup' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT 36 'xcutoff' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 '1') ()) 0 () () () 0 0) 37 'nc1c2' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
26 'infin' '' 'infin' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('mabseps' 0 4 'mcoveps' 0 5 'mmaxpts' 0 6 'mmethod' 0 7 'mminpts' 0 8 ('mabseps' 0 4 'mcoveps' 0 5 'mmaxpts' 0 6 'mmethod' 0 7 'mminpts' 0 8

BIN
pywafo/src/wafo/source/rind2007/rindmod.pyd
View File

Binary file not shown.

108
pywafo/src/wafo/source/rind2007/ssobolmod.mod
Unescape Escape View File

@ -1,12 +1,12 @@
GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:13 2012 GFORTRAN module version '10' created from intmodule.f
MD5:08e5ecbf4978155cb9dd4cc4a261c01e -- If you edit this, you'll get what you deserve. MD5:f5d30ff58e564e7648b2ba106d40bcd2 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
() ()
(('initsobol' 'ssobolmod' 2) ('sobolseq' 'ssobolmod' 3) ('sobnied' (('initsobol' 'ssobolmod' 2) ('sobnied' 'ssobolmod' 3) ('sobolseq'
'ssobolmod' 4)) 'ssobolmod' 4))
() ()
@ -15,56 +15,56 @@ MD5:08e5ecbf4978155cb9dd4cc4a261c01e -- If you edit this, you'll get what you de
() ()
(2 'initsobol' 'ssobolmod' 'initsobol' 1 ((PROCEDURE UNKNOWN-INTENT (2 'initsobol' 'ssobolmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 5 0 (
()) 5 0 (6 7 8 9 10 11) () 0 () () () 0 0) 6 7 8 9 10 11) () 0 () () () 0 0)
4 'sobnied' 'ssobolmod' 'sobnied' 1 ((PROCEDURE UNKNOWN-INTENT 3 'sobnied' 'ssobolmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 12 0 (13 14
()) 12 0 (13 14 15 16 17 18 19 20 21) () 0 () () () 0 0) 15 16 17 18 19 20 21) () 0 () () () 0 0)
3 'sobolseq' 'ssobolmod' 'sobolseq' 1 ((PROCEDURE UNKNOWN-INTENT 4 'sobolseq' 'ssobolmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) ( DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0
UNKNOWN 0 0 0 UNKNOWN ()) 22 0 (23 24) () 0 () () () 0 0) UNKNOWN ()) 22 0 (23 24) () 0 () () () 0 0)
6 'inform' '' 'inform' 5 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 6 'inform' '' '' 5 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
7 'taus' '' 'taus' 5 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 7 'taus' '' '' 5 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
8 'ndim' '' 'ndim' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 8 'ndim' '' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
9 'atmost' '' 'atmost' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 9 'atmost' '' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
10 'numds' '' 'numds' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 10 'numds' '' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
11 'iflag' '' 'iflag' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 11 'iflag' '' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
23 'quasi' '' 'quasi' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 13 'ndim' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 14 'minvls' '' '' 12 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
24 'inform' '' 'inform' 22 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 15 'maxvls' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
13 'ndim' '' 'ndim' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 16 'functn' '' '' 12 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY
14 'minvls' '' 'minvls' 12 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 25 0
0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (26 27) () 16 () () () 0 0)
15 'maxvls' '' 'maxvls' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 17 'abseps' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
16 'functn' '' 'functn' 12 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY 18 'releps' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 25 0 ( DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
26 27) () 16 () () () 0 0) 19 'abserr' '' '' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
17 'abseps' '' 'abseps' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 20 'finest' '' '' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
18 'releps' '' 'releps' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 21 'inform' '' '' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
19 'abserr' '' 'abserr' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 23 'quasi' '' '' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
20 'finest' '' 'finest' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
21 'inform' '' 'inform' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 24 'inform' '' '' 22 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
26 'n' '' 'n' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 26 'n' '' '' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
27 'z' '' 'z' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 27 'z' '' '' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('initsobol' 0 2 'sobnied' 0 4 'sobolseq' 0 3) ('initsobol' 0 2 'sobnied' 0 3 'sobolseq' 0 4)

50
pywafo/src/wafo/source/rind2007/swapmod.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from swapmod.f on Fri Apr 05 14:43:34 2013 GFORTRAN module version '10' created from swapmod.f
MD5:d3f134c81002cd5f6cec09ebff3e336f -- If you edit this, you'll get what you deserve. MD5:825f23b27481d78d127d3a2f61a750fa -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,31 +14,31 @@ MD5:d3f134c81002cd5f6cec09ebff3e336f -- If you edit this, you'll get what you de
() ()
(2 'swap_c' 'swapmod' 'swap_c' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC (2 'swap_c' 'swapmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 5 0 (6 7) () 0 () UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 5 0 (
() () 0 0) 6 7) () 0 () () () 0 0)
3 'swap_i' 'swapmod' 'swap_i' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 3 'swap_i' 'swapmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 8 0 (9 10) () 0 UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 8 0 (
() () () 0 0) 9 10) () 0 () () () 0 0)
4 'swap_r' 'swapmod' 'swap_r' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 4 'swap_r' 'swapmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 11 0 (12 13) () UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 11 0
0 () () () 0 0) (12 13) () 0 () () () 0 0)
14 'swapmod' 'swapmod' 'swapmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 14 'swapmod' 'swapmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
12 'a' '' 'a' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 6 'a' '' '' 5 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) CHARACTER 1 0 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1')))
13 'b' '' 'b' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'a' '' 'a' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
10 'b' '' 'b' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
6 'a' '' 'a' 5 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1')))
0 0 () () 0 () () () 0 0) 0 0 () () 0 () () () 0 0)
7 'b' '' 'b' 5 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) 7 'b' '' '' 5 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
(CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) CHARACTER 1 0 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1')))
0 0 () () 0 () () () 0 0) 0 0 () () 0 () () () 0 0)
9 'a' '' '' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
10 'b' '' '' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
12 'a' '' '' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
13 'b' '' '' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
) )
('swap_c' 0 2 'swap_i' 0 3 'swap_r' 0 4 'swapmod' 0 14) ('swap_c' 0 2 'swap_i' 0 3 'swap_r' 0 4 'swapmod' 0 14)

55
pywafo/src/wafo/source/rind2007/trivariatevar.mod
Unescape Escape View File

@ -1,5 +1,5 @@
GFORTRAN module version '4' created from fimod.f on Tue Mar 27 09:05:13 2012 GFORTRAN module version '10' created from fimod.f
MD5:3c07acc29af03f85553199e931805b01 -- If you edit this, you'll get what you deserve. MD5:2d0305398ff580834095df763e4a2991 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -14,27 +14,36 @@ MD5:3c07acc29af03f85553199e931805b01 -- If you edit this, you'll get what you de
() ()
(2 'ar' 'trivariatevar' 'ar' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC (2 'ar' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
3 'h1' 'trivariatevar' 'h1' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 0)
UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 3 'h1' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
4 'h2' 'trivariatevar' 'h2' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0)
5 'h3' 'trivariatevar' 'h3' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 4 'h2' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
6 'nu' 'trivariatevar' 'nu' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 0)
UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 5 'h3' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
7 'r23' 'trivariatevar' 'r23' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0)
8 'rua' 'trivariatevar' 'rua' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 6 'nu' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
9 'rub' 'trivariatevar' 'rub' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC () 0 0)
UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 7 'r23' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
10 'ruc' 'trivariatevar' 'ruc' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0)
11 'trivariatevar' 'trivariatevar' 'trivariatevar' 1 ((MODULE 8 'rua' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
()) 0 0 () () 0 () () () 0 0) 0)
9 'rub' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
0)
10 'ruc' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0
0)
11 'trivariatevar' 'trivariatevar' '' 1 ((MODULE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () ()
0 () () () 0 0)
) )
('ar' 0 2 'h1' 0 3 'h2' 0 4 'h3' 0 5 'nu' 0 6 'r23' 0 7 'rua' 0 8 'rub' ('ar' 0 2 'h1' 0 3 'h2' 0 4 'h3' 0 5 'nu' 0 6 'r23' 0 7 'rua' 0 8 'rub'

1191
pywafo/src/wafo/stats/_continuous_distns.py
View File

File diff suppressed because it is too large Load Diff

24
pywafo/src/wafo/stats/_discrete_distns.py
Unescape Escape View File

@ -12,8 +12,8 @@ from numpy import floor, ceil, log, exp, sqrt, log1p, expm1, tanh, cosh, sinh
import numpy as np import numpy as np
import numpy.random as mtrand import numpy.random as mtrand
from ._distn_infrastructure import ( from ._distn_infrastructure import (rv_discrete, _lazywhere, _ncx2_pdf,
rv_discrete, _lazywhere, _ncx2_pdf, _ncx2_cdf, get_distribution_names) _ncx2_cdf, get_distribution_names)
class binom_gen(rv_discrete): class binom_gen(rv_discrete):
@ -559,7 +559,7 @@ class boltzmann_gen(rv_discrete):
g2 = g2 / trm2 / trm2 g2 = g2 / trm2 / trm2
return mu, var, g1, g2 return mu, var, g1, g2
boltzmann = boltzmann_gen(name='boltzmann', boltzmann = boltzmann_gen(name='boltzmann',
longname='A truncated discrete exponential ') longname='A truncated discrete exponential ')
class randint_gen(rv_discrete): class randint_gen(rv_discrete):
@ -624,8 +624,9 @@ randint = randint_gen(name='randint', longname='A discrete uniform '
'(random integer)') '(random integer)')
def harmonic(n,r): def harmonic(n, r):
return 1./n + special.polygamma(r-1, n)/special.gamma(r) + special.zeta(r, 1) return (1./n + special.polygamma(r-1, n)/special.gamma(r) +
special.zeta(r, 1))
def H(n): def H(n):
@ -704,8 +705,9 @@ class dlaplace_gen(rv_discrete):
def _ppf(self, q, a): def _ppf(self, q, a):
const = 1 + exp(a) const = 1 + exp(a)
vals = ceil(np.where(q < 1.0 / (1 + exp(-a)), log(q*const) / a - 1, vals = ceil(np.where(q < 1.0 / (1 + exp(-a)),
-log((1-q) * const) / a)) log(q*const) / a - 1,
-log((1-q) * const) / a))
vals1 = vals - 1 vals1 = vals - 1
return np.where(self._cdf(vals1, a) >= q, vals1, vals) return np.where(self._cdf(vals1, a) >= q, vals1, vals)
@ -753,16 +755,16 @@ class skellam_gen(rv_discrete):
def _pmf(self, x, mu1, mu2): def _pmf(self, x, mu1, mu2):
px = np.where(x < 0, px = np.where(x < 0,
_ncx2_pdf(2*mu2, 2*(1-x), 2*mu1)*2, _ncx2_pdf(2*mu2, 2*(1-x), 2*mu1)*2,
_ncx2_pdf(2*mu1, 2*(1+x), 2*mu2)*2) _ncx2_pdf(2*mu1, 2*(1+x), 2*mu2)*2)
# ncx2.pdf() returns nan's for extremely low probabilities # ncx2.pdf() returns nan's for extremely low probabilities
return px return px
def _cdf(self, x, mu1, mu2): def _cdf(self, x, mu1, mu2):
x = floor(x) x = floor(x)
px = np.where(x < 0, px = np.where(x < 0,
_ncx2_cdf(2*mu2, -2*x, 2*mu1), _ncx2_cdf(2*mu2, -2*x, 2*mu1),
1-_ncx2_cdf(2*mu1, 2*(x+1), 2*mu2)) 1-_ncx2_cdf(2*mu1, 2*(x+1), 2*mu2))
return px return px
def _stats(self, mu1, mu2): def _stats(self, mu1, mu2):

22
pywafo/src/wafo/test/test_integrate.py
Unescape Escape View File

@ -12,15 +12,15 @@ from wafo.integrate import gaussq
class Gaussq(unittest.TestCase): class Gaussq(unittest.TestCase):
''' '''
1 : p(x) = 1 a =-1, b = 1 Gauss-Legendre 1 : p(x) = 1 a =-1, b = 1 Gauss-Legendre
2 : p(x) = exp(-x^2) a =-inf, b = inf Hermite 2 : p(x) = exp(-x^2) a =-inf, b = inf Hermite
3 : p(x) = x^alpha*exp(-x) a = 0, b = inf Laguerre 3 : p(x) = x^alpha*exp(-x) a = 0, b = inf Laguerre
4 : p(x) = (x-a)^alpha*(b-x)^beta a =-1, b = 1 Jacobi 4 : p(x) = (x-a)^alpha*(b-x)^beta a =-1, b = 1 Jacobi
5 : p(x) = 1/sqrt((x-a)*(b-x)), a =-1, b = 1 Chebyshev 1'st kind 5 : p(x) = 1/sqrt((x-a)*(b-x)), a =-1, b = 1 Chebyshev 1'st kind
6 : p(x) = sqrt((x-a)*(b-x)), a =-1, b = 1 Chebyshev 2'nd kind 6 : p(x) = sqrt((x-a)*(b-x)), a =-1, b = 1 Chebyshev 2'nd kind
7 : p(x) = sqrt((x-a)/(b-x)), a = 0, b = 1 7 : p(x) = sqrt((x-a)/(b-x)), a = 0, b = 1
8 : p(x) = 1/sqrt(b-x), a = 0, b = 1 8 : p(x) = 1/sqrt(b-x), a = 0, b = 1
9 : p(x) = sqrt(b-x), a = 0, b = 1 9 : p(x) = sqrt(b-x), a = 0, b = 1
''' '''
def test_gauss_legendre(self): def test_gauss_legendre(self):
@ -68,5 +68,5 @@ class Gaussq(unittest.TestCase):
self.assertAlmostEqual(val, 0.26666667) self.assertAlmostEqual(val, 0.26666667)
if __name__ == "__main__": if __name__ == "__main__":
#import sys;sys.argv = ['', 'Test.testName'] # import sys;sys.argv = ['', 'Test.testName']
unittest.main() unittest.main()

794
pywafo/src/wafo/test/test_kdetools.py
Unescape Escape View File

@ -1,386 +1,408 @@
''' '''
Created on 20. nov. 2010 Created on 20. nov. 2010
@author: pab @author: pab
''' '''
import numpy as np #@UnusedImport import numpy as np # @UnusedImport
from numpy import array #@UnusedImport from numpy import array # @UnusedImport
import wafo.kdetools as wk #@UnusedImport import wafo.kdetools as wk # @UnusedImport
#import pylab as plb # import pylab as plb
def test0_KDE1D():
''' def test0_KDE1D():
>>> data = array([ 0.75355792, 0.72779194, 0.94149169, 0.07841119, 2.32291887, '''
... 1.10419995, 0.77055114, 0.60288273, 1.36883635, 1.74754326, >>> data = array([0.75355792, 0.72779194, 0.94149169, 0.07841119,
... 1.09547561, 1.01671133, 0.73211143, 0.61891719, 0.75903487, ... 2.32291887, 1.10419995, 0.77055114, 0.60288273,
... 1.8919469 , 0.72433808, 1.92973094, 0.44749838, 1.36508452]) ... 1.36883635, 1.74754326, 1.09547561, 1.01671133,
... 0.73211143, 0.61891719, 0.75903487, 1.8919469,
>>> x = np.linspace(0, max(data.ravel()) + 1, 10) ... 0.72433808, 1.92973094, 0.44749838, 1.36508452])
>>> import wafo.kdetools as wk
>>> kde = wk.KDE(data, hs=0.5, alpha=0.5) >>> x = np.linspace(0, max(data.ravel()) + 1, 10)
>>> import wafo.kdetools as wk
>>> kde0 = wk.KDE(data, hs=0.5, alpha=0.0, inc=16) >>> kde = wk.KDE(data, hs=0.5, alpha=0.5)
>>> kde0.eval_grid(x) >>> kde0 = wk.KDE(data, hs=0.5, alpha=0.0, inc=16)
array([ 0.2039735 , 0.40252503, 0.54595078, 0.52219649, 0.3906213 ,
0.26381501, 0.16407362, 0.08270612, 0.02991145, 0.00720821]) >>> kde0.eval_grid(x)
>>> kde0.eval_grid_fast(x) array([ 0.2039735 , 0.40252503, 0.54595078, 0.52219649, 0.3906213 ,
array([ 0.20729484, 0.39865044, 0.53716945, 0.5169322 , 0.39060223, 0.26381501, 0.16407362, 0.08270612, 0.02991145, 0.00720821])
0.26441126, 0.16388801, 0.08388527, 0.03227164, 0.00883579]) >>> kde0.eval_grid_fast(x)
array([ 0.20729484, 0.39865044, 0.53716945, 0.5169322 , 0.39060223,
>>> f = kde0.eval_grid_fast(); f 0.26441126, 0.16388801, 0.08388527, 0.03227164, 0.00883579])
array([ 0.01149411, 0.03485467, 0.08799292, 0.18568718, 0.32473136,
0.46543163, 0.54532016, 0.53005828, 0.44447651, 0.34119612, >>> f = kde0.eval_grid_fast(); f
0.25103852, 0.1754952 , 0.11072989, 0.05992731, 0.02687784, array([ 0.06807544, 0.12949095, 0.21985421, 0.33178031, 0.44334874,
0.00974983]) 0.52429234, 0.55140336, 0.52221323, 0.45500674, 0.3752208 ,
>>> np.trapz(f,kde0.args) 0.30046799, 0.235667 , 0.17854402, 0.12721305, 0.08301993,
array([ 0.99500101]) 0.04862324])
''' >>> np.allclose(np.trapz(f,kde0.args), array([ 0.96716261]))
def test1_TKDE1D(): True
''' '''
N = 20
data = np.random.rayleigh(1, size=(N,))
>>> data = array([ 0.75355792, 0.72779194, 0.94149169, 0.07841119, 2.32291887, def test1_TKDE1D():
... 1.10419995, 0.77055114, 0.60288273, 1.36883635, 1.74754326, '''
... 1.09547561, 1.01671133, 0.73211143, 0.61891719, 0.75903487, N = 20
... 1.8919469 , 0.72433808, 1.92973094, 0.44749838, 1.36508452]) data = np.random.rayleigh(1, size=(N,))
>>> data = array([0.75355792, 0.72779194, 0.94149169, 0.07841119,
>>> x = np.linspace(0.01, max(data.ravel()) + 1, 10) ... 2.32291887, 1.10419995, 0.77055114, 0.60288273,
>>> kde = wk.TKDE(data, hs=0.5, L2=0.5) ... 1.36883635, 1.74754326, 1.09547561, 1.01671133,
>>> f = kde(x) ... 0.73211143, 0.61891719, 0.75903487, 1.8919469,
>>> f ... 0.72433808, 1.92973094, 0.44749838, 1.36508452])
array([ 1.03982714, 0.45839018, 0.39514782, 0.32860602, 0.26433318,
0.20717946, 0.15907684, 0.1201074 , 0.08941027, 0.06574882]) >>> x = np.linspace(0.01, max(data.ravel()) + 1, 10)
>>> kde = wk.TKDE(data, hs=0.5, L2=0.5)
>>> np.trapz(f, x) >>> f = kde(x)
0.94787730659349068 >>> f
array([ 1.03982714, 0.45839018, 0.39514782, 0.32860602, 0.26433318,
h1 = plb.plot(x, f) # 1D probability density plot 0.20717946, 0.15907684, 0.1201074 , 0.08941027, 0.06574882])
'''
def test1_KDE1D(): >>> np.trapz(f, x)
''' 0.94787730659349068
N = 20
data = np.random.rayleigh(1, size=(N,)) h1 = plb.plot(x, f) # 1D probability density plot
>>> data = array([ 0.75355792, 0.72779194, 0.94149169, 0.07841119, 2.32291887, '''
... 1.10419995, 0.77055114, 0.60288273, 1.36883635, 1.74754326,
... 1.09547561, 1.01671133, 0.73211143, 0.61891719, 0.75903487,
... 1.8919469 , 0.72433808, 1.92973094, 0.44749838, 1.36508452]) def test1_KDE1D():
'''
>>> x = np.linspace(0, max(data.ravel()) + 1, 10) N = 20
>>> kde = wk.KDE(data, hs=0.5) data = np.random.rayleigh(1, size=(N,))
>>> f = kde(x) >>> data = array([0.75355792, 0.72779194, 0.94149169, 0.07841119,
>>> f ... 2.32291887, 1.10419995, 0.77055114, 0.60288273,
array([ 0.2039735 , 0.40252503, 0.54595078, 0.52219649, 0.3906213 , ... 1.36883635, 1.74754326, 1.09547561, 1.01671133,
0.26381501, 0.16407362, 0.08270612, 0.02991145, 0.00720821]) ... 0.73211143, 0.61891719, 0.75903487, 1.8919469,
... 0.72433808, 1.92973094, 0.44749838, 1.36508452])
>>> np.trapz(f, x)
0.92576174424281876 >>> x = np.linspace(0, max(data.ravel()) + 1, 10)
>>> kde = wk.KDE(data, hs=0.5)
h1 = plb.plot(x, f) # 1D probability density plot >>> f = kde(x)
''' >>> f
def test2_KDE1D(): array([ 0.2039735 , 0.40252503, 0.54595078, 0.52219649, 0.3906213 ,
''' 0.26381501, 0.16407362, 0.08270612, 0.02991145, 0.00720821])
N = 20
data = np.random.rayleigh(1, size=(N,)) >>> np.trapz(f, x)
>>> data = array([ 0.75355792, 0.72779194, 0.94149169, 0.07841119, 2.32291887, 0.92576174424281876
... 1.10419995, 0.77055114, 0.60288273, 1.36883635, 1.74754326,
... 1.09547561, 1.01671133, 0.73211143, 0.61891719, 0.75903487, h1 = plb.plot(x, f) # 1D probability density plot
... 1.8919469 , 0.72433808, 1.92973094, 0.44749838, 1.36508452]) '''
>>> data = np.asarray([1,2])
>>> x = np.linspace(0, max(data.ravel()) + 1, 10) def test2_KDE1D():
>>> kde = wk.KDE(data, hs=0.5) '''
>>> f = kde(x) N = 20
>>> f data = np.random.rayleigh(1, size=(N,))
array([ 0.0541248 , 0.16555235, 0.33084399, 0.45293325, 0.48345808, >>> data = array([ 0.75355792, 0.72779194, 0.94149169, 0.07841119,
0.48345808, 0.45293325, 0.33084399, 0.16555235, 0.0541248 ]) ... 2.32291887, 1.10419995, 0.77055114, 0.60288273, 1.36883635,
... 1.74754326, 1.09547561, 1.01671133, 0.73211143, 0.61891719,
>>> np.trapz(f, x) ... 0.75903487, 1.8919469, 0.72433808, 1.92973094, 0.44749838,
0.97323338046725172 ... 1.36508452])
h1 = plb.plot(x, f) # 1D probability density plot >>> data = np.asarray([1,2])
>>> x = np.linspace(0, max(data.ravel()) + 1, 10)
''' >>> kde = wk.KDE(data, hs=0.5)
>>> f = kde(x)
def test1a_KDE1D(): >>> f
''' array([ 0.0541248 , 0.16555235, 0.33084399, 0.45293325, 0.48345808,
N = 20 0.48345808, 0.45293325, 0.33084399, 0.16555235, 0.0541248 ])
data = np.random.rayleigh(1, size=(N,))
>>> data = array([ 0.75355792, 0.72779194, 0.94149169, 0.07841119, 2.32291887, >>> np.trapz(f, x)
... 1.10419995, 0.77055114, 0.60288273, 1.36883635, 1.74754326, 0.97323338046725172
... 1.09547561, 1.01671133, 0.73211143, 0.61891719, 0.75903487,
... 1.8919469 , 0.72433808, 1.92973094, 0.44749838, 1.36508452]) h1 = plb.plot(x, f) # 1D probability density plot
'''
>>> x = np.linspace(0, max(data.ravel()) + 1, 10)
>>> kde = wk.KDE(data, hs=0.5, alpha=0.5)
>>> f = kde(x) def test1a_KDE1D():
>>> f '''
array([ 0.17252055, 0.41014271, 0.61349072, 0.57023834, 0.37198073, N = 20
0.21409279, 0.12738463, 0.07460326, 0.03956191, 0.01887164]) data = np.random.rayleigh(1, size=(N,))
>>> data = array([
>>> np.trapz(f, x) ... 0.75355792, 0.72779194, 0.94149169, 0.07841119, 2.32291887,
0.92938023659047952 ... 1.10419995, 0.77055114, 0.60288273, 1.36883635, 1.74754326,
... 1.09547561, 1.01671133, 0.73211143, 0.61891719, 0.75903487,
h1 = plb.plot(x, f) # 1D probability density plot ... 1.8919469 , 0.72433808, 1.92973094, 0.44749838, 1.36508452])
''' >>> x = np.linspace(0, max(data.ravel()) + 1, 10)
def test2a_KDE1D(): >>> kde = wk.KDE(data, hs=0.5, alpha=0.5)
''' >>> f = kde(x)
N = 20 >>> f
data = np.random.rayleigh(1, size=(N,)) array([ 0.17252055, 0.41014271, 0.61349072, 0.57023834, 0.37198073,
>>> data = array([ 0.75355792, 0.72779194, 0.94149169, 0.07841119, 2.32291887, 0.21409279, 0.12738463, 0.07460326, 0.03956191, 0.01887164])
... 1.10419995, 0.77055114, 0.60288273, 1.36883635, 1.74754326,
... 1.09547561, 1.01671133, 0.73211143, 0.61891719, 0.75903487, >>> np.trapz(f, x)
... 1.8919469 , 0.72433808, 1.92973094, 0.44749838, 1.36508452]) 0.92938023659047952
>>> data = np.asarray([1,2]) h1 = plb.plot(x, f) # 1D probability density plot
>>> x = np.linspace(0, max(data.ravel()) + 1, 10) '''
>>> kde = wk.KDE(data, hs=0.5, alpha=0.5)
>>> f = kde(x)
>>> f def test2a_KDE1D():
array([ 0.0541248 , 0.16555235, 0.33084399, 0.45293325, 0.48345808, '''
0.48345808, 0.45293325, 0.33084399, 0.16555235, 0.0541248 ]) N = 20
data = np.random.rayleigh(1, size=(N,))
>>> np.trapz(f, x) >>> data = array([
0.97323338046725172 ... 0.75355792, 0.72779194, 0.94149169, 0.07841119, 2.32291887,
... 1.10419995, 0.77055114, 0.60288273, 1.36883635, 1.74754326,
h1 = plb.plot(x, f) # 1D probability density plot ... 1.09547561, 1.01671133, 0.73211143, 0.61891719, 0.75903487,
''' ... 1.8919469 , 0.72433808, 1.92973094, 0.44749838, 1.36508452])
def test_KDE2D(): >>> data = np.asarray([1,2])
''' >>> x = np.linspace(0, max(data.ravel()) + 1, 10)
N = 20 >>> kde = wk.KDE(data, hs=0.5, alpha=0.5)
data = np.random.rayleigh(1, size=(2, N)) >>> f = kde(x)
>>> data = array([[ 0.38103275, 0.35083136, 0.90024207, 1.88230239, 0.96815399, >>> f
... 0.57392873, 1.63367908, 1.20944125, 2.03887811, 0.81789145, array([ 0.0541248 , 0.16555235, 0.33084399, 0.45293325, 0.48345808,
... 0.69302049, 1.40856592, 0.92156032, 2.14791432, 2.04373821, 0.48345808, 0.45293325, 0.33084399, 0.16555235, 0.0541248 ])
... 0.69800708, 0.58428735, 1.59128776, 2.05771405, 0.87021964],
... [ 1.44080694, 0.39973751, 1.331243 , 2.48895822, 1.18894158, >>> np.trapz(f, x)
... 1.40526085, 1.01967897, 0.81196474, 1.37978932, 2.03334689, 0.97323338046725172
... 0.870329 , 1.25106862, 0.5346619 , 0.47541236, 1.51930093,
... 0.58861519, 1.19780448, 0.81548296, 1.56859488, 1.60653533]]) h1 = plb.plot(x, f) # 1D probability density plot
'''
>>> x = np.linspace(0, max(data.ravel()) + 1, 3)
>>> kde = wk.KDE(data, hs=0.5, alpha=0.5) def test_KDE2D():
'''
>>> kde0 = wk.KDE(data, hs=0.5, alpha=0.0, inc=16) N = 20
data = np.random.rayleigh(1, size=(2, N))
>>> kde0.eval_grid(x, x) >>> data = array([[
array([[ 3.27260963e-02, 4.21654678e-02, 5.85338634e-04], ... 0.38103275, 0.35083136, 0.90024207, 1.88230239, 0.96815399,
[ 6.78845466e-02, 1.42195839e-01, 1.41676003e-03], ... 0.57392873, 1.63367908, 1.20944125, 2.03887811, 0.81789145,
[ 1.39466746e-04, 4.26983850e-03, 2.52736185e-05]]) ... 0.69302049, 1.40856592, 0.92156032, 2.14791432, 2.04373821,
>>> kde0.eval_grid_fast(x, x) ... 0.69800708, 0.58428735, 1.59128776, 2.05771405, 0.87021964],
array([[ 0.04435061, 0.06433531, 0.00413538], ... [1.44080694, 0.39973751, 1.331243 , 2.48895822, 1.18894158,
[ 0.07218297, 0.12358196, 0.00928889], ... 1.40526085, 1.01967897, 0.81196474, 1.37978932, 2.03334689,
[ 0.00161333, 0.00794858, 0.00058748]]) ... 0.870329 , 1.25106862, 0.5346619 , 0.47541236, 1.51930093,
... 0.58861519, 1.19780448, 0.81548296, 1.56859488, 1.60653533]])
'''
>>> x = np.linspace(0, max(data.ravel()) + 1, 3)
def test_smooth_params():
''' >>> kde = wk.KDE(data, hs=0.5, alpha=0.5)
>>> data = np.array([[ 0.932896 , 0.89522635, 0.80636346, 1.32283371, 0.27125435,
... 1.91666304, 2.30736635, 1.13662384, 1.73071287, 1.06061127, >>> kde0 = wk.KDE(data, hs=0.5, alpha=0.0, inc=16)
... 0.99598512, 2.16396591, 1.23458213, 1.12406686, 1.16930431,
... 0.73700592, 1.21135139, 0.46671506, 1.3530304 , 0.91419104], >>> kde0.eval_grid(x, x)
... [ 0.62759088, 0.23988169, 2.04909823, 0.93766571, 1.19343762, array([[ 3.27260963e-02, 4.21654678e-02, 5.85338634e-04],
... 1.94954931, 0.84687514, 0.49284897, 1.05066204, 1.89088505, [ 6.78845466e-02, 1.42195839e-01, 1.41676003e-03],
... 0.840738 , 1.02901457, 1.0758625 , 1.76357967, 0.45792897, [ 1.39466746e-04, 4.26983850e-03, 2.52736185e-05]])
... 1.54488066, 0.17644313, 1.6798871 , 0.72583514, 2.22087245], >>> kde0.eval_grid_fast(x, x)
... [ 1.69496432, 0.81791905, 0.82534709, 0.71642389, 0.89294732, array([[ 0.04435061, 0.06433531, 0.00413538],
... 1.66888649, 0.69036947, 0.99961448, 0.30657267, 0.98798713, [ 0.07218297, 0.12358196, 0.00928889],
... 0.83298728, 1.83334948, 1.90144186, 1.25781913, 0.07122458, [ 0.00161333, 0.00794858, 0.00058748]])
... 2.42340852, 2.41342037, 0.87233305, 1.17537114, 1.69505988]])
'''
>>> gauss = wk.Kernel('gaussian')
>>> gauss.hns(data)
array([ 0.18154437, 0.36207987, 0.37396219]) def test_smooth_params():
>>> gauss.hos(data) '''
array([ 0.195209 , 0.3893332 , 0.40210988]) >>> data = np.array([[
>>> gauss.hmns(data) ... 0.932896 , 0.89522635, 0.80636346, 1.32283371, 0.27125435,
array([[ 3.25196193e-01, -2.68892467e-02, 3.18932448e-04], ... 1.91666304, 2.30736635, 1.13662384, 1.73071287, 1.06061127,
[ -2.68892467e-02, 3.91283306e-01, 2.38654678e-02], ... 0.99598512, 2.16396591, 1.23458213, 1.12406686, 1.16930431,
[ 3.18932448e-04, 2.38654678e-02, 4.05123874e-01]]) ... 0.73700592, 1.21135139, 0.46671506, 1.3530304 , 0.91419104],
>>> gauss.hscv(data) ... [ 0.62759088, 0.23988169, 2.04909823, 0.93766571, 1.19343762,
array([ 0.16858959, 0.32739383, 0.3046287 ]) ... 1.94954931, 0.84687514, 0.49284897, 1.05066204, 1.89088505,
... 0.840738 , 1.02901457, 1.0758625 , 1.76357967, 0.45792897,
>>> gauss.hstt(data) ... 1.54488066, 0.17644313, 1.6798871 , 0.72583514, 2.22087245],
array([ 0.18099075, 0.50409881, 0.11018912]) ... [ 1.69496432, 0.81791905, 0.82534709, 0.71642389, 0.89294732,
... 1.66888649, 0.69036947, 0.99961448, 0.30657267, 0.98798713,
>>> gauss.hste(data) ... 0.83298728, 1.83334948, 1.90144186, 1.25781913, 0.07122458,
array([ 0.16750009, 0.29059113, 0.17994255]) ... 2.42340852, 2.41342037, 0.87233305, 1.17537114, 1.69505988]])
>>> gauss.hldpi(data) >>> gauss = wk.Kernel('gaussian')
array([ 0.1732289 , 0.33159097, 0.3107633 ]) >>> gauss.hns(data)
array([ 0.18154437, 0.36207987, 0.37396219])
>>> gauss.hos(data)
>>> gauss.hisj(data) array([ 0.195209 , 0.3893332 , 0.40210988])
array([ 0.24222479, 0.74277133, 0.15492661]) >>> gauss.hmns(data)
array([[ 3.25196193e-01, -2.68892467e-02, 3.18932448e-04],
>>> data = np.array([0.753557920000000, 0.727791940000000, 0.941491690000000, [ -2.68892467e-02, 3.91283306e-01, 2.38654678e-02],
... 0.078411190000000, 2.322918870000000, 1.104199950000000, 0.770551140000000, [ 3.18932448e-04, 2.38654678e-02, 4.05123874e-01]])
... 0.602882730000000, 1.368836350000000, 1.747543260000000, 1.095475610000000, >>> gauss.hscv(data)
... 1.016711330000000, 0.732111430000000, 0.618917190000000, 0.759034870000000, array([ 0.16858959, 0.32739383, 0.3046287 ])
... 1.891946900000000, 0.724338080000000, 1.929730940000000, 0.447498380000000, 1.365084520000000])
>>> gauss.hstt(data)
array([ 0.18099075, 0.50409881, 0.11018912])
''' >>> gauss.hste(data)
def test_gridcount_1D(): array([ 0.16750009, 0.29059113, 0.17994255])
'''
N = 20 >>> gauss.hldpi(data)
data = np.random.rayleigh(1, size=(N,)) array([ 0.1732289 , 0.33159097, 0.3107633 ])
>>> data = array([ 0.75355792, 0.72779194, 0.94149169, 0.07841119, 2.32291887,
... 1.10419995, 0.77055114, 0.60288273, 1.36883635, 1.74754326, >>> np.allclose(gauss.hisj(data),
... 1.09547561, 1.01671133, 0.73211143, 0.61891719, 0.75903487, ... array([ 0.29542502, 0.74277133, 0.51899114]))
... 1.8919469 , 0.72433808, 1.92973094, 0.44749838, 1.36508452]) True
'''
>>> x = np.linspace(0, max(data.ravel()) + 1, 10)
>>> dx = x[1] - x[0]
>>> c = wk.gridcount(data, x) def test_gridcount_1D():
>>> c '''
array([ 0.78762626, 1.77520717, 7.99190087, 4.04054449, 1.67156643, N = 20
2.38228499, 1.05933195, 0.29153785, 0. , 0. ]) data = np.random.rayleigh(1, size=(N,))
>>> data = array([
h = plb.plot(x, c, '.') # 1D histogram ... 0.75355792, 0.72779194, 0.94149169, 0.07841119, 2.32291887,
... 1.10419995, 0.77055114, 0.60288273, 1.36883635, 1.74754326,
h1 = plb.plot(x, c / dx / N) # 1D probability density plot ... 1.09547561, 1.01671133, 0.73211143, 0.61891719, 0.75903487,
t = np.trapz(c / dx / N, x) ... 1.8919469 , 0.72433808, 1.92973094, 0.44749838, 1.36508452])
print(t)
''' >>> x = np.linspace(0, max(data.ravel()) + 1, 10)
>>> dx = x[1] - x[0]
def test_gridcount_2D(): >>> c = wk.gridcount(data, x)
''' >>> c
N = 20 array([ 0.78762626, 1.77520717, 7.99190087, 4.04054449, 1.67156643,
data = np.random.rayleigh(1, size=(2, N)) 2.38228499, 1.05933195, 0.29153785, 0. , 0. ])
>>> data = array([[ 0.38103275, 0.35083136, 0.90024207, 1.88230239, 0.96815399,
... 0.57392873, 1.63367908, 1.20944125, 2.03887811, 0.81789145, h = plb.plot(x, c, '.') # 1D histogram
... 0.69302049, 1.40856592, 0.92156032, 2.14791432, 2.04373821,
... 0.69800708, 0.58428735, 1.59128776, 2.05771405, 0.87021964], h1 = plb.plot(x, c / dx / N) # 1D probability density plot
... [ 1.44080694, 0.39973751, 1.331243 , 2.48895822, 1.18894158, t = np.trapz(c / dx / N, x)
... 1.40526085, 1.01967897, 0.81196474, 1.37978932, 2.03334689, print(t)
... 0.870329 , 1.25106862, 0.5346619 , 0.47541236, 1.51930093, '''
... 0.58861519, 1.19780448, 0.81548296, 1.56859488, 1.60653533]])
>>> x = np.linspace(0, max(data.ravel()) + 1, 5) def test_gridcount_2D():
>>> dx = x[1] - x[0] '''
>>> X = np.vstack((x, x)) N = 20
>>> c = wk.gridcount(data, X) data = np.random.rayleigh(1, size=(2, N))
>>> c >>> data = array([[
array([[ 0.38922806, 0.8987982 , 0.34676493, 0.21042807, 0. ], ... 0.38103275, 0.35083136, 0.90024207, 1.88230239, 0.96815399,
[ 1.15012203, 5.16513541, 3.19250588, 0.55420752, 0. ], ... 0.57392873, 1.63367908, 1.20944125, 2.03887811, 0.81789145,
[ 0.74293418, 3.42517219, 1.97923195, 0.76076621, 0. ], ... 0.69302049, 1.40856592, 0.92156032, 2.14791432, 2.04373821,
[ 0.02063536, 0.31054405, 0.71865964, 0.13486633, 0. ], ... 0.69800708, 0.58428735, 1.59128776, 2.05771405, 0.87021964],
[ 0. , 0. , 0. , 0. , 0. ]]) ... [ 1.44080694, 0.39973751, 1.331243 , 2.48895822, 1.18894158,
... 1.40526085, 1.01967897, 0.81196474, 1.37978932, 2.03334689,
h = plb.plot(x, c, '.') # 1D histogram ... 0.870329 , 1.25106862, 0.5346619 , 0.47541236, 1.51930093,
... 0.58861519, 1.19780448, 0.81548296, 1.56859488, 1.60653533]])
h1 = plb.plot(x, c / dx / N) # 1D probability density plot
t = np.trapz(c / dx / N, x) >>> x = np.linspace(0, max(data.ravel()) + 1, 5)
print(t) >>> dx = x[1] - x[0]
''' >>> X = np.vstack((x, x))
def test_gridcount_3D(): >>> c = wk.gridcount(data, X)
''' >>> c
N = 20 array([[ 0.38922806, 0.8987982 , 0.34676493, 0.21042807, 0. ],
data = np.random.rayleigh(1, size=(3, N)) [ 1.15012203, 5.16513541, 3.19250588, 0.55420752, 0. ],
>>> data = np.array([[ 0.932896 , 0.89522635, 0.80636346, 1.32283371, 0.27125435, [ 0.74293418, 3.42517219, 1.97923195, 0.76076621, 0. ],
... 1.91666304, 2.30736635, 1.13662384, 1.73071287, 1.06061127, [ 0.02063536, 0.31054405, 0.71865964, 0.13486633, 0. ],
... 0.99598512, 2.16396591, 1.23458213, 1.12406686, 1.16930431, [ 0. , 0. , 0. , 0. , 0. ]])
... 0.73700592, 1.21135139, 0.46671506, 1.3530304 , 0.91419104],
... [ 0.62759088, 0.23988169, 2.04909823, 0.93766571, 1.19343762, h = plb.plot(x, c, '.') # 1D histogram
... 1.94954931, 0.84687514, 0.49284897, 1.05066204, 1.89088505,
... 0.840738 , 1.02901457, 1.0758625 , 1.76357967, 0.45792897, h1 = plb.plot(x, c / dx / N) # 1D probability density plot
... 1.54488066, 0.17644313, 1.6798871 , 0.72583514, 2.22087245], t = np.trapz(c / dx / N, x)
... [ 1.69496432, 0.81791905, 0.82534709, 0.71642389, 0.89294732, print(t)
... 1.66888649, 0.69036947, 0.99961448, 0.30657267, 0.98798713, '''
... 0.83298728, 1.83334948, 1.90144186, 1.25781913, 0.07122458,
... 2.42340852, 2.41342037, 0.87233305, 1.17537114, 1.69505988]])
def test_gridcount_3D():
>>> x = np.linspace(0, max(data.ravel()) + 1, 3) '''
>>> dx = x[1] - x[0] N = 20
>>> X = np.vstack((x, x, x)) data = np.random.rayleigh(1, size=(3, N))
>>> c = wk.gridcount(data, X) >>> data = np.array([[
>>> c ... 0.932896 , 0.89522635, 0.80636346, 1.32283371, 0.27125435,
array([[[ 8.74229894e-01, 1.27910940e+00, 1.42033973e-01], ... 1.91666304, 2.30736635, 1.13662384, 1.73071287, 1.06061127,
[ 1.94778915e+00, 2.59536282e+00, 3.28213680e-01], ... 0.99598512, 2.16396591, 1.23458213, 1.12406686, 1.16930431,
[ 1.08429416e-01, 1.69571495e-01, 7.48896775e-03]], ... 0.73700592, 1.21135139, 0.46671506, 1.3530304 , 0.91419104],
<BLANKLINE> ... [ 0.62759088, 0.23988169, 2.04909823, 0.93766571, 1.19343762,
[[ 1.44969128e+00, 2.58396370e+00, 2.45459949e-01], ... 1.94954931, 0.84687514, 0.49284897, 1.05066204, 1.89088505,
[ 2.28951650e+00, 4.49653348e+00, 2.73167915e-01], ... 0.840738 , 1.02901457, 1.0758625 , 1.76357967, 0.45792897,
[ 1.10905565e-01, 3.18733817e-01, 1.12880816e-02]], ... 1.54488066, 0.17644313, 1.6798871 , 0.72583514, 2.22087245],
<BLANKLINE> ... [ 1.69496432, 0.81791905, 0.82534709, 0.71642389, 0.89294732,
[[ 7.49265424e-02, 2.18142488e-01, 0.00000000e+00], ... 1.66888649, 0.69036947, 0.99961448, 0.30657267, 0.98798713,
[ 8.53886762e-02, 3.73415131e-01, 0.00000000e+00], ... 0.83298728, 1.83334948, 1.90144186, 1.25781913, 0.07122458,
[ 4.16196568e-04, 1.62218824e-02, 0.00000000e+00]]]) ... 2.42340852, 2.41342037, 0.87233305, 1.17537114, 1.69505988]])
''' >>> x = np.linspace(0, max(data.ravel()) + 1, 3)
def test_gridcount_4D(): >>> dx = x[1] - x[0]
''' >>> X = np.vstack((x, x, x))
N = 20 >>> c = wk.gridcount(data, X)
data = np.random.rayleigh(1, size=(2, N)) >>> c
>>> data = array([[ 0.38103275, 0.35083136, 0.90024207, 1.88230239, 0.96815399, array([[[ 8.74229894e-01, 1.27910940e+00, 1.42033973e-01],
... 0.57392873, 1.63367908, 1.20944125, 2.03887811, 0.81789145], [ 1.94778915e+00, 2.59536282e+00, 3.28213680e-01],
... [ 0.69302049, 1.40856592, 0.92156032, 2.14791432, 2.04373821, [ 1.08429416e-01, 1.69571495e-01, 7.48896775e-03]],
... 0.69800708, 0.58428735, 1.59128776, 2.05771405, 0.87021964], <BLANKLINE>
... [ 1.44080694, 0.39973751, 1.331243 , 2.48895822, 1.18894158, [[ 1.44969128e+00, 2.58396370e+00, 2.45459949e-01],
... 1.40526085, 1.01967897, 0.81196474, 1.37978932, 2.03334689], [ 2.28951650e+00, 4.49653348e+00, 2.73167915e-01],
... [ 0.870329 , 1.25106862, 0.5346619 , 0.47541236, 1.51930093, [ 1.10905565e-01, 3.18733817e-01, 1.12880816e-02]],
... 0.58861519, 1.19780448, 0.81548296, 1.56859488, 1.60653533]]) <BLANKLINE>
[[ 7.49265424e-02, 2.18142488e-01, 0.00000000e+00],
>>> x = np.linspace(0, max(data.ravel()) + 1, 3) [ 8.53886762e-02, 3.73415131e-01, 0.00000000e+00],
>>> dx = x[1] - x[0] [ 4.16196568e-04, 1.62218824e-02, 0.00000000e+00]]])
>>> X = np.vstack((x, x, x, x))
>>> c = wk.gridcount(data, X) '''
>>> c
array([[[[ 1.77163904e-01, 1.87720108e-01, 0.00000000e+00],
[ 5.72573585e-01, 6.09557834e-01, 0.00000000e+00], def test_gridcount_4D():
[ 3.48549923e-03, 4.05931870e-02, 0.00000000e+00]], '''
<BLANKLINE> N = 20
[[ 1.83770124e-01, 2.56357594e-01, 0.00000000e+00], data = np.random.rayleigh(1, size=(2, N))
[ 4.35845892e-01, 6.14958970e-01, 0.00000000e+00], >>> data = array([[
[ 3.07662204e-03, 3.58312786e-02, 0.00000000e+00]], ... 0.38103275, 0.35083136, 0.90024207, 1.88230239, 0.96815399,
<BLANKLINE> ... 0.57392873, 1.63367908, 1.20944125, 2.03887811, 0.81789145],
[[ 0.00000000e+00, 0.00000000e+00, 0.00000000e+00], ... [ 0.69302049, 1.40856592, 0.92156032, 2.14791432, 2.04373821,
[ 0.00000000e+00, 0.00000000e+00, 0.00000000e+00], ... 0.69800708, 0.58428735, 1.59128776, 2.05771405, 0.87021964],
[ 0.00000000e+00, 0.00000000e+00, 0.00000000e+00]]], ... [ 1.44080694, 0.39973751, 1.331243 , 2.48895822, 1.18894158,
<BLANKLINE> ... 1.40526085, 1.01967897, 0.81196474, 1.37978932, 2.03334689],
<BLANKLINE> ... [ 0.870329 , 1.25106862, 0.5346619 , 0.47541236, 1.51930093,
[[[ 3.41883175e-01, 5.97977973e-01, 0.00000000e+00], ... 0.58861519, 1.19780448, 0.81548296, 1.56859488, 1.60653533]])
[ 5.72071865e-01, 8.58566538e-01, 0.00000000e+00],
[ 3.46939323e-03, 4.04056116e-02, 0.00000000e+00]], >>> x = np.linspace(0, max(data.ravel()) + 1, 3)
<BLANKLINE> >>> dx = x[1] - x[0]
[[ 3.58861043e-01, 6.28962785e-01, 0.00000000e+00], >>> X = np.vstack((x, x, x, x))
[ 8.80697705e-01, 1.47373158e+00, 0.00000000e+00], >>> c = wk.gridcount(data, X)
[ 2.22868504e-01, 1.18008528e-01, 0.00000000e+00]], >>> c
<BLANKLINE> array([[[[ 1.77163904e-01, 1.87720108e-01, 0.00000000e+00],
[[ 2.91835067e-03, 2.60268355e-02, 0.00000000e+00], [ 5.72573585e-01, 6.09557834e-01, 0.00000000e+00],
[ 3.63686503e-02, 1.07959459e-01, 0.00000000e+00], [ 3.48549923e-03, 4.05931870e-02, 0.00000000e+00]],
[ 1.88555613e-02, 7.06358976e-03, 0.00000000e+00]]], <BLANKLINE>
<BLANKLINE> [[ 1.83770124e-01, 2.56357594e-01, 0.00000000e+00],
<BLANKLINE> [ 4.35845892e-01, 6.14958970e-01, 0.00000000e+00],
[[[ 3.13810608e-03, 2.11731327e-02, 0.00000000e+00], [ 3.07662204e-03, 3.58312786e-02, 0.00000000e+00]],
[ 6.71606255e-03, 4.53139824e-02, 0.00000000e+00], <BLANKLINE>
[ 0.00000000e+00, 0.00000000e+00, 0.00000000e+00]], [[ 0.00000000e+00, 0.00000000e+00, 0.00000000e+00],
<BLANKLINE> [ 0.00000000e+00, 0.00000000e+00, 0.00000000e+00],
[[ 7.05946179e-03, 5.44614852e-02, 0.00000000e+00], [ 0.00000000e+00, 0.00000000e+00, 0.00000000e+00]]],
[ 1.09099593e-01, 1.95935584e-01, 0.00000000e+00], <BLANKLINE>
[ 6.61257395e-02, 2.47717418e-02, 0.00000000e+00]], <BLANKLINE>
<BLANKLINE> [[[ 3.41883175e-01, 5.97977973e-01, 0.00000000e+00],
[[ 6.38695629e-04, 5.69610302e-03, 0.00000000e+00], [ 5.72071865e-01, 8.58566538e-01, 0.00000000e+00],
[ 1.00358265e-02, 2.44053065e-02, 0.00000000e+00], [ 3.46939323e-03, 4.04056116e-02, 0.00000000e+00]],
[ 5.67244468e-03, 2.12498697e-03, 0.00000000e+00]]]]) <BLANKLINE>
[[ 3.58861043e-01, 6.28962785e-01, 0.00000000e+00],
h = plb.plot(x, c, '.') # 1D histogram [ 8.80697705e-01, 1.47373158e+00, 0.00000000e+00],
[ 2.22868504e-01, 1.18008528e-01, 0.00000000e+00]],
h1 = plb.plot(x, c / dx / N) # 1D probability density plot <BLANKLINE>
t = np.trapz(x, c / dx / N) [[ 2.91835067e-03, 2.60268355e-02, 0.00000000e+00],
print(t) [ 3.63686503e-02, 1.07959459e-01, 0.00000000e+00],
''' [ 1.88555613e-02, 7.06358976e-03, 0.00000000e+00]]],
<BLANKLINE>
def test_docstrings(): <BLANKLINE>
import doctest [[[ 3.13810608e-03, 2.11731327e-02, 0.00000000e+00],
doctest.testmod() [ 6.71606255e-03, 4.53139824e-02, 0.00000000e+00],
[ 0.00000000e+00, 0.00000000e+00, 0.00000000e+00]],
if __name__ == '__main__': <BLANKLINE>
test_docstrings() [[ 7.05946179e-03, 5.44614852e-02, 0.00000000e+00],
[ 1.09099593e-01, 1.95935584e-01, 0.00000000e+00],
[ 6.61257395e-02, 2.47717418e-02, 0.00000000e+00]],
<BLANKLINE>
[[ 6.38695629e-04, 5.69610302e-03, 0.00000000e+00],
[ 1.00358265e-02, 2.44053065e-02, 0.00000000e+00],
[ 5.67244468e-03, 2.12498697e-03, 0.00000000e+00]]]])
h = plb.plot(x, c, '.') # 1D histogram
h1 = plb.plot(x, c / dx / N) # 1D probability density plot
t = np.trapz(x, c / dx / N)
print(t)
'''
def test_docstrings():
import doctest
print('Testing docstrings in %s' % __file__)
doctest.testmod(optionflags=doctest.NORMALIZE_WHITESPACE)
if __name__ == '__main__':
test_docstrings()

27
pywafo/src/wafo/test/test_objects.py
Unescape Escape View File

@ -19,7 +19,6 @@ def test_timeseries():
Estimate spectrum Estimate spectrum
>>> S = ts.tospecdata() >>> S = ts.tospecdata()
The default L is set to 325
>>> S.data[:10] >>> S.data[:10]
array([ 0.00913087, 0.00881073, 0.00791944, 0.00664244, 0.00522429, array([ 0.00913087, 0.00881073, 0.00791944, 0.00664244, 0.00522429,
0.00389816, 0.00282753, 0.00207843, 0.00162678, 0.0013916 ]) 0.00389816, 0.00282753, 0.00207843, 0.00162678, 0.0013916 ])
@ -41,19 +40,23 @@ def test_timeseries_trdata():
>>> Sj = sm.Jonswap(Hm0=Hs) >>> Sj = sm.Jonswap(Hm0=Hs)
>>> S = Sj.tospecdata() #Make spectrum object from numerical values >>> S = Sj.tospecdata() #Make spectrum object from numerical values
>>> S.tr = tm.TrOchi(mean=0, skew=0.16, kurt=0, sigma=Hs/4, ysigma=Hs/4) >>> S.tr = tm.TrOchi(mean=0, skew=0.16, kurt=0, sigma=Hs/4, ysigma=Hs/4)
>>> xs = S.sim(ns=2**20) >>> xs = S.sim(ns=2**20, iseed=10)
>>> ts = mat2timeseries(xs) >>> ts = mat2timeseries(xs)
>>> g0, gemp = ts.trdata(monitor=True) # Monitor the development >>> g0, gemp = ts.trdata(monitor=True) # Monitor the development
>>> g1, gemp = ts.trdata(method='m', gvar=0.5 ) # Equal weight on all points
>>> g2, gemp = ts.trdata(method='n', gvar=[3.5, 0.5, 3.5]) # Less weight on the ends # Equal weight on all points
>>> S.tr.dist2gauss() >>> g1, gemp = ts.trdata(method='mnonlinear', gvar=0.5 )
1.4106988010566603
>>> np.round(g0.dist2gauss()) # Less weight on the ends
1.0 >>> g2, gemp = ts.trdata(method='nonlinear', gvar=[3.5, 0.5, 3.5])
>>> np.round(g1.dist2gauss()) >>> 1.2 < S.tr.dist2gauss() < 1.6
1.0 True
>>> np.round(g2.dist2gauss()) >>> 1.65 < g0.dist2gauss() < 2.05
1.0 True
>>> 0.54 < g1.dist2gauss() < 0.95
True
>>> 1.5 < g2.dist2gauss() < 1.9
True
''' '''
if __name__ == '__main__': if __name__ == '__main__':

4
pywafo/src/wafo/transform/estimation.py
Unescape Escape View File

@ -82,7 +82,7 @@ class TransformEstimator(object):
def __init__(self, method='nonlinear', chkder=True, plotflag=False, def __init__(self, method='nonlinear', chkder=True, plotflag=False,
csm=.95, gsm=.05, param=(-5, 5, 513), delay=2, ntr=10000, csm=.95, gsm=.05, param=(-5, 5, 513), delay=2, ntr=10000,
linextrap=True, ne=7, cvar=1, gvar=1, multip=False, linextrap=True, ne=7, cvar=1, gvar=1, multip=False,
crossdef='uM'): crossdef='uM', monitor=False):
self.method = method self.method = method
self.chkder = chkder self.chkder = chkder
self.plotflag = plotflag self.plotflag = plotflag
@ -349,7 +349,7 @@ class TransformEstimator(object):
if self.chkder: if self.chkder:
tr_raw = TrData(tmp[Ne:nd - Ne], cdf.args[ind1], mean=mean, tr_raw = TrData(tmp[Ne:nd - Ne], cdf.args[ind1], mean=mean,
sigma=sigma) sigma=sigma)
tr = self._check_tr(tr, tr_raw) tr = self._check_tr(tr, tr_raw)
if self.plotflag > 0: if self.plotflag > 0:

19
pywafo/src/wafo/transform/models.py
Unescape Escape View File

@ -8,8 +8,8 @@ TrLinear
# !/usr/bin/env python # !/usr/bin/env python
from __future__ import division from __future__ import division
from scipy.optimize import brentq from scipy.optimize import brentq
from numpy import (sqrt, atleast_1d, abs, imag, sign, where, cos, arccos, ceil, # @UnresolvedImport from numpy import (sqrt, atleast_1d, abs, imag, sign, where, cos, arccos, ceil,
expm1, log1p, pi) # @UnresolvedImport expm1, log1p, pi)
import numpy as np import numpy as np
import warnings import warnings
from core import TrCommon, TrData from core import TrCommon, TrData
@ -69,7 +69,7 @@ class TrCommon2(TrCommon):
class TrHermite(TrCommon2): class TrHermite(TrCommon2):
__doc__ = TrCommon2.__doc__.replace('<generic>', 'Hermite' # @ReservedAssignment __doc__ = TrCommon2.__doc__.replace('<generic>', 'Hermite'
) + """ ) + """
pardef : scalar, integer pardef : scalar, integer
1 Winterstein et. al. (1994) parametrization [1]_ (default) 1 Winterstein et. al. (1994) parametrization [1]_ (default)
@ -319,13 +319,13 @@ class TrHermite(TrCommon2):
A0 = (q1 - q0) ** (1. / 3.) A0 = (q1 - q0) ** (1. / 3.)
B0 = -(q1 + q0) ** (1. / 3.) B0 = -(q1 + q0) ** (1. / 3.)
return A0 + B0 - x0 # % real root return A0 + B0 - x0 # % real root
#%% The other complex roots are given by # The other complex roots are given by
#%x= -(A0+B0)/2+(A0-B0)*sqrt(3)/2-x0 # x= -(A0+B0)/2+(A0-B0)*sqrt(3)/2-x0
#%x=-(A0+B0)/2+(A0-B0)*sqrt(-3)/2-x0 # x=-(A0+B0)/2+(A0-B0)*sqrt(-3)/2-x0
class TrLinear(TrCommon2): class TrLinear(TrCommon2):
__doc__ = TrCommon2.__doc__.replace('<generic>', 'Linear' # @ReservedAssignment __doc__ = TrCommon2.__doc__.replace('<generic>', 'Linear'
) + """ ) + """
Description Description
----------- -----------
@ -368,7 +368,7 @@ class TrLinear(TrCommon2):
class TrOchi(TrCommon2): class TrOchi(TrCommon2):
__doc__ = TrCommon2.__doc__.replace('<generic>', 'Ochi' # @ReservedAssignment __doc__ = TrCommon2.__doc__.replace('<generic>', 'Ochi'
) + """ ) + """
Description Description
@ -450,7 +450,8 @@ class TrOchi(TrCommon2):
# Let x = [a sig2^2 ] # Let x = [a sig2^2 ]
# Set up the 2D non-linear equations for a and sig2^2: # Set up the 2D non-linear equations for a and sig2^2:
# g1='[x(2)-2.*x(1).^2.*x(2).^2-P1, 2.*x(1).*x(2).^2.*(3-8.*x(1).^2.*x(2))-P2 ]' # g1='[x(2)-2.*x(1).^2.*x(2).^2-P1,
# 2.*x(1).*x(2).^2.*(3-8.*x(1).^2.*x(2))-P2 ]'
# Or solve the following 1D non-linear equation for sig2^2: # Or solve the following 1D non-linear equation for sig2^2:
g2 = lambda x: -sqrt(abs(x - 1) * 2) * \ g2 = lambda x: -sqrt(abs(x - 1) * 2) * \
(3. * x - 4 * abs(x - 1)) + abs(skew) (3. * x - 4 * abs(x - 1)) + abs(skew)

Write Preview
Loading…
Cancel
Save