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

Small updates

Browse Source
master
Per.Andreas.Brodtkorb 13 years ago
parent c43cd5bc68
commit 7bec68b28b
48 changed files with 1734 additions and 1639 deletions
Show Stats Download Patch File Download Diff File

2
pywafo/build_all.py
Unescape Escape View File

@ -1,5 +1,7 @@
""" """
builds all extensions builds all extensions
See also http://www.scipy.org/Cookbook/CompilingExtensionsOnWindowsWithMinGW
""" """
import os import os
import shutil import shutil

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

Binary file not shown.

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

Binary file not shown.

3
pywafo/src/wafo/interpolate.py
Unescape Escape View File

@ -1084,6 +1084,9 @@ def test_pp():
x = plb.linspace(-1, 3) x = plb.linspace(-1, 3)
plb.plot(x, pp(x), x, dpp(x), '.') plb.plot(x, pp(x), x, dpp(x), '.')
plb.show() plb.show()
if __name__ == '__main__': if __name__ == '__main__':
#main() #main()

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

@ -13,9 +13,10 @@ from numpy import (abs, amax, any, logical_and, arange, linspace, atleast_1d, at
r_, sign, unique, hstack, vstack, nonzero, where, extract) r_, sign, unique, hstack, vstack, nonzero, where, extract)
from scipy.special import gammaln from scipy.special import gammaln
from scipy.integrate import trapz, simps from scipy.integrate import trapz, simps
import types #import types
import warnings import warnings
from wafo import plotbackend from wafo import plotbackend
from collections import OrderedDict
try: try:
@ -544,6 +545,8 @@ def findrfc(tp, hmin=0.0, method='clib'):
>>> a = pb.plot(t,x,'.',ti,tp,'r.') >>> a = pb.plot(t,x,'.',ti,tp,'r.')
>>> ind1 = wm.findrfc(tp,0.3); ind1 >>> ind1 = wm.findrfc(tp,0.3); ind1
array([ 0, 9, 32, 53, 74, 95, 116, 137]) array([ 0, 9, 32, 53, 74, 95, 116, 137])
>>> ind2 = wm.findrfc(tp,0.3, method=''); ind2
array([ 0, 9, 32, 53, 74, 95, 116, 137])
>>> a = pb.plot(ti[ind1],tp[ind1]) >>> a = pb.plot(ti[ind1],tp[ind1])
>>> pb.close('all') >>> pb.close('all')
@ -1523,11 +1526,12 @@ def getshipchar(value, property="max_deadweight"):
max_deadweight = round(max_deadweight) max_deadweight = round(max_deadweight)
max_deadweightSTD = 0.1 * max_deadweight max_deadweightSTD = 0.1 * max_deadweight
shipchar = {'max_deadweight':max_deadweight, 'max_deadweightSTD':max_deadweightSTD, shipchar = OrderedDict(beam=beam, beamSTD=beam_err,
'length':length, 'lengthSTD':length_err, 'beam':beam, 'beamSTD':beam_err, draught=draught, draughtSTD=draught_err,
'draught':draught, 'draughtSTD':draught_err, length=length, lengthSTD=length_err,
'service_speed':speed, 'service_speedSTD':speed_err, max_deadweight=max_deadweight, max_deadweightSTD=max_deadweightSTD,
'propeller_diameter':p_diam, 'propeller_diameterSTD':p_diam_err} propeller_diameter=p_diam, propeller_diameterSTD=p_diam_err,
service_speed=speed, service_speedSTD=speed_err)
shipchar[propertySTD] = 0 shipchar[propertySTD] = 0
return shipchar return shipchar
@ -1786,7 +1790,7 @@ def cart2pol(x, y, z=None):
return t, r, z return t, r, z
def meshgrid(*xi, ** kwargs): def meshgrid(*xi, **kwargs):
""" """
Return coordinate matrices from one or more coordinate vectors. Return coordinate matrices from one or more coordinate vectors.
@ -1867,11 +1871,11 @@ def meshgrid(*xi, ** kwargs):
>>> xx, yy = meshgrid(x, y, sparse=True) >>> xx, yy = meshgrid(x, y, sparse=True)
>>> z = np.sin(xx**2+yy**2)/(xx**2+yy**2) >>> z = np.sin(xx**2+yy**2)/(xx**2+yy**2)
""" """
copy = kwargs.get('copy', True) copy_ = kwargs.get('copy', True)
args = atleast_1d(*xi) args = atleast_1d(*xi)
if not isinstance(args, list): if not isinstance(args, list):
if args.size > 0: if args.size > 0:
return args.copy() if copy else args return args.copy() if copy_ else args
else: else:
raise TypeError('meshgrid() take 1 or more arguments (0 given)') raise TypeError('meshgrid() take 1 or more arguments (0 given)')
@ -1892,13 +1896,13 @@ def meshgrid(*xi, ** kwargs):
shape[0], shape[1] = shape[1], shape[0] shape[0], shape[1] = shape[1], shape[0]
if sparse: if sparse:
if copy: if copy_:
return [x.copy() for x in output] return [x.copy() for x in output]
else: else:
return output return output
else: else:
# Return the full N-D matrix (not only the 1-D vector) # Return the full N-D matrix (not only the 1-D vector)
if copy: if copy_:
mult_fact = ones(shape, dtype=int) mult_fact = ones(shape, dtype=int)
return [x * mult_fact for x in output] return [x * mult_fact for x in output]
else: else:
@ -2229,13 +2233,13 @@ def plot_histgrm(data, bins=None, range=None, normed=False, weights=None, lintyp
if bins is None: if bins is None:
bins = np.ceil(4 * np.sqrt(np.sqrt(len(x)))) bins = np.ceil(4 * np.sqrt(np.sqrt(len(x))))
bin, limits = np.histogram(data, bins=bins, normed=normed, weights=weights) #, new=True) bin_, limits = np.histogram(data, bins=bins, normed=normed, weights=weights) #, new=True)
limits.shape = (-1, 1) limits.shape = (-1, 1)
xx = limits.repeat(3, axis=1) xx = limits.repeat(3, axis=1)
xx.shape = (-1,) xx.shape = (-1,)
xx = xx[1:-1] xx = xx[1:-1]
bin.shape = (-1, 1) bin_.shape = (-1, 1)
yy = bin.repeat(3, axis=1) yy = bin_.repeat(3, axis=1)
#yy[0,0] = 0.0 # pdf #yy[0,0] = 0.0 # pdf
yy[:, 0] = 0.0 # histogram yy[:, 0] = 0.0 # histogram
yy.shape = (-1,) yy.shape = (-1,)
@ -2273,8 +2277,8 @@ def num2pistr(x, n=3):
ntxt = '%d' % num ntxt = '%d' % num
xtxt = ntxt + r'\pi' + dtxt xtxt = ntxt + r'\pi' + dtxt
else: else:
format = '%0.' + '%dg' % n format_ = '%0.' + '%dg' % n
xtxt = format % x xtxt = format_ % x
return xtxt return xtxt
def fourier(data, t=None, T=None, m=None, n=None, method='trapz'): def fourier(data, t=None, T=None, m=None, n=None, method='trapz'):

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

Binary file not shown.

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

Binary file not shown.

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

@ -2405,395 +2405,395 @@ def sensor_type(*sensorids):
ids = where(((ids < 0) | (n < ids)), n , ids) ids = where(((ids < 0) | (n < ids)), n , ids)
return tuple(valid_names[i] for i in ids) return tuple(valid_names[i] for i in ids)
class TransferFunction(object): #class TransferFunction(object):
''' # '''
Class for computing transfer functions based on linear wave theory # Class for computing transfer functions based on linear wave theory
of the system with input surface elevation, # of the system with input surface elevation,
eta(x0,y0,t) = exp(i*(kx*x0+ky*y0-w*t)), # eta(x0,y0,t) = exp(i*(kx*x0+ky*y0-w*t)),
and output Y determined by sensortype and position of sensor. # and output Y determined by sensortype and position of sensor.
#
Member methods # Member methods
-------------- # --------------
tran(w, theta, kw) # tran(w, theta, kw)
#
Hw = a function of frequency only (not direction) size 1 x Nf # Hw = a function of frequency only (not direction) size 1 x Nf
Gwt = a function of frequency and direction size Nt x Nf # Gwt = a function of frequency and direction size Nt x Nf
w = vector of angular frequencies in Rad/sec. Length Nf # w = vector of angular frequencies in Rad/sec. Length Nf
theta = vector of directions in radians Length Nt (default 0) # theta = vector of directions in radians Length Nt (default 0)
( theta = 0 -> positive x axis theta = pi/2 -> positive y axis) # ( theta = 0 -> positive x axis theta = pi/2 -> positive y axis)
Member variables # Member variables
---------------- # ----------------
pos : [x,y,z] # pos : [x,y,z]
vector giving coordinate position relative to [x0 y0 z0] (default [0,0,0]) # vector giving coordinate position relative to [x0 y0 z0] (default [0,0,0])
sensortype = string # sensortype = string
defining the sensortype or transfer function in output. # defining the sensortype or transfer function in output.
0, 'n' : Surface elevation (n=Eta) (default) # 0, 'n' : Surface elevation (n=Eta) (default)
1, 'n_t' : Vertical surface velocity # 1, 'n_t' : Vertical surface velocity
2, 'n_tt' : Vertical surface acceleration # 2, 'n_tt' : Vertical surface acceleration
3, 'n_x' : Surface slope in x-direction # 3, 'n_x' : Surface slope in x-direction
4, 'n_y' : Surface slope in y-direction # 4, 'n_y' : Surface slope in y-direction
5, 'n_xx' : Surface curvature in x-direction # 5, 'n_xx' : Surface curvature in x-direction
6, 'n_yy' : Surface curvature in y-direction # 6, 'n_yy' : Surface curvature in y-direction
7, 'n_xy' : Surface curvature in xy-direction # 7, 'n_xy' : Surface curvature in xy-direction
8, 'P' : Pressure fluctuation about static MWL pressure # 8, 'P' : Pressure fluctuation about static MWL pressure
9, 'U' : Water particle velocity in x-direction # 9, 'U' : Water particle velocity in x-direction
10, 'V' : Water particle velocity in y-direction # 10, 'V' : Water particle velocity in y-direction
11, 'W' : Water particle velocity in z-direction # 11, 'W' : Water particle velocity in z-direction
12, 'U_t' : Water particle acceleration in x-direction # 12, 'U_t' : Water particle acceleration in x-direction
13, 'V_t' : Water particle acceleration in y-direction # 13, 'V_t' : Water particle acceleration in y-direction
14, 'W_t' : Water particle acceleration in z-direction # 14, 'W_t' : Water particle acceleration in z-direction
15, 'X_p' : Water particle displacement in x-direction from its mean position # 15, 'X_p' : Water particle displacement in x-direction from its mean position
16, 'Y_p' : Water particle displacement in y-direction from its mean position # 16, 'Y_p' : Water particle displacement in y-direction from its mean position
17, 'Z_p' : Water particle displacement in z-direction from its mean position # 17, 'Z_p' : Water particle displacement in z-direction from its mean position
h : real scalar # h : real scalar
water depth (default inf) # water depth (default inf)
g : real scalar # g : real scalar
acceleration of gravity (default 9.81 m/s**2) # acceleration of gravity (default 9.81 m/s**2)
rho : real scalar # rho : real scalar
water density (default 1028 kg/m**3) # water density (default 1028 kg/m**3)
bet : 1 or -1 # bet : 1 or -1
1, theta given in terms of directions toward which waves travel (default) # 1, theta given in terms of directions toward which waves travel (default)
-1, theta given in terms of directions from which waves come # -1, theta given in terms of directions from which waves come
igam : 1,2 or 3 # igam : 1,2 or 3
1, if z is measured positive upward from mean water level (default) # 1, if z is measured positive upward from mean water level (default)
2, if z is measured positive downward from mean water level # 2, if z is measured positive downward from mean water level
3, if z is measured positive upward from sea floor # 3, if z is measured positive upward from sea floor
thetax, thetay : real scalars # thetax, thetay : real scalars
angle in degrees clockwise from true north to positive x-axis and # angle in degrees clockwise from true north to positive x-axis and
positive y-axis, respectively. (default theatx=90, thetay=0) # positive y-axis, respectively. (default theatx=90, thetay=0)
#
Example # Example
------- # -------
>>> import pylab as plt # >>> import pylab as plt
>>> N=50; f0=0.1; th0=0; h=50; w0 = 2*pi*f0 # >>> N=50; f0=0.1; th0=0; h=50; w0 = 2*pi*f0
>>> t = np.linspace(0,15,N) # >>> t = np.linspace(0,15,N)
>>> eta0 = np.exp(-1j*w0*t) # >>> eta0 = np.exp(-1j*w0*t)
>>> stypes = ['n', 'n_x', 'n_y']; # >>> stypes = ['n', 'n_x', 'n_y'];
>>> tf = TransferFunction(pos=(0, 0, 0), h=50) # >>> tf = TransferFunction(pos=(0, 0, 0), h=50)
>>> vals = [] # >>> vals = []
>>> fh = plt.plot(t, eta0.real, 'r.') # >>> fh = plt.plot(t, eta0.real, 'r.')
>>> plt.hold(True) # >>> plt.hold(True)
>>> for i,stype in enumerate(stypes): # >>> for i,stype in enumerate(stypes):
... tf.sensortype = stype # ... tf.sensortype = stype
... Hw, Gwt = tf.tran(w0,th0) # ... Hw, Gwt = tf.tran(w0,th0)
... vals.append((Hw*Gwt*eta0).real.ravel()) # ... vals.append((Hw*Gwt*eta0).real.ravel())
... vals[i] # ... vals[i]
... fh = plt.plot(t, vals[i]) # ... fh = plt.plot(t, vals[i])
>>> plt.show() # >>> plt.show()
#
#
See also # See also
-------- # --------
dat2dspec, sensor_type, sensor_typeid # dat2dspec, sensor_type, sensor_typeid
#
Reference # Reference
--------- # ---------
Young I.R. (1994) # Young I.R. (1994)
"On the measurement of directional spectra", # "On the measurement of directional spectra",
Applied Ocean Research, Vol 16, pp 283-294 # Applied Ocean Research, Vol 16, pp 283-294
''' # '''
def __init__(self, pos=(0, 0, 0), sensortype='n', h=inf, g=9.81, rho=1028, # def __init__(self, pos=(0, 0, 0), sensortype='n', h=inf, g=9.81, rho=1028,
bet=1, igam=1, thetax=90, thetay=0): # bet=1, igam=1, thetax=90, thetay=0):
self.pos = pos # self.pos = pos
self.sensortype = sensortype if isinstance(sensortype, str) else sensor_type(sensortype) # self.sensortype = sensortype if isinstance(sensortype, str) else sensor_type(sensortype)
self.h = h # self.h = h
self.g = g # self.g = g
self.rho = rho # self.rho = rho
self.bet = bet # self.bet = bet
self.igam = igam # self.igam = igam
self.thetax = thetax # self.thetax = thetax
self.thetay = thetay # self.thetay = thetay
self._tran_dict = dict(n=self._n, n_t=self._n_t, n_tt=self._n_tt, # self._tran_dict = dict(n=self._n, n_t=self._n_t, n_tt=self._n_tt,
n_x=self._n_x, n_y=self._n_y, n_xx=self._n_xx, # n_x=self._n_x, n_y=self._n_y, n_xx=self._n_xx,
n_yy=self._n_yy, n_xy=self._n_xy, # n_yy=self._n_yy, n_xy=self._n_xy,
P=self._p, p=self._p, # P=self._p, p=self._p,
U=self._u, u=self._u, # U=self._u, u=self._u,
V=self._v, v=self._v, # V=self._v, v=self._v,
W=self._w, w=self._w, # W=self._w, w=self._w,
U_t=self._u_t, u_t=self._u_t, # U_t=self._u_t, u_t=self._u_t,
V_t=self._v_t, v_t=self._v_t, # V_t=self._v_t, v_t=self._v_t,
W_t=self._w_t, w_t=self._w_t, # W_t=self._w_t, w_t=self._w_t,
X_p=self._x_p, x_p=self._x_p, # X_p=self._x_p, x_p=self._x_p,
Y_p=self._y_p, y_p=self._y_p, # Y_p=self._y_p, y_p=self._y_p,
Z_p=self._z_p, z_p=self._z_p) # Z_p=self._z_p, z_p=self._z_p)
#
def tran(self, w, theta=0, kw=None): # def tran(self, w, theta=0, kw=None):
''' # '''
Return transfer functions based on linear wave theory # Return transfer functions based on linear wave theory
of the system with input surface elevation, # of the system with input surface elevation,
eta(x0,y0,t) = exp(i*(kx*x0+ky*y0-w*t)), # eta(x0,y0,t) = exp(i*(kx*x0+ky*y0-w*t)),
and output, # and output,
Y = Hw*Gwt*eta, determined by sensortype and position of sensor. # Y = Hw*Gwt*eta, determined by sensortype and position of sensor.
#
Parameters # Parameters
---------- # ----------
w : array-like # w : array-like
vector of angular frequencies in Rad/sec. Length Nf # vector of angular frequencies in Rad/sec. Length Nf
theta : array-like # theta : array-like
vector of directions in radians Length Nt (default 0) # vector of directions in radians Length Nt (default 0)
( theta = 0 -> positive x axis theta = pi/2 -> positive y axis) # ( theta = 0 -> positive x axis theta = pi/2 -> positive y axis)
kw : array-like # kw : array-like
vector of wave numbers corresponding to angular frequencies, w. Length Nf # vector of wave numbers corresponding to angular frequencies, w. Length Nf
(default calculated with w2k) # (default calculated with w2k)
#
Returns # Returns
------- # -------
Hw = transfer function of frequency only (not direction) size 1 x Nf # Hw = transfer function of frequency only (not direction) size 1 x Nf
Gwt = transfer function of frequency and direction size Nt x Nf # Gwt = transfer function of frequency and direction size Nt x Nf
#
The complete transfer function Hwt = Hw*Gwt is a function of # The complete transfer function Hwt = Hw*Gwt is a function of
w (columns) and theta (rows) size Nt x Nf # w (columns) and theta (rows) size Nt x Nf
''' # '''
if kw is None: # if kw is None:
kw, unusedkw2 = w2k(w, 0, self.h) #wave number as function of angular frequency # kw, unusedkw2 = w2k(w, 0, self.h) #wave number as function of angular frequency
#
w, theta, kw = np.atleast_1d(w, theta, kw) # w, theta, kw = np.atleast_1d(w, theta, kw)
# make sure they have the correct orientation # # make sure they have the correct orientation
theta.shape = (-1, 1) # theta.shape = (-1, 1)
kw.shape = (-1,) # kw.shape = (-1,)
w.shape = (-1,) # w.shape = (-1,)
#
tran_fun = self._tran_dict[self.sensortype] # tran_fun = self._tran_dict[self.sensortype]
Hw, Gwt = tran_fun(w, theta, kw) # Hw, Gwt = tran_fun(w, theta, kw)
#
# New call to avoid singularities. pab 07.11.2000 # # New call to avoid singularities. pab 07.11.2000
# Set Hw to 0 for expressions w*hyperbolic_ratio(z*k,h*k,1,-1)= 0*inf # # Set Hw to 0 for expressions w*hyperbolic_ratio(z*k,h*k,1,-1)= 0*inf
ind = np.flatnonzero(1 - np.isfinite(Hw)) # ind = np.flatnonzero(1 - np.isfinite(Hw))
Hw.flat[ind] = 0 # Hw.flat[ind] = 0
#
sgn = np.sign(Hw); # sgn = np.sign(Hw);
k0 = np.flatnonzero(sgn < 0) # k0 = np.flatnonzero(sgn < 0)
if len(k0): # make sure Hw>=0 ie. transfer negative signs to Gwt # if len(k0): # make sure Hw>=0 ie. transfer negative signs to Gwt
Gwt[:, k0] = -Gwt[:, k0] # Gwt[:, k0] = -Gwt[:, k0]
Hw[:, k0] = -Hw[:, k0] # Hw[:, k0] = -Hw[:, k0]
#
if self.igam == 2: # if self.igam == 2:
#pab 09 Oct.2002: bug fix # #pab 09 Oct.2002: bug fix
# Changing igam by 2 should affect the directional result in the same way that changing eta by -eta! # # Changing igam by 2 should affect the directional result in the same way that changing eta by -eta!
Gwt = -Gwt # Gwt = -Gwt
return Hw, Gwt # return Hw, Gwt
__call__ = tran # __call__ = tran
#---Private member methods ##---Private member methods
def _get_ee_cthxy(self, theta, kw): # def _get_ee_cthxy(self, theta, kw):
# convert from angle in degrees to radians # # convert from angle in degrees to radians
bet = self.bet # bet = self.bet
thxr = self.thetax * pi / 180 # thxr = self.thetax * pi / 180
thyr = self.thetay * pi / 180 # thyr = self.thetay * pi / 180
#
cthx = bet * cos(theta - thxr + pi / 2) # cthx = bet * cos(theta - thxr + pi / 2)
#cthy = cos(theta-thyr-pi/2) # #cthy = cos(theta-thyr-pi/2)
cthy = bet * sin(theta - thyr) # cthy = bet * sin(theta - thyr)
#
# Compute location complex exponential # # Compute location complex exponential
x, y, unused_z = list(self.pos) # x, y, unused_z = list(self.pos)
ee = exp((1j * (x * cthx + y * cthy)) * kw) # exp(i*k(w)*(x*cos(theta)+y*sin(theta)) size Nt X Nf # ee = exp((1j * (x * cthx + y * cthy)) * kw) # exp(i*k(w)*(x*cos(theta)+y*sin(theta)) size Nt X Nf
return ee, cthx, cthy # return ee, cthx, cthy
#
def _get_zk(self, kw): # def _get_zk(self, kw):
h = self.h # h = self.h
z = self.pos[2] # z = self.pos[2]
if self.igam == 1: # if self.igam == 1:
zk = kw * (h + z) # z measured positive upward from mean water level (default) # zk = kw * (h + z) # z measured positive upward from mean water level (default)
elif self.igam == 2: # elif self.igam == 2:
zk = kw * (h - z) # z measured positive downward from mean water level # zk = kw * (h - z) # z measured positive downward from mean water level
else: # else:
zk = kw * z # z measured positive upward from sea floor # zk = kw * z # z measured positive upward from sea floor
return zk # return zk
#
#--- Surface elevation --- # #--- Surface elevation ---
def _n(self, w, theta, kw): # def _n(self, w, theta, kw):
'''n = Eta = wave profile # '''n = Eta = wave profile
''' # '''
ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
return np.ones_like(w), ee # return np.ones_like(w), ee
#
#---- Vertical surface velocity and acceleration----- # #---- Vertical surface velocity and acceleration-----
def _n_t(self, w, theta, kw): # def _n_t(self, w, theta, kw):
''' n_t = Eta_t ''' # ''' n_t = Eta_t '''
ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
return w, -1j * ee; # return w, -1j * ee;
def _n_tt(self, w, theta, kw): # def _n_tt(self, w, theta, kw):
'''n_tt = Eta_tt''' # '''n_tt = Eta_tt'''
ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
return w ** 2, -ee # return w ** 2, -ee
#
#--- Surface slopes --- # #--- Surface slopes ---
def _n_x(self, w, theta, kw): # def _n_x(self, w, theta, kw):
''' n_x = Eta_x = x-slope''' # ''' n_x = Eta_x = x-slope'''
ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
return kw, 1j * cthx * ee # return kw, 1j * cthx * ee
def _n_y(self, w, theta, kw): # def _n_y(self, w, theta, kw):
''' n_y = Eta_y = y-slope''' # ''' n_y = Eta_y = y-slope'''
ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw)
return kw, 1j * cthy * ee # return kw, 1j * cthy * ee
#
#--- Surface curvatures --- # #--- Surface curvatures ---
def _n_xx(self, w, theta, kw): # def _n_xx(self, w, theta, kw):
''' n_xx = Eta_xx = Surface curvature (x-dir)''' # ''' n_xx = Eta_xx = Surface curvature (x-dir)'''
ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
return kw ** 2, -(cthx ** 2) * ee # return kw ** 2, -(cthx ** 2) * ee
def _n_yy(self, w, theta, kw): # def _n_yy(self, w, theta, kw):
''' n_yy = Eta_yy = Surface curvature (y-dir)''' # ''' n_yy = Eta_yy = Surface curvature (y-dir)'''
ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw)
return kw ** 2, -cthy ** 2 * ee # return kw ** 2, -cthy ** 2 * ee
def _n_xy(self, w, theta, kw): # def _n_xy(self, w, theta, kw):
''' n_xy = Eta_xy = Surface curvature (xy-dir)''' # ''' n_xy = Eta_xy = Surface curvature (xy-dir)'''
ee, cthx, cthy = self._get_ee_cthxy(theta, kw) # ee, cthx, cthy = self._get_ee_cthxy(theta, kw)
return kw ** 2, -cthx * cthy * ee # return kw ** 2, -cthx * cthy * ee
#
#--- Pressure--- # #--- Pressure---
def _p(self, w, theta, kw): # def _p(self, w, theta, kw):
''' pressure fluctuations''' # ''' pressure fluctuations'''
ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
hk = kw * self.h # hk = kw * self.h
zk = self._get_zk(kw) # zk = self._get_zk(kw)
return self.rho * self.g * hyperbolic_ratio(zk, hk, 1, 1), ee #hyperbolic_ratio = cosh(zk)/cosh(hk) # return self.rho * self.g * hyperbolic_ratio(zk, hk, 1, 1), ee #hyperbolic_ratio = cosh(zk)/cosh(hk)
#
#---- Water particle velocities --- # #---- Water particle velocities ---
def _u(self, w, theta, kw): # def _u(self, w, theta, kw):
''' U = x-velocity''' # ''' U = x-velocity'''
ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
hk = kw * self.h # hk = kw * self.h
zk = self._get_zk(kw) # zk = self._get_zk(kw)
return w * hyperbolic_ratio(zk, hk, 1, -1), cthx * ee# w*cosh(zk)/sinh(hk), cos(theta)*ee # return w * hyperbolic_ratio(zk, hk, 1, -1), cthx * ee# w*cosh(zk)/sinh(hk), cos(theta)*ee
def _v(self, w, theta, kw): # def _v(self, w, theta, kw):
'''V = y-velocity''' # '''V = y-velocity'''
ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw)
hk = kw * self.h # hk = kw * self.h
zk = self._get_zk(kw) # zk = self._get_zk(kw)
return w * hyperbolic_ratio(zk, hk, 1, -1), cthy * ee # w*cosh(zk)/sinh(hk), sin(theta)*ee # return w * hyperbolic_ratio(zk, hk, 1, -1), cthy * ee # w*cosh(zk)/sinh(hk), sin(theta)*ee
def _w(self, w, theta, kw): # def _w(self, w, theta, kw):
''' W = z-velocity''' # ''' W = z-velocity'''
ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
hk = kw * self.h # hk = kw * self.h
zk = self._get_zk(kw) # zk = self._get_zk(kw)
return w * hyperbolic_ratio(zk, hk, -1, -1), -1j * ee # w*sinh(zk)/sinh(hk), -? # return w * hyperbolic_ratio(zk, hk, -1, -1), -1j * ee # w*sinh(zk)/sinh(hk), -?
#
#---- Water particle acceleration --- # #---- Water particle acceleration ---
def _u_t(self, w, theta, kw): # def _u_t(self, w, theta, kw):
''' U_t = x-acceleration''' # ''' U_t = x-acceleration'''
ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
hk = kw * self.h # hk = kw * self.h
zk = self._get_zk(kw) # zk = self._get_zk(kw)
return (w ** 2) * hyperbolic_ratio(zk, hk, 1, -1), -1j * cthx * ee # w^2*cosh(zk)/sinh(hk), ? # return (w ** 2) * hyperbolic_ratio(zk, hk, 1, -1), -1j * cthx * ee # w^2*cosh(zk)/sinh(hk), ?
#
def _v_t(self, w, theta, kw): # def _v_t(self, w, theta, kw):
''' V_t = y-acceleration''' # ''' V_t = y-acceleration'''
ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw)
hk = kw * self.h # hk = kw * self.h
zk = self._get_zk(kw) # zk = self._get_zk(kw)
return (w ** 2) * hyperbolic_ratio(zk, hk, 1, -1), -1j * cthy * ee # w^2*cosh(zk)/sinh(hk), ? # return (w ** 2) * hyperbolic_ratio(zk, hk, 1, -1), -1j * cthy * ee # w^2*cosh(zk)/sinh(hk), ?
def _w_t(self, w, theta, kw): # def _w_t(self, w, theta, kw):
''' W_t = z-acceleration''' # ''' W_t = z-acceleration'''
ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
hk = kw * self.h # hk = kw * self.h
zk = self._get_zk(kw) # zk = self._get_zk(kw)
return (w ** 2) * hyperbolic_ratio(zk, hk, -1, -1), -ee # w*sinh(zk)/sinh(hk), ? # return (w ** 2) * hyperbolic_ratio(zk, hk, -1, -1), -ee # w*sinh(zk)/sinh(hk), ?
#
#---- Water particle displacement --- # #---- Water particle displacement ---
def _x_p(self, w, theta, kw): # def _x_p(self, w, theta, kw):
''' X_p = x-displacement''' # ''' X_p = x-displacement'''
ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
hk = kw * self.h # hk = kw * self.h
zk = self._get_zk(kw) # zk = self._get_zk(kw)
return hyperbolic_ratio(zk, hk, 1, -1), 1j * cthx * ee # cosh(zk)./sinh(hk), ? # return hyperbolic_ratio(zk, hk, 1, -1), 1j * cthx * ee # cosh(zk)./sinh(hk), ?
def _y_p(self, w, theta, kw): # def _y_p(self, w, theta, kw):
''' Y_p = y-displacement''' # ''' Y_p = y-displacement'''
ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw)
hk = kw * self.h # hk = kw * self.h
zk = self._get_zk(kw) # zk = self._get_zk(kw)
return hyperbolic_ratio(zk, hk, 1, -1), 1j * cthy * ee # cosh(zk)./sinh(hk), ? # return hyperbolic_ratio(zk, hk, 1, -1), 1j * cthy * ee # cosh(zk)./sinh(hk), ?
def _z_p(self, w, theta, kw): # def _z_p(self, w, theta, kw):
''' Z_p = z-displacement''' # ''' Z_p = z-displacement'''
ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) # ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw)
hk = kw * self.h # hk = kw * self.h
zk = self._get_zk(kw) # zk = self._get_zk(kw)
return hyperbolic_ratio(zk, hk, -1, -1), ee # sinh(zk)./sinh(hk), ee # return hyperbolic_ratio(zk, hk, -1, -1), ee # sinh(zk)./sinh(hk), ee
#
def wave_pressure(z, Hm0, h=10000, g=9.81, rho=1028): #def wave_pressure(z, Hm0, h=10000, g=9.81, rho=1028):
''' # '''
Calculate pressure amplitude due to water waves. # Calculate pressure amplitude due to water waves.
#
Parameters # Parameters
---------- # ----------
z : array-like # z : array-like
depth where pressure is calculated [m] # depth where pressure is calculated [m]
Hm0 : array-like # Hm0 : array-like
significant wave height (same as the average of the 1/3'rd highest # significant wave height (same as the average of the 1/3'rd highest
waves in a seastate. [m] # waves in a seastate. [m]
h : real scalar # h : real scalar
waterdepth (default 10000 [m]) # waterdepth (default 10000 [m])
g : real scalar # g : real scalar
acceleration of gravity (default 9.81 m/s**2) # acceleration of gravity (default 9.81 m/s**2)
rho : real scalar # rho : real scalar
water density (default 1028 kg/m**3) # water density (default 1028 kg/m**3)
#
#
Returns # Returns
------- # -------
p : ndarray # p : ndarray
pressure amplitude due to water waves at water depth z. [Pa] # pressure amplitude due to water waves at water depth z. [Pa]
#
PRESSURE calculate pressure amplitude due to water waves according to # PRESSURE calculate pressure amplitude due to water waves according to
linear theory. # linear theory.
#
Example # Example
----- # -----
>>> import pylab as plt # >>> import pylab as plt
>>> z = -np.linspace(10,20) # >>> z = -np.linspace(10,20)
>>> fh = plt.plot(z, wave_pressure(z, Hm0=1, h=20)) # >>> fh = plt.plot(z, wave_pressure(z, Hm0=1, h=20))
>>> plt.show() # >>> plt.show()
#
See also # See also
-------- # --------
w2k # w2k
#
#
u = psweep.Fn*sqrt(mgf.length*9.81) # u = psweep.Fn*sqrt(mgf.length*9.81)
z = -10; h = inf; # z = -10; h = inf;
Hm0 = 1.5;Tp = 4*sqrt(Hm0); # Hm0 = 1.5;Tp = 4*sqrt(Hm0);
S = jonswap([],[Hm0,Tp]); # S = jonswap([],[Hm0,Tp]);
Hw = tran(S.w,0,[0 0 -z],'P',h) # Hw = tran(S.w,0,[0 0 -z],'P',h)
Sm = S; # Sm = S;
Sm.S = Hw.'.*S.S; # Sm.S = Hw.'.*S.S;
x1 = spec2sdat(Sm,1000); # x1 = spec2sdat(Sm,1000);
pwave = pressure(z,Hm0,h) # pwave = pressure(z,Hm0,h)
#
plot(psweep.x{1}/u, psweep.f) # plot(psweep.x{1}/u, psweep.f)
hold on # hold on
plot(x1(1:100,1)-30,x1(1:100,2),'r') # plot(x1(1:100,1)-30,x1(1:100,2),'r')
''' # '''
#
#
# Assume seastate with jonswap spectrum: # # Assume seastate with jonswap spectrum:
#
Tp = 4 * np.sqrt(Hm0) # Tp = 4 * np.sqrt(Hm0)
gam = jonswap_peakfact(Hm0, Tp) # gam = jonswap_peakfact(Hm0, Tp)
Tm02 = Tp / (1.30301 - 0.01698 * gam + 0.12102 / gam) # Tm02 = Tp / (1.30301 - 0.01698 * gam + 0.12102 / gam)
w = 2 * np.pi / Tm02 # w = 2 * np.pi / Tm02
kw, unused_kw2 = w2k(w, 0, h) # kw, unused_kw2 = w2k(w, 0, h)
#
hk = kw * h # hk = kw * h
zk1 = kw * z # zk1 = kw * z
zk = hk + zk1 # z measured positive upward from mean water level (default) # zk = hk + zk1 # z measured positive upward from mean water level (default)
#zk = hk-zk1; % z measured positive downward from mean water level # #zk = hk-zk1; % z measured positive downward from mean water level
#zk1 = -zk1; # #zk1 = -zk1;
#zk = zk1; % z measured positive upward from sea floor # #zk = zk1; % z measured positive upward from sea floor
#
# cosh(zk)/cosh(hk) approx exp(zk) for large h # # cosh(zk)/cosh(hk) approx exp(zk) for large h
# hyperbolic_ratio(zk,hk,1,1) = cosh(zk)/cosh(hk) # # hyperbolic_ratio(zk,hk,1,1) = cosh(zk)/cosh(hk)
# pr = np.where(np.pi < hk, np.exp(zk1), hyperbolic_ratio(zk, hk, 1, 1)) # # pr = np.where(np.pi < hk, np.exp(zk1), hyperbolic_ratio(zk, hk, 1, 1))
pr = hyperbolic_ratio(zk, hk, 1, 1) # pr = hyperbolic_ratio(zk, hk, 1, 1)
pressure = (rho * g * Hm0 / 2) * pr # pressure = (rho * g * Hm0 / 2) * pr
#
# pos = [np.zeros_like(z),np.zeros_like(z),z] ## pos = [np.zeros_like(z),np.zeros_like(z),z]
# tf = TransferFunction(pos=pos, sensortype='p', h=h, rho=rho, g=g) ## tf = TransferFunction(pos=pos, sensortype='p', h=h, rho=rho, g=g)
# Hw, Gwt = tf.tran(w,0) ## Hw, Gwt = tf.tran(w,0)
# pressure2 = np.abs(Hw) * Hm0 / 2 ## pressure2 = np.abs(Hw) * Hm0 / 2
#
return pressure # return pressure
def main0(): def main():
import wafo import wafo
ts = wafo.objects.mat2timeseries(wafo.data.sea()) ts = wafo.objects.mat2timeseries(wafo.data.sea())
tp = ts.turning_points() tp = ts.turning_points()
@ -2835,12 +2835,15 @@ def main0():
d2.plot() d2.plot()
print 'Done' print 'Done'
def main(): def test_docstrings():
sensortype(range(21)) import doctest
doctest.testmod()
if __name__ == '__main__': if __name__ == '__main__':
test_levelcrossings_extrapolate() test_levelcrossings_extrapolate()
# if True: #False : # # if True: #False : #
# import doctest # import doctest
# doctest.testmod() # doctest.testmod()
# else: # else:

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

Binary file not shown.

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

Binary file not shown.

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

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

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012
MD5:67523ef735281684c8fb9aae15cdc0a3 -- If you edit this, you'll get what you deserve. MD5:deb744d8baea0ddd5fc5faf9be58df7e -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -12,14 +12,16 @@ MD5:67523ef735281684c8fb9aae15cdc0a3 -- If you edit this, you'll get what you de
() ()
()
(2 'eps' 'epsmod' 'eps' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN (2 'eps' 'epsmod' 'eps' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
3 'eps0' 'epsmod' 'eps0' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 3 'eps0' 'epsmod' 'eps0' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
4 'epsmod' 'epsmod' 'epsmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 4 'epsmod' 'epsmod' 'epsmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
5 'epss' 'epsmod' 'epss' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 5 'epss' 'epsmod' 'epss' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 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)

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

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

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012
MD5:806a8e6bde038d8bc47688d3b6e5277f -- If you edit this, you'll get what you deserve. MD5:5dadee8498f04fe7df773933dace020d -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -12,21 +12,23 @@ MD5:806a8e6bde038d8bc47688d3b6e5277f -- If you edit this, you'll get what you de
() ()
()
(2 'iac' 'infcmod' 'iac' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC (2 'iac' 'infcmod' 'iac' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN EXPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () ()
0) () 0 0)
3 'inf' 'infcmod' 'inf' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 3 'inf' 'infcmod' 'inf' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT ( UNKNOWN 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
INTEGER ()) 0 '10')) 0 () () () 0 0) INTEGER ()) 0 '10')) 0 () () () 0 0)
4 'infcmod' 'infcmod' 'infcmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 4 'infcmod' 'infcmod' 'infcmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (UNKNOWN 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' 'info' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 5 'info' 'infcmod' 'info' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT UNKNOWN UNKNOWN 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
INTEGER ()) 0 '10')) 0 () () () 0 0) 4 0 0 INTEGER ()) 0 '10')) 0 () () () 0 0)
6 'isq' 'infcmod' 'isq' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 6 'isq' 'infcmod' 'isq' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
EXPLICIT-SAVE) (INTEGER 4 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)

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

@ -1,9 +1,8 @@
GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:06 2011 GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012
MD5:a058cc3e6c0e8bedef8f214da2f5fbdc -- If you edit this, you'll get what you deserve. MD5:73d0040f77005ab6be34b297552c2c19 -- If you edit this, you'll get what you deserve.
(() (() () () () () () () () () () () () () () () () () () () () () () ()
() () () () () () () () () () () () () () () () () () () () () () () () () () () ())
() ())
() ()
@ -13,85 +12,88 @@ MD5:a058cc3e6c0e8bedef8f214da2f5fbdc -- If you edit this, you'll get what you de
() ()
()
(2 'fi' 'mregmod' 'fi' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL (2 'fi' 'mregmod' 'fi' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 5 0 (6) () 2 () () () 0 0) UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 5 0 (6) () 2 () () ()
0 0)
4 'mreg' 'mregmod' 'mreg' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 4 'mreg' 'mregmod' 'mreg' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 7 0 (8 9 10 11 12 UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 7 0 (8 9 10
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 3 'rind' 'mregmod' 'rind' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 21 0 (22 23 24 25 UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 21 0 (22 23
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 26 'db' '' 'db' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
23 'r' '' 'r' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0
INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '40401')) 0 ()
() () 0 0)
24 'bu' '' 'bu' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
'201')) 0 () () () 0 0) '201')) 0 () () () 0 0)
25 'dbun' '' 'dbun' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 27 'sq' '' 'sq' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
26 'db' '' 'db' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
'201')) 0 () () () 0 0) '201')) 0 () () () 0 0)
27 'sq' '' 'sq' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 24 'bu' '' 'bu' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
'201')) 0 () () () 0 0) '201')) 0 () () () 0 0)
28 'vder' '' 'vder' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 28 'vder' '' 'vder' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
29 'nit' '' 'nit' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 29 'nit' '' 'nit' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
30 'n' '' 'n' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 22 'xind' '' 'xind' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
23 'r' '' 'r' 21 ((VARIABLE INOUT 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') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
'40401')) 0 () () () 0 0)
25 'dbun' '' 'dbun' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
30 'n' '' 'n' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
31 'infr' '' 'infr' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) 31 'infr' '' 'infr' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
6 'xx' '' 'xx' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 6 'xx' '' 'xx' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
8 'f' '' 'f' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 8 'f' '' 'f' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'r' '' 'r' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION 9 'r' '' 'r' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (
INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '40401')) 0 () INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
() () 0 0) '40401')) 0 () () () 0 0)
10 'b' '' 'b' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION 10 'b' '' 'b' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0
INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '201')) 0 () ()
() 0 0)
11 'db' '' 'db' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
'201')) 0 () () () 0 0) '201')) 0 () () () 0 0)
12 'aa' '' 'aa' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 18 'n' '' 'n' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
11 'db' '' 'db' 7 ((VARIABLE INOUT 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') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
'201')) 0 () () () 0 0)
12 'aa' '' 'aa' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT (CONSTANT ( DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
'4') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 '4') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0
0 INTEGER ()) 0 '4')) 0 () () () 0 0) 0 INTEGER ()) 0 '4')) 0 () () () 0 0)
13 'bb' '' 'bb' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 13 'bb' '' 'bb' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
'7')) 0 () () () 0 0) '7')) 0 () () () 0 0)
14 'a' '' 'a' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION 19 'nit' '' 'nit' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1407')) 0 () 14 'a' '' 'a' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
() () 0 0) DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (
15 'da' '' 'da' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
'1407')) 0 () () () 0 0)
20 'infr' '' 'infr' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
15 'da' '' 'da' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
'7')) 0 () () () 0 0) '7')) 0 () () () 0 0)
16 'vder' '' 'vder' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) 16 'vder' '' 'vder' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
17 'm' '' 'm' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 17 'm' '' 'm' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
18 'n' '' 'n' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
19 'nit' '' 'nit' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
20 'infr' '' 'infr' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
) )
('fi' 0 2 'mreg' 0 4 'rind' 0 3) ('fi' 0 2 'mreg' 0 4 'rind' 0 3)

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012
MD5:447301769c212f228b6cfa086ba1d48a -- If you edit this, you'll get what you deserve. MD5:60519873a9b0b44a975f51ae49005353 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -12,24 +12,26 @@ MD5:447301769c212f228b6cfa086ba1d48a -- If you edit this, you'll get what you de
() ()
()
(2 'h' 'quadrmod' 'h' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN (2 'h' 'quadrmod' 'h' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT ( UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 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' 'i' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
4 'nn' 'quadrmod' 'nn' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 4 'nn' 'quadrmod' 'nn' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DIMENSION DATA) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT ( UNKNOWN 0 0 DIMENSION DATA) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
INTEGER ()) 0 '25')) 0 () () () 0 0) 4 0 0 INTEGER ()) 0 '25')) 0 () () () 0 0)
5 'nnw' 'quadrmod' 'nnw' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 5 'nnw' 'quadrmod' 'nnw' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
6 'quadrmod' 'quadrmod' 'quadrmod' 1 ((MODULE UNKNOWN-INTENT 6 'quadrmod' 'quadrmod' 'quadrmod' 1 ((MODULE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 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' 'z' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT ( UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
INTEGER ()) 0 '126')) 0 () () () 0 0) INTEGER ()) 0 '126')) 0 () () () 0 0)
) )

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012
MD5:ea81a0bf9bc67a6cbf4024dcd57f4ee3 -- If you edit this, you'll get what you deserve. MD5:c272ea8a24ebb29c49c7755fa1ba58fd -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -12,12 +12,14 @@ MD5:ea81a0bf9bc67a6cbf4024dcd57f4ee3 -- If you edit this, you'll get what you de
() ()
()
(2 'c' 'rintmod' 'c' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN (2 'c' 'rintmod' 'c' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
EXPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
3 'fc' 'rintmod' 'fc' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 3 'fc' 'rintmod' 'fc' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
EXPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
4 'rintmod' 'rintmod' 'rintmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 4 'rintmod' 'rintmod' 'rintmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (UNKNOWN 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)

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012
MD5:b8c9fdc908b66b228beb64d8a241e2e6 -- If you edit this, you'll get what you deserve. MD5:9fbc3ee9bf9bf359ed3c3cd78067ab58 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -12,17 +12,19 @@ MD5:b8c9fdc908b66b228beb64d8a241e2e6 -- If you edit this, you'll get what you de
() ()
()
(2 'mmax' 'sizemod' 'mmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC (2 'mmax' 'sizemod' 'mmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0)
3 'nmax' 'sizemod' 'nmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 3 'nmax' 'sizemod' 'nmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '201') () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 '201') () 0 () () () 0 0)
4 'rdim' 'sizemod' 'rdim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 4 'rdim' 'sizemod' 'rdim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '40401') () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 '40401') () 0 () () () 0 0)
5 'sizemod' 'sizemod' 'sizemod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 5 'sizemod' 'sizemod' 'sizemod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (UNKNOWN 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)

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

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

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

@ -1,8 +1,10 @@
GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012
MD5:43d81dd7165fa3666db9131e212144f1 -- If you edit this, you'll get what you deserve. MD5:1ca9424273ef49cacfd88e3bffcc7949 -- If you edit this, you'll get what you deserve.
(() () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () () () () () () () () () () () () () () () () () ()) () () () ())
()
() ()
@ -13,22 +15,22 @@ MD5:43d81dd7165fa3666db9131e212144f1 -- If you edit this, you'll get what you de
() ()
(2 'hh' 'tbrmod' 'hh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN (2 'hh' 'tbrmod' 'hh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( UNKNOWN 0 0 DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (
INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
'201')) 0 () () () 0 0) INTEGER ()) 0 '201')) 0 () () () 0 0)
3 'mmax' 'sizemod' 'mmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 3 'mmax' 'sizemod' 'mmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0)
4 'nmax' 'sizemod' 'nmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 4 'nmax' 'sizemod' 'nmax' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '201') () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 '201') () 0 () () () 0 0)
5 'rdim' 'sizemod' 'rdim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 5 'rdim' 'sizemod' 'rdim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '40401') () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 '40401') () 0 () () () 0 0)
6 'sizemod' 'sizemod' 'sizemod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 6 'sizemod' 'sizemod' 'sizemod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
7 'tbrmod' 'tbrmod' 'tbrmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 7 'tbrmod' 'tbrmod' 'tbrmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (UNKNOWN 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.

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

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

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from mvnprodcorrprb.f on Fri Jul 31 00:49:14 2009 GFORTRAN module version '4' created from mvnprodcorrprb.f on Tue Mar 27 09:05:10 2012
MD5:fd8b502899ea930770b400347fe62952 -- If you edit this, you'll get what you deserve. MD5:3c74315b2657777cdd2d82ef024b4aea -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -13,39 +13,41 @@ MD5:fd8b502899ea930770b400347fe62952 -- If you edit this, you'll get what you de
() ()
()
(3 'calerf' 'erfcoremod' 'calerf' 1 ((PROCEDURE UNKNOWN-INTENT (3 'calerf' 'erfcoremod' 'calerf' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN
6 0 (7 8 9) () 0 () () () 0 0) ()) 6 0 (7 8 9) () 0 () () () 0 0)
2 'derf' 'erfcoremod' 'derf' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 2 'derf' 'erfcoremod' 'derf' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 10 0 (11) () 12 () () DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 10 0 (11) () 12
() 0 0) () () () 0 0)
5 'derfc' 'erfcoremod' 'derfc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 5 'derfc' 'erfcoremod' 'derfc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 13 0 (14) () 15 () () DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 13 0 (14) () 15
() 0 0) () () () 0 0)
4 'derfcx' 'erfcoremod' 'derfcx' 1 ((PROCEDURE UNKNOWN-INTENT 4 'derfcx' 'erfcoremod' 'derfcx' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 16 0 ( MODULE-PROC DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 16 0
17) () 18 () () () 0 0) (17) () 18 () () () 0 0)
19 'erfcoremod' 'erfcoremod' 'erfcoremod' 1 ((MODULE UNKNOWN-INTENT 19 'erfcoremod' 'erfcoremod' 'erfcoremod' 1 ((MODULE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0
() () 0 0) () () () 0 0)
11 'x' '' 'x' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 11 'x' '' 'x' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
12 'value' '' 'value' 10 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 12 'value' '' 'value' 10 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
14 'x' '' 'x' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 14 'x' '' 'x' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
15 'value' '' 'value' 13 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 15 'value' '' 'value' 13 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
17 'x' '' 'x' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 17 'x' '' 'x' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
18 'value' '' 'value' 16 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 18 'value' '' 'value' 16 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
7 'arg' '' 'arg' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 7 'arg' '' '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 REAL ()) 0 0 () () 0 () () () 0 0)
8 'result' '' 'result' 6 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 8 'result' '' 'result' 6 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'jint' '' 'jint' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 9 'jint' '' 'jint' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
) )
('calerf' 0 3 'derf' 0 2 'derfc' 0 5 'derfcx' 0 4 'erfcoremod' 0 19) ('calerf' 0 3 'derf' 0 2 'derfc' 0 5 'derfcx' 0 4 'erfcoremod' 0 19)

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

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

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

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

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

Binary file not shown.

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

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

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from intmodule.f on Wed Jun 01 13:58:08 2011 GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:12 2012
MD5:49682d06ef7be297d13abb52c9f1dbaa -- If you edit this, you'll get what you deserve. MD5:cabeafe3b4601bcca29abefe46d04288 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -12,58 +12,60 @@ MD5:49682d06ef7be297d13abb52c9f1dbaa -- If you edit this, you'll get what you de
() ()
()
(2 'adapt' 'adaptmod' 'adapt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC (2 'adapt' 'adaptmod' 'adapt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 4 0 (5 6 7 8 DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 4 0 (5 6
9 10 11 12 13) () 0 () () () 0 0) 7 8 9 10 11 12 13) () 0 () () () 0 0)
3 'sadapt' 'adaptmod' 'sadapt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 3 'sadapt' 'adaptmod' 'sadapt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 14 0 (15 16 DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 14 0 (
17 18 19 20 21 22) () 0 () () () 0 0) 15 16 17 18 19 20 21 22) () 0 () () () 0 0)
15 'n' '' 'n' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 18 'abseps' '' 'abseps' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
16 'maxpts' '' 'maxpts' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 19 'releps' '' 'releps' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
17 'functn' '' 'functn' 14 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY 20 'error' '' 'error' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
UNKNOWN DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 23 0 (24 25)
() 17 () () () 0 0)
18 'abseps' '' 'abseps' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
19 'releps' '' 'releps' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
20 'error' '' 'error' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
21 'value' '' 'value' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 21 'value' '' 'value' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
22 'inform' '' 'inform' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 22 'inform' '' 'inform' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
24 'n' '' 'n' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 15 'n' '' 'n' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
25 'z' '' 'z' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION 16 'maxpts' '' 'maxpts' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) 17 'functn' '' 'functn' 14 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY
5 'ndim' '' 'ndim' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 23 0 (
24 25) () 17 () () () 0 0)
24 'n' '' 'n' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
6 'mincls' '' 'mincls' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 25 'z' '' 'z' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
7 'maxcls' '' 'maxcls' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
8 'functn' '' 'functn' 4 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY 8 'functn' '' 'functn' 4 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY
UNKNOWN DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 26 0 (27 28) UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 26 0 (
() 8 () () () 0 0) 27 28) () 8 () () () 0 0)
9 'absreq' '' 'absreq' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 9 'absreq' '' 'absreq' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
10 'relreq' '' 'relreq' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 10 'relreq' '' 'relreq' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
11 'absest' '' 'absest' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 11 'absest' '' 'absest' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
12 'finest' '' 'finest' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 12 'finest' '' 'finest' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
13 'inform' '' 'inform' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 13 'inform' '' 'inform' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
5 'ndim' '' 'ndim' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
6 'mincls' '' 'mincls' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
7 'maxcls' '' 'maxcls' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
27 'n' '' 'n' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 27 'n' '' '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 INTEGER ()) 0 0 () () 0 () () () 0 0)
28 'z' '' 'z' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION 28 'z' '' 'z' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('adapt' 0 2 'sadapt' 0 3) ('adapt' 0 2 'sadapt' 0 3)

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

@ -1,8 +1,8 @@
GFORTRAN module version '0' created from rind71mod.f on Wed Jun 01 13:58:12 2011 GFORTRAN module version '4' created from rind71mod.f on Tue Mar 27 09:05:15 2012
MD5:b9fa45d5661c17be39136cf5490c0256 -- If you edit this, you'll get what you deserve. MD5:03dc18351a9cdc1dd505edc7a8479944 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () () () () () () () () () () ()) () () () ())
() ()
@ -12,27 +12,29 @@ MD5:b9fa45d5661c17be39136cf5490c0256 -- If you edit this, you'll get what you de
() ()
()
(2 'c1c2' 'c1c2mod' 'c1c2' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL (2 'c1c2' 'c1c2mod' 'c1c2' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 3 UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ())
0 (4 5 6 7 8 9) () 0 () () () 0 0) 3 0 (4 5 6 7 8 9) () 0 () () () 0 0)
10 'c1c2mod' 'c1c2mod' 'c1c2mod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 10 'c1c2mod' 'c1c2mod' 'c1c2mod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
6 'cm' '' 'cm' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION 6 'cm' '' 'cm' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
7 'b1' '' 'b1' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION 9 'ind' '' 'ind' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE (
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
5 'c2' '' 'c2' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 5 'c2' '' 'c2' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
8 'sq' '' 'sq' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION 8 'sq' '' 'sq' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
4 'c1' '' 'c1' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 4 'c1' '' 'c1' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'ind' '' 'ind' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION 7 'b1' '' 'b1' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT ( DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('c1c2' 0 2 'c1c2mod' 0 10) ('c1c2' 0 2 'c1c2mod' 0 10)

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from intmodule.f on Fri Aug 07 03:21:28 2009 GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:13 2012
MD5:65acff79c0cbb55d31a1ac2a616f396f -- If you edit this, you'll get what you deserve. MD5:99db0c86db329df2a1ee0bbf67b9ec99 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -12,33 +12,35 @@ MD5:65acff79c0cbb55d31a1ac2a616f396f -- If you edit this, you'll get what you de
() ()
()
(2 'krobov' 'krobovmod' 'krobov' 1 ((PROCEDURE UNKNOWN-INTENT (2 'krobov' 'krobovmod' 'krobov' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN
3 0 (4 5 6 7 8 9 10 11 12) () 0 () () () 0 0) ()) 3 0 (4 5 6 7 8 9 10 11 12) () 0 () () () 0 0)
4 'ndim' '' 'ndim' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 4 'ndim' '' 'ndim' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
12 'inform' '' 'inform' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
10 'abserr' '' 'abserr' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 8 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
11 'finest' '' 'finest' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 6 'maxvls' '' 'maxvls' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
9 'releps' '' 'releps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
11 'finest' '' 'finest' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
12 'inform' '' 'inform' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
5 'minvls' '' 'minvls' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
10 'abserr' '' 'abserr' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
7 'functn' '' 'functn' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY 7 'functn' '' 'functn' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY
UNKNOWN DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 13 0 (14 15) UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 13 0 (
() 7 () () () 0 0) 14 15) () 7 () () () 0 0)
8 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 15 'z' '' 'z' 13 ((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 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
9 'releps' '' 'releps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 14 'n' '' 'n' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
6 'maxvls' '' 'maxvls' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
5 'minvls' '' 'minvls' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
14 'n' '' 'n' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
15 'z' '' 'z' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('krobov' 0 2) ('krobov' 0 2)

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from intmodule.f on Wed Aug 05 05:35:50 2009 GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:13 2012
MD5:9a96cbd1faeb6554557f9d9308c50e28 -- If you edit this, you'll get what you deserve. MD5:daade6aaa08988dd52027fc3fdef05b7 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -12,14 +12,16 @@ MD5:9a96cbd1faeb6554557f9d9308c50e28 -- If you edit this, you'll get what you de
() ()
()
(2 'gp' 'precisionmod' 'gp' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC (2 'gp' 'precisionmod' 'gp' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
3 'precisionmod' 'precisionmod' 'precisionmod' 1 ((MODULE UNKNOWN-INTENT 3 'precisionmod' 'precisionmod' 'precisionmod' 1 ((MODULE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 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)' 'selected_real_kind' 1 ((PROCEDURE
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION) (UNKNOWN 0 0 0 UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION) (UNKNOWN 0 0 0
UNKNOWN ()) 0 0 () () 4 () () () 0 0) UNKNOWN ()) 0 0 () () 4 () () () 0 0)
) )

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

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

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from intmodule.f on Wed Aug 05 05:36:07 2009 GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:12 2012
MD5:240f214ef2031c1b04fc7d9aaa35265b -- If you edit this, you'll get what you deserve. MD5:c88c5a15c480306fb971bd1e5ced587e -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -12,31 +12,33 @@ MD5:240f214ef2031c1b04fc7d9aaa35265b -- If you edit this, you'll get what you de
() ()
()
(2 'ranmc' 'rcrudemod' 'ranmc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC (2 'ranmc' 'rcrudemod' 'ranmc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4 5 6 7 DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4 5
8 9 10 11) () 0 () () () 0 0) 6 7 8 9 10 11) () 0 () () () 0 0)
4 'n' '' 'n' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
5 'maxpts' '' 'maxpts' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
6 'functn' '' 'functn' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY
UNKNOWN DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 12 0 (13 14)
() 6 () () () 0 0)
7 'abseps' '' 'abseps' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
8 'releps' '' 'releps' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 8 'releps' '' 'releps' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'error' '' 'error' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 9 'error' '' 'error' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
10 'value' '' 'value' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 10 'value' '' 'value' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
11 'inform' '' 'inform' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 11 'inform' '' 'inform' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
13 'n' '' 'n' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 4 'n' '' 'n' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
5 'maxpts' '' 'maxpts' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
6 'functn' '' 'functn' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY
UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 12 0 (
13 14) () 6 () () () 0 0)
7 'abseps' '' 'abseps' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
13 'n' '' '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 INTEGER ()) 0 0 () () 0 () () () 0 0)
14 'z' '' 'z' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION 14 'z' '' 'z' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
) )
('ranmc' 0 2) ('ranmc' 0 2)

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

@ -1,81 +1,83 @@
GFORTRAN module version '0' created from rind71mod.f on Wed Jun 01 13:58:14 2011 GFORTRAN module version '4' created from rind71mod.f on Tue Mar 27 09:05:16 2012
MD5:16e69f326bd2d558dd343c376a49c851 -- If you edit this, you'll get what you deserve. MD5:c563cb41c58c08f015ddd93b31235450 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () ()
() () () ()) () () () ())
() ()
(('echo' 'rind71mod' 2) ('initdata' 'rind71mod' 3) ('rind71' 'rind71mod' (('echo' 'rind71mod' 2) ('initdata' 'rind71mod' 3) ('setdata' 'rind71mod'
4) ('setdata' 'rind71mod' 5)) 4) ('rind71' 'rind71mod' 5))
()
() ()
() ()
(2 'echo' 'rind71mod' 'echo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC (2 'echo' 'rind71mod' 'echo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0
()) 6 0 (7) () 0 () () () 0 0) UNKNOWN ()) 6 0 (7) () 0 () () () 0 0)
3 'initdata' 'rind71mod' 'initdata' 1 ((PROCEDURE UNKNOWN-INTENT 3 'initdata' 'rind71mod' 'initdata' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN
8 0 (9) () 0 () () () 0 0) ()) 8 0 (9) () 0 () () () 0 0)
4 'rind71' 'rind71mod' 'rind71' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 5 'rind71' 'rind71mod' 'rind71' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0
()) 10 0 (11 12 13 14 15 16 17 18) () 0 () () () 0 0) UNKNOWN ()) 10 0 (11 12 13 14 15 16 17 18) () 0 () () () 0 0)
5 'setdata' 'rind71mod' 'setdata' 1 ((PROCEDURE UNKNOWN-INTENT 4 'setdata' 'rind71mod' 'setdata' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN
19 0 (20 21 22 23 24 25 26 27 28) () 0 () () () 0 0) ()) 19 0 (20 21 22 23 24 25 26 27 28) () 0 () () () 0 0)
25 'dnit' '' 'dnit' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) 22 'depss' '' 'depss' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
24 'deps2' '' 'deps2' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 23 'dreps' '' 'dreps' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
28 'dxsplt' '' 'dxsplt' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
24 'deps2' '' 'deps2' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
25 'dnit' '' 'dnit' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
26 'dxc' '' 'dxc' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
27 'dnint' '' 'dnint' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
20 'method' '' 'method' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
21 'scale' '' 'scale' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
26 'dxc' '' 'dxc' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'speed' '' 'speed' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
7 'array' '' 'array' 6 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 7 'array' '' 'array' 6 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE ( UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (
INTEGER ()) 0 '1') ()) 0 () () () 0 0) INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
11 'fxind' '' 'fxind' 10 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 9 'speed' '' 'speed' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
11 'fxind' '' 'fxind' 10 ((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 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
12 'big1' '' 'big1' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 12 'big1' '' 'big1' 10 ((VARIABLE IN 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 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ())
0 '1') ()) 0 () () () 0 0) 0 '1') ()) 0 () () () 0 0)
13 'ex' '' 'ex' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION 13 'ex' '' 'ex' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
14 'xc1' '' 'xc1' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 14 'xc1' '' 'xc1' 10 ((VARIABLE IN 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 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ())
0 '1') ()) 0 () () () 0 0) 0 '1') ()) 0 () () () 0 0)
15 'nt1' '' 'nt1' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 15 'nt1' '' 'nt1' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
16 'indi' '' 'indi' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 16 'indi' '' 'indi' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE ( DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
17 'blo' '' 'blo' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 17 'blo' '' 'blo' 10 ((VARIABLE IN 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 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ())
0 '1') ()) 0 () () () 0 0) 0 '1') ()) 0 () () () 0 0)
18 'bup' '' 'bup' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 18 'bup' '' 'bup' 10 ((VARIABLE IN 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 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ())
0 '1') ()) 0 () () () 0 0) 0 '1') ()) 0 () () () 0 0)
27 'dnint' '' 'dnint' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
28 'dxsplt' '' 'dxsplt' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
20 'method' '' 'method' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
21 'scale' '' 'scale' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
22 'depss' '' 'depss' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
23 'dreps' '' 'dreps' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
) )
('echo' 0 2 'initdata' 0 3 'rind71' 0 4 'setdata' 0 5) ('echo' 0 2 'initdata' 0 3 'rind71' 0 5 'setdata' 0 4)

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

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

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

Binary file not shown.

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

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

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from swapmod.f on Fri Feb 26 13:11:03 2010 GFORTRAN module version '4' created from swapmod.f on Tue Mar 27 09:05:13 2012
MD5:32151853a616dcbd7ed5153d9aeab1c0 -- If you edit this, you'll get what you deserve. MD5:d3f134c81002cd5f6cec09ebff3e336f -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -12,30 +12,32 @@ MD5:32151853a616dcbd7ed5153d9aeab1c0 -- 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' 'swap_c' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 5 0 (6 7) () 0 () () DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 5 0 (6 7) () 0 ()
() 0 0) () () 0 0)
3 'swap_i' 'swapmod' 'swap_i' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 3 'swap_i' 'swapmod' 'swap_i' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 8 0 (9 10) () 0 () () DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 8 0 (9 10) () 0
() 0 0) () () () 0 0)
4 'swap_r' 'swapmod' 'swap_r' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 4 'swap_r' 'swapmod' 'swap_r' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 11 0 (12 13) () 0 () DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 11 0 (12 13) ()
() () 0 0) 0 () () () 0 0)
14 'swapmod' 'swapmod' 'swapmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 14 'swapmod' 'swapmod' 'swapmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
12 'a' '' 'a' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 12 'a' '' 'a' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
13 'b' '' 'b' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 13 'b' '' 'b' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'a' '' 'a' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 9 'a' '' 'a' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
10 'b' '' 'b' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 10 'b' '' 'b' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
6 'a' '' 'a' 5 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( 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'))) (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 DUMMY) ( 7 'b' '' '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 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1')))
0 0 () () 0 () () () 0 0) 0 0 () () 0 () () () 0 0)
) )

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

@ -1,5 +1,5 @@
GFORTRAN module version '0' created from fimod.f on Wed Aug 05 05:35:52 2009 GFORTRAN module version '4' created from fimod.f on Tue Mar 27 09:05:13 2012
MD5:b833d1aae3d99e187e27ad8342187b63 -- If you edit this, you'll get what you deserve. MD5:3c07acc29af03f85553199e931805b01 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () () (() () () () () () () () () () () () () () () () () () () () () () () ()
() () ()) () () ())
@ -12,27 +12,29 @@ MD5:b833d1aae3d99e187e27ad8342187b63 -- If you edit this, you'll get what you de
() ()
()
(2 'ar' 'trivariatevar' 'ar' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC (2 'ar' 'trivariatevar' 'ar' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
3 'h1' 'trivariatevar' 'h1' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 3 'h1' 'trivariatevar' 'h1' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
4 'h2' 'trivariatevar' 'h2' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 4 'h2' 'trivariatevar' 'h2' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
5 'h3' 'trivariatevar' 'h3' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 5 'h3' 'trivariatevar' 'h3' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
6 'nu' 'trivariatevar' 'nu' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 6 'nu' 'trivariatevar' 'nu' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
7 'r23' 'trivariatevar' 'r23' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 7 'r23' 'trivariatevar' 'r23' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
8 'rua' 'trivariatevar' 'rua' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 8 'rua' 'trivariatevar' 'rua' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
9 'rub' 'trivariatevar' 'rub' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 9 'rub' 'trivariatevar' 'rub' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
10 'ruc' 'trivariatevar' 'ruc' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 10 'ruc' 'trivariatevar' 'ruc' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) UNKNOWN UNKNOWN 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
11 'trivariatevar' 'trivariatevar' 'trivariatevar' 1 ((MODULE 11 'trivariatevar' 'trivariatevar' 'trivariatevar' 1 ((MODULE
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN
0 0 () () 0 () () () 0 0) ()) 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'

7
pywafo/src/wafo/stats/distributions.py
Unescape Escape View File

@ -2737,7 +2737,12 @@ def _norm_logpdf(x):
def _norm_cdf(x): def _norm_cdf(x):
return special.ndtr(x) return special.ndtr(x)
def _norm_logcdf(x): def _norm_logcdf(x):
return log(special.ndtr(x)) logcdf = log(special.ndtr(x))
large_x = (5<x)
if np.any(large_x):
logcdf[large_x] = log1p(-special.ndtr(-x[large_x]))
return logcdf
#return log(special.ndtr(x))
def _norm_ppf(q): def _norm_ppf(q):
return special.ndtri(q) return special.ndtri(q)
class norm_gen(rv_continuous): class norm_gen(rv_continuous):

2
pywafo/src/wafo/wave_theory/core.py
Unescape Escape View File

@ -557,5 +557,7 @@ def wave_pressure(z, Hm0, h=10000, g=9.81, rho=1028):
return pressure return pressure
def main():
sensortype(range(21))
if __name__ == '__main__': if __name__ == '__main__':
pass pass
Write Preview
Loading…
Cancel
Save