diff --git a/pywafo/build_all.py b/pywafo/build_all.py index dcdd45e..2959eab 100644 --- a/pywafo/build_all.py +++ b/pywafo/build_all.py @@ -1,5 +1,7 @@ """ builds all extensions + +See also http://www.scipy.org/Cookbook/CompilingExtensionsOnWindowsWithMinGW """ import os import shutil diff --git a/pywafo/src/wafo/c_library.pyd b/pywafo/src/wafo/c_library.pyd index 7c80ede..e7a6d53 100644 Binary files a/pywafo/src/wafo/c_library.pyd and b/pywafo/src/wafo/c_library.pyd differ diff --git a/pywafo/src/wafo/cov2mod.pyd b/pywafo/src/wafo/cov2mod.pyd index bf55e72..3706df6 100644 Binary files a/pywafo/src/wafo/cov2mod.pyd and b/pywafo/src/wafo/cov2mod.pyd differ diff --git a/pywafo/src/wafo/interpolate.py b/pywafo/src/wafo/interpolate.py index 7851542..5a52f09 100644 --- a/pywafo/src/wafo/interpolate.py +++ b/pywafo/src/wafo/interpolate.py @@ -1084,6 +1084,9 @@ def test_pp(): x = plb.linspace(-1, 3) plb.plot(x, pp(x), x, dpp(x), '.') plb.show() + + + if __name__ == '__main__': #main() diff --git a/pywafo/src/wafo/misc.py b/pywafo/src/wafo/misc.py index 9fa3993..4151ace 100644 --- a/pywafo/src/wafo/misc.py +++ b/pywafo/src/wafo/misc.py @@ -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) from scipy.special import gammaln from scipy.integrate import trapz, simps -import types +#import types import warnings from wafo import plotbackend +from collections import OrderedDict try: @@ -544,6 +545,8 @@ def findrfc(tp, hmin=0.0, method='clib'): >>> a = pb.plot(t,x,'.',ti,tp,'r.') >>> ind1 = wm.findrfc(tp,0.3); ind1 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]) >>> pb.close('all') @@ -1523,11 +1526,12 @@ def getshipchar(value, property="max_deadweight"): max_deadweight = round(max_deadweight) max_deadweightSTD = 0.1 * max_deadweight - shipchar = {'max_deadweight':max_deadweight, 'max_deadweightSTD':max_deadweightSTD, - 'length':length, 'lengthSTD':length_err, 'beam':beam, 'beamSTD':beam_err, - 'draught':draught, 'draughtSTD':draught_err, - 'service_speed':speed, 'service_speedSTD':speed_err, - 'propeller_diameter':p_diam, 'propeller_diameterSTD':p_diam_err} + shipchar = OrderedDict(beam=beam, beamSTD=beam_err, + draught=draught, draughtSTD=draught_err, + length=length, lengthSTD=length_err, + max_deadweight=max_deadweight, max_deadweightSTD=max_deadweightSTD, + propeller_diameter=p_diam, propeller_diameterSTD=p_diam_err, + service_speed=speed, service_speedSTD=speed_err) shipchar[propertySTD] = 0 return shipchar @@ -1786,7 +1790,7 @@ def cart2pol(x, y, z=None): return t, r, z -def meshgrid(*xi, ** kwargs): +def meshgrid(*xi, **kwargs): """ Return coordinate matrices from one or more coordinate vectors. @@ -1867,11 +1871,11 @@ def meshgrid(*xi, ** kwargs): >>> xx, yy = meshgrid(x, y, sparse=True) >>> 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) if not isinstance(args, list): if args.size > 0: - return args.copy() if copy else args + return args.copy() if copy_ else args else: 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] if sparse: - if copy: + if copy_: return [x.copy() for x in output] else: return output else: # Return the full N-D matrix (not only the 1-D vector) - if copy: + if copy_: mult_fact = ones(shape, dtype=int) return [x * mult_fact for x in output] else: @@ -2229,13 +2233,13 @@ def plot_histgrm(data, bins=None, range=None, normed=False, weights=None, lintyp if bins is None: 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) xx = limits.repeat(3, axis=1) xx.shape = (-1,) xx = xx[1:-1] - bin.shape = (-1, 1) - yy = bin.repeat(3, axis=1) + bin_.shape = (-1, 1) + yy = bin_.repeat(3, axis=1) #yy[0,0] = 0.0 # pdf yy[:, 0] = 0.0 # histogram yy.shape = (-1,) @@ -2273,8 +2277,8 @@ def num2pistr(x, n=3): ntxt = '%d' % num xtxt = ntxt + r'\pi' + dtxt else: - format = '%0.' + '%dg' % n - xtxt = format % x + format_ = '%0.' + '%dg' % n + xtxt = format_ % x return xtxt def fourier(data, t=None, T=None, m=None, n=None, method='trapz'): diff --git a/pywafo/src/wafo/mvn.pyd b/pywafo/src/wafo/mvn.pyd index d3a19f0..53ef506 100644 Binary files a/pywafo/src/wafo/mvn.pyd and b/pywafo/src/wafo/mvn.pyd differ diff --git a/pywafo/src/wafo/mvnprdmod.pyd b/pywafo/src/wafo/mvnprdmod.pyd index 9cff22a..ffc1ed1 100644 Binary files a/pywafo/src/wafo/mvnprdmod.pyd and b/pywafo/src/wafo/mvnprdmod.pyd differ diff --git a/pywafo/src/wafo/objects.py b/pywafo/src/wafo/objects.py index 73ca5d9..54d59ec 100644 --- a/pywafo/src/wafo/objects.py +++ b/pywafo/src/wafo/objects.py @@ -2405,395 +2405,395 @@ def sensor_type(*sensorids): ids = where(((ids < 0) | (n < ids)), n , ids) return tuple(valid_names[i] for i in ids) -class TransferFunction(object): - ''' - Class for computing transfer functions based on linear wave theory - of the system with input surface elevation, - eta(x0,y0,t) = exp(i*(kx*x0+ky*y0-w*t)), - and output Y determined by sensortype and position of sensor. - - Member methods - -------------- - tran(w, theta, kw) - - Hw = a function of frequency only (not direction) size 1 x Nf - Gwt = a function of frequency and direction size Nt x Nf - w = vector of angular frequencies in Rad/sec. Length Nf - theta = vector of directions in radians Length Nt (default 0) - ( theta = 0 -> positive x axis theta = pi/2 -> positive y axis) - Member variables - ---------------- - pos : [x,y,z] - vector giving coordinate position relative to [x0 y0 z0] (default [0,0,0]) - sensortype = string - defining the sensortype or transfer function in output. - 0, 'n' : Surface elevation (n=Eta) (default) - 1, 'n_t' : Vertical surface velocity - 2, 'n_tt' : Vertical surface acceleration - 3, 'n_x' : Surface slope in x-direction - 4, 'n_y' : Surface slope in y-direction - 5, 'n_xx' : Surface curvature in x-direction - 6, 'n_yy' : Surface curvature in y-direction - 7, 'n_xy' : Surface curvature in xy-direction - 8, 'P' : Pressure fluctuation about static MWL pressure - 9, 'U' : Water particle velocity in x-direction - 10, 'V' : Water particle velocity in y-direction - 11, 'W' : Water particle velocity in z-direction - 12, 'U_t' : Water particle acceleration in x-direction - 13, 'V_t' : Water particle acceleration in y-direction - 14, 'W_t' : Water particle acceleration in z-direction - 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 - 17, 'Z_p' : Water particle displacement in z-direction from its mean position - h : real scalar - water depth (default inf) - g : real scalar - acceleration of gravity (default 9.81 m/s**2) - rho : real scalar - water density (default 1028 kg/m**3) - bet : 1 or -1 - 1, theta given in terms of directions toward which waves travel (default) - -1, theta given in terms of directions from which waves come - igam : 1,2 or 3 - 1, if z is measured positive upward from mean water level (default) - 2, if z is measured positive downward from mean water level - 3, if z is measured positive upward from sea floor - thetax, thetay : real scalars - angle in degrees clockwise from true north to positive x-axis and - positive y-axis, respectively. (default theatx=90, thetay=0) - - Example - ------- - >>> import pylab as plt - >>> N=50; f0=0.1; th0=0; h=50; w0 = 2*pi*f0 - >>> t = np.linspace(0,15,N) - >>> eta0 = np.exp(-1j*w0*t) - >>> stypes = ['n', 'n_x', 'n_y']; - >>> tf = TransferFunction(pos=(0, 0, 0), h=50) - >>> vals = [] - >>> fh = plt.plot(t, eta0.real, 'r.') - >>> plt.hold(True) - >>> for i,stype in enumerate(stypes): - ... tf.sensortype = stype - ... Hw, Gwt = tf.tran(w0,th0) - ... vals.append((Hw*Gwt*eta0).real.ravel()) - ... vals[i] - ... fh = plt.plot(t, vals[i]) - >>> plt.show() - - - See also - -------- - dat2dspec, sensor_type, sensor_typeid - - Reference - --------- - Young I.R. (1994) - "On the measurement of directional spectra", - Applied Ocean Research, Vol 16, pp 283-294 - ''' - def __init__(self, pos=(0, 0, 0), sensortype='n', h=inf, g=9.81, rho=1028, - bet=1, igam=1, thetax=90, thetay=0): - self.pos = pos - self.sensortype = sensortype if isinstance(sensortype, str) else sensor_type(sensortype) - self.h = h - self.g = g - self.rho = rho - self.bet = bet - self.igam = igam - self.thetax = thetax - self.thetay = thetay - 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_yy=self._n_yy, n_xy=self._n_xy, - P=self._p, p=self._p, - U=self._u, u=self._u, - V=self._v, v=self._v, - W=self._w, w=self._w, - U_t=self._u_t, u_t=self._u_t, - V_t=self._v_t, v_t=self._v_t, - W_t=self._w_t, w_t=self._w_t, - X_p=self._x_p, x_p=self._x_p, - Y_p=self._y_p, y_p=self._y_p, - Z_p=self._z_p, z_p=self._z_p) - - def tran(self, w, theta=0, kw=None): - ''' - Return transfer functions based on linear wave theory - of the system with input surface elevation, - eta(x0,y0,t) = exp(i*(kx*x0+ky*y0-w*t)), - and output, - Y = Hw*Gwt*eta, determined by sensortype and position of sensor. - - Parameters - ---------- - w : array-like - vector of angular frequencies in Rad/sec. Length Nf - theta : array-like - vector of directions in radians Length Nt (default 0) - ( theta = 0 -> positive x axis theta = pi/2 -> positive y axis) - kw : array-like - vector of wave numbers corresponding to angular frequencies, w. Length Nf - (default calculated with w2k) - - Returns - ------- - Hw = transfer function of frequency only (not direction) size 1 x Nf - Gwt = transfer function of frequency and direction size Nt x Nf - - The complete transfer function Hwt = Hw*Gwt is a function of - w (columns) and theta (rows) size Nt x Nf - ''' - if kw is None: - kw, unusedkw2 = w2k(w, 0, self.h) #wave number as function of angular frequency - - w, theta, kw = np.atleast_1d(w, theta, kw) - # make sure they have the correct orientation - theta.shape = (-1, 1) - kw.shape = (-1,) - w.shape = (-1,) - - tran_fun = self._tran_dict[self.sensortype] - Hw, Gwt = tran_fun(w, theta, kw) - - # 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 - ind = np.flatnonzero(1 - np.isfinite(Hw)) - Hw.flat[ind] = 0 - - sgn = np.sign(Hw); - k0 = np.flatnonzero(sgn < 0) - if len(k0): # make sure Hw>=0 ie. transfer negative signs to Gwt - Gwt[:, k0] = -Gwt[:, k0] - Hw[:, k0] = -Hw[:, k0] - - if self.igam == 2: - #pab 09 Oct.2002: bug fix - # Changing igam by 2 should affect the directional result in the same way that changing eta by -eta! - Gwt = -Gwt - return Hw, Gwt - __call__ = tran -#---Private member methods - def _get_ee_cthxy(self, theta, kw): - # convert from angle in degrees to radians - bet = self.bet - thxr = self.thetax * pi / 180 - thyr = self.thetay * pi / 180 - - cthx = bet * cos(theta - thxr + pi / 2) - #cthy = cos(theta-thyr-pi/2) - cthy = bet * sin(theta - thyr) - - # Compute location complex exponential - 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 - return ee, cthx, cthy - - def _get_zk(self, kw): - h = self.h - z = self.pos[2] - if self.igam == 1: - zk = kw * (h + z) # z measured positive upward from mean water level (default) - elif self.igam == 2: - zk = kw * (h - z) # z measured positive downward from mean water level - else: - zk = kw * z # z measured positive upward from sea floor - return zk - - #--- Surface elevation --- - def _n(self, w, theta, kw): - '''n = Eta = wave profile - ''' - ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - return np.ones_like(w), ee - - #---- Vertical surface velocity and acceleration----- - def _n_t(self, w, theta, kw): - ''' n_t = Eta_t ''' - ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - return w, -1j * ee; - def _n_tt(self, w, theta, kw): - '''n_tt = Eta_tt''' - ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - return w ** 2, -ee - - #--- Surface slopes --- - def _n_x(self, w, theta, kw): - ''' n_x = Eta_x = x-slope''' - ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - return kw, 1j * cthx * ee - def _n_y(self, w, theta, kw): - ''' n_y = Eta_y = y-slope''' - ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) - return kw, 1j * cthy * ee - - #--- Surface curvatures --- - def _n_xx(self, w, theta, kw): - ''' n_xx = Eta_xx = Surface curvature (x-dir)''' - ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - return kw ** 2, -(cthx ** 2) * ee - def _n_yy(self, w, theta, kw): - ''' n_yy = Eta_yy = Surface curvature (y-dir)''' - ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) - return kw ** 2, -cthy ** 2 * ee - def _n_xy(self, w, theta, kw): - ''' n_xy = Eta_xy = Surface curvature (xy-dir)''' - ee, cthx, cthy = self._get_ee_cthxy(theta, kw) - return kw ** 2, -cthx * cthy * ee - - #--- Pressure--- - def _p(self, w, theta, kw): - ''' pressure fluctuations''' - ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - hk = kw * self.h - zk = self._get_zk(kw) - return self.rho * self.g * hyperbolic_ratio(zk, hk, 1, 1), ee #hyperbolic_ratio = cosh(zk)/cosh(hk) - - #---- Water particle velocities --- - def _u(self, w, theta, kw): - ''' U = x-velocity''' - ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - hk = kw * self.h - zk = self._get_zk(kw) - return w * hyperbolic_ratio(zk, hk, 1, -1), cthx * ee# w*cosh(zk)/sinh(hk), cos(theta)*ee - def _v(self, w, theta, kw): - '''V = y-velocity''' - ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) - hk = kw * self.h - zk = self._get_zk(kw) - return w * hyperbolic_ratio(zk, hk, 1, -1), cthy * ee # w*cosh(zk)/sinh(hk), sin(theta)*ee - def _w(self, w, theta, kw): - ''' W = z-velocity''' - ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - hk = kw * self.h - zk = self._get_zk(kw) - return w * hyperbolic_ratio(zk, hk, -1, -1), -1j * ee # w*sinh(zk)/sinh(hk), -? - - #---- Water particle acceleration --- - def _u_t(self, w, theta, kw): - ''' U_t = x-acceleration''' - ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - hk = kw * self.h - zk = self._get_zk(kw) - 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): - ''' V_t = y-acceleration''' - ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) - hk = kw * self.h - zk = self._get_zk(kw) - 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): - ''' W_t = z-acceleration''' - ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - hk = kw * self.h - zk = self._get_zk(kw) - return (w ** 2) * hyperbolic_ratio(zk, hk, -1, -1), -ee # w*sinh(zk)/sinh(hk), ? - - #---- Water particle displacement --- - def _x_p(self, w, theta, kw): - ''' X_p = x-displacement''' - ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - hk = kw * self.h - zk = self._get_zk(kw) - return hyperbolic_ratio(zk, hk, 1, -1), 1j * cthx * ee # cosh(zk)./sinh(hk), ? - def _y_p(self, w, theta, kw): - ''' Y_p = y-displacement''' - ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) - hk = kw * self.h - zk = self._get_zk(kw) - return hyperbolic_ratio(zk, hk, 1, -1), 1j * cthy * ee # cosh(zk)./sinh(hk), ? - def _z_p(self, w, theta, kw): - ''' Z_p = z-displacement''' - ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) - hk = kw * self.h - zk = self._get_zk(kw) - 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): - ''' - Calculate pressure amplitude due to water waves. - - Parameters - ---------- - z : array-like - depth where pressure is calculated [m] - Hm0 : array-like - significant wave height (same as the average of the 1/3'rd highest - waves in a seastate. [m] - h : real scalar - waterdepth (default 10000 [m]) - g : real scalar - acceleration of gravity (default 9.81 m/s**2) - rho : real scalar - water density (default 1028 kg/m**3) - - - Returns - ------- - p : ndarray - pressure amplitude due to water waves at water depth z. [Pa] - - PRESSURE calculate pressure amplitude due to water waves according to - linear theory. - - Example - ----- - >>> import pylab as plt - >>> z = -np.linspace(10,20) - >>> fh = plt.plot(z, wave_pressure(z, Hm0=1, h=20)) - >>> plt.show() - - See also - -------- - w2k - - - u = psweep.Fn*sqrt(mgf.length*9.81) - z = -10; h = inf; - Hm0 = 1.5;Tp = 4*sqrt(Hm0); - S = jonswap([],[Hm0,Tp]); - Hw = tran(S.w,0,[0 0 -z],'P',h) - Sm = S; - Sm.S = Hw.'.*S.S; - x1 = spec2sdat(Sm,1000); - pwave = pressure(z,Hm0,h) - - plot(psweep.x{1}/u, psweep.f) - hold on - plot(x1(1:100,1)-30,x1(1:100,2),'r') - ''' - - - # Assume seastate with jonswap spectrum: - - Tp = 4 * np.sqrt(Hm0) - gam = jonswap_peakfact(Hm0, Tp) - Tm02 = Tp / (1.30301 - 0.01698 * gam + 0.12102 / gam) - w = 2 * np.pi / Tm02 - kw, unused_kw2 = w2k(w, 0, h) - - hk = kw * h - zk1 = kw * z - zk = hk + zk1 # z measured positive upward from mean water level (default) - #zk = hk-zk1; % z measured positive downward from mean water level - #zk1 = -zk1; - #zk = zk1; % z measured positive upward from sea floor - - # cosh(zk)/cosh(hk) approx exp(zk) for large h - # 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 = hyperbolic_ratio(zk, hk, 1, 1) - pressure = (rho * g * Hm0 / 2) * pr - -# pos = [np.zeros_like(z),np.zeros_like(z),z] -# tf = TransferFunction(pos=pos, sensortype='p', h=h, rho=rho, g=g) -# Hw, Gwt = tf.tran(w,0) -# pressure2 = np.abs(Hw) * Hm0 / 2 - - return pressure +#class TransferFunction(object): +# ''' +# Class for computing transfer functions based on linear wave theory +# of the system with input surface elevation, +# eta(x0,y0,t) = exp(i*(kx*x0+ky*y0-w*t)), +# and output Y determined by sensortype and position of sensor. +# +# Member methods +# -------------- +# tran(w, theta, kw) +# +# Hw = a function of frequency only (not direction) size 1 x Nf +# Gwt = a function of frequency and direction size Nt x Nf +# w = vector of angular frequencies in Rad/sec. Length Nf +# theta = vector of directions in radians Length Nt (default 0) +# ( theta = 0 -> positive x axis theta = pi/2 -> positive y axis) +# Member variables +# ---------------- +# pos : [x,y,z] +# vector giving coordinate position relative to [x0 y0 z0] (default [0,0,0]) +# sensortype = string +# defining the sensortype or transfer function in output. +# 0, 'n' : Surface elevation (n=Eta) (default) +# 1, 'n_t' : Vertical surface velocity +# 2, 'n_tt' : Vertical surface acceleration +# 3, 'n_x' : Surface slope in x-direction +# 4, 'n_y' : Surface slope in y-direction +# 5, 'n_xx' : Surface curvature in x-direction +# 6, 'n_yy' : Surface curvature in y-direction +# 7, 'n_xy' : Surface curvature in xy-direction +# 8, 'P' : Pressure fluctuation about static MWL pressure +# 9, 'U' : Water particle velocity in x-direction +# 10, 'V' : Water particle velocity in y-direction +# 11, 'W' : Water particle velocity in z-direction +# 12, 'U_t' : Water particle acceleration in x-direction +# 13, 'V_t' : Water particle acceleration in y-direction +# 14, 'W_t' : Water particle acceleration in z-direction +# 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 +# 17, 'Z_p' : Water particle displacement in z-direction from its mean position +# h : real scalar +# water depth (default inf) +# g : real scalar +# acceleration of gravity (default 9.81 m/s**2) +# rho : real scalar +# water density (default 1028 kg/m**3) +# bet : 1 or -1 +# 1, theta given in terms of directions toward which waves travel (default) +# -1, theta given in terms of directions from which waves come +# igam : 1,2 or 3 +# 1, if z is measured positive upward from mean water level (default) +# 2, if z is measured positive downward from mean water level +# 3, if z is measured positive upward from sea floor +# thetax, thetay : real scalars +# angle in degrees clockwise from true north to positive x-axis and +# positive y-axis, respectively. (default theatx=90, thetay=0) +# +# Example +# ------- +# >>> import pylab as plt +# >>> N=50; f0=0.1; th0=0; h=50; w0 = 2*pi*f0 +# >>> t = np.linspace(0,15,N) +# >>> eta0 = np.exp(-1j*w0*t) +# >>> stypes = ['n', 'n_x', 'n_y']; +# >>> tf = TransferFunction(pos=(0, 0, 0), h=50) +# >>> vals = [] +# >>> fh = plt.plot(t, eta0.real, 'r.') +# >>> plt.hold(True) +# >>> for i,stype in enumerate(stypes): +# ... tf.sensortype = stype +# ... Hw, Gwt = tf.tran(w0,th0) +# ... vals.append((Hw*Gwt*eta0).real.ravel()) +# ... vals[i] +# ... fh = plt.plot(t, vals[i]) +# >>> plt.show() +# +# +# See also +# -------- +# dat2dspec, sensor_type, sensor_typeid +# +# Reference +# --------- +# Young I.R. (1994) +# "On the measurement of directional spectra", +# Applied Ocean Research, Vol 16, pp 283-294 +# ''' +# def __init__(self, pos=(0, 0, 0), sensortype='n', h=inf, g=9.81, rho=1028, +# bet=1, igam=1, thetax=90, thetay=0): +# self.pos = pos +# self.sensortype = sensortype if isinstance(sensortype, str) else sensor_type(sensortype) +# self.h = h +# self.g = g +# self.rho = rho +# self.bet = bet +# self.igam = igam +# self.thetax = thetax +# self.thetay = thetay +# 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_yy=self._n_yy, n_xy=self._n_xy, +# P=self._p, p=self._p, +# U=self._u, u=self._u, +# V=self._v, v=self._v, +# W=self._w, w=self._w, +# U_t=self._u_t, u_t=self._u_t, +# V_t=self._v_t, v_t=self._v_t, +# W_t=self._w_t, w_t=self._w_t, +# X_p=self._x_p, x_p=self._x_p, +# Y_p=self._y_p, y_p=self._y_p, +# Z_p=self._z_p, z_p=self._z_p) +# +# def tran(self, w, theta=0, kw=None): +# ''' +# Return transfer functions based on linear wave theory +# of the system with input surface elevation, +# eta(x0,y0,t) = exp(i*(kx*x0+ky*y0-w*t)), +# and output, +# Y = Hw*Gwt*eta, determined by sensortype and position of sensor. +# +# Parameters +# ---------- +# w : array-like +# vector of angular frequencies in Rad/sec. Length Nf +# theta : array-like +# vector of directions in radians Length Nt (default 0) +# ( theta = 0 -> positive x axis theta = pi/2 -> positive y axis) +# kw : array-like +# vector of wave numbers corresponding to angular frequencies, w. Length Nf +# (default calculated with w2k) +# +# Returns +# ------- +# Hw = transfer function of frequency only (not direction) size 1 x Nf +# Gwt = transfer function of frequency and direction size Nt x Nf +# +# The complete transfer function Hwt = Hw*Gwt is a function of +# w (columns) and theta (rows) size Nt x Nf +# ''' +# if kw is None: +# kw, unusedkw2 = w2k(w, 0, self.h) #wave number as function of angular frequency +# +# w, theta, kw = np.atleast_1d(w, theta, kw) +# # make sure they have the correct orientation +# theta.shape = (-1, 1) +# kw.shape = (-1,) +# w.shape = (-1,) +# +# tran_fun = self._tran_dict[self.sensortype] +# Hw, Gwt = tran_fun(w, theta, kw) +# +# # 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 +# ind = np.flatnonzero(1 - np.isfinite(Hw)) +# Hw.flat[ind] = 0 +# +# sgn = np.sign(Hw); +# k0 = np.flatnonzero(sgn < 0) +# if len(k0): # make sure Hw>=0 ie. transfer negative signs to Gwt +# Gwt[:, k0] = -Gwt[:, k0] +# Hw[:, k0] = -Hw[:, k0] +# +# if self.igam == 2: +# #pab 09 Oct.2002: bug fix +# # Changing igam by 2 should affect the directional result in the same way that changing eta by -eta! +# Gwt = -Gwt +# return Hw, Gwt +# __call__ = tran +##---Private member methods +# def _get_ee_cthxy(self, theta, kw): +# # convert from angle in degrees to radians +# bet = self.bet +# thxr = self.thetax * pi / 180 +# thyr = self.thetay * pi / 180 +# +# cthx = bet * cos(theta - thxr + pi / 2) +# #cthy = cos(theta-thyr-pi/2) +# cthy = bet * sin(theta - thyr) +# +# # Compute location complex exponential +# 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 +# return ee, cthx, cthy +# +# def _get_zk(self, kw): +# h = self.h +# z = self.pos[2] +# if self.igam == 1: +# zk = kw * (h + z) # z measured positive upward from mean water level (default) +# elif self.igam == 2: +# zk = kw * (h - z) # z measured positive downward from mean water level +# else: +# zk = kw * z # z measured positive upward from sea floor +# return zk +# +# #--- Surface elevation --- +# def _n(self, w, theta, kw): +# '''n = Eta = wave profile +# ''' +# ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# return np.ones_like(w), ee +# +# #---- Vertical surface velocity and acceleration----- +# def _n_t(self, w, theta, kw): +# ''' n_t = Eta_t ''' +# ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# return w, -1j * ee; +# def _n_tt(self, w, theta, kw): +# '''n_tt = Eta_tt''' +# ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# return w ** 2, -ee +# +# #--- Surface slopes --- +# def _n_x(self, w, theta, kw): +# ''' n_x = Eta_x = x-slope''' +# ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# return kw, 1j * cthx * ee +# def _n_y(self, w, theta, kw): +# ''' n_y = Eta_y = y-slope''' +# ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) +# return kw, 1j * cthy * ee +# +# #--- Surface curvatures --- +# def _n_xx(self, w, theta, kw): +# ''' n_xx = Eta_xx = Surface curvature (x-dir)''' +# ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# return kw ** 2, -(cthx ** 2) * ee +# def _n_yy(self, w, theta, kw): +# ''' n_yy = Eta_yy = Surface curvature (y-dir)''' +# ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) +# return kw ** 2, -cthy ** 2 * ee +# def _n_xy(self, w, theta, kw): +# ''' n_xy = Eta_xy = Surface curvature (xy-dir)''' +# ee, cthx, cthy = self._get_ee_cthxy(theta, kw) +# return kw ** 2, -cthx * cthy * ee +# +# #--- Pressure--- +# def _p(self, w, theta, kw): +# ''' pressure fluctuations''' +# ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# hk = kw * self.h +# zk = self._get_zk(kw) +# return self.rho * self.g * hyperbolic_ratio(zk, hk, 1, 1), ee #hyperbolic_ratio = cosh(zk)/cosh(hk) +# +# #---- Water particle velocities --- +# def _u(self, w, theta, kw): +# ''' U = x-velocity''' +# ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# hk = kw * self.h +# zk = self._get_zk(kw) +# return w * hyperbolic_ratio(zk, hk, 1, -1), cthx * ee# w*cosh(zk)/sinh(hk), cos(theta)*ee +# def _v(self, w, theta, kw): +# '''V = y-velocity''' +# ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) +# hk = kw * self.h +# zk = self._get_zk(kw) +# return w * hyperbolic_ratio(zk, hk, 1, -1), cthy * ee # w*cosh(zk)/sinh(hk), sin(theta)*ee +# def _w(self, w, theta, kw): +# ''' W = z-velocity''' +# ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# hk = kw * self.h +# zk = self._get_zk(kw) +# return w * hyperbolic_ratio(zk, hk, -1, -1), -1j * ee # w*sinh(zk)/sinh(hk), -? +# +# #---- Water particle acceleration --- +# def _u_t(self, w, theta, kw): +# ''' U_t = x-acceleration''' +# ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# hk = kw * self.h +# zk = self._get_zk(kw) +# 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): +# ''' V_t = y-acceleration''' +# ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) +# hk = kw * self.h +# zk = self._get_zk(kw) +# 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): +# ''' W_t = z-acceleration''' +# ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# hk = kw * self.h +# zk = self._get_zk(kw) +# return (w ** 2) * hyperbolic_ratio(zk, hk, -1, -1), -ee # w*sinh(zk)/sinh(hk), ? +# +# #---- Water particle displacement --- +# def _x_p(self, w, theta, kw): +# ''' X_p = x-displacement''' +# ee, cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# hk = kw * self.h +# zk = self._get_zk(kw) +# return hyperbolic_ratio(zk, hk, 1, -1), 1j * cthx * ee # cosh(zk)./sinh(hk), ? +# def _y_p(self, w, theta, kw): +# ''' Y_p = y-displacement''' +# ee, unused_cthx, cthy = self._get_ee_cthxy(theta, kw) +# hk = kw * self.h +# zk = self._get_zk(kw) +# return hyperbolic_ratio(zk, hk, 1, -1), 1j * cthy * ee # cosh(zk)./sinh(hk), ? +# def _z_p(self, w, theta, kw): +# ''' Z_p = z-displacement''' +# ee, unused_cthx, unused_cthy = self._get_ee_cthxy(theta, kw) +# hk = kw * self.h +# zk = self._get_zk(kw) +# 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): +# ''' +# Calculate pressure amplitude due to water waves. +# +# Parameters +# ---------- +# z : array-like +# depth where pressure is calculated [m] +# Hm0 : array-like +# significant wave height (same as the average of the 1/3'rd highest +# waves in a seastate. [m] +# h : real scalar +# waterdepth (default 10000 [m]) +# g : real scalar +# acceleration of gravity (default 9.81 m/s**2) +# rho : real scalar +# water density (default 1028 kg/m**3) +# +# +# Returns +# ------- +# p : ndarray +# pressure amplitude due to water waves at water depth z. [Pa] +# +# PRESSURE calculate pressure amplitude due to water waves according to +# linear theory. +# +# Example +# ----- +# >>> import pylab as plt +# >>> z = -np.linspace(10,20) +# >>> fh = plt.plot(z, wave_pressure(z, Hm0=1, h=20)) +# >>> plt.show() +# +# See also +# -------- +# w2k +# +# +# u = psweep.Fn*sqrt(mgf.length*9.81) +# z = -10; h = inf; +# Hm0 = 1.5;Tp = 4*sqrt(Hm0); +# S = jonswap([],[Hm0,Tp]); +# Hw = tran(S.w,0,[0 0 -z],'P',h) +# Sm = S; +# Sm.S = Hw.'.*S.S; +# x1 = spec2sdat(Sm,1000); +# pwave = pressure(z,Hm0,h) +# +# plot(psweep.x{1}/u, psweep.f) +# hold on +# plot(x1(1:100,1)-30,x1(1:100,2),'r') +# ''' +# +# +# # Assume seastate with jonswap spectrum: +# +# Tp = 4 * np.sqrt(Hm0) +# gam = jonswap_peakfact(Hm0, Tp) +# Tm02 = Tp / (1.30301 - 0.01698 * gam + 0.12102 / gam) +# w = 2 * np.pi / Tm02 +# kw, unused_kw2 = w2k(w, 0, h) +# +# hk = kw * h +# zk1 = kw * z +# zk = hk + zk1 # z measured positive upward from mean water level (default) +# #zk = hk-zk1; % z measured positive downward from mean water level +# #zk1 = -zk1; +# #zk = zk1; % z measured positive upward from sea floor +# +# # cosh(zk)/cosh(hk) approx exp(zk) for large h +# # 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 = hyperbolic_ratio(zk, hk, 1, 1) +# pressure = (rho * g * Hm0 / 2) * pr +# +## pos = [np.zeros_like(z),np.zeros_like(z),z] +## tf = TransferFunction(pos=pos, sensortype='p', h=h, rho=rho, g=g) +## Hw, Gwt = tf.tran(w,0) +## pressure2 = np.abs(Hw) * Hm0 / 2 +# +# return pressure -def main0(): +def main(): import wafo ts = wafo.objects.mat2timeseries(wafo.data.sea()) tp = ts.turning_points() @@ -2835,12 +2835,15 @@ def main0(): d2.plot() print 'Done' -def main(): - sensortype(range(21)) +def test_docstrings(): + import doctest + doctest.testmod() if __name__ == '__main__': + test_levelcrossings_extrapolate() # if True: #False : # + # import doctest # doctest.testmod() # else: diff --git a/pywafo/src/wafo/rindmod.pyd b/pywafo/src/wafo/rindmod.pyd index 1c75f5e..373b6eb 100644 Binary files a/pywafo/src/wafo/rindmod.pyd and b/pywafo/src/wafo/rindmod.pyd differ diff --git a/pywafo/src/wafo/source/c_codes/c_library.pyd b/pywafo/src/wafo/source/c_codes/c_library.pyd index 46547c5..e7a6d53 100644 Binary files a/pywafo/src/wafo/source/c_codes/c_library.pyd and b/pywafo/src/wafo/source/c_codes/c_library.pyd differ diff --git a/pywafo/src/wafo/source/mreg/checkmod.mod b/pywafo/src/wafo/source/mreg/checkmod.mod index 1c8a141..35817c8 100644 --- a/pywafo/src/wafo/source/mreg/checkmod.mod +++ b/pywafo/src/wafo/source/mreg/checkmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 -MD5:9338abc0e14d4bf13175cb874e9f7ea5 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 +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 -UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 +() () () 0 0) 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 -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 -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 -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 -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 -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 -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 -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 -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 -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 -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 -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' diff --git a/pywafo/src/wafo/source/mreg/epsmod.mod b/pywafo/src/wafo/source/mreg/epsmod.mod index ecf2f45..c5464d1 100644 --- a/pywafo/src/wafo/source/mreg/epsmod.mod +++ b/pywafo/src/wafo/source/mreg/epsmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 -MD5:67523ef735281684c8fb9aae15cdc0a3 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 +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 -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 -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 -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 -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) diff --git a/pywafo/src/wafo/source/mreg/expaccmod.mod b/pywafo/src/wafo/source/mreg/expaccmod.mod index 38c4ed9..507d155 100644 --- a/pywafo/src/wafo/source/mreg/expaccmod.mod +++ b/pywafo/src/wafo/source/mreg/expaccmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 -MD5:2d868304b34a40918a05109c83ff1871 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 +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 -UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 +() () () 0 0) 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 -REAL ()) 0 '0.28000000000000@2') () 0 () () () 0 0) +UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 +0 0 REAL ()) 0 '0.28000000000000@2') () 0 () () () 0 0) ) ('expaccmod' 0 2 'pmax' 0 3) diff --git a/pywafo/src/wafo/source/mreg/infcmod.mod b/pywafo/src/wafo/source/mreg/infcmod.mod index 2ade927..d009be0 100644 --- a/pywafo/src/wafo/source/mreg/infcmod.mod +++ b/pywafo/src/wafo/source/mreg/infcmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 -MD5:806a8e6bde038d8bc47688d3b6e5277f -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 +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 -UNKNOWN EXPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 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 INTEGER ()) 0 '10')) 0 () () () 0 0) 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 -UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT -(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 -INTEGER ()) 0 '10')) 0 () () () 0 0) +UNKNOWN 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 INTEGER ()) 0 '10')) 0 () () () 0 0) 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) diff --git a/pywafo/src/wafo/source/mreg/mregmod.mod b/pywafo/src/wafo/source/mreg/mregmod.mod index 79e5c56..a5f4b2b 100644 --- a/pywafo/src/wafo/source/mreg/mregmod.mod +++ b/pywafo/src/wafo/source/mreg/mregmod.mod @@ -1,9 +1,8 @@ -GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:06 2011 -MD5:a058cc3e6c0e8bedef8f214da2f5fbdc -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 +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 -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 -UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 7 0 (8 9 10 11 12 -13 14 15 16 17 18 19 20) () 0 () () () 0 0) +UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 7 0 (8 9 10 +11 12 13 14 15 16 17 18 19 20) () 0 () () () 0 0) 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 -26 27 28 29 30 31) () 0 () () () 0 0) -22 'xind' '' 'xind' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN -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 +UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 21 0 (22 23 +24 25 26 27 28 29 30 31) () 0 () () () 0 0) +26 'db' '' 'db' 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 '201')) 0 () () () 0 0) -25 'dbun' '' 'dbun' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -26 'db' '' 'db' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN +27 'sq' '' 'sq' 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 '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 ( INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 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) -29 'nit' '' 'nit' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -30 'n' '' 'n' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +29 'nit' '' 'nit' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +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) -31 'infr' '' 'infr' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -6 'xx' '' 'xx' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +31 'infr' '' 'infr' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +6 'xx' '' 'xx' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -8 'f' '' 'f' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'r' '' 'r' 7 ((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) -10 'b' '' 'b' 7 ((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 '201')) 0 () () -() 0 0) -11 'db' '' 'db' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN +8 'f' '' 'f' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +9 'r' '' 'r' 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 +'40401')) 0 () () () 0 0) +10 'b' '' 'b' 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 +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 ( 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 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 ( INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '7')) 0 () () () 0 0) -14 'a' '' 'a' 7 ((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 '1407')) 0 () -() () 0 0) -15 'da' '' 'da' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN +19 'nit' '' 'nit' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +14 'a' '' 'a' 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 +'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 ( INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '7')) 0 () () () 0 0) -16 'vder' '' 'vder' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -17 'm' '' 'm' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) ( +16 'vder' '' 'vder' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +17 'm' '' 'm' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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) diff --git a/pywafo/src/wafo/source/mreg/quadrmod.mod b/pywafo/src/wafo/source/mreg/quadrmod.mod index ef4c9bf..9b64f55 100644 --- a/pywafo/src/wafo/source/mreg/quadrmod.mod +++ b/pywafo/src/wafo/source/mreg/quadrmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 -MD5:447301769c212f228b6cfa086ba1d48a -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 +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 -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 INTEGER ()) 0 '126')) 0 () () () 0 0) 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 -UNKNOWN DIMENSION DATA) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT ( -CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 -INTEGER ()) 0 '25')) 0 () () () 0 0) +UNKNOWN 0 0 DIMENSION DATA) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 +EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER +4 0 0 INTEGER ()) 0 '25')) 0 () () () 0 0) 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) 6 'quadrmod' 'quadrmod' 'quadrmod' 1 ((MODULE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 +() () () 0 0) 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 INTEGER ()) 0 '126')) 0 () () () 0 0) ) diff --git a/pywafo/src/wafo/source/mreg/rintmod.mod b/pywafo/src/wafo/source/mreg/rintmod.mod index db5cd82..8dddda2 100644 --- a/pywafo/src/wafo/source/mreg/rintmod.mod +++ b/pywafo/src/wafo/source/mreg/rintmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 -MD5:ea81a0bf9bc67a6cbf4024dcd57f4ee3 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 +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 -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 -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 -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) diff --git a/pywafo/src/wafo/source/mreg/sizemod.mod b/pywafo/src/wafo/source/mreg/sizemod.mod index 4976530..19d0cd5 100644 --- a/pywafo/src/wafo/source/mreg/sizemod.mod +++ b/pywafo/src/wafo/source/mreg/sizemod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 -MD5:b8c9fdc908b66b228beb64d8a241e2e6 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 +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 -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) 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) 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) 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) diff --git a/pywafo/src/wafo/source/mreg/svd.mod b/pywafo/src/wafo/source/mreg/svd.mod index 492473e..fdbcce0 100644 --- a/pywafo/src/wafo/source/mreg/svd.mod +++ b/pywafo/src/wafo/source/mreg/svd.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from dsvdc.f on Wed Jun 01 14:12:05 2011 -MD5:504db75f3667c360354623f37288fa05 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from dsvdc.f on Tue Mar 27 09:05:01 2012 +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 -IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 -0 INTEGER ()) 0 '8') () 0 () () () 0 0) +IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER +4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 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 () () -() 0 0) +UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 4 0 (5 6 7 8 9) () 0 +() () () 0 0) 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 () -() () 0 0) +UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 11 0 (12 13 14 15) () +0 () () () 0 0) 16 'dsvdc' 'svd' 'dsvdc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 17 0 (18 -19 20 21 22 23 24 25 26) () 0 () () () 0 0) +UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 17 0 +(18 19 20 21 22 23 24 25 26) () 0 () () () 0 0) 27 'dswap1' 'svd' 'dswap1' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 28 0 (29 30 31) () 0 () () -() 0 0) +UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 28 0 (29 30 31) () 0 +() () () 0 0) 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) 33 'svd' 'svd' 'svd' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -12 'da' '' 'da' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -13 'db' '' 'db' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -14 'dc' '' 'dc' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) +30 'dx' '' 'dx' 28 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SIZE (CONSTANT ( +INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +31 'dy' '' 'dy' 28 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +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) -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) -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) -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 ( 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 ( INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -5 'n' '' 'n' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -6 'dx' '' 'dx' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SIZE (CONSTANT (INTEGER 4 -0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -7 'dy' '' 'dy' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 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 DUMMY) (REAL 8 -0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 's' '' 's' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 -0 0 REAL ()) 0 0 () () 0 () () () 0 0) -18 'x' '' 'x' 17 ((VARIABLE INOUT 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) -19 'n' '' 'n' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +21 's' '' 's' 17 ((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) +22 'e' '' 'e' 17 ((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) +23 'u' '' 'u' 17 ((VARIABLE OUT 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) +24 'v' '' 'v' 17 ((VARIABLE OUT 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) +25 'job' '' 'job' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +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) -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) -21 's' '' 's' 17 ((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) -22 'e' '' 'e' 17 ((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) -23 'u' '' 'u' 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) -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) ( +15 'ds' '' 'ds' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +12 'da' '' 'da' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +13 'db' '' 'db' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +14 'dc' '' 'dc' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +29 'n' '' 'n' 28 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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 diff --git a/pywafo/src/wafo/source/mreg/tbrmod.mod b/pywafo/src/wafo/source/mreg/tbrmod.mod index 47fce17..805cc4a 100644 --- a/pywafo/src/wafo/source/mreg/tbrmod.mod +++ b/pywafo/src/wafo/source/mreg/tbrmod.mod @@ -1,8 +1,10 @@ -GFORTRAN module version '0' created from mregmodule.f on Wed Jun 01 14:12:05 2011 -MD5:43d81dd7165fa3666db9131e212144f1 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mregmodule.f on Tue Mar 27 09:05:04 2012 +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 -UNKNOWN DIMENSION) (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) +UNKNOWN 0 0 DIMENSION) (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) 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) 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) 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) 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 -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) diff --git a/pywafo/src/wafo/source/mvn/mvn.pyd b/pywafo/src/wafo/source/mvn/mvn.pyd index d3a19f0..53ef506 100644 Binary files a/pywafo/src/wafo/source/mvn/mvn.pyd and b/pywafo/src/wafo/source/mvn/mvn.pyd differ diff --git a/pywafo/src/wafo/source/mvnprd/adaptivegausskronrod.mod b/pywafo/src/wafo/source/mvnprd/adaptivegausskronrod.mod index 78d1c5b..5f07ab1 100644 --- a/pywafo/src/wafo/source/mvnprd/adaptivegausskronrod.mod +++ b/pywafo/src/wafo/source/mvnprd/adaptivegausskronrod.mod @@ -1,112 +1,115 @@ -GFORTRAN module version '0' created from mvnprodcorrprb.f on Fri Jul 31 00:49:14 2009 -MD5:a1f0425fa1a5ac7941ae2e0de107c489 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mvnprodcorrprb.f on Tue Mar 27 09:05:10 2012 +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 'dqagpe' 'adaptivegausskronrod' 'dqagpe' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) -17 0 (18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38) () -0 () () () 0 0) -5 'f' '' 'f' 4 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -6 'a' '' 'a' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 -0 0 REAL ()) 0 0 () () 0 () () () 0 0) -7 'b' '' 'b' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 -0 0 REAL ()) 0 0 () () 0 () () () 0 0) -8 'npts' '' 'npts' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -9 'points' '' 'points' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +() + +(2 'dqagp' 'adaptivegausskronrod' 'dqagp' 1 ((PROCEDURE UNKNOWN-INTENT +MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN +()) 4 0 (5 6 7 8 9 10 11 12 13 14 15 16) () 0 () () () 0 0) +3 'dqagpe' 'adaptivegausskronrod' 'dqagpe' 1 ((PROCEDURE UNKNOWN-INTENT +MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN +()) 17 0 (18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38) +() 0 () () () 0 0) +5 'f' '' 'f' 4 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +6 'a' '' 'a' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( +REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +7 'b' '' 'b' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( +REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +8 'npts' '' 'npts' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +9 'points' '' 'points' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 8 ())) 0 () () () 0 0) -10 'epsabs' '' 'epsabs' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +10 'epsabs' '' 'epsabs' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -11 'epsrel' '' 'epsrel' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +11 'epsrel' '' 'epsrel' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -12 'limit' '' 'limit' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +12 'limit' '' 'limit' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 13 'result1' '' 'result1' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -14 'abserr' '' 'abserr' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -15 'neval' '' 'neval' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +14 'abserr' '' 'abserr' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +15 'neval' '' 'neval' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +16 'ier' '' 'ier' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -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 -EXTERNAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -19 'a' '' 'a' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 +0) +19 'a' '' 'a' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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) -21 'npts' '' 'npts' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -22 'points' '' 'points' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( +21 'npts' '' 'npts' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +22 'points' '' 'points' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 21 ())) 0 () () () 0 0) -23 'epsabs' '' 'epsabs' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -24 'epsrel' '' 'epsrel' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -25 'limit' '' 'limit' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +23 'epsabs' '' 'epsabs' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +24 'epsrel' '' 'epsrel' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +25 'limit' '' 'limit' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -26 'result' '' 'result' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -27 'abserr' '' 'abserr' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -28 'neval' '' 'neval' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +26 'result' '' 'result' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +27 'abserr' '' 'abserr' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +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) -29 'ier' '' 'ier' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -30 'alist' '' 'alist' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +30 'alist' '' 'alist' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 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 ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 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 ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 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 ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 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 ( 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 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 ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 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 ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 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 ( 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 4 0 0 INTEGER ()) 0 '2'))) 0 () () () 0 0) 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) diff --git a/pywafo/src/wafo/source/mvnprd/erfcoremod.mod b/pywafo/src/wafo/source/mvnprd/erfcoremod.mod index 9aa6046..18507e9 100644 --- a/pywafo/src/wafo/source/mvnprd/erfcoremod.mod +++ b/pywafo/src/wafo/source/mvnprd/erfcoremod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from mvnprodcorrprb.f on Fri Jul 31 00:49:14 2009 -MD5:fd8b502899ea930770b400347fe62952 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mvnprodcorrprb.f on Tue Mar 27 09:05:10 2012 +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 -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) -6 0 (7 8 9) () 0 () () () 0 0) +MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN +()) 6 0 (7 8 9) () 0 () () () 0 0) 2 'derf' 'erfcoremod' 'derf' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 10 0 (11) () 12 () () -() 0 0) +DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 10 0 (11) () 12 +() () () 0 0) 5 'derfc' 'erfcoremod' 'derfc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 13 0 (14) () 15 () () -() 0 0) +DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 13 0 (14) () 15 +() () () 0 0) 4 'derfcx' 'erfcoremod' 'derfcx' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 16 0 ( -17) () 18 () () () 0 0) +MODULE-PROC DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 16 0 +(17) () 18 () () () 0 0) 19 'erfcoremod' 'erfcoremod' 'erfcoremod' 1 ((MODULE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () -() () 0 0) -11 'x' '' 'x' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 +() () () 0 0) +11 'x' '' 'x' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 12 'value' '' 'value' 10 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -14 'x' '' 'x' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +14 'x' '' 'x' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 15 'value' '' 'value' 13 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -17 'x' '' 'x' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +17 'x' '' 'x' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 18 'value' '' 'value' 16 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -7 'arg' '' 'arg' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -8 'result' '' 'result' 6 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'jint' '' 'jint' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 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 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +8 'result' '' 'result' 6 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +9 'jint' '' 'jint' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) diff --git a/pywafo/src/wafo/source/mvnprd/functioninterface.mod b/pywafo/src/wafo/source/mvnprd/functioninterface.mod index 2937f78..384658e 100644 --- a/pywafo/src/wafo/source/mvnprd/functioninterface.mod +++ b/pywafo/src/wafo/source/mvnprd/functioninterface.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from mvnprodcorrprb.f on Fri Jul 31 00:49:14 2009 -MD5:68ed62f6aa743d64a34217a1e7fa0463 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mvnprodcorrprb.f on Tue Mar 27 09:05:10 2012 +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 -BODY UNKNOWN EXTERNAL FUNCTION) (REAL 8 0 0 REAL ()) 3 0 (4) () 5 () () -() 0 0) +BODY UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 REAL ()) 3 0 (4) () 5 () +() () 0 0) 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) -4 'z' '' 'z' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 -0 0 REAL ()) 0 0 () () 0 () () () 0 0) +4 'z' '' 'z' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( +REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 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) diff --git a/pywafo/src/wafo/source/mvnprd/integration1dmodule.mod b/pywafo/src/wafo/source/mvnprd/integration1dmodule.mod index e01cae0..44d1aa1 100644 --- a/pywafo/src/wafo/source/mvnprd/integration1dmodule.mod +++ b/pywafo/src/wafo/source/mvnprd/integration1dmodule.mod @@ -1,241 +1,252 @@ -GFORTRAN module version '0' created from mvnprodcorrprb.f on Wed Jun 01 13:58:04 2011 -MD5:7a05a34a9fc9c1c84b7469621565e798 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mvnprodcorrprb.f on Tue Mar 27 09:05:10 2012 +MD5:c511a9aa7e31370eaf1e1a904f0a7c1c -- If you edit this, you'll get what you deserve. -(() () () -() () () () () () () () () () () () () () () () () () () () () () () ()) +(() () () () () () () () () () () () () () () () () () () () () () () +() () () ()) () -(('adaptivesimpson' 'integration1dmodule' 2 3) ('d1mach' -'integration1dmodule' 4) ('adaptivetrapz' 'integration1dmodule' 5 6) ( -'romberg' 'integration1dmodule' 7 8) ('dea' 'integration1dmodule' 9)) +(('adaptivesimpson' 'integration1dmodule' 2 3) ('adaptivetrapz' +'integration1dmodule' 4 5) ('d1mach' 'integration1dmodule' 6) ('romberg' +'integration1dmodule' 7 8) ('dea' 'integration1dmodule' 9)) + +() () () (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 19 20) () 0 () () () 0 0) 21 'adaptivesimpson1' 'integration1dmodule' 'adaptivesimpson1' 1 (( -PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 -0 0 UNKNOWN ()) 22 0 (23 24 25 26 27 28 29) () 0 () () () 0 0) +PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) ( +UNKNOWN 0 0 0 UNKNOWN ()) 22 0 (23 24 25 26 27 28 29) () 0 () () () 0 0) 3 'adaptivesimpson2' 'integration1dmodule' 'adaptivesimpson2' 1 (( -PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 -0 0 UNKNOWN ()) 30 0 (31 32 33 34 35 36 37) () 0 () () () 0 0) +PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) ( +UNKNOWN 0 0 0 UNKNOWN ()) 30 0 (31 32 33 34 35 36 37) () 0 () () () 0 0) 38 'adaptivesimpson3' 'integration1dmodule' 'adaptivesimpson3' 1 (( -PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 -0 0 UNKNOWN ()) 39 0 (40 41 42 43 44 45 46) () 0 () () () 0 0) +PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) ( +UNKNOWN 0 0 0 UNKNOWN ()) 39 0 (40 41 42 43 44 45 46) () 0 () () () 0 0) 2 'adaptivesimpsonwithbreaks' 'integration1dmodule' 'adaptivesimpsonwithbreaks' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 47 0 -(48 49 50 51 52 53 54 55 56) () 0 () () () 0 0) -6 'adaptivetrapz1' 'integration1dmodule' 'adaptivetrapz1' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 +DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) +47 0 (48 49 50 51 52 53 54 55 56) () 0 () () () 0 0) +5 'adaptivetrapz1' 'integration1dmodule' 'adaptivetrapz1' 1 ((PROCEDURE +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) -5 'adaptivetrapzwithbreaks' 'integration1dmodule' +4 'adaptivetrapzwithbreaks' 'integration1dmodule' 'adaptivetrapzwithbreaks' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 65 0 (66 -67 68 69 70 71 72 73 74) () 0 () () () 0 0) -4 'd1mach' 'integration1dmodule' 'd1mach' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 75 0 ( -76) () 4 () () () 0 0) +UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 65 0 +(66 67 68 69 70 71 72 73 74) () 0 () () () 0 0) +6 'd1mach' 'integration1dmodule' 'd1mach' 1 ((PROCEDURE UNKNOWN-INTENT +MODULE-PROC DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 75 0 +(76) () 6 () () () 0 0) 9 'dea' 'integration1dmodule' 'dea' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) -77 0 (78 79 80 81 82 83 84) () 0 () () () 0 0) +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) 85 'dea3' 'integration1dmodule' 'dea3' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 86 0 ( -87 88 89 90 91) () 0 () () () 0 0) +MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 86 0 +(87 88 89 90 91) () 0 () () () 0 0) 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) 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) 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 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) -87 'e0' '' 'e0' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -88 'e1' '' 'e1' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -89 'e2' '' 'e2' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -90 'abserr' '' 'abserr' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -91 'result' '' 'result' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +87 'e0' '' 'e0' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +88 'e1' '' 'e1' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +89 'e2' '' 'e2' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +90 'abserr' '' 'abserr' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +91 'result' '' 'result' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 78 'newflg' '' 'newflg' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) -79 'svalue' '' 'svalue' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -80 'limexp' '' 'limexp' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -81 'result' '' 'result' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 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 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +80 'limexp' '' 'limexp' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +81 'result' '' 'result' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 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 -DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SIZE (CONSTANT ( -INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -84 'ierr' '' 'ierr' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SIZE ( +CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +84 'ierr' '' 'ierr' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 12 'f' '' 'f' 11 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -13 'a' '' 'a' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 +0) +13 'a' '' 'a' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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) -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) -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 (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -17 'epsi' '' 'epsi' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(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 +17 'epsi' '' 'epsi' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -20 'val' '' 'val' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -23 'f' '' 'f' 22 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 23 () () () 0 0) -24 'a' '' 'a' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -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 +18 'iflg' '' 'iflg' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +19 'abserr' '' 'abserr' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +20 'val' '' 'val' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 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 -EXTERNAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -49 'a' '' 'a' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 +0) +49 'a' '' 'a' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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) -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) -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 (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -53 'epsi' '' 'epsi' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(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 +53 'epsi' '' 'epsi' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -56 'val' '' 'val' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -31 'f' '' 'f' 30 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 31 () () () 0 0) -32 'a' '' 'a' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +54 'iflg' '' 'iflg' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +55 'abserr' '' 'abserr' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +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) -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) -34 'epsi' '' 'epsi' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(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 +26 'epsi' '' 'epsi' 22 ((VARIABLE IN 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 DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -40 'f' '' 'f' 39 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 40 () () () 0 0) -41 'a' '' 'a' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +27 'iflg' '' 'iflg' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +28 'abserr' '' 'abserr' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +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) -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) -43 'epsi' '' 'epsi' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -44 'iflg' '' 'iflg' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -45 'abserr' '' 'abserr' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +34 'epsi' '' 'epsi' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +35 'iflg' '' 'iflg' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +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) -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 -EXTERNAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -67 'a' '' 'a' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 +0) +67 'a' '' 'a' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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) -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) -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 (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -71 'epsi' '' 'epsi' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(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 +71 'epsi' '' 'epsi' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -74 'val' '' 'val' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -58 'f' '' 'f' 57 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 58 () () () 0 0) -59 'a' '' 'a' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +72 'iflg' '' 'iflg' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +73 'abserr' '' 'abserr' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +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) -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) -61 'epsi' '' 'epsi' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -62 'iflg' '' 'iflg' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -63 'abserr' '' 'abserr' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +61 'epsi' '' 'epsi' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +62 'iflg' '' 'iflg' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +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) -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 -UNKNOWN EXTERNAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -104 'a' '' 'a' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -105 'b' '' 'b' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -106 'n' '' 'n' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -107 'brks' '' 'brks' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +UNKNOWN 0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 0 () +() () 0 0) +104 'a' '' 'a' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +105 'b' '' 'b' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +106 'n' '' 'n' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(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 (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) -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) 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) -111 'val' '' 'val' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -94 'f' '' 'f' 93 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 94 () () () 0 0) -95 'a' '' 'a' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +94 'f' '' 'f' 93 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0 +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) ( 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) 97 'decdigs' '' 'decdigs' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -98 'abseps' '' 'abseps' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -99 'errflg' '' 'errflg' 93 ((VARIABLE OUT 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 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +99 'errflg' '' 'errflg' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 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) -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' 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 'rombergwithbreaks' 0 7) diff --git a/pywafo/src/wafo/source/mvnprd/mvnprdmod.pyd b/pywafo/src/wafo/source/mvnprd/mvnprdmod.pyd index 9cff22a..ffc1ed1 100644 Binary files a/pywafo/src/wafo/source/mvnprd/mvnprdmod.pyd and b/pywafo/src/wafo/source/mvnprd/mvnprdmod.pyd differ diff --git a/pywafo/src/wafo/source/mvnprd/mvnprodcorrprbmod.mod b/pywafo/src/wafo/source/mvnprd/mvnprodcorrprbmod.mod index e57be0f..9b505bb 100644 --- a/pywafo/src/wafo/source/mvnprd/mvnprodcorrprbmod.mod +++ b/pywafo/src/wafo/source/mvnprd/mvnprodcorrprbmod.mod @@ -1,8 +1,8 @@ -GFORTRAN module version '0' created from mvnprodcorrprb.f on Fri Jul 31 00:49:14 2009 -MD5:f40d97ecb7391e1c401b4b2027719b7e -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from mvnprodcorrprb.f on Tue Mar 27 09:05:10 2012 +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 -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) () 0 () () () 0 0) -4 'rho' '' 'rho' 3 ((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) -5 'a' '' 'a' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION +4 'rho' '' 'rho' 3 ((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) +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 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 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) -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) 9 'usebreakpoints' '' 'usebreakpoints' 3 ((VARIABLE IN UNKNOWN-PROC -UNKNOWN UNKNOWN DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () +() 0 0) 10 'usesimpson' '' 'usesimpson' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN -UNKNOWN DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) -11 'abserr' '' 'abserr' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) +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) -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) diff --git a/pywafo/src/wafo/source/rind2007/adaptmod.mod b/pywafo/src/wafo/source/rind2007/adaptmod.mod index 6c6aa82..886aa06 100644 --- a/pywafo/src/wafo/source/rind2007/adaptmod.mod +++ b/pywafo/src/wafo/source/rind2007/adaptmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from intmodule.f on Wed Jun 01 13:58:08 2011 -MD5:49682d06ef7be297d13abb52c9f1dbaa -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:12 2012 +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 -DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 4 0 (5 6 7 8 -9 10 11 12 13) () 0 () () () 0 0) +DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 4 0 (5 6 +7 8 9 10 11 12 13) () 0 () () () 0 0) 3 'sadapt' 'adaptmod' 'sadapt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 14 0 (15 16 -17 18 19 20 21 22) () 0 () () () 0 0) -15 'n' '' 'n' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -16 'maxpts' '' 'maxpts' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -17 'functn' '' 'functn' 14 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY -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 +DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 14 0 ( +15 16 17 18 19 20 21 22) () 0 () () () 0 0) +18 'abseps' '' 'abseps' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +19 'releps' '' 'releps' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +20 'error' '' 'error' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 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) -22 'inform' '' 'inform' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -24 'n' '' 'n' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +22 'inform' '' 'inform' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +15 'n' '' 'n' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -25 'z' '' 'z' 23 ((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) -5 'ndim' '' 'ndim' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +16 'maxpts' '' 'maxpts' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +17 'functn' '' 'functn' 14 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY +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) -6 'mincls' '' 'mincls' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -7 'maxcls' '' 'maxcls' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +25 'z' '' 'z' 23 ((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) 8 'functn' '' 'functn' 4 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY -UNKNOWN DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 26 0 (27 28) -() 8 () () () 0 0) -9 'absreq' '' 'absreq' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 26 0 ( +27 28) () 8 () () () 0 0) +9 'absreq' '' 'absreq' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -11 'absest' '' 'absest' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -12 'finest' '' 'finest' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -13 'inform' '' 'inform' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +11 'absest' '' 'absest' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +12 'finest' '' 'finest' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +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) -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) -28 'z' '' 'z' 26 ((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) +28 'z' '' 'z' 26 ((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) ) ('adapt' 0 2 'sadapt' 0 3) diff --git a/pywafo/src/wafo/source/rind2007/c1c2mod.mod b/pywafo/src/wafo/source/rind2007/c1c2mod.mod index e872502..605ce1e 100644 --- a/pywafo/src/wafo/source/rind2007/c1c2mod.mod +++ b/pywafo/src/wafo/source/rind2007/c1c2mod.mod @@ -1,8 +1,8 @@ -GFORTRAN module version '0' created from rind71mod.f on Wed Jun 01 13:58:12 2011 -MD5:b9fa45d5661c17be39136cf5490c0256 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from rind71mod.f on Tue Mar 27 09:05:15 2012 +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 -UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 3 -0 (4 5 6 7 8 9) () 0 () () () 0 0) +UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) +3 0 (4 5 6 7 8 9) () 0 () () () 0 0) 10 'c1c2mod' 'c1c2mod' 'c1c2mod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -6 'cm' '' 'cm' 3 ((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) -7 'b1' '' 'b1' 3 ((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) -5 'c2' '' 'c2' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -8 'sq' '' 'sq' 3 ((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) -4 'c1' '' 'c1' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'ind' '' 'ind' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 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 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) +9 'ind' '' 'ind' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE ( +CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) +5 'c2' '' 'c2' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +8 'sq' '' 'sq' 3 ((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) +4 'c1' '' 'c1' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +7 'b1' '' 'b1' 3 ((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) ) ('c1c2' 0 2 'c1c2mod' 0 10) diff --git a/pywafo/src/wafo/source/rind2007/dkbvrcmod.mod b/pywafo/src/wafo/source/rind2007/dkbvrcmod.mod index 6a36713..7f73f0b 100644 --- a/pywafo/src/wafo/source/rind2007/dkbvrcmod.mod +++ b/pywafo/src/wafo/source/rind2007/dkbvrcmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from intmodule.f on Wed Aug 05 05:35:49 2009 -MD5:a4e84422cfb5c96ca4a433837610753a -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:13 2012 +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 -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) -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) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -5 'minvls' '' 'minvls' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN 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) +4 'ndim' '' 'ndim' 3 ((VARIABLE IN 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 +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) 7 'functn' '' 'functn' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY -UNKNOWN DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 13 0 (14 15) -() 7 () () () 0 0) -8 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 13 0 ( +14 15) () 7 () () () 0 0) +8 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -10 'abserr' '' 'abserr' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -11 'finest' '' 'finest' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 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) -14 'n' '' 'n' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +10 'abserr' '' 'abserr' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 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) +14 'n' '' 'n' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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) +15 'z' '' 'z' 13 ((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) ) ('dkbvrc' 0 2) diff --git a/pywafo/src/wafo/source/rind2007/fimod.mod b/pywafo/src/wafo/source/rind2007/fimod.mod index 25ba753..440a280 100644 --- a/pywafo/src/wafo/source/rind2007/fimod.mod +++ b/pywafo/src/wafo/source/rind2007/fimod.mod @@ -1,216 +1,217 @@ -GFORTRAN module version '0' created from fimod.f on Wed Aug 05 05:35:52 2009 -MD5:9b97aca95087f079d77ade04cc70d4e2 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from fimod.f on Tue Mar 27 09:05:13 2012 +MD5:a146ceadee4e001c58457ec1a4dcc4bc -- If you edit this, you'll get what you deserve. -(() -() () () () () () () () () () () () () () () () () () () () () () () () -() ()) +(() () () () () () () () () () () () () () () () () () () () () () () +() () () ()) () -(('bvu' 'fimod' 2) ('bvtl' 'fimod' 3) ('bvnmvn' 'fimod' 4) ('exlms' -'fimod' 5) ('fiinv' 'fimod' 6) ('fi' 'fimod' 7) ('gausint2' 'fimod' 8) ( -'mvnlms' 'fimod' 9) ('normprb' 'fimod' 10) ('mvnlimits' 'fimod' 11) ( -'gausint' 'fimod' 12) ('studnt' 'fimod' 13) ('tvtl' 'fimod' 14) ('exinv' +(('bvu' 'fimod' 2) ('bvtl' 'fimod' 3) ('exinv' 'fimod' 4) ('bvnmvn' +'fimod' 5) ('fi' 'fimod' 6) ('fiinv' 'fimod' 7) ('gausint' 'fimod' 8) ( +'mvnlimits' 'fimod' 9) ('normprb' 'fimod' 10) ('mvnlms' 'fimod' 11) ( +'gausint2' 'fimod' 12) ('tvtl' 'fimod' 13) ('studnt' 'fimod' 14) ('exlms' '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 -UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 22 0 (23 24 25 26) () 3 () -() () 0 0) +UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 22 0 (23 24 25 26) () +3 () () () 0 0) 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 () -() () 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 +UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 27 0 (28 29 30) () 31 () () () 0 0) -5 'exlms' 'fimod' 'exlms' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 38 0 (39 40 41 42 -43 44 45 46) () 0 () () () 0 0) -7 'fi' 'fimod' 'fi' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 47 0 (48) () 49 () () () -0 0) -6 'fiinv' 'fimod' 'fiinv' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 50 0 (51) () 52 () () () -0 0) -12 'gausint' 'fimod' 'gausint' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 53 0 (54 55 56 57 58 -59) () 60 () () () 0 0) -8 'gausint2' 'fimod' 'gausint2' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 61 0 (62 63 64 65) () -66 () () () 0 0) -11 'mvnlimits' 'fimod' 'mvnlimits' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 -0 0 UNKNOWN ()) 67 0 (68 69 70 71 72 73) () 0 () () () 0 0) -9 'mvnlms' 'fimod' 'mvnlms' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 74 0 (75 76 -77 78 79) () 0 () () () 0 0) +4 'exinv' 'fimod' 'exinv' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL +UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 32 0 (33 34 35 36) () +37 () () () 0 0) +15 'exlms' 'fimod' 'exlms' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL +UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 38 0 (39 40 +41 42 43 44 45 46) () 0 () () () 0 0) +6 'fi' 'fimod' 'fi' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL +UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 47 0 (48) () 49 () () +() 0 0) +7 'fiinv' 'fimod' 'fiinv' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL +UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 50 0 (51) () 52 () () +() 0 0) +8 'gausint' 'fimod' 'gausint' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC +DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 53 0 (54 55 56 +57 58 59) () 60 () () () 0 0) +12 'gausint2' 'fimod' 'gausint2' 1 ((PROCEDURE UNKNOWN-INTENT +MODULE-PROC DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 61 0 +(62 63 64 65) () 66 () () () 0 0) +9 'mvnlimits' 'fimod' 'mvnlimits' 1 ((PROCEDURE UNKNOWN-INTENT +MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) ( +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 -DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN -()) 80 0 (81 82 83) () 0 () () () 0 0) -13 'studnt' 'fimod' 'studnt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 84 0 (85 86) () 13 () -() () 0 0) +DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 +UNKNOWN ()) 80 0 (81 82 83) () 0 () () () 0 0) +14 'studnt' 'fimod' 'studnt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC +DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 84 0 (85 86) () +14 () () () 0 0) 87 'tvnmvn' 'fimod' 'tvnmvn' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 88 0 (89 90 -91 92 93) () 94 () () () 0 0) -14 'tvtl' 'fimod' 'tvtl' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 95 0 (96 -97 98 99) () 14 () () () 0 0) -51 'p' '' 'p' 50 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +DECL UNKNOWN 0 0 FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 88 0 ( +89 90 91 92 93) () 94 () () () 0 0) +13 'tvtl' 'fimod' 'tvtl' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL +UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 95 0 +(96 97 98 99) () 13 () () () 0 0) +51 'p' '' 'p' 50 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 52 'val' '' 'val' 50 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -81 'z' '' 'z' 80 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -82 'p' '' 'p' 80 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +81 'z' '' 'z' 80 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -83 'q' '' 'q' 80 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN OPTIONAL -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -48 'z' '' 'z' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +82 'p' '' 'p' 80 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +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) 49 'value' '' 'value' 47 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -68 'a' '' 'a' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +68 'a' '' 'a' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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) -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) -71 'ap' '' 'ap' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -72 'prb' '' 'prb' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +71 'ap' '' 'ap' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +72 'prb' '' 'prb' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 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 -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -75 'a' '' 'a' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +73 'aq' '' 'aq' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +75 'a' '' 'a' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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) -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) -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) -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) -89 'a' '' 'a' 88 ((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) -90 'b' '' 'b' 88 ((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) -91 'infin' '' 'infin' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +89 'a' '' 'a' 88 ((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) +90 'b' '' 'b' 88 ((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) +91 'infin' '' 'infin' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -92 'r' '' 'r' 88 ((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) -93 'epsi' '' 'epsi' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +92 'r' '' 'r' 88 ((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) +93 'epsi' '' 'epsi' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 94 'val' '' 'val' 88 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () -0 0) -17 'lower' '' 'lower' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () +() () 0 0) +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 (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 (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 ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -20 'correl' '' 'correl' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +20 'correl' '' 'correl' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 21 'val' '' 'val' 16 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () -0 0) -28 'sh' '' 'sh' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -29 'sk' '' 'sk' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -30 'r' '' 'r' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () +() () 0 0) +28 'sh' '' 'sh' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +29 'sk' '' 'sk' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +30 'r' '' 'r' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 31 'val' '' 'val' 27 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -85 'nu' '' 'nu' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -86 't' '' 't' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -23 'nu' '' 'nu' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -24 'dh' '' 'dh' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) +UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +85 'nu' '' 'nu' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +86 't' '' 't' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( +REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +23 'nu' '' 'nu' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +24 'dh' '' 'dh' 22 ((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 DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -55 'x2' '' 'x2' 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) +26 'r' '' 'r' 22 ((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 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) -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) -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) -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) 60 'value' '' 'value' 53 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -62 'x1' '' 'x1' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -63 'x2' '' 'x2' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -64 'a' '' 'a' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +62 'x1' '' 'x1' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +63 'x2' '' 'x2' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +64 'a' '' 'a' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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) 66 'value' '' 'value' 61 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -39 'a' '' 'a' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) ( +UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +39 'a' '' 'a' 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 +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) -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) -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) -45 'ca' '' 'ca' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -46 'pa' '' 'pa' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -33 'p' '' 'p' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) ( +45 'ca' '' 'ca' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +46 'pa' '' 'pa' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +33 'p' '' 'p' 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 DUMMY) ( +34 'a' '' 'a' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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 -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 -'fiinv' 0 6 'gausint' 0 12 'gausint2' 0 8 'mvnlimits' 0 11 'mvnlms' 0 9 -'normprb' 0 10 'studnt' 0 13 'tvnmvn' 0 87 'tvtl' 0 14) +('bvnmvn' 0 5 'bvtl' 0 3 'bvu' 0 2 'exinv' 0 4 'exlms' 0 15 'fi' 0 6 +'fiinv' 0 7 'gausint' 0 8 'gausint2' 0 12 'mvnlimits' 0 9 'mvnlms' 0 11 +'normprb' 0 10 'studnt' 0 14 'tvnmvn' 0 87 'tvtl' 0 13) diff --git a/pywafo/src/wafo/source/rind2007/funcmod.mod b/pywafo/src/wafo/source/rind2007/funcmod.mod index a5407ba..adf5a35 100644 --- a/pywafo/src/wafo/source/rind2007/funcmod.mod +++ b/pywafo/src/wafo/source/rind2007/funcmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from rind71mod.f on Wed Jun 01 13:58:12 2011 -MD5:2c451be5c9893103ed0c8d39952ddead -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from rind71mod.f on Tue Mar 27 09:05:15 2012 +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 -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (2 -DEFERRED () () () ()) 0 () () () 0 0) +UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () ( +2 DEFERRED () () () ()) 0 () () () 0 0) 5 'cm' 'funcmod' 'cm' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () -()) 0 () () () 0 0) +UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 +DEFERRED () ()) 0 () () () 0 0) 6 'cmn' 'funcmod' 'cmn' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () -()) 0 () () () 0 0) +UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 +DEFERRED () ()) 0 () () () 0 0) 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 -DECL UNKNOWN FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 8 0 -(9 10) () 11 () () () 0 0) +DECL UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) +8 0 (9 10) () 11 () () () 0 0) 3 'mvnfun2' 'funcmod' 'mvnfun2' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 12 0 -(13 14) () 15 () () () 0 0) +DECL UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) +12 0 (13 14) () 15 () () () 0 0) 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 -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 -UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () -()) 0 () () () 0 0) +UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 +DEFERRED () ()) 0 () () () 0 0) 19 'xd' 'funcmod' 'xd' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () -()) 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 'w' '' 'w' 12 ((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) -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 +UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 +DEFERRED () ()) 0 () () () 0 0) +9 'ndim' '' 'ndim' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +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) 11 'xind' '' 'xind' 8 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () -0 0) +UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 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 diff --git a/pywafo/src/wafo/source/rind2007/globalconst.mod b/pywafo/src/wafo/source/rind2007/globalconst.mod index 9d65c77..4adfb19 100644 --- a/pywafo/src/wafo/source/rind2007/globalconst.mod +++ b/pywafo/src/wafo/source/rind2007/globalconst.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from rindmod.f on Wed Aug 05 05:35:53 2009 -MD5:28b9cfd26740ee7f785bb23117fdf8ea -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from rindmod.f on Tue Mar 27 09:05:14 2012 +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 -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) 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) 4 'globalconst' 'globalconst' 'globalconst' 1 ((MODULE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 +() () () 0 0) 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 -REAL ()) 0 '0.10000000000000@1') () 0 () () () 0 0) +UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 +0 0 REAL ()) 0 '0.10000000000000@1') () 0 () () () 0 0) 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 -REAL ()) 0 '0.3243f6a8885a22@1') () 0 () () () 0 0) +UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 +0 0 REAL ()) 0 '0.3243f6a8885a22@1') () 0 () () () 0 0) 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 -REAL ()) 0 '0.517cc1b72721dc@0') () 0 () () () 0 0) +UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 +0 0 REAL ()) 0 '0.517cc1b72721dc@0') () 0 () () () 0 0) 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) 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) 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) 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) 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) 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) 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 -REAL ()) 0 '0.20000000000000@1') () 0 () () () 0 0) +UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 +0 0 REAL ()) 0 '0.20000000000000@1') () 0 () () () 0 0) 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) 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) ) diff --git a/pywafo/src/wafo/source/rind2007/globaldata.mod b/pywafo/src/wafo/source/rind2007/globaldata.mod index ad4c094..8ce3fb9 100644 --- a/pywafo/src/wafo/source/rind2007/globaldata.mod +++ b/pywafo/src/wafo/source/rind2007/globaldata.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from rind71mod.f on Wed Aug 05 05:36:49 2009 -MD5:56b23d8cfb1ad898b2f43426b067c050 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from rind71mod.f on Tue Mar 27 09:05:15 2012 +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 -UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION ELEMENTAL PURE) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION ELEMENTAL PURE) +(REAL 8 0 0 REAL ()) 0 0 () () 2 () () () 0 0) 3 'c1c2det' 'globaldata' 'c1c2det' 1 ((PARAMETER UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () ( -CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 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) 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 -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 -DEFERRED () ()) 0 () () () 0 0) +UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () ( +1 DEFERRED () ()) 0 () () () 0 0) 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 -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 -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 -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 -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 -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 +() () () 0 0) 12 'globaldata' 'globaldata' 'globaldata' 1 ((MODULE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 +() () () 0 0) 13 'hlo' 'globaldata' 'hlo' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 -DEFERRED () ()) 0 () () () 0 0) +UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () ( +1 DEFERRED () ()) 0 () () () 0 0) 14 'hup' 'globaldata' 'hup' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 -DEFERRED () ()) 0 () () () 0 0) +UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () ( +1 DEFERRED () ()) 0 () () () 0 0) 15 'index1' 'globaldata' 'index1' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN 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) 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) 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 -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 -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 -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 -UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 22 'nj' 'globaldata' 'nj' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 23 'njj' 'globaldata' 'njj' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 24 'nsimmax' 'globaldata' 'nsimmax' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () -0 () () () 0 0) +UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () +() 0 () () () 0 0) 25 'nsimmin' 'globaldata' 'nsimmin' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () -0 () () () 0 0) +UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () +() 0 () () () 0 0) 26 'nsxdj' 'globaldata' 'nsxdj' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () -(1 DEFERRED () ()) 0 () () () 0 0) +UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 +0 () (1 DEFERRED () ()) 0 () () () 0 0) 27 'nsxtmj' 'globaldata' 'nsxtmj' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN 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) 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 -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 -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 -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () -0 () () () 0 0) +UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () +() 0 () () () 0 0) 32 'nugget' 'globaldata' 'nugget' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 +() () () 0 0) 33 'nx' 'globaldata' 'nx' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN) (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 -UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 -REAL ()) 0 '0.3243f6a8885a22@1') () 0 () () () 0 0) +UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 +0 0 REAL ()) 0 '0.3243f6a8885a22@1') () 0 () () () 0 0) 35 'pi1' 'globaldata' 'pi1' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 -REAL ()) 0 '0.517cc1b72721dc@0') () 0 () () () 0 0) +UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 +0 0 REAL ()) 0 '0.517cc1b72721dc@0') () 0 () () () 0 0) 36 'plowgth' 'globaldata' 'plowgth' 1 ((PARAMETER UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (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) 37 'releps' 'globaldata' 'releps' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 +() () () 0 0) 38 'scis' 'globaldata' 'scis' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 39 'sq' 'globaldata' 'sq' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (2 -DEFERRED () () () ()) 0 () () () 0 0) +UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () ( +2 DEFERRED () () () ()) 0 () () () 0 0) 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 -REAL ()) 0 '0.1c5bf891b4ef7d@1') () 0 () () () 0 0) +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) 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) 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) 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) 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) 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) 46 'usec1c2' 'globaldata' 'usec1c2' 1 ((PARAMETER UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () ( -CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 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) 47 'xceps2' 'globaldata' 'xceps2' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 +() () () 0 0) 48 'xcscale' 'globaldata' 'xcscale' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 +() () () 0 0) 49 'xcutoff' 'globaldata' 'xcutoff' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 +() () () 0 0) 50 'xedni' 'globaldata' 'xedni' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () -(1 DEFERRED () ()) 0 () () () 0 0) +UNKNOWN UNKNOWN 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 +0 () (1 DEFERRED () ()) 0 () () () 0 0) 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 diff --git a/pywafo/src/wafo/source/rind2007/jacobmod.mod b/pywafo/src/wafo/source/rind2007/jacobmod.mod index 7281426..6b29ecb 100644 --- a/pywafo/src/wafo/source/rind2007/jacobmod.mod +++ b/pywafo/src/wafo/source/rind2007/jacobmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from jacobmod.f on Wed Aug 05 05:35:52 2009 -MD5:4af662f7f9b6aea3cbe229e90aed063f -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from jacobmod.f on Tue Mar 27 09:05:13 2012 +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 -DECL UNKNOWN FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 3 0 -(4 5) () 6 () () () 0 0) -4 'xd' '' 'xd' 3 ((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) -5 'xc' '' 'xc' 3 ((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) +DECL UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) +3 0 (4 5) () 6 () () () 0 0) +4 'xd' '' 'xd' 3 ((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) +5 'xc' '' 'xc' 3 ((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) 6 'value1' '' 'value1' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () -0 0) +UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () +() () 0 0) ) ('jacob' 0 2) diff --git a/pywafo/src/wafo/source/rind2007/krbvrcmod.mod b/pywafo/src/wafo/source/rind2007/krbvrcmod.mod index cc48e06..d2594fd 100644 --- a/pywafo/src/wafo/source/rind2007/krbvrcmod.mod +++ b/pywafo/src/wafo/source/rind2007/krbvrcmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from intmodule.f on Wed Aug 05 05:36:07 2009 -MD5:c734feac7a719b8cda518e46a6228370 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:12 2012 +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 -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) -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) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -5 'minvls' '' 'minvls' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN 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) +4 'ndim' '' 'ndim' 3 ((VARIABLE IN 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 +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) 7 'functn' '' 'functn' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY -UNKNOWN DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 13 0 (14 15) -() 7 () () () 0 0) -8 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 13 0 ( +14 15) () 7 () () () 0 0) +8 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -10 'abserr' '' 'abserr' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -11 'finest' '' 'finest' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 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) -14 'n' '' 'n' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +10 'abserr' '' 'abserr' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 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) +14 'n' '' 'n' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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) +15 'z' '' 'z' 13 ((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) ) ('krbvrc' 0 2) diff --git a/pywafo/src/wafo/source/rind2007/krobovmod.mod b/pywafo/src/wafo/source/rind2007/krobovmod.mod index 9b3cb2a..209d67d 100644 --- a/pywafo/src/wafo/source/rind2007/krobovmod.mod +++ b/pywafo/src/wafo/source/rind2007/krobovmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from intmodule.f on Fri Aug 07 03:21:28 2009 -MD5:65acff79c0cbb55d31a1ac2a616f396f -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:13 2012 +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 -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) -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) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -12 'inform' '' 'inform' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN 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) +4 'ndim' '' 'ndim' 3 ((VARIABLE IN 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 +8 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) +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 -UNKNOWN DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 13 0 (14 15) -() 7 () () () 0 0) -8 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'releps' '' 'releps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -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) ( +UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 13 0 ( +14 15) () 7 () () () 0 0) +15 'z' '' 'z' 13 ((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) +14 'n' '' 'n' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( 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) diff --git a/pywafo/src/wafo/source/rind2007/precisionmod.mod b/pywafo/src/wafo/source/rind2007/precisionmod.mod index f3e176a..29df071 100644 --- a/pywafo/src/wafo/source/rind2007/precisionmod.mod +++ b/pywafo/src/wafo/source/rind2007/precisionmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from intmodule.f on Wed Aug 05 05:35:50 2009 -MD5:9a96cbd1faeb6554557f9d9308c50e28 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:13 2012 +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 -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) 3 'precisionmod' 'precisionmod' 'precisionmod' 1 ((MODULE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 +() () () 0 0) 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) ) diff --git a/pywafo/src/wafo/source/rind2007/quad.mod b/pywafo/src/wafo/source/rind2007/quad.mod index b5fc9e0..ed41ab3 100644 --- a/pywafo/src/wafo/source/rind2007/quad.mod +++ b/pywafo/src/wafo/source/rind2007/quad.mod @@ -1,8 +1,8 @@ -GFORTRAN module version '0' created from rind71mod.f on Wed Jun 01 13:58:12 2011 -MD5:e7a984d62438c272e47330bb57cf7213 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from rind71mod.f on Tue Mar 27 09:05:15 2012 +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 -UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION ELEMENTAL PURE) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION ELEMENTAL PURE) +(REAL 8 0 0 REAL ()) 0 0 () () 8 () () () 0 0) 2 'gausshe0' 'quad' 'gausshe0' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN -()) 9 0 (10 11 12 13 14 15) () 0 () () () 0 0) +DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 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 -DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN -()) 16 0 (17 18 19 20 21 22) () 0 () () () 0 0) +DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 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 -DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN -()) 23 0 (24 25 26 27 28 29) () 0 () () () 0 0) +DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 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 -DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN -()) 30 0 (31 32 33 34 35) () 0 () () () 0 0) +DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 +UNKNOWN ()) 30 0 (31 32 33 34 35) () 0 () () () 0 0) 6 'gaussle2' 'quad' 'gaussle2' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN -()) 36 0 (37 38 39 40 41 42) () 0 () () () 0 0) +DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 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 -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) 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 INTEGER ()) 0 '126')) 0 () () () 0 0) 51 'heind' 'quad' 'heind' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (ARRAY ( -INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') -()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') ()) ((CONSTANT ( +UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( +ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) +0 '0') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') ()) ((CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14') ()) ((CONSTANT (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 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0) 52 'heqnr' 'quad' 'heqnr' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (ARRAY ( -INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') -()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') ()) ((CONSTANT ( +UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( +ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) +0 '2') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') ()) ((CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') ()) ((CONSTANT ( 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 () () () 0 0) 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 INTEGER ()) 0 '126')) 0 () () () 0 0) 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 -UNKNOWN UNKNOWN DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT -(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 -INTEGER ()) 0 '126')) 0 () () () 0 0) +UNKNOWN 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 INTEGER ()) 0 '126')) 0 () () () 0 0) 56 'labp5' 'quad' 'labp5' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT -(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 -INTEGER ()) 0 '126')) 0 () () () 0 0) +UNKNOWN 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 INTEGER ()) 0 '126')) 0 () () () 0 0) 57 'laind' 'quad' 'laind' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (ARRAY ( -INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') -()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') ()) ((CONSTANT ( +UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( +ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) +0 '0') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') ()) ((CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14') ()) ((CONSTANT (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 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0) 58 'laqnr' 'quad' 'laqnr' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (ARRAY ( -INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') -()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') ()) ((CONSTANT ( +UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( +ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) +0 '2') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') ()) ((CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') ()) ((CONSTANT ( 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 () () () 0 0) 59 'lawf0' 'quad' 'lawf0' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT -(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 -INTEGER ()) 0 '126')) 0 () () () 0 0) +UNKNOWN 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 INTEGER ()) 0 '126')) 0 () () () 0 0) 60 'lawf5' 'quad' 'lawf5' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DIMENSION DATA) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT -(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 -INTEGER ()) 0 '126')) 0 () () () 0 0) +UNKNOWN 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 INTEGER ()) 0 '126')) 0 () () () 0 0) 61 'le2qnr' 'quad' 'le2qnr' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 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 INTEGER ()) 0 '126')) 0 () () () 0 0) 63 'leind' 'quad' 'leind' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (ARRAY ( -INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') -()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') ()) ((CONSTANT ( +UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( +ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) +0 '0') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') ()) ((CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14') ()) ((CONSTANT (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 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0) 64 'leqnr' 'quad' 'leqnr' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (ARRAY ( -INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') -()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') ()) ((CONSTANT ( +UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () ( +ARRAY (INTEGER 4 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) +0 '2') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') ()) ((CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') ()) ((CONSTANT ( 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 () () () 0 0) 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 INTEGER ()) 0 '126')) 0 () () () 0 0) 66 'minqnr' 'quad' 'minqnr' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 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) 68 'nint1' 'quad' 'nint1' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT -(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 -INTEGER ()) 0 '13')) 0 () () () 0 0) +UNKNOWN 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 INTEGER ()) 0 '13')) 0 () () () 0 0) 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) 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) 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) 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 -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) -31 'n' '' 'n' 30 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -32 'wfout' '' 'wfout' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +31 'n' '' 'n' 30 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +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 (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 (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -34 'xmi' '' 'xmi' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -35 'xma' '' 'xma' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -48 'xma' '' 'xma' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -49 'n0' '' 'n0' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -10 'n' '' 'n' 9 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -11 'wfout' '' 'wfout' 9 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +27 'xmi' '' 'xmi' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +28 'xma' '' 'xma' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +29 'n0' '' 'n0' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +37 'n' '' 'n' 36 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +38 'wfout' '' 'wfout' 36 ((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) -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 (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -13 'xmi' '' 'xmi' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -14 'xma' '' 'xma' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -15 'n0' '' 'n0' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -17 'n' '' 'n' 16 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -18 'wfout' '' 'wfout' 16 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +40 'xmi' '' 'xmi' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +41 'xma' '' 'xma' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +42 'n0' '' 'n0' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +10 'n' '' 'n' 9 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +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 (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 (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -20 'xmi' '' 'xmi' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -21 'xma' '' 'xma' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -22 'n0' '' 'n0' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -44 'n' '' 'n' 43 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -45 'wf' '' 'wf' 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) -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 +13 'xmi' '' 'xmi' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +14 'xma' '' 'xma' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +15 'n0' '' 'n0' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +17 'n' '' 'n' 16 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +18 'wfout' '' 'wfout' 16 ((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) -27 'xmi' '' 'xmi' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -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 +19 'bpout' '' 'bpout' 16 ((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) -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 (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -40 'xmi' '' 'xmi' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -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 +46 'bp' '' 'bp' 43 ((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) +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 diff --git a/pywafo/src/wafo/source/rind2007/rcrudemod.mod b/pywafo/src/wafo/source/rind2007/rcrudemod.mod index 24beb95..3fb42fd 100644 --- a/pywafo/src/wafo/source/rind2007/rcrudemod.mod +++ b/pywafo/src/wafo/source/rind2007/rcrudemod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from intmodule.f on Wed Aug 05 05:36:07 2009 -MD5:240f214ef2031c1b04fc7d9aaa35265b -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:12 2012 +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 -DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4 5 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) +DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4 5 +6 7 8 9 10 11) () 0 () () () 0 0) 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 -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 -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 -UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -13 'n' '' 'n' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +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) -14 'z' '' 'z' 12 ((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) +14 'z' '' 'z' 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) ) ('ranmc' 0 2) diff --git a/pywafo/src/wafo/source/rind2007/rind71mod.mod b/pywafo/src/wafo/source/rind2007/rind71mod.mod index a05325e..50276d2 100644 --- a/pywafo/src/wafo/source/rind2007/rind71mod.mod +++ b/pywafo/src/wafo/source/rind2007/rind71mod.mod @@ -1,81 +1,83 @@ -GFORTRAN module version '0' created from rind71mod.f on Wed Jun 01 13:58:14 2011 -MD5:16e69f326bd2d558dd343c376a49c851 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from rind71mod.f on Tue Mar 27 09:05:16 2012 +MD5:c563cb41c58c08f015ddd93b31235450 -- If you edit this, you'll get what you deserve. (() () () () () () () () () () () () () () () () () () () () () () () () () () ()) () -(('echo' 'rind71mod' 2) ('initdata' 'rind71mod' 3) ('rind71' 'rind71mod' -4) ('setdata' 'rind71mod' 5)) +(('echo' 'rind71mod' 2) ('initdata' 'rind71mod' 3) ('setdata' 'rind71mod' +4) ('rind71' 'rind71mod' 5)) + +() () () (2 'echo' 'rind71mod' 'echo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN -()) 6 0 (7) () 0 () () () 0 0) +DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 +UNKNOWN ()) 6 0 (7) () 0 () () () 0 0) 3 'initdata' 'rind71mod' 'initdata' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) -8 0 (9) () 0 () () () 0 0) -4 'rind71' 'rind71mod' 'rind71' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 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 -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) -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) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -24 'deps2' '' 'deps2' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN +()) 8 0 (9) () 0 () () () 0 0) +5 'rind71' 'rind71mod' 'rind71' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC +DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 +UNKNOWN ()) 10 0 (11 12 13 14 15 16 17 18) () 0 () () () 0 0) +4 'setdata' 'rind71mod' 'setdata' 1 ((PROCEDURE UNKNOWN-INTENT +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) +22 'depss' '' 'depss' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +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) -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 -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) -11 'fxind' '' 'fxind' 10 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN 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) +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 (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 (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -13 'ex' '' 'ex' 10 ((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) -14 'xc1' '' 'xc1' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +13 'ex' '' 'ex' 10 ((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) +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 (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -15 'nt1' '' 'nt1' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -16 'indi' '' 'indi' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +15 'nt1' '' 'nt1' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +16 'indi' '' 'indi' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -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 (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 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 (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 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) diff --git a/pywafo/src/wafo/source/rind2007/rindmod.mod b/pywafo/src/wafo/source/rind2007/rindmod.mod index f9537ed..85d0a54 100644 --- a/pywafo/src/wafo/source/rind2007/rindmod.mod +++ b/pywafo/src/wafo/source/rind2007/rindmod.mod @@ -1,8 +1,8 @@ -GFORTRAN module version '0' created from rindmod.f on Wed Jun 01 13:58:11 2011 -MD5:952989d08389e36ef0c45fd0fff78fc0 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from rindmod.f on Tue Mar 27 09:05:14 2012 +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 -UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 +() () () 0 0) 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 -UNKNOWN EXPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 7 'mmethod' 'rindmod' 'mmethod' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 8 'mminpts' 'rindmod' 'mminpts' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 9 'mnc1c2' 'rindmod' 'mnc1c2' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 10 'mnit' 'rindmod' 'mnit' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) +UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () +() 0 0) 11 'mreleps' 'rindmod' 'mreleps' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 +() () () 0 0) 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 -UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 +() () () 0 0) 14 'mxcutoff' 'rindmod' 'mxcutoff' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) +UNKNOWN-PROC UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () () 0 +() () () 0 0) 2 'rindd' 'rindmod' 'rindd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN -()) 15 0 (16 17 18 19 20 21 22 23 24 25 26) () 0 () () () 0 0) +DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 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 -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 -0 0 UNKNOWN ()) 27 0 (28 29 30 31 32 33 34 35 36 37) () 0 () () () 0 0) -28 'method' '' 'method' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -29 'xcscale' '' 'xcscale' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -30 'abseps' '' 'abseps' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -31 'releps' '' 'releps' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -32 'coveps' '' 'coveps' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 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 +MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) ( +UNKNOWN 0 0 0 UNKNOWN ()) 27 0 (28 29 30 31 32 33 34 35 36 37) () 0 () () +() 0 0) +31 'releps' '' 'releps' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 +0 OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +33 'maxpts' '' 'maxpts' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +34 'minpts' '' 'minpts' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +35 'nit' '' 'nit' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 -OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -37 'nc1c2' '' 'nc1c2' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +0 0 OPTIONAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +37 'nc1c2' '' 'nc1c2' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 (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 (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 (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 (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 DIMENSION -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT (INTEGER 4 -0 0 INTEGER ()) 0 '1') ()) 0 () () () 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 +22 'nt' '' 'nt' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +23 'indi' '' 'indi' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -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 (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 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 (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 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 ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) ) diff --git a/pywafo/src/wafo/source/rind2007/rindmod.pyd b/pywafo/src/wafo/source/rind2007/rindmod.pyd index 1c75f5e..373b6eb 100644 Binary files a/pywafo/src/wafo/source/rind2007/rindmod.pyd and b/pywafo/src/wafo/source/rind2007/rindmod.pyd differ diff --git a/pywafo/src/wafo/source/rind2007/ssobolmod.mod b/pywafo/src/wafo/source/rind2007/ssobolmod.mod index 74f1fc3..9e03fb3 100644 --- a/pywafo/src/wafo/source/rind2007/ssobolmod.mod +++ b/pywafo/src/wafo/source/rind2007/ssobolmod.mod @@ -1,68 +1,70 @@ -GFORTRAN module version '0' created from intmodule.f on Wed Aug 05 05:35:50 2009 -MD5:90a0ef8cf611f77589e8916df0e211a8 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from intmodule.f on Tue Mar 27 09:05:13 2012 +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)) () () +() + (2 'initsobol' 'ssobolmod' 'initsobol' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) -5 0 (6 7 8 9 10 11) () 0 () () () 0 0) -3 'sobnied' 'ssobolmod' 'sobnied' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) -12 0 (13 14 15 16 17 18 19 20 21) () 0 () () () 0 0) -4 'sobolseq' 'ssobolmod' 'sobolseq' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 -0 0 UNKNOWN ()) 22 0 (23 24) () 0 () () () 0 0) -6 'inform' '' 'inform' 5 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN 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) +4 'sobnied' 'ssobolmod' 'sobnied' 1 ((PROCEDURE UNKNOWN-INTENT +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) +3 'sobolseq' 'ssobolmod' 'sobolseq' 1 ((PROCEDURE UNKNOWN-INTENT +MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) ( +UNKNOWN 0 0 0 UNKNOWN ()) 22 0 (23 24) () 0 () () () 0 0) +6 'inform' '' 'inform' 5 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -7 'taus' '' 'taus' 5 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -8 'ndim' '' 'ndim' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -9 'atmost' '' 'atmost' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN +7 'taus' '' 'taus' 5 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +8 'ndim' '' 'ndim' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +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) -10 'numds' '' 'numds' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -11 'iflag' '' 'iflag' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -23 'quasi' '' 'quasi' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN +11 'iflag' '' 'iflag' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 +DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +23 'quasi' '' 'quasi' 22 ((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) 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) -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 -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -15 'maxvls' '' 'maxvls' 12 ((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) +15 'maxvls' '' 'maxvls' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 16 'functn' '' 'functn' 12 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY -UNKNOWN DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 25 0 (26 27) -() 16 () () () 0 0) -17 'abseps' '' 'abseps' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -18 'releps' '' 'releps' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -19 'abserr' '' 'abserr' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -20 'finest' '' 'finest' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -21 'inform' '' 'inform' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -26 'n' '' 'n' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( +UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 25 0 ( +26 27) () 16 () () () 0 0) +17 'abseps' '' 'abseps' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +18 'releps' '' 'releps' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +19 'abserr' '' 'abserr' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +20 'finest' '' 'finest' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +21 'inform' '' 'inform' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 +0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +26 'n' '' 'n' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -27 'z' '' 'z' 25 ((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) +27 'z' '' 'z' 25 ((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) ) -('initsobol' 0 2 'sobnied' 0 3 'sobolseq' 0 4) +('initsobol' 0 2 'sobnied' 0 4 'sobolseq' 0 3) diff --git a/pywafo/src/wafo/source/rind2007/swapmod.mod b/pywafo/src/wafo/source/rind2007/swapmod.mod index 5b5ab46..3842dfb 100644 --- a/pywafo/src/wafo/source/rind2007/swapmod.mod +++ b/pywafo/src/wafo/source/rind2007/swapmod.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from swapmod.f on Fri Feb 26 13:11:03 2010 -MD5:32151853a616dcbd7ed5153d9aeab1c0 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from swapmod.f on Tue Mar 27 09:05:13 2012 +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 -DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 5 0 (6 7) () 0 () () -() 0 0) +DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 5 0 (6 7) () 0 () +() () 0 0) 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 () () -() 0 0) +DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 8 0 (9 10) () 0 +() () () 0 0) 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 () -() () 0 0) +DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 11 0 (12 13) () +0 () () () 0 0) 14 'swapmod' 'swapmod' 'swapmod' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -12 'a' '' 'a' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -13 'b' '' 'b' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'a' '' 'a' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -10 'b' '' 'b' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -6 'a' '' 'a' 5 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) +UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) +12 'a' '' 'a' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +13 'b' '' 'b' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) +9 'a' '' 'a' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +10 'b' '' 'b' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) +6 'a' '' 'a' 5 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) +(CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 0 () () 0 () () () 0 0) -7 'b' '' 'b' 5 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) +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'))) 0 0 () () 0 () () () 0 0) ) diff --git a/pywafo/src/wafo/source/rind2007/trivariatevar.mod b/pywafo/src/wafo/source/rind2007/trivariatevar.mod index be1559e..d6e1ec8 100644 --- a/pywafo/src/wafo/source/rind2007/trivariatevar.mod +++ b/pywafo/src/wafo/source/rind2007/trivariatevar.mod @@ -1,5 +1,5 @@ -GFORTRAN module version '0' created from fimod.f on Wed Aug 05 05:35:52 2009 -MD5:b833d1aae3d99e187e27ad8342187b63 -- If you edit this, you'll get what you deserve. +GFORTRAN module version '4' created from fimod.f on Tue Mar 27 09:05:13 2012 +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 -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 -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 -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 -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 -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 -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 -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 -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 -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 -UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) -0 0 () () 0 () () () 0 0) +UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN +()) 0 0 () () 0 () () () 0 0) ) ('ar' 0 2 'h1' 0 3 'h2' 0 4 'h3' 0 5 'nu' 0 6 'r23' 0 7 'rua' 0 8 'rub' diff --git a/pywafo/src/wafo/stats/distributions.py b/pywafo/src/wafo/stats/distributions.py index 71c2c15..b532393 100644 --- a/pywafo/src/wafo/stats/distributions.py +++ b/pywafo/src/wafo/stats/distributions.py @@ -2737,7 +2737,12 @@ def _norm_logpdf(x): def _norm_cdf(x): return special.ndtr(x) def _norm_logcdf(x): - return log(special.ndtr(x)) + logcdf = log(special.ndtr(x)) + large_x = (5