diff --git a/pywafo/src/wafo/c_library.pyd b/pywafo/src/wafo/c_library.pyd deleted file mode 100644 index 5b6243e..0000000 Binary files a/pywafo/src/wafo/c_library.pyd and /dev/null differ diff --git a/pywafo/src/wafo/c_library.so b/pywafo/src/wafo/c_library.so deleted file mode 100755 index ff80c41..0000000 Binary files a/pywafo/src/wafo/c_library.so and /dev/null differ diff --git a/pywafo/src/wafo/cov2mod.pyd b/pywafo/src/wafo/cov2mod.pyd deleted file mode 100644 index 7f29572..0000000 Binary files a/pywafo/src/wafo/cov2mod.pyd and /dev/null differ diff --git a/pywafo/src/wafo/data/info.~py b/pywafo/src/wafo/data/info.~py deleted file mode 100644 index 6a0aec3..0000000 --- a/pywafo/src/wafo/data/info.~py +++ /dev/null @@ -1,456 +0,0 @@ -""" -Data package in WAFO Toolbox. - -Contents --------- -atlantic - Significant wave-height data recorded in the Atlantic Ocean -gfaks89 - Surface elevation measured at Gullfaks C 24.12.1989 -gfaksr89 - Reconstructed surface elevation measured at Gullfaks C 24.12.1989. -japansea - coastline map of The Japan Sea -northsea - coastline map of The Nortsea -sea - Surface elevation dataset used in WAT version 1.1. -sfa89 - Wind measurements at Statfjord A 24.12.1989 -sn - Fatigue experiment, constant-amplitude loading. -yura87 - Surface elevation measured off the coast of Yura - - - -This module gives gives detailed information and easy access to all datasets -included in WAFO - -""" -#from pylab import load -#from scipy.io import read_array -from numpy import (loadtxt,nan) -import os -__path2data = os.path.dirname( os.path.realpath(__file__)) - -__all__ =['atlantic','gfaks89','gfaksr89','japansea','northsea','sea','sfa89', - 'sn','yura87'] - -def _load(file): - """ local load function - """ - return loadtxt(os.path.join(__path2data,file)) - -def _tofloat(x): - if x=='nan' or x=='NaN': - y = nan - else: - y = float(x or 0) - return y -def _loadnan(file): - """ local load function accepting nan's - """ - myconverter = {0: _tofloat, 1: _tofloat} - return loadtxt(os.path.join(__path2data,file),converters=myconverter) - -def atlantic(): - """ - Return Significant wave-height data recorded in the Atlantic Ocean - - Data summary - ------------ - Size : 582 X 1 - Sampling Rate : ~ 14 times a month - Device : - Source : - Format : ascii - - Description - ------------ - atlantic.dat contains average significant wave-height data recorded - approximately 14 times a month in December-February during 7 years and - at 2 locations in the Atlantic Ocean - - Example - -------- - >>> import pylab - >>> import wafo - >>> Hs = wafo.data.atlantic() - >>> h = pylab.plot(Hs) - - Acknowledgement: - --------------- - This dataset were made available by Dr. David Carter - and Dr. David Cotton, Satellite Observing Systems, UK. - """ - return _load('atlantic.dat') -def gfaks89(): - """ - Return Surface elevation measured at Gullfaks C 24.12.1989 - - Data summary - ------------ - Size : 39000 X 2 - Sampling Rate : 2.5 Hz - Device : EMI laser - Source : STATOIL - Format : ascii, c1: time c2: surface elevation - - Description - ------------ - The wave data was measured 24th December 1989 at the Gullfaks C platform - in the North Sea from 17.00 to 21.20. The period from 20.00 to 20.20 - is missing and contains NaNs. The water depth of 218 m is - regarded as deep water for the most important wave components. - There are two EMI laser sensors named 219 and 220. This data set is - obtained from sensor 219, which is located in the Northwest - corner approximately two platform leg diameters away from - the closest leg. - Thus the wave elevation is not expected to be significantly - affected by diffraction effects for incoming waves in the western sector. - The wind direction for this period is from the south. - Some difficulties in calibration of the instruments have been reported - resulting in several consecutive measured values being equal or almost equal - in the observed data set. - - This dataset is for non-commercial use only. - - Hm0 = 6.8m, Tm02 = 8s, Tp = 10.5 - - Example - ------- - >>> import pylab - >>> import wafo - >>> x = wafo.data.gfaks89() - >>> h = pylab.plot(x[:,0],x[:,1]) - - Acknowledgement: - --------------- - This dataset were prepared and made available by Dr. S. Haver, - STATOIL, Norway - - See also - -------- - gfaksr89, northsea - - """ - return _loadnan('gfaks89.dat') -def gfaksr89(): - """ - Return a reconstruction of surface elevation measured at Gullfaks C 24.12.1989. - - - Data summary - ------------ - Size : 39000 X 2 - Sampling Rate : 2.5 Hz - Device : EMI laser - Source : STATOIL - Format : ascii, c1: time c2: surface elevation - - Description - ----------- - This is a reconstructed version of the data in the GFAKS89.DAT file. - The following calls were made to reconstruct the data: - - inds = findoutliers(gfaks89,.02,2,1.23); - gfaksr89 = reconstruct(gfaks89,inds,6); - - The wave data was measured 24th December 1989 at the Gullfaks C platform - in the North Sea from 17.00 to 21.20. The period from 20.00 to 20.20 - is missing in the original data. The water depth of 218 m is - regarded as deep water for the most important wave components. - There are two EMI laser sensors named 219 and 220. This data set is - obtained from sensor 219, which is located in the Northwest - corner approximately two platform leg diameters away from - the closest leg. - Thus the wave elevation is not expected to be significantly - affected by diffraction effects for incoming waves in the western sector. - The wind direction for this period is from the south. - Some difficulties in calibration of the instruments have been reported - resulting in several consecutive measured values being equal or almost equal - in the observed data set. - - Hm0 = 6.8m, Tm02 = 8s, Tp = 10.5 - - - Example - ------- - >>> import pylab - >>> import wafo - >>> x = wafo.data.gfaksr89() - >>> h = pylab.plot(x[:,0],x[:,1]) - - - See also - -------- - gfaks89 - """ - return _loadnan('gfaksr89.dat') -def japansea(): - """ - Return coastline map of The Japan Sea - - - Data summary - ------------ - Size : 692 X 2 - Sampling Rate : - Device : - Source : http://crusty.er.usgs.gov/coast/getcoast.html - Format : ascii, c1: longitude c2: latitude - - Description - ----------- - JAPANSEA.DAT contains data for plotting a map of The Japan Sea. - The data is obtained from USGS coastline extractor. - - Example: - ------- - #the map is seen by - - >>> import pylab - >>> import wafo - >>> map1 = wafo.data.japansea() - >>> h = pylab.plot(map1[:,0],map1[:,1]) - >>> lon_loc = [131,132,132,135,139.5,139] - >>> lat_loc = [46, 43, 40, 35, 38.3, 35.7] - >>> loc = ['China','Vladivostok','Japan Sea', 'Japan', 'Yura','Tokyo'] - >>> algn = 'right' - >>> for lon, lat, name in zip(lon_loc,lat_loc,loc): - pylab.text(lon,lat,name,horizontalalignment=algn) - - - # If you have the m_map toolbox (see http://www.ocgy.ubc.ca/~rich/): - m_proj('lambert','long',[130 148],'lat',[30 48]); - m_line(map(:,1),map(:,2)); - m_grid('box','fancy','tickdir','out'); - m_text(131,46,'China'); - m_text(132,43,'Vladivostok'); - m_text(132,40,'Japan Sea'); - m_text(135,35,'Japan'); - m_text(139.5,38.3,'Yura'); - m_text(139,35.7,'Tokyo'); - """ - return _loadnan('japansea.dat') -def northsea(): - """ - NORTHSEA coastline map of The Nortsea - - Data summary - ------------- - Size : 60646 X 2 - Sampling Rate : - Device : - Source : http://crusty.er.usgs.gov/coast/getcoast.html - Format : ascii, c1: longitude c2: latitude - - Description - ----------- - NORTHSEA.DAT contains data for plotting a map of The Northsea. - The data is obtained from USGS coastline extractor. - - Example - ------- - # the map is seen by - - >>> import pylab - >>> import wafo - >>> map1 = wafo.data.northsea() - >>> h = pylab.plot(map1[:,0],map1[:,1]) - >>> lon_pltfrm = [1.8, 2.3, 2., 1.9, 2.6] - >>> lat_pltfrm = [61.2, 61.2, 59.9, 58.4, 57.7] - >>> pltfrm = ['Statfjord A', 'Gullfaks C', 'Frigg', 'Sleipner', 'Draupner'] - >>> h = pylab.scatter(lon_pltfrm,lat_pltfrm); - >>> algn = 'right' - >>> for lon, lat, name in zip(lon_pltfrm,lat_pltfrm,pltfrm): - pylab.text(lon,lat,name,horizontalalignment=algn); algn = 'left' - - - >>> lon_city = [10.8, 10.8, 5.52, 5.2] - >>> lat_city = [59.85, 63.4, 58.9, 60.3] - >>> city = ['Oslo','Trondheim','Stavanger', 'Bergen'] - >>> h = pylab.scatter(lon_city,lat_city); - >>> algn = 'right' - >>> for lon, lat, name in zip(lon_city,lat_city,city): - pylab.text(lon,lat,name,horizontalalignment=algn) - - >>> from mpl_toolkits.basemap import Basemap - >>> import matplotlib.pyplot as plt - - # setup Lambert Conformal basemap. - >>> m = Basemap(width=1200000,height=900000,projection='lcc', - resolution='f',lat_1=56.,lat_2=64,lat_0=58,lon_0=5.) - # draw coastlines. - >>> m.drawcoastlines() - >>> h = m.scatter(lon_pltfrm,lat_pltfrm); - >>> algn = 'right' - >>> for lon, lat, name in zip(lon_pltfrm,lat_pltfrm,pltfrm): - m.text(lon,lat,name,horizontalalignment=algn); algn = 'left' - >>> m.scatter(lon_city,lat_city) - >>> m.scatter() - - # If you have the m_map toolbox (see http://www.ocgy.ubc.ca/~rich/): - m_proj('lambert','long',[-2 12],'lat',[56 64]); - m_line(map(:,1),map(:,2)); - m_grid('box','fancy','tickdir','out'); - m_text( 1,62 ,'Statfjord A') ; - m_line([1.8, 1.8], [62 ,61.2 ]); - m_text(1.7,61.2,'x') ; - m_text(1,59.5,'Gullfaks C') ; - m_line([1.8, 2.3 ], [59.50 ,61.20 ]); - m_text(2.20,61.20,'x') ; - m_text(10.10,60.05,'Oslo'); - m_text(8.5,63.5,'Trondheim'); - m_text(4.00,58.80,'Stavanger'); - m_text(3.50,60.30,'Bergen') ; - m_text(8,61,'Norway'); - """ - return _loadnan('northsea.dat') -def sea(): - """ - Return Surface elevation dataset used in WAT version 1.1. - - Data summary - ------------ - Size : 9524 X 2 - Sampling Rate : 4.0 Hz - Device : unknown - Source : unknown - Format : ascii, c1: time c2: surface elevation - - Description - ----------- - The wave data was used in one of WAFO predecessors, i.e. the Wave - Analysis Toolbox version 1.1 (WAT) - Hm0 = 1.9m, Tm02 = 4.0s, Tp2 = 11.5s Tp1=5.6s - - Example - ------- - >>> import pylab - >>> import wafo - >>> x = wafo.data.sea() - >>> h = pylab.plot(x[:,0],x[:,1]) - """ - return _load('sea.dat') -def sfa89(): - """ - Return Wind measurements at Statfjord A 24.12.1989 - - Data summary - ------------ - Size : 144 X 3 - Sampling Rate : 1/600 Hz - Device : - Source : DNMI (The Norwegian Meteorological Institute) - Format : ascii, c1: time (hours) - c2: velocity (m/s) - c3: direction (degrees) - Description - ----------- - The registration of wind speeds at the Gullfaks field - started up on Statfjord A in 1978 and continued until 1990. - The dataregistration was transferred to Gullfaks C in Nov 1989. - Due to some difficulties of the windregistration on Gullfaks C in - the beginning, they continued to use the registered data from - Statfjord A. - The windspeed is measured in (meter/second), 110 m above mean water - level (MWL) and the wind direction is given in degrees for the data. - The data are a mean value of every 10 minutes. - Wind directions are defined in the meteorological convention, i.e., - 0 degrees = wind approaching from North, 90 degrees = wind from East, etc. - This dataset is for non-commercial use only. - - Example - ------- - >>> import pylab - >>> import wafo - >>> x = wafo.data.sfa89() - >>> h = pylab.plot(x[:,0],x[:,1]) - - Acknowledgement - ---------------- - These data are made available by Knut A. Iden, DNMI. - - See also - -------- - northsea - """ - return _load('sfa89.dat') -def sn(): - """ - Return SN Fatigue experiment, constant-amplitude loading. - - - Data summary - ------------ - Size : 40 X 2 - Source : unknown - Format : ascii, c1: Amplitude MPa c2: Number of cycles - - Description - ----------- - A fatigue experiment with constant amplitudes at five levels: - 10,15,20,25 and 30 MPa. For each level is related 8 observations of - the number of cycles to failure. - - The origin of the data is unknown. - - Example - ------- - >>> import pylab - >>> import wafo - >>> x = wafo.data.sn() - >>> h = pylab.plot(x[:,0],x[:,1]) - - See also - -------- - The same data appear in the directory wdemos/itmkurs/ - as SN.mat. - - """ - return _load('sn.dat') -def yura87(): - """ - Return Surface elevation measured off the coast of Yura. - - - Data summary - ----------- - Size : 85547 X 4 - Sampling Rate : 1 Hz - Device : ultrasonic wave gauges - Source : SRI, Ministry of Transport, Japan - Format : ascii, c1: time (sec) c2-4: surface elevation (m) - - Description - ----------- - The wave data was measured at the Poseidon platform - in the Japan Sea from 24th November 1987 08.12 hours to 25th November - 1987 07.57 hours. Poseidon was located 3 km off the coast of Yura - in the Yamagata prefecture, in the Japan Sea during the measurements. - The most important wave components are to some extent influenced by the - water depth of 42 m. The data are measured with three ultrasonic wave - gauges located at the sea floor and the relative coordinates of the - gauges are as follows (x-axis points to the East, y-axis points to - the North): - X (m) Y (m) - c2: -4.93, 25.02 - c3: 5.80, 92.12 - c4: 0.00, 0.00 - - This dataset is for non-commercial use only. - - Hm0 = 5.1m, Tm02 = 7.7s, Tp = 12.8s - Example - ------- - >>> import pylab - >>> import wafo - >>> x = wafo.data.yura87() - >>> h = pylab.plot(x[:,0],x[:,1]) - - Acknowledgement: - ----------------- - This dataset were prepared and made available by Dr. Sc. H. Tomita, - Ship Research Institute, Ministry of Transport, Japan. - - See also - -------- - japansea - """ - return _load('yura87.dat') -if __name__=='__main__': - import doctest - doctest.testmod() \ No newline at end of file diff --git a/pywafo/src/wafo/definitions.~py b/pywafo/src/wafo/definitions.~py deleted file mode 100644 index 1ec1a24..0000000 --- a/pywafo/src/wafo/definitions.~py +++ /dev/null @@ -1,281 +0,0 @@ -""" -WAFO defintions and numenclature - -crossings : -cycle_pairs : -turning_points : -wave_amplitudes : -wave_periods : -waves : -""" -def wave_amplitudes(): - """ - Wave amplitudes and heights definitions and nomenclature - - Definition of wave amplitudes and wave heights - --------------------------------------------- - - <----- Direction of wave propagation - - - ...............c_.......... - | /| \ | - Hd | _/ | \ | Hu - M | / | \ | - / \ | M / Ac | \_ | c_ - F \ | / \m/ | \ | / \ - ------d----|---u------------------d---|---u----d------ level v - \ | /| \ | / \L - \_ | / | At \_|_/ - \|/..| t - t - - Parameters - ---------- - Ac : crest amplitude - At : trough amplitude - Hd : wave height as defined for down crossing waves - Hu : wave height as defined for up crossing waves - - See also - -------- - waves, crossings, turning_points - """ - pass -def crossings(): - """ - Level v crossing definitions and nomenclature - - Definition of level v crossings - ------------------------------- - M - . . M M - . . . . . . - F d . . L - -----------------------u-------d-------o----------------- level v - . . . . u - . m - m - - Let the letters 'm', 'M', 'F', 'L','d' and 'u' in the - figure above denote local minimum, maximum, first value, last - value, down- and up-crossing, respectively. The remaining - sampled values are indicated with a '.'. Values that are identical - with v, but do not cross the level is indicated with the letter 'o'. - We have a level up-crossing at index, k, if - - x(k) < v and v < x(k+1) - or if - x(k) == v and v < x(k+1) and x(r) < v for some di < r <= k-1 - - where di is the index to the previous downcrossing. - Similarly there is a level down-crossing at index, k, if - - x(k) > v and v > x(k+1) - or if - x(k) == v and v > x(k+1) and x(r) > v for some ui < r <= k-1 - - where ui is the index to the previous upcrossing. - - The first (F) value is a up crossing if x(1) = v and x(2) > v. - Similarly, it is a down crossing if x(1) = v and x(2) < v. - - See also - -------- - wave_periods, waves, turning_points, findcross, findtp - """ - pass -def cycle_pairs(): - """ - Cycle pairs definitions and numenclature - - Definition of Max2min and min2Max cycle pair - -------------------------------------------- - A min2Max cycle pair (mM) is defined as the pair of a minimum - and the following Maximum. Similarly a Max2min cycle pair (Mm) - is defined as the pair of a Maximum and the following minimum. - (all turning points possibly rainflowfiltered before pairing into cycles.) - - See also - -------- - turning_points - """ - pass -def wave_periods(): - """ - Wave periods (lengths) definitions and nomenclature - - Definition of wave periods (lengths) - ------------------------------------ - - - <----- Direction of wave propagation - - <-------Tu---------> - : : - <---Tc-----> : - : : : <------Tcc----> - M : c : : : : - / \ : M / \_ : : c_ c - F \ :/ \m/ \: :/ \ / \ - ------d--------u----------d-------u----d--------u---d-------- level v - \ / \ / :\_ _/: :\_ L - \_ / \_t_/ : \t_/ : : \m/ - \t/ : : : : - : : <---Tt---> : - <--------Ttt-------> : : - <-----Td-----> - Tu = Up crossing period - Td = Down crossing period - Tc = Crest period, i.e., period between up crossing and - the next down crossing - Tt = Trough period, i.e., period between down crossing and - the next up crossing - Ttt = Trough2trough period - Tcc = Crest2crest period - - - <----- Direction of wave propagation - - <--Tcf-> Tuc - : : <-Tcb-> <-> - M : c : : : : - / \ : M / \_ c_ : : c - F \ :/ \m/ \ / \___: :/ \ - ------d---------u----------d---------u-------d--------u---d------ level v - :\_ / \ __/: \_ _/ \_ L - : \_ / \_t_/ : \t_/ \m/ - : \t/ : : - : : : : - <-Ttf-> <-Ttb-> - - - Tcf = Crest front period, i.e., period between up crossing and crest - Tcb = Crest back period, i.e., period between crest and down crossing - Ttf = Trough front period, i.e., period between down crossing and trough - Ttb = Trough back period, i.e., period between trough and up crossing - Also note that Tcf and Ttf can also be abbreviated by their crossing - marker, e.g. Tuc (u2c) and Tdt (d2t), respectively. Similar applies - to all the other wave periods and wave lengths. - - (The nomenclature for wave length is similar, just substitute T and - period with L and length, respectively) - - <----- Direction of wave propagation - - <--TMm--> - <-TmM-> : : - M : : M : - / \ : M /:\_ : M_ M - F \ : / \m/ : \ : /: \ / \ - \ : / : \ : / : \ / \ - \ : / : \ : / : \_ _/ \_ L - \_ : / : \_m_/ : \m_/ \m/ - \m/ : : : : - <-----TMM-----> <----Tmm-----> - - - TmM = Period between minimum and the following Maximum - TMm = Period between Maximum and the following minimum - TMM = Period between Maximum and the following Maximum - Tmm = Period between minimum and the following minimum - - See also - -------- - waves, - wave_amplitudes, - crossings, - turning_points - """ - pass -def turning_points(): - """ - Turning points definitions and numenclature - - Definition of turningpoints - --------------------------- - <----- Direction of wave propagation - - M M - / \ .... M /:\_ M_ M - F \ | / \m/ : \ /: \ / \ - \ h | / : \ / : \ / \ - \ | / : \ / : \_ _/ \_ L - \_ | / : \_m_/ : \m_/ \m/ - \m/ : : : : - <------Mw-----> <-----mw-----> - - Local minimum or maximum are indicated with the - letters 'm' or 'M'. Turning points in this connection are all - local max (M) and min (m) and the last (L) value and the - first (F) value if the first local extremum is a max. - - (This choice is made in order to get the exact up-crossing intensity - from rfc by mm2lc(tp2mm(rfc)) ) - - - See also - -------- - waves, - crossings, - cycle_pairs - findtp - - """ - pass -def waves(): - """ - Wave definitions and nomenclature - - Definition of trough and crest - ------------------------------ - A trough (t) is defined as the global minimum between a - level v down-crossing (d) and the next up-crossing (u) - and a crest (c) is defined as the global maximum between a - level v up-crossing and the following down-crossing. - - Definition of down- and up -crossing waves - ------------------------------------------ - A level v-down-crossing wave (dw) is a wave from a - down-crossing to the following down-crossing. - Similarly, a level v-up-crossing wave (uw) is a wave from an up-crossing - to the next up-crossing. - - Definition of trough and crest waves - ------------------------------------ - A trough-to-trough wave (tw) is a wave from a trough (t) to the - following trough. The crest-to-crest wave (cw) is defined similarly. - - - Definition of min2min and Max2Max wave - -------------------------------------- - A min2min wave (mw) is defined starting from a minimum (m) and - ending in the following minimum. - Similarly a Max2Max wave (Mw) is thus a wave from a maximum (M) - to the next maximum (all waves optionally rainflow filtered). - - <----- Direction of wave propagation - - - <------Mw-----> <----mw----> - M : : c : - / \ M : / \_ : c_ c - F \ / \m/ \ : /: \ /:\ - ------d--------u----------d-------u----d--------u---d------ level v - \ /: \ : /: : :\_ _/ : :\_ L - \_ / : \_t_/ : : : \t_/ : : \m/ - \t/ <-------uw---------> : <-----dw-----> - : : : : - <--------tw--------> <------cw-----> - - (F= first value and L=last value). - - See also - -------- - turning_points, - crossings, - wave_periods - findtc, - findcross - """ - pass \ No newline at end of file diff --git a/pywafo/src/wafo/mvn.pyd b/pywafo/src/wafo/mvn.pyd deleted file mode 100644 index 5dbb792..0000000 Binary files a/pywafo/src/wafo/mvn.pyd and /dev/null differ diff --git a/pywafo/src/wafo/mvn.so b/pywafo/src/wafo/mvn.so deleted file mode 100755 index dad7a10..0000000 Binary files a/pywafo/src/wafo/mvn.so and /dev/null differ diff --git a/pywafo/src/wafo/mvnprdmod.pyd b/pywafo/src/wafo/mvnprdmod.pyd deleted file mode 100644 index 84ed727..0000000 Binary files a/pywafo/src/wafo/mvnprdmod.pyd and /dev/null differ diff --git a/pywafo/src/wafo/mvnprdmod.so b/pywafo/src/wafo/mvnprdmod.so deleted file mode 100755 index 5c0cab9..0000000 Binary files a/pywafo/src/wafo/mvnprdmod.so and /dev/null differ diff --git a/pywafo/src/wafo/rindmod.pyd b/pywafo/src/wafo/rindmod.pyd deleted file mode 100644 index e497cd4..0000000 Binary files a/pywafo/src/wafo/rindmod.pyd and /dev/null differ diff --git a/pywafo/src/wafo/rindmod.so b/pywafo/src/wafo/rindmod.so deleted file mode 100755 index a54a113..0000000 Binary files a/pywafo/src/wafo/rindmod.so and /dev/null differ diff --git a/pywafo/src/wafo/source/mreg/checkmod.mod b/pywafo/src/wafo/source/mreg/checkmod.mod deleted file mode 100644 index 0515a80..0000000 --- a/pywafo/src/wafo/source/mreg/checkmod.mod +++ /dev/null @@ -1,54 +0,0 @@ -GFORTRAN module version '10' created from mregmodule.f -MD5:d9cc3708c49161cf45724d686af16cf0 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'checkmod' 'checkmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 -0) -3 'iii0' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -4 'iii01' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -5 'iii101' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -6 'iii11' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -7 'iii21' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -8 'iii31' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -9 'iii41' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -10 'iii51' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -11 'iii61' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -12 'iii71' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -13 'iii81' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -14 'iii91' 'checkmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -) - -('checkmod' 0 2 'iii0' 0 3 'iii01' 0 4 'iii101' 0 5 'iii11' 0 6 'iii21' -0 7 'iii31' 0 8 'iii41' 0 9 'iii51' 0 10 'iii61' 0 11 'iii71' 0 12 'iii81' -0 13 'iii91' 0 14) diff --git a/pywafo/src/wafo/source/mreg/cov2mmpdfmod.mod b/pywafo/src/wafo/source/mreg/cov2mmpdfmod.mod deleted file mode 100644 index b04ec1e..0000000 --- a/pywafo/src/wafo/source/mreg/cov2mmpdfmod.mod +++ /dev/null @@ -1,151 +0,0 @@ -GFORTRAN module version '0' created from cov2mmpdfreg_intfc.f on Thu Aug 06 03:39:39 2009 -MD5:983e75e1f187678a4601b92db2a3f449 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () -() () () () () () () () () () () () () () ()) - -() - -() - -() - -() - -(2 'c_' 'cov2mmpdfmod' 'c_' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -3 'cov2mmpdfmod' 'cov2mmpdfmod' 'cov2mmpdfmod' 1 ((MODULE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () -() () 0 0) -4 'cov2mmpdfreg' 'cov2mmpdfmod' 'cov2mmpdfreg' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 -UNKNOWN ()) 5 0 (6 7 8 9 10 11 12 13 14 15 16 17) () 0 () () () 0 0) -18 'covg' 'cov2mmpdfmod' 'covg' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 19 0 (20 21 22 23 24 -25) () 0 () () () 0 0) -26 'eps0_' 'cov2mmpdfmod' 'eps0_' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) -27 'eps_' 'cov2mmpdfmod' 'eps_' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -28 'epss_' 'cov2mmpdfmod' 'epss_' 1 ((VARIABLE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () -() () 0 0) -29 'iac_' 'cov2mmpdfmod' 'iac_' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) -30 'initinteg' 'cov2mmpdfmod' 'initinteg' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () -0 () () () 0 0) -31 'initlevels' 'cov2mmpdfmod' 'initlevels' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 -UNKNOWN ()) 32 0 (33 34 35 36 37 38) () 0 () () () 0 0) -39 'isq_' 'cov2mmpdfmod' 'isq_' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 -0) -40 'sple' 'cov2mmpdfmod' 'sple' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 41 0 (42 43 -44 45) () 40 () () () 0 0) -46 'transf' 'cov2mmpdfmod' 'transf' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 -UNKNOWN ()) 47 0 (48 49 50 51 52 53) () 0 () () () 0 0) -9 'ulev' '' 'ulev' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -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 -14 ())) 0 () () () 0 0) -10 'vlev' '' 'vlev' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -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 -15 ())) 0 () () () 0 0) -11 'tg' '' 'tg' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 16 ())) 0 () () -() 0 0) -12 'xg' '' 'xg' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 16 ())) 0 () () -() 0 0) -13 'nt' '' 'nt' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -14 'nu' '' 'nu' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -15 'nv' '' 'nv' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -16 'ng' '' 'ng' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -17 'nit' '' 'nit' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -6 'uvdens' '' 'uvdens' 5 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 -14 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 -0 0 INTEGER ()) 0 15 ())) 0 () () () 0 0) -7 't' '' 't' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 13 ())) 0 () () -() 0 0) -8 'cov' '' 'cov' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 -INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 13 ()) ( -CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 -INTEGER ()) 0 '5')) 0 () () () 0 0) -33 't' '' 't' 32 ((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) -34 'ht' '' 'ht' 32 ((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) -35 'n' '' 'n' 32 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -36 'ng' '' 'ng' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -37 'nu' '' 'nu' 32 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -38 'nv' '' 'nv' 32 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -48 'n' '' 'n' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -49 't' '' 't' 47 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -50 'a' '' 'a' 47 ((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) -51 'timev' '' 'timev' 47 ((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) -52 'value' '' 'value' 47 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -53 'der' '' 'der' 47 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -42 'n' '' 'n' 41 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -43 't' '' 't' 41 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -44 'a' '' 'a' 41 ((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) -45 'timev' '' 'timev' 41 ((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) -20 'xl0' '' 'xl0' 19 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -21 'xl2' '' 'xl2' 19 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -22 'xl4' '' 'xl4' 19 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -23 'cov' '' 'cov' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 -25 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 -0 0 INTEGER ()) 0 '5')) 0 () () () 0 0) -24 't' '' 't' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -25 'n' '' 'n' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -) - -('c_' 0 2 'cov2mmpdfmod' 0 3 'cov2mmpdfreg' 0 4 'covg' 0 18 'eps0_' 0 26 -'eps_' 0 27 'epss_' 0 28 'iac_' 0 29 'initinteg' 0 30 'initlevels' 0 31 -'isq_' 0 39 'sple' 0 40 'transf' 0 46) diff --git a/pywafo/src/wafo/source/mreg/epsmod.mod b/pywafo/src/wafo/source/mreg/epsmod.mod deleted file mode 100644 index e6f3d3b..0000000 --- a/pywafo/src/wafo/source/mreg/epsmod.mod +++ /dev/null @@ -1,27 +0,0 @@ -GFORTRAN module version '10' created from mregmodule.f -MD5:6ae09751c5b336ec35eb71534e46a563 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'eps' 'epsmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -3 'eps0' 'epsmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -4 'epsmod' 'epsmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -5 'epss' 'epsmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -) - -('eps' 0 2 'eps0' 0 3 'epsmod' 0 4 'epss' 0 5) diff --git a/pywafo/src/wafo/source/mreg/expaccmod.mod b/pywafo/src/wafo/source/mreg/expaccmod.mod deleted file mode 100644 index 6d17560..0000000 --- a/pywafo/src/wafo/source/mreg/expaccmod.mod +++ /dev/null @@ -1,25 +0,0 @@ -GFORTRAN module version '10' created from mregmodule.f -MD5:4fddbcea71fd92bd3345281bbf49e6eb -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'expaccmod' 'expaccmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 -0) -3 'pmax' 'expaccmod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.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 deleted file mode 100644 index 0683ccc..0000000 --- a/pywafo/src/wafo/source/mreg/infcmod.mod +++ /dev/null @@ -1,33 +0,0 @@ -GFORTRAN module version '10' created from mregmodule.f -MD5:88b29dedfc036f5dd0339afd03f086f2 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'iac' 'infcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -3 'inf' 'infcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '10')) 0 () () () 0 0) -4 'infcmod' 'infcmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -5 'info' 'infcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '10')) 0 () () () 0 0) -6 'isq' 'infcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -EXPLICIT-SAVE 0 0) (INTEGER 4 0 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 deleted file mode 100644 index 283448f..0000000 --- a/pywafo/src/wafo/source/mreg/mregmod.mod +++ /dev/null @@ -1,99 +0,0 @@ -GFORTRAN module version '10' created from mregmodule.f -MD5:c0ff9d5617455613bb8b25284c401293 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () -() () () ()) - -() - -(('fi' 'mregmod' 2) ('mreg' 'mregmod' 3) ('rind' 'mregmod' 4)) - -() - -() - -() - -(2 'fi' 'mregmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC IMPLICIT_PURE) (REAL 8 0 0 0 REAL ()) 5 0 ( -6) () 2 () () () 0 0) -3 'mreg' 'mregmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 7 0 (8 9 10 -11 12 13 14 15 16 17 18 19 20) () 0 () () () 0 0) -4 'rind' 'mregmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 21 0 (22 23 -24 25 26 27 28 29 30 31) () 0 () () () 0 0) -6 'xx' '' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -8 'f' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'r' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '40401')) 0 () () () 0 0) -10 'b' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '201')) 0 () () () 0 0) -11 'db' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '201')) 0 () () () 0 0) -12 'aa' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '4') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER -4 0 0 0 INTEGER ()) 0 '4')) 0 () () () 0 0) -13 'bb' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '7')) 0 () () () 0 0) -14 'a' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '1407')) 0 () () () 0 0) -15 'da' '' '' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '7')) 0 () () () 0 0) -16 'vder' '' '' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -17 'm' '' '' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -18 'n' '' '' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -19 'nit' '' '' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -20 'infr' '' '' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -22 'xind' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -23 'r' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '40401')) 0 () () () 0 0) -24 'bu' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '201')) 0 () () () 0 0) -25 'dbun' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -26 'db' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '201')) 0 () () () 0 0) -27 'sq' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '201')) 0 () () () 0 0) -28 'vder' '' '' 21 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -29 'nit' '' '' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -30 'n' '' '' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -31 'infr' '' '' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -) - -('fi' 0 2 'mreg' 0 3 'rind' 0 4) diff --git a/pywafo/src/wafo/source/mreg/quadrmod.mod b/pywafo/src/wafo/source/mreg/quadrmod.mod deleted file mode 100644 index 5bd7c55..0000000 --- a/pywafo/src/wafo/source/mreg/quadrmod.mod +++ /dev/null @@ -1,39 +0,0 @@ -GFORTRAN module version '10' created from mregmodule.f -MD5:28f744b94fb4ee56c4d53d5079b965d6 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'h' 'quadrmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT -(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '126')) 0 () () () 0 0) -3 'i' 'quadrmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -4 'nn' 'quadrmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION DATA) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( -1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '25')) 0 () () () 0 0) -5 'nnw' 'quadrmod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) -6 'quadrmod' 'quadrmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 -0) -7 'z' 'quadrmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT -(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '126')) 0 () () () 0 0) -) - -('h' 0 2 'i' 0 3 'nn' 0 4 'nnw' 0 5 'quadrmod' 0 6 'z' 0 7) diff --git a/pywafo/src/wafo/source/mreg/rintmod.mod b/pywafo/src/wafo/source/mreg/rintmod.mod deleted file mode 100644 index 240a401..0000000 --- a/pywafo/src/wafo/source/mreg/rintmod.mod +++ /dev/null @@ -1,25 +0,0 @@ -GFORTRAN module version '10' created from mregmodule.f -MD5:b066accfa9abc965446066977295c242 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'c' 'rintmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -3 'fc' 'rintmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -4 'rintmod' 'rintmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0) (UNKNOWN 0 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 deleted file mode 100644 index b0a10ea..0000000 --- a/pywafo/src/wafo/source/mreg/sizemod.mod +++ /dev/null @@ -1,30 +0,0 @@ -GFORTRAN module version '10' created from mregmodule.f -MD5:045224226b5a92ce3fb027e2c0064e27 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'mmax' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) -3 'nmax' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '201') () 0 () () () 0 0) -4 'rdim' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '40401') () 0 () () () 0 0) -5 'sizemod' 'sizemod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -) - -('mmax' 0 2 'nmax' 0 3 'rdim' 0 4 'sizemod' 0 5) diff --git a/pywafo/src/wafo/source/mreg/svd.mod b/pywafo/src/wafo/source/mreg/svd.mod deleted file mode 100644 index 644dce9..0000000 --- a/pywafo/src/wafo/source/mreg/svd.mod +++ /dev/null @@ -1,94 +0,0 @@ -GFORTRAN module version '10' created from dsvdc.f -MD5:abcd8831f7c356963533637fa7c27518 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'dp' 'svd' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) -3 'drot1' 'svd' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN -0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 4 0 (5 6 7 8 -9) () 0 () () () 0 0) -10 'drotg' 'svd' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 11 0 -(12 13 14 15) () 0 () () () 0 0) -16 'dsvdc' 'svd' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN ()) 17 -0 (18 19 20 21 22 23 24 25 26) () 0 () () () 0 0) -27 'dswap1' 'svd' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 28 0 -(29 30 31) () 0 () () () 0 0) -32 'selected_real_kind' '(intrinsic)' '' 1 ((PROCEDURE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION) (UNKNOWN 0 0 0 0 UNKNOWN ()) -0 0 () () 32 () () () 0 0) -33 'svd' 'svd' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -5 'n' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -6 'dx' '' '' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SIZE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -7 'dy' '' '' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SIZE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -8 'c' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 's' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -12 'da' '' '' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -13 'db' '' '' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -14 'dc' '' '' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -15 'ds' '' '' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -18 'x' '' '' 17 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -19 'n' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -20 'p' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -21 's' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -22 'e' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -23 'u' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -24 'v' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -25 'job' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -26 'info' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -29 'n' '' '' 28 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -30 'dx' '' '' 28 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SIZE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -31 'dy' '' '' 28 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SIZE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -) - -('dp' 0 2 'drot1' 0 3 'drotg' 0 10 'dsvdc' 0 16 'dswap1' 0 27 -'selected_real_kind' 0 32 'svd' 0 33) diff --git a/pywafo/src/wafo/source/mreg/tbrmod.mod b/pywafo/src/wafo/source/mreg/tbrmod.mod deleted file mode 100644 index 754d997..0000000 --- a/pywafo/src/wafo/source/mreg/tbrmod.mod +++ /dev/null @@ -1,36 +0,0 @@ -GFORTRAN module version '10' created from mregmodule.f -MD5:4a3c9785928b78adb9e08df8fc7a2445 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () -() () () ()) - -() - -() - -() - -() - -() - -(2 'hh' 'tbrmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT -(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '201')) 0 () () () 0 0) -3 'mmax' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) -4 'nmax' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '201') () 0 () () () 0 0) -5 'rdim' 'sizemod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '40401') () 0 () () () 0 0) -6 'sizemod' 'sizemod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -7 'tbrmod' 'tbrmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -) - -('hh' 0 2 'mmax' 0 3 'nmax' 0 4 'rdim' 0 5 'sizemod' 0 6 'tbrmod' 0 7) diff --git a/pywafo/src/wafo/source/mvn/mvn.pyd b/pywafo/src/wafo/source/mvn/mvn.pyd deleted file mode 100644 index 5dbb792..0000000 Binary files a/pywafo/src/wafo/source/mvn/mvn.pyd and /dev/null differ diff --git a/pywafo/src/wafo/source/mvn/mvn.pyf b/pywafo/src/wafo/source/mvn/mvn.pyf deleted file mode 100644 index 8a3d5f1..0000000 --- a/pywafo/src/wafo/source/mvn/mvn.pyf +++ /dev/null @@ -1,39 +0,0 @@ -! -*- f90 -*- -! Note: the context of this file is case sensitive. - -python module mvn ! in - interface ! in :mvn - subroutine mvnun(d,n,lower,upper,means,covar,maxpts,abseps,releps,value,inform) ! in :mvn:mvndst.f - integer intent(hide) :: d=shape(means,0) - integer intent(hide) :: n=shape(means,1) - double precision dimension(d) :: lower - double precision dimension(d) :: upper - double precision dimension(d,n) :: means - double precision dimension(d,d) :: covar - integer intent(optional) :: maxpts=d*1000 - double precision intent(optional) :: abseps=1e-6 - double precision intent(optional) :: releps=1e-6 - double precision intent(out) :: value - integer intent(out) :: inform - end subroutine mvnun - - subroutine mvndst(n,lower,upper,infin,correl,maxpts,abseps,releps,error,value,inform) ! in :mvn:mvndst.f - integer intent(hide) :: n=len(lower) - double precision dimension(n) :: lower - double precision dimension(n) :: upper - integer dimension(n) :: infin - double precision dimension(n*(n-1)/2) :: correl - integer intent(optional) :: maxpts=2000 - double precision intent(optional) :: abseps=1e-6 - double precision intent(optional) :: releps=1e-6 - double precision intent(out) :: error - double precision intent(out) :: value - integer intent(out) :: inform - integer :: ivls - common /dkblck/ ivls - end subroutine mvndst - end interface -end python module mvn - -! This file was auto-generated with f2py (version:2.39.235_1752). -! See http://cens.ioc.ee/projects/f2py2e/ diff --git a/pywafo/src/wafo/source/mvnprd/adaptivegausskronrod.mod b/pywafo/src/wafo/source/mvnprd/adaptivegausskronrod.mod deleted file mode 100644 index d6f5e21..0000000 --- a/pywafo/src/wafo/source/mvnprd/adaptivegausskronrod.mod +++ /dev/null @@ -1,116 +0,0 @@ -GFORTRAN module version '10' created from mvnprodcorrprb.f -MD5:4cf088ac31844fc439b9335751705634 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('dqagp' 'adaptivegausskronrod' 2) ('dqagpe' 'adaptivegausskronrod' 3)) - -() - -() - -() - -(2 'dqagp' 'adaptivegausskronrod' '' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 -UNKNOWN ()) 4 0 (5 6 7 8 9 10 11 12 13 14 15 16) () 0 () () () 0 0) -3 'dqagpe' 'adaptivegausskronrod' '' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 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' '' '' 4 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -6 'a' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -7 'b' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -8 'npts' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -9 'points' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) -0 8 ())) 0 () () () 0 0) -10 'epsabs' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -11 'epsrel' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -12 'limit' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -13 'result1' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -14 'abserr' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -15 'neval' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -16 'ier' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -18 'f' '' '' 17 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () -0 0) -19 'a' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -20 'b' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -21 'npts' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -22 'points' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) -0 21 ())) 0 () () () 0 0) -23 'epsabs' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -24 'epsrel' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -25 'limit' '' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -26 'result' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -27 'abserr' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -28 'neval' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -29 'ier' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -30 'alist' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) -0 25 ())) 0 () () () 0 0) -31 'blist' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) -0 25 ())) 0 () () () 0 0) -32 'rlist' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) -0 25 ())) 0 () () () 0 0) -33 'elist' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) -0 25 ())) 0 () () () 0 0) -34 'pts' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') (OP (INTEGER 4 0 0 0 INTEGER ()) 0 -PLUS (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 21 ()) (CONSTANT (INTEGER -4 0 0 0 INTEGER ()) 0 '2'))) 0 () () () 0 0) -35 'iord' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 -INTEGER ()) 0 25 ())) 0 () () () 0 0) -36 'level' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 0 -INTEGER ()) 0 25 ())) 0 () () () 0 0) -37 'ndin' '' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (OP (INTEGER 4 0 0 0 -INTEGER ()) 0 PLUS (VARIABLE (INTEGER 4 0 0 0 INTEGER ()) 0 21 ()) ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2'))) 0 () () () 0 0) -38 'last' '' '' 17 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -) - -('dqagp' 0 2 'dqagpe' 0 3) diff --git a/pywafo/src/wafo/source/mvnprd/erfcoremod.mod b/pywafo/src/wafo/source/mvnprd/erfcoremod.mod deleted file mode 100644 index 5610e18..0000000 --- a/pywafo/src/wafo/source/mvnprd/erfcoremod.mod +++ /dev/null @@ -1,53 +0,0 @@ -GFORTRAN module version '10' created from mvnprodcorrprb.f -MD5:d50eebbb2a58cec28466fffd901e30ce -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('calerf' 'erfcoremod' 2) ('derf' 'erfcoremod' 3) ('derfc' 'erfcoremod' -4) ('derfcx' 'erfcoremod' 5)) - -() - -() - -() - -(2 'calerf' 'erfcoremod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN 0 0 SUBROUTINE GENERIC IMPLICIT_PURE) (UNKNOWN 0 0 0 0 -UNKNOWN ()) 6 0 (7 8 9) () 0 () () () 0 0) -3 'derf' 'erfcoremod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 10 0 (11) () 12 () -() () 0 0) -4 'derfc' 'erfcoremod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 13 0 (14) () 15 () -() () 0 0) -5 'derfcx' 'erfcoremod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 16 0 (17) () 18 () -() () 0 0) -19 'erfcoremod' 'erfcoremod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 -0) -7 'arg' '' '' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -8 'result' '' '' 6 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'jint' '' '' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -11 'x' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -12 'value' '' '' 10 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -14 'x' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -15 'value' '' '' 13 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -17 'x' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -18 'value' '' '' 16 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -) - -('calerf' 0 2 'derf' 0 3 'derfc' 0 4 'derfcx' 0 5 'erfcoremod' 0 19) diff --git a/pywafo/src/wafo/source/mvnprd/functioninterface.mod b/pywafo/src/wafo/source/mvnprd/functioninterface.mod deleted file mode 100644 index 339f769..0000000 --- a/pywafo/src/wafo/source/mvnprd/functioninterface.mod +++ /dev/null @@ -1,29 +0,0 @@ -GFORTRAN module version '10' created from mvnprodcorrprb.f -MD5:2635116f2ab857b1a31d22224a34abc8 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'f' 'functioninterface' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -BODY UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 0 REAL ()) 3 0 (4) () 5 -() () () 0 0) -6 'functioninterface' 'functioninterface' '' 1 ((MODULE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () -0 () () () 0 0) -4 'z' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -5 'val' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 RESULT) (REAL 8 0 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 deleted file mode 100644 index f6e6c73..0000000 --- a/pywafo/src/wafo/source/mvnprd/integration1dmodule.mod +++ /dev/null @@ -1,252 +0,0 @@ -GFORTRAN module version '10' created from mvnprodcorrprb.f -MD5:c465e58723b4af4dc6c95dff6bfd5851 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () -() () () ()) - -() - -(('adaptivesimpson' 'integration1dmodule' 2 3) ('adaptivetrapz' -'integration1dmodule' 4 5) ('d1mach' 'integration1dmodule' 6) ('dea' -'integration1dmodule' 7) ('romberg' 'integration1dmodule' 8 9)) - -() - -() - -() - -(10 'adaptiveintwithbreaks' 'integration1dmodule' '' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) -(UNKNOWN 0 0 0 0 UNKNOWN ()) 11 0 (12 13 14 15 16 17 18 19 20) () 0 () () -() 0 0) -21 'adaptivesimpson1' 'integration1dmodule' '' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 -UNKNOWN ()) 22 0 (23 24 25 26 27 28 29) () 0 () () () 0 0) -3 'adaptivesimpson2' 'integration1dmodule' '' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 -UNKNOWN ()) 30 0 (31 32 33 34 35 36 37) () 0 () () () 0 0) -38 'adaptivesimpson3' 'integration1dmodule' '' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 -UNKNOWN ()) 39 0 (40 41 42 43 44 45 46) () 0 () () () 0 0) -2 'adaptivesimpsonwithbreaks' 'integration1dmodule' '' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) -(UNKNOWN 0 0 0 0 UNKNOWN ()) 47 0 (48 49 50 51 52 53 54 55 56) () 0 () () -() 0 0) -5 'adaptivetrapz1' 'integration1dmodule' '' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 57 -0 (58 59 60 61 62 63 64) () 0 () () () 0 0) -4 'adaptivetrapzwithbreaks' 'integration1dmodule' '' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) -(UNKNOWN 0 0 0 0 UNKNOWN ()) 65 0 (66 67 68 69 70 71 72 73 74) () 0 () () -() 0 0) -6 'd1mach' 'integration1dmodule' '' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 75 -0 (76) () 6 () () () 0 0) -7 'dea' 'integration1dmodule' '' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 -UNKNOWN ()) 77 0 (78 79 80 81 82 83 84) () 0 () () () 0 0) -85 'dea3' 'integration1dmodule' '' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 -UNKNOWN ()) 86 0 (87 88 89 90 91) () 0 () () () 0 0) -92 'integration1dmodule' 'integration1dmodule' '' 1 ((MODULE -UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 -UNKNOWN ()) 0 0 () () 0 () () () 0 0) -9 'romberg1' 'integration1dmodule' '' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 93 -0 (94 95 96 97 98 99 100 101) () 0 () () () 0 0) -8 'rombergwithbreaks' 'integration1dmodule' '' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) -(UNKNOWN 0 0 0 0 UNKNOWN ()) 102 0 (103 104 105 106 107 108 109 110 111) -() 0 () () () 0 0) -12 'f' '' '' 11 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () -0 0) -13 'a' '' '' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -14 'b' '' '' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -15 'n' '' '' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -16 'brks' '' '' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -17 'epsi' '' '' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -18 'iflg' '' '' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -19 'abserr' '' '' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -20 'val' '' '' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -23 'f' '' '' 22 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0 -0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 23 () () () -0 0) -24 'a' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -25 'b' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -26 'epsi' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -27 'iflg' '' '' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -28 'abserr' '' '' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -29 'val' '' '' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -31 'f' '' '' 30 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0 -0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 31 () () () -0 0) -32 'a' '' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -33 'b' '' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -34 'epsi' '' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -35 'iflg' '' '' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -36 'abserr' '' '' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -37 'val' '' '' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -40 'f' '' '' 39 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0 -0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 40 () () () -0 0) -41 'a' '' '' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -42 'b' '' '' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -43 'epsi' '' '' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -44 'iflg' '' '' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -45 'abserr' '' '' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -46 'val' '' '' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -48 'f' '' '' 47 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () -0 0) -49 'a' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -50 'b' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -51 'n' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -52 'brks' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -53 'epsi' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -54 'iflg' '' '' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -55 'abserr' '' '' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -56 'val' '' '' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -58 'f' '' '' 57 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0 -0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 58 () () () -0 0) -59 'a' '' '' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -60 'b' '' '' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -61 'epsi' '' '' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -62 'iflg' '' '' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -63 'abserr' '' '' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -64 'val' '' '' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -66 'f' '' '' 65 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () -0 0) -67 'a' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -68 'b' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -69 'n' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -70 'brks' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -71 'epsi' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -72 'iflg' '' '' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -73 'abserr' '' '' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -74 'val' '' '' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -76 'i' '' '' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -78 'newflg' '' '' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) -79 'svalue' '' '' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -80 'limexp' '' '' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -81 'result' '' '' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -82 'abserr' '' '' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -83 'epstab' '' '' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SIZE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -84 'ierr' '' '' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -87 'e0' '' '' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -88 'e1' '' '' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -89 'e2' '' '' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -90 'abserr' '' '' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -91 'result' '' '' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -94 'f' '' '' 93 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN 0 -0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 94 () () () -0 0) -95 'a' '' '' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -96 'b' '' '' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -97 'decdigs' '' '' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -98 'abseps' '' '' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -99 'errflg' '' '' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -100 'abserr' '' '' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -101 'val' '' '' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -103 'f' '' '' 102 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 -() () () 0 0) -104 'a' '' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -105 'b' '' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -106 'n' '' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -107 'brks' '' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -108 'epsi' '' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -109 'iflg' '' '' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -110 'abserr' '' '' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -111 'val' '' '' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 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 5 'adaptivetrapzwithbreaks' 0 4 'd1mach' 0 6 'dea' 0 -7 'dea3' 0 85 'integration1dmodule' 0 92 'romberg1' 0 9 -'rombergwithbreaks' 0 8) diff --git a/pywafo/src/wafo/source/mvnprd/mvnprdmod.pyd b/pywafo/src/wafo/source/mvnprd/mvnprdmod.pyd deleted file mode 100644 index 84ed727..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/mvnprdmod.pyd and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/mvnprodcorrprbmod.mod b/pywafo/src/wafo/source/mvnprd/mvnprodcorrprbmod.mod deleted file mode 100644 index a9389a2..0000000 --- a/pywafo/src/wafo/source/mvnprd/mvnprodcorrprbmod.mod +++ /dev/null @@ -1,46 +0,0 @@ -GFORTRAN module version '10' created from mvnprodcorrprb.f -MD5:8740350189059c565ea73e4e38d4d956 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () -() () () ()) - -() - -(('mvnprodcorrprb' 'mvnprodcorrprbmod' 2)) - -() - -() - -() - -(2 'mvnprodcorrprb' 'mvnprodcorrprbmod' '' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) ( -UNKNOWN 0 0 0 0 UNKNOWN ()) 3 0 (4 5 6 7 8 9 10 11 12 13) () 0 () () () -0 0) -4 'rho' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -5 'a' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -6 'b' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -7 'abseps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -8 'releps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'usebreakpoints' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 -0 DUMMY) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) -10 'usesimpson' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) -11 'abserr' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -12 'errflg' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -13 'prb' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -) - -('mvnprodcorrprb' 0 2) diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/DF60.PDB b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/DF60.PDB deleted file mode 100644 index 37b3931..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/DF60.PDB and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/adaptivegausskronrod.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/adaptivegausskronrod.mod deleted file mode 100644 index 30fb457..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/adaptivegausskronrod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/erfcoremod.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/erfcoremod.mod deleted file mode 100644 index 3e3c364..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/erfcoremod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/functioninterface.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/functioninterface.mod deleted file mode 100644 index fb09733..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/functioninterface.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/integration1dmodule.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/integration1dmodule.mod deleted file mode 100644 index b6494bb..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/integration1dmodule.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/mvnprodcorrprb.obj b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/mvnprodcorrprb.obj deleted file mode 100644 index 270a6ae..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/mvnprodcorrprb.obj and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/mvnprodcorrprbmod.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/mvnprodcorrprbmod.mod deleted file mode 100644 index 7d95c20..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/mvnprodcorrprbmod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.exe b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.exe deleted file mode 100644 index 7fbaad6..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.exe and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.ilk b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.ilk deleted file mode 100644 index e52ed2a..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.ilk and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.obj b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.obj deleted file mode 100644 index 24b800c..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.obj and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.pdb b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.pdb deleted file mode 100644 index 70cf0a4..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/Debug/test_mvnprodcorrprb.pdb and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/adaptivegausskronrod.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/adaptivegausskronrod.mod deleted file mode 100644 index 7d21c23..0000000 --- a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/adaptivegausskronrod.mod +++ /dev/null @@ -1,112 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Thu Dec 04 12:55:42 2008 -MD5:6d500af6c301beba9c314ac587f06931 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('dqagpe' 'adaptivegausskronrod' 2) ('dqagp' '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) -10 'epsabs' '' 'epsabs' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -11 'epsrel' '' 'epsrel' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -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) -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 -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) -33 'elist' '' 'elist' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -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 -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 -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 -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 -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) -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 -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) -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) -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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -20 'b' '' 'b' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 ( -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 -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 -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 -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 -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 -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) -) - -('dqagp' 0 3 'dqagpe' 0 2) diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/erfcoremod.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/erfcoremod.mod deleted file mode 100644 index 62b1a08..0000000 --- a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/erfcoremod.mod +++ /dev/null @@ -1,51 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Thu Dec 04 11:05:50 2008 -MD5:3ad89711ff6ea0f8c745365231e1a1ea -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('derf' 'erfcoremod' 2) ('calerf' 'erfcoremod' 3) ('derfcx' 'erfcoremod' -4) ('derfc' 'erfcoremod' 5)) - -() - -() - -(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) -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) -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) -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) -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) ( -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) ( -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) ( -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) -) - -('calerf' 0 3 'derf' 0 2 'derfc' 0 5 'derfcx' 0 4 'erfcoremod' 0 19) diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/functioninterface.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/functioninterface.mod deleted file mode 100644 index f5c7ab8..0000000 --- a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/functioninterface.mod +++ /dev/null @@ -1,27 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Wed Dec 03 15:55:57 2008 -MD5:2bffd45d12c9c1718b19499dd55e4953 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -(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) -6 'functioninterface' 'functioninterface' 'functioninterface' 1 (( -MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (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) -5 'val' '' 'val' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 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/old/mvnprodcorrprb/integration1dmodule.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/integration1dmodule.mod deleted file mode 100644 index 698f6a9..0000000 --- a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/integration1dmodule.mod +++ /dev/null @@ -1,241 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Thu Dec 04 12:55:42 2008 -MD5:2001ac092337caac013ba2fcb5e647f3 -- 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)) - -() - -() - -(10 'adaptiveintwithbreaks' 'integration1dmodule' 'adaptiveintwithbreaks' -1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 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) -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) -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) -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 -UNKNOWN ()) 57 0 (58 59 60 61 62 63 64) () 0 () () 0 0) -5 '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) -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) -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) -92 'integration1dmodule' 'integration1dmodule' 'integration1dmodule' 1 ( -(MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (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 ()) 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 -ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 102 0 (103 104 105 106 107 -108 109 110 111) () 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) -82 'abserr' '' 'abserr' 77 ((VARIABLE INOUT 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 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) -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) -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) -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 -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) -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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -50 'b' '' 'b' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -51 'n' '' 'n' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -33 'b' '' 'b' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -13 'a' '' 'a' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -14 'b' '' 'b' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -15 'n' '' 'n' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -16 'brks' '' 'brks' 11 ((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) -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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -60 'b' '' 'b' 57 ((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 -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) -52 'brks' '' 'brks' 47 ((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) -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 -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) -23 'f' '' 'f' 22 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 23 () () 0 0) -41 'a' '' 'a' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -42 'b' '' 'b' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -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 -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) -66 'f' '' 'f' 65 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -76 'i' '' 'i' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -45 'abserr' '' 'abserr' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -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) -72 'iflg' '' 'iflg' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -73 'abserr' '' 'abserr' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -74 'val' '' 'val' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -71 'epsi' '' 'epsi' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -67 'a' '' 'a' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -68 'b' '' 'b' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -69 'n' '' 'n' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -70 'brks' '' 'brks' 65 ((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) -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 -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 -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 -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -109 'iflg' '' 'iflg' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -110 'abserr' '' 'abserr' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -96 'b' '' 'b' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -100 'abserr' '' 'abserr' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -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 -9 'dea3' 0 85 'integration1dmodule' 0 92 'romberg1' 0 8 -'rombergwithbreaks' 0 7) diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/mvnprdmod.pyd b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/mvnprdmod.pyd deleted file mode 100644 index 3b8605b..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/mvnprdmod.pyd and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/mvnprodcorrprbmod.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/mvnprodcorrprbmod.mod deleted file mode 100644 index 6f23eb4..0000000 --- a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/mvnprodcorrprbmod.mod +++ /dev/null @@ -1,44 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Thu Dec 04 12:55:42 2008 -MD5:52cce08f767867c5bd7250c82948c098 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () -() () () () () () () () () () () () () () () () ()) - -() - -(('mvnprodcorrprb' 'mvnprodcorrprbmod' 2)) - -() - -() - -(2 'mvnprodcorrprb' 'mvnprodcorrprbmod' 'mvnprodcorrprb' 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 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) -9 'usebreakpoints' '' 'usebreakpoints' 3 ((VARIABLE IN UNKNOWN-PROC -UNKNOWN UNKNOWN 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 -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) -5 'a' '' 'a' 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) -6 'b' '' 'b' 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 'abseps' '' 'abseps' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -8 'releps' '' 'releps' 3 ((VARIABLE IN 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/mvnprd/old/mvnprodcorrprb/old/adaptivegausskronrod.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/adaptivegausskronrod.mod deleted file mode 100644 index 00fa45b..0000000 --- a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/adaptivegausskronrod.mod +++ /dev/null @@ -1,112 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Tue Dec 02 13:32:39 2008 -MD5:5f0b454993ede1db4c4b6b9e47df36c4 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('dqagpe' 'adaptivegausskronrod' 2) ('dqagp' '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) -10 'epsabs' '' 'epsabs' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -11 'epsrel' '' 'epsrel' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -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) -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 -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) -9 'points' '' 'points' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -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) -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) -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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -20 'b' '' 'b' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 ( -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 -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 -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 -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 -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 -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 -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 -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 -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 -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 -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) -) - -('dqagp' 0 3 'dqagpe' 0 2) diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/adaptivegausskronrod.pyfo b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/adaptivegausskronrod.pyfo deleted file mode 100644 index 31ea5ed..0000000 --- a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/adaptivegausskronrod.pyfo +++ /dev/null @@ -1,149 +0,0 @@ -! -*- f90 -*- -! Note: the context of this file is case sensitive. - -python module dqk21__user__routines - interface dqk21_user_interface - function f(centr) result (fc) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod:dqk21:unknown_interface - double precision :: centr - double precision :: fc - end function f - end interface dqk21_user_interface -end python module dqk21__user__routines -python module dqk15__user__routines - interface dqk15_user_interface - function f(centr) result (fc) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod:dqk15:unknown_interface - double precision :: centr - double precision :: fc - end function f - end interface dqk15_user_interface -end python module dqk15__user__routines -python module dqk9__user__routines - interface dqk9_user_interface - function f(centr) result (fc) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod:dqk9:unknown_interface - double precision :: centr - double precision :: fc - end function f - end interface dqk9_user_interface -end python module dqk9__user__routines -python module dqkl9__user__routines - interface dqkl9_user_interface - function f(centr) result (fc) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod:dqkl9:unknown_interface - double precision :: centr - double precision :: fc - end function f - end interface dqkl9_user_interface -end python module dqkl9__user__routines -python module adaptivegausskronrod ! in - interface ! in :adaptivegausskronrod - module adaptivegausskronrod ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90 - subroutine dea3(e0,e1,e2,abserr,result) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod - double precision intent(in) :: e0 - double precision intent(in) :: e1 - double precision intent(in) :: e2 - double precision intent(out) :: abserr - double precision intent(out) :: result - end subroutine dea3 - subroutine dqagp(f,a,b,npts,points,epsabs,epsrel,limit,result1,abserr,neval,ier) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod - external f - double precision intent(in) :: a - double precision intent(in) :: b - integer optional,intent(in),check(len(points)>=npts),depend(points) :: npts=len(points) - double precision dimension(npts),intent(in) :: points - double precision intent(in) :: epsabs - double precision intent(in) :: epsrel - integer intent(in) :: limit - double precision intent(out) :: result1 - double precision intent(out) :: abserr - integer intent(out) :: neval - integer intent(out) :: ier - end subroutine dqagp - subroutine dqagpe(f,a,b,npts,points,epsabs,epsrel,limit,result,abserr,neval,ier,alist,blist,rlist,elist,pts,iord,level,ndin,last) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod - external f - double precision intent(in) :: a - double precision intent(in) :: b - integer optional,intent(in),check(len(points)>=npts),depend(points) :: npts=len(points) - double precision dimension(npts),intent(in) :: points - double precision intent(in) :: epsabs - double precision intent(in) :: epsrel - integer intent(in) :: limit - double precision intent(out) :: result - double precision intent(out) :: abserr - integer intent(out) :: neval - integer intent(out) :: ier - double precision dimension(limit),intent(out),depend(limit) :: alist - double precision dimension(limit),intent(out),depend(limit) :: blist - double precision dimension(limit),intent(out),depend(limit) :: rlist - double precision dimension(limit),intent(out),depend(limit) :: elist - double precision dimension(npts + 2),intent(out),depend(npts) :: pts - integer dimension(limit),intent(out),depend(limit) :: iord - integer dimension(limit),intent(out),depend(limit) :: level - integer dimension(npts + 2),intent(out),depend(npts) :: ndin - integer :: last - end subroutine dqagpe - subroutine dqk21(f,a,b,result,abserr,resabs,resasc) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod - use dqk21__user__routines - external f - double precision :: a - double precision :: b - double precision :: result - double precision :: abserr - double precision :: resabs - double precision :: resasc - end subroutine dqk21 - subroutine dqk15(f,a,b,result,abserr,resabs,resasc) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod - use dqk15__user__routines - external f - double precision :: a - double precision :: b - double precision :: result - double precision :: abserr - double precision :: resabs - double precision :: resasc - end subroutine dqk15 - subroutine dqk9(f,a,b,result,abserr,resabs,resasc) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod - use dqk9__user__routines - external f - double precision :: a - double precision :: b - double precision :: result - double precision :: abserr - double precision :: resabs - double precision :: resasc - end subroutine dqk9 - subroutine dqkl9(f,a,b,result,abserr,resabs,resasc) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod - use dqkl9__user__routines - external f - double precision :: a - double precision :: b - double precision :: result - double precision :: abserr - double precision :: resabs - double precision :: resasc - end subroutine dqkl9 - subroutine dqpsrt(limit,last,maxerr,ermax,elist,iord,nrmax) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod - integer :: limit - integer optional,check(len(elist)>=last),depend(elist) :: last=len(elist) - integer :: maxerr - double precision :: ermax - double precision dimension(last) :: elist - integer dimension(last),depend(last) :: iord - integer :: nrmax - end subroutine dqpsrt - subroutine dqelg(n,epstab,result,abserr,res3la,nres) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod - integer :: n - double precision dimension(52) :: epstab - double precision :: result - double precision :: abserr - double precision dimension(3) :: res3la - integer :: nres - end subroutine dqelg - function d1mach(i) ! in :adaptivegausskronrod:AdaptiveGuassKronrod.f90:adaptivegausskronrod - integer intent(in) :: i - double precision :: d1mach - end function d1mach - end module adaptivegausskronrod - end interface -end python module adaptivegausskronrod - -! This file was auto-generated with f2py (version:2_5972). -! See http://cens.ioc.ee/projects/f2py2e/ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/erfcore.pyd b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/erfcore.pyd deleted file mode 100644 index 4d78a99..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/erfcore.pyd and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/erfcoremod.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/erfcoremod.mod deleted file mode 100644 index a1d91e7..0000000 --- a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/erfcoremod.mod +++ /dev/null @@ -1,51 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Fri Nov 28 22:53:18 2008 -MD5:3ad89711ff6ea0f8c745365231e1a1ea -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('derf' 'erfcoremod' 2) ('calerf' 'erfcoremod' 3) ('derfcx' 'erfcoremod' -4) ('derfc' 'erfcoremod' 5)) - -() - -() - -(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) -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) -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) -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) -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) ( -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) ( -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) ( -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) -) - -('calerf' 0 3 'derf' 0 2 'derfc' 0 5 'derfcx' 0 4 'erfcoremod' 0 19) diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/functioninterface.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/functioninterface.mod deleted file mode 100644 index bd8697e..0000000 --- a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/functioninterface.mod +++ /dev/null @@ -1,27 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Fri Nov 28 22:53:18 2008 -MD5:2bffd45d12c9c1718b19499dd55e4953 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -(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) -6 'functioninterface' 'functioninterface' 'functioninterface' 1 (( -MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (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) -5 'val' '' 'val' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 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/old/mvnprodcorrprb/old/integration1dmodule.mod b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/integration1dmodule.mod deleted file mode 100644 index 9308240..0000000 --- a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/integration1dmodule.mod +++ /dev/null @@ -1,241 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Tue Dec 02 13:32:40 2008 -MD5:ec74f2365292905dedfb7525a3d64c0f -- If you edit this, you'll get what you deserve. - -(() () () () -() () () () () () () () () () () () () () () () () () () () () () ()) - -() - -(('adaptivesimpson' 'integration1dmodule' 2 3) ('adaptivetrapz' -'integration1dmodule' 4 5) ('d1mach' 'integration1dmodule' 6) ('dea' -'integration1dmodule' 7) ('romberg' 'integration1dmodule' 8 9)) - -() - -() - -(10 'adaptiveintwithbreaks' 'integration1dmodule' 'adaptiveintwithbreaks' -1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 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) -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) -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) -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) -5 'adaptivetrapz1' 'integration1dmodule' 'adaptivetrapz1' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 -UNKNOWN ()) 57 0 (58 59 60 61 62 63 64) () 0 () () 0 0) -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) -6 'd1mach' 'integration1dmodule' 'd1mach' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 75 0 ( -76) () 6 () () 0 0) -7 '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) -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) -92 'integration1dmodule' 'integration1dmodule' 'integration1dmodule' 1 ( -(MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 -UNKNOWN ()) 0 0 () () 0 () () 0 0) -9 'romberg1' 'integration1dmodule' 'romberg1' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 -UNKNOWN ()) 93 0 (94 95 96 97 98 99 100 101) () 0 () () 0 0) -8 'rombergwithbreaks' 'integration1dmodule' 'rombergwithbreaks' 1 (( -PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE -ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 102 0 (103 104 105 106 107 -108 109 110 111) () 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) -12 'f' '' 'f' 11 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -EXTERNAL 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) -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) -76 'i' '' 'i' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -13 'a' '' 'a' 11 ((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 -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) -17 'epsi' '' 'epsi' 11 ((VARIABLE IN 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) -41 'a' '' 'a' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -42 'b' '' 'b' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 -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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -68 'b' '' 'b' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -69 'n' '' 'n' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -70 'brks' '' 'brks' 65 ((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) -18 'iflg' '' 'iflg' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -19 'abserr' '' 'abserr' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -20 'val' '' 'val' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 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) -82 'abserr' '' 'abserr' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -71 'epsi' '' 'epsi' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -49 'a' '' 'a' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -50 'b' '' 'b' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -51 'n' '' 'n' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -52 'brks' '' 'brks' 47 ((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) -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 -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) -23 'f' '' 'f' 22 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 23 () () 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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -33 'b' '' 'b' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -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) -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 -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) -14 'b' '' 'b' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -15 'n' '' 'n' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -16 'brks' '' 'brks' 11 ((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) -72 'iflg' '' 'iflg' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -73 'abserr' '' 'abserr' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -60 'b' '' 'b' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 -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 -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 -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -109 'iflg' '' 'iflg' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -110 'abserr' '' 'abserr' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -96 'b' '' 'b' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -100 'abserr' '' 'abserr' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -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 5 'adaptivetrapzwithbreaks' 0 4 'd1mach' 0 6 'dea' 0 -7 'dea3' 0 85 'integration1dmodule' 0 92 'romberg1' 0 9 -'rombergwithbreaks' 0 8) diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/mvn.exe b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/mvn.exe deleted file mode 100644 index 718ffc0..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/mvn.exe and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/test_mvnprodcorrprb.opt b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/test_mvnprodcorrprb.opt deleted file mode 100644 index 015d2b2..0000000 Binary files a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/test_mvnprodcorrprb.opt and /dev/null differ diff --git a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/test_mvnprodcorrprb.plg b/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/test_mvnprodcorrprb.plg deleted file mode 100644 index 8ea30dd..0000000 --- a/pywafo/src/wafo/source/mvnprd/old/mvnprodcorrprb/old/test_mvnprodcorrprb.plg +++ /dev/null @@ -1,26 +0,0 @@ - - -
-
Build Log

-

---------------------Configuration: test_mvnprodcorrprb - Win32 Debug--------------------
-

-
Command Lines

-Creating temporary file "C:\DOCUME~1\pab.NTU\LOCALS~1\Temp\RSP265.tmp" with contents
-[
-/check:bounds /compile_only /debug:full /nologo /traceback /warn:argument_checking /warn:nofileopt /module:"Debug/" /object:"Debug/" /pdbfile:"Debug/DF60.PDB" 
-"C:\pab\workspace\PYWAFO\src\wafo\src\mvnprodcorrprb\test_mvnprodcorrprb.f"
-]
-Creating command line "link.exe kernel32.lib /nologo /subsystem:console /incremental:yes /pdb:"Debug/test_mvnprodcorrprb.pdb" /debug /machine:I386 /out:"Debug/test_mvnprodcorrprb.exe" /pdbtype:sept  .\Debug\mvnprodcorrprb.obj .\Debug\test_mvnprodcorrprb.obj "
-
Output Window

-Compiling Fortran...
-C:\pab\workspace\PYWAFO\src\wafo\src\mvnprodcorrprb\test_mvnprodcorrprb.f
-Linking...
-
-
-
-
Results

-test_mvnprodcorrprb.exe - 0 error(s), 0 warning(s)
-
- - diff --git a/pywafo/src/wafo/source/old/adaptivegausskronrod.mod b/pywafo/src/wafo/source/old/adaptivegausskronrod.mod deleted file mode 100644 index 211b8c8..0000000 --- a/pywafo/src/wafo/source/old/adaptivegausskronrod.mod +++ /dev/null @@ -1,112 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Mon Nov 10 15:32:07 2008 -MD5:3741e25b152f50d5036e26826a6dde6c -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('dqagpe' 'adaptivegausskronrod' 2) ('dqagp' '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) -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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -20 'b' '' 'b' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 ( -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) -37 'ndin' '' 'ndin' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -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) -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 -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 -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -11 'epsrel' '' 'epsrel' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN -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) -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 -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) -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 -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 -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 -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 -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 -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 -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 -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 -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 -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) -) - -('dqagp' 0 3 'dqagpe' 0 2) diff --git a/pywafo/src/wafo/source/old/erfcore.pyd b/pywafo/src/wafo/source/old/erfcore.pyd deleted file mode 100644 index 9b10fb5..0000000 Binary files a/pywafo/src/wafo/source/old/erfcore.pyd and /dev/null differ diff --git a/pywafo/src/wafo/source/old/erfcore.pydold b/pywafo/src/wafo/source/old/erfcore.pydold deleted file mode 100644 index c946776..0000000 Binary files a/pywafo/src/wafo/source/old/erfcore.pydold and /dev/null differ diff --git a/pywafo/src/wafo/source/old/erfcoremod.mod b/pywafo/src/wafo/source/old/erfcoremod.mod deleted file mode 100644 index db2e558..0000000 --- a/pywafo/src/wafo/source/old/erfcoremod.mod +++ /dev/null @@ -1,48 +0,0 @@ -GFORTRAN module created from erfcoremod.f on Tue Nov 11 11:30:34 2008 -MD5:00cbd9feeb2c79d7d491982c1dc7f04f -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -(2 'calerf' 'erfcoremod' 'calerf' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4 5 -6) () 0 () () 0 0) -7 'derf' 'erfcoremod' 'derf' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN FUNCTION) (REAL 8 0 0 REAL ()) 8 0 (9) () 10 () () 0 0) -11 'derfc' 'erfcoremod' 'derfc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN FUNCTION) (REAL 8 0 0 REAL ()) 12 0 (13) () 14 () () 0 0) -15 'derfcx' 'erfcoremod' 'derfcx' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN FUNCTION) (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) -9 'x' '' 'x' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 -0 0 REAL ()) 0 0 () () 0 () () 0 0) -10 'value' '' 'value' 8 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -13 'x' '' 'x' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -14 'value' '' 'value' 12 ((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) ( -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) -4 'arg' '' 'arg' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -5 'result' '' 'result' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -6 'jint' '' 'jint' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -) - -('calerf' 0 2 'derf' 0 7 'derfc' 0 11 'derfcx' 0 15 'erfcoremod' 0 19) diff --git a/pywafo/src/wafo/source/old/erfcoremod.pyd b/pywafo/src/wafo/source/old/erfcoremod.pyd deleted file mode 100644 index df75051..0000000 Binary files a/pywafo/src/wafo/source/old/erfcoremod.pyd and /dev/null differ diff --git a/pywafo/src/wafo/source/old/erfcoremod.pyfold b/pywafo/src/wafo/source/old/erfcoremod.pyfold deleted file mode 100644 index 02b4929..0000000 --- a/pywafo/src/wafo/source/old/erfcoremod.pyfold +++ /dev/null @@ -1,27 +0,0 @@ -! -*- f90 -*- -! Note: the context of this file is case sensitive. - -python module erfcoremod ! in - interface ! in :erfcoremod - function derf(x) result (value) ! in :erfcoremod:erfcoremod.f - double precision intent(in) :: x - double precision :: value - end function derf - function derfc(x) result (value) ! in :erfcoremod:erfcoremod.f - double precision intent(in) :: x - double precision :: value - end function derfc - function derfcx(x) result (value) ! in :erfcoremod:erfcoremod.f - double precision intent(in) :: x - double precision :: value - end function derfcx - subroutine calerf(arg,result,jint) ! in :erfcoremod:erfcoremod.f - double precision intent(in) :: arg - double precision intent(inout) :: result - integer intent(in) :: jint - end subroutine calerf - end interface -end python module erfcoremod - -! This file was auto-generated with f2py (version:2_5972). -! See http://cens.ioc.ee/projects/f2py2e/ diff --git a/pywafo/src/wafo/source/old/functioninterface.mod b/pywafo/src/wafo/source/old/functioninterface.mod deleted file mode 100644 index 3183899..0000000 --- a/pywafo/src/wafo/source/old/functioninterface.mod +++ /dev/null @@ -1,27 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Mon Nov 10 15:00:44 2008 -MD5:2bffd45d12c9c1718b19499dd55e4953 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -(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) -6 'functioninterface' 'functioninterface' 'functioninterface' 1 (( -MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (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) -5 'val' '' 'val' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -) - -('f' 0 2 'functioninterface' 0 6) diff --git a/pywafo/src/wafo/source/old/integration1dmodule.mod b/pywafo/src/wafo/source/old/integration1dmodule.mod deleted file mode 100644 index 0e7fda3..0000000 --- a/pywafo/src/wafo/source/old/integration1dmodule.mod +++ /dev/null @@ -1,241 +0,0 @@ -GFORTRAN module created from mvnprodcorrprb.f on Mon Nov 10 15:32:07 2008 -MD5:5dd704e6daf3bd44e2297b08a55e52ff -- If you edit this, you'll get what you deserve. - -(() () () () -() () () () () () () () () () () () () () () () () () () () () () ()) - -() - -(('adaptivesimpson' 'integration1dmodule' 2 3) ('adaptivetrapz' -'integration1dmodule' 4 5) ('d1mach' 'integration1dmodule' 6) ('dea' -'integration1dmodule' 7) ('romberg' 'integration1dmodule' 8 9)) - -() - -() - -(10 'adaptiveintwithbreaks' 'integration1dmodule' 'adaptiveintwithbreaks' -1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 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) -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) -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) -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) -5 'adaptivetrapz1' 'integration1dmodule' 'adaptivetrapz1' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 -UNKNOWN ()) 57 0 (58 59 60 61 62 63 64) () 0 () () 0 0) -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) -6 'd1mach' 'integration1dmodule' 'd1mach' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 75 0 ( -76) () 6 () () 0 0) -7 '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) -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) -92 'integration1dmodule' 'integration1dmodule' 'integration1dmodule' 1 ( -(MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 -UNKNOWN ()) 0 0 () () 0 () () 0 0) -9 'romberg1' 'integration1dmodule' 'romberg1' 1 ((PROCEDURE -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 -UNKNOWN ()) 93 0 (94 95 96 97 98 99 100 101) () 0 () () 0 0) -8 'rombergwithbreaks' 'integration1dmodule' 'rombergwithbreaks' 1 (( -PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 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) ( -INTEGER 4 0 0 INTEGER ()) 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) -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) -87 'e0' '' 'e0' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -19 'abserr' '' 'abserr' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -20 'val' '' 'val' 11 ((VARIABLE OUT 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) -13 'a' '' 'a' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -14 'b' '' 'b' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -15 'n' '' 'n' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -16 'brks' '' 'brks' 11 ((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) -48 'f' '' 'f' 47 ((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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -68 'b' '' 'b' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -69 'n' '' 'n' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -70 'brks' '' 'brks' 65 ((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) -71 'epsi' '' 'epsi' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(REAL 8 0 0 REAL ()) 0 0 () () 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) -12 'f' '' 'f' 11 ((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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -50 'b' '' 'b' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -51 'n' '' 'n' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -52 'brks' '' 'brks' 47 ((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) -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 -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) -23 'f' '' 'f' 22 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 23 () () 0 0) -35 'iflg' '' 'iflg' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -33 'b' '' 'b' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -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) -88 'e1' '' 'e1' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -41 'a' '' 'a' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -42 'b' '' 'b' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -40 'f' '' 'f' 39 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN -EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 40 () () 0 0) -45 'abserr' '' 'abserr' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -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) -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 -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) -36 'abserr' '' 'abserr' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -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) -72 'iflg' '' 'iflg' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) -(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -73 'abserr' '' 'abserr' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -60 'b' '' 'b' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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 -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 -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 -DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -109 'iflg' '' 'iflg' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -110 'abserr' '' 'abserr' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -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) ( -REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0) -96 'b' '' 'b' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 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) -100 'abserr' '' 'abserr' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN -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 5 'adaptivetrapzwithbreaks' 0 4 'd1mach' 0 6 'dea' 0 -7 'dea3' 0 85 'integration1dmodule' 0 92 'romberg1' 0 9 -'rombergwithbreaks' 0 8) diff --git a/pywafo/src/wafo/source/rind2007/Debug/DF60.PDB b/pywafo/src/wafo/source/rind2007/Debug/DF60.PDB deleted file mode 100644 index fb148f5..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/DF60.PDB and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/adaptmod.mod b/pywafo/src/wafo/source/rind2007/Debug/adaptmod.mod deleted file mode 100644 index 7a25ec1..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/adaptmod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/c1c2mod.mod b/pywafo/src/wafo/source/rind2007/Debug/c1c2mod.mod deleted file mode 100644 index f482fb8..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/c1c2mod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/dkbvrcmod.mod b/pywafo/src/wafo/source/rind2007/Debug/dkbvrcmod.mod deleted file mode 100644 index 729862b..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/dkbvrcmod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/erfcoremod.mod b/pywafo/src/wafo/source/rind2007/Debug/erfcoremod.mod deleted file mode 100644 index f5b8c9b..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/erfcoremod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/erfcoremod.obj b/pywafo/src/wafo/source/rind2007/Debug/erfcoremod.obj deleted file mode 100644 index 892c80e..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/erfcoremod.obj and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/fimod.mod b/pywafo/src/wafo/source/rind2007/Debug/fimod.mod deleted file mode 100644 index be1c4e8..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/fimod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/fimod.obj b/pywafo/src/wafo/source/rind2007/Debug/fimod.obj deleted file mode 100644 index 73c6561..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/fimod.obj and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/funcmod.mod b/pywafo/src/wafo/source/rind2007/Debug/funcmod.mod deleted file mode 100644 index ba662bc..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/funcmod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/globaldata.mod b/pywafo/src/wafo/source/rind2007/Debug/globaldata.mod deleted file mode 100644 index 99ed174..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/globaldata.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/intmodule.obj b/pywafo/src/wafo/source/rind2007/Debug/intmodule.obj deleted file mode 100644 index 8d1b733..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/intmodule.obj and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/jacobmod.mod b/pywafo/src/wafo/source/rind2007/Debug/jacobmod.mod deleted file mode 100644 index 4413ed8..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/jacobmod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/jacobmod.obj b/pywafo/src/wafo/source/rind2007/Debug/jacobmod.obj deleted file mode 100644 index a6f9dca..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/jacobmod.obj and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/krbvrcmod.mod b/pywafo/src/wafo/source/rind2007/Debug/krbvrcmod.mod deleted file mode 100644 index e7a910c..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/krbvrcmod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/krobovmod.mod b/pywafo/src/wafo/source/rind2007/Debug/krobovmod.mod deleted file mode 100644 index 77e1c0c..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/krobovmod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/precisionmod.mod b/pywafo/src/wafo/source/rind2007/Debug/precisionmod.mod deleted file mode 100644 index ee24870..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/precisionmod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/quad.mod b/pywafo/src/wafo/source/rind2007/Debug/quad.mod deleted file mode 100644 index 2ec4f2a..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/quad.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/rcrudemod.mod b/pywafo/src/wafo/source/rind2007/Debug/rcrudemod.mod deleted file mode 100644 index 917c55b..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/rcrudemod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/rind71.obj b/pywafo/src/wafo/source/rind2007/Debug/rind71.obj deleted file mode 100644 index 177c8eb..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/rind71.obj and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/rindmod.mod b/pywafo/src/wafo/source/rind2007/Debug/rindmod.mod deleted file mode 100644 index 4885230..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/rindmod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/ssobolmod.mod b/pywafo/src/wafo/source/rind2007/Debug/ssobolmod.mod deleted file mode 100644 index d756f3e..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/ssobolmod.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/test_rind71.exe b/pywafo/src/wafo/source/rind2007/Debug/test_rind71.exe deleted file mode 100644 index c796593..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/test_rind71.exe and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/test_rind71.ilk b/pywafo/src/wafo/source/rind2007/Debug/test_rind71.ilk deleted file mode 100644 index 44420eb..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/test_rind71.ilk and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/test_rind71.obj b/pywafo/src/wafo/source/rind2007/Debug/test_rind71.obj deleted file mode 100644 index 68670b1..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/test_rind71.obj and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/test_rind71.pdb b/pywafo/src/wafo/source/rind2007/Debug/test_rind71.pdb deleted file mode 100644 index 9aa5348..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/test_rind71.pdb and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/Debug/trivariatevar.mod b/pywafo/src/wafo/source/rind2007/Debug/trivariatevar.mod deleted file mode 100644 index 826a40e..0000000 Binary files a/pywafo/src/wafo/source/rind2007/Debug/trivariatevar.mod and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/New File.txt b/pywafo/src/wafo/source/rind2007/New File.txt deleted file mode 100644 index ae0b9b7..0000000 --- a/pywafo/src/wafo/source/rind2007/New File.txt +++ /dev/null @@ -1,21 +0,0 @@ - subroutine set_constants(method,xcscale,abseps,releps,coveps, - & maxpts,minpts,nit,xcutoff,Nc1c2) - use rindmod - double precision :: xcscale,abseps,releps,coveps,xcutoff - integer method, maxpts, minpts, nit, Nc1c2 -Cf2py double precision, optional :: xcscale = 0.0D0 -Cf2py double precision, optional :: abseps = 0.01D0 -Cf2py double precision, optional :: releps = 0.01D0 -Cf2py double precision, optional :: coveps = 1.0D-10 -Cf2py double precision, optional :: xcutoff = 5.0D0 - -Cf2py integer, optional :: method = 3 -Cf2py integer, optional :: minpts = 0 -Cf2py integer, optional :: maxpts = 40000 -Cf2py integer, optional :: nit = 1000 -Cf2py integer, optional :: Nc1c2 = 2 - - call setconstants(method,xcscale,abseps,releps,coveps, - & maxpts,minpts,nit,xcutoff,Nc1c2) - return - end subroutine set_constants \ No newline at end of file diff --git a/pywafo/src/wafo/source/rind2007/adaptmod.mod b/pywafo/src/wafo/source/rind2007/adaptmod.mod deleted file mode 100644 index 3001f36..0000000 --- a/pywafo/src/wafo/source/rind2007/adaptmod.mod +++ /dev/null @@ -1,71 +0,0 @@ -GFORTRAN module version '10' created from intmodule.f -MD5:6b832f3082aec892583a61a9998cf5eb -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('adapt' 'adaptmod' 2) ('sadapt' 'adaptmod' 3)) - -() - -() - -() - -(2 'adapt' 'adaptmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 4 0 (5 6 7 -8 9 10 11 12 13) () 0 () () () 0 0) -3 'sadapt' 'adaptmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 14 0 (15 16 -17 18 19 20 21 22) () 0 () () () 0 0) -5 'ndim' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -6 'mincls' '' '' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -7 'maxcls' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -8 'functn' '' '' 4 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY UNKNOWN -0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 23 0 (24 25) -() 8 () () () 0 0) -9 'absreq' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -10 'relreq' '' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -11 'absest' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -12 'finest' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -13 'inform' '' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -15 'n' '' '' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -16 'maxpts' '' '' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -17 'functn' '' '' 14 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY -UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 26 0 -(27 28) () 17 () () () 0 0) -18 'abseps' '' '' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -19 'releps' '' '' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -20 'error' '' '' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -21 'value' '' '' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -22 'inform' '' '' 14 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -24 'n' '' '' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -25 'z' '' '' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -27 'n' '' '' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -28 'z' '' '' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -) - -('adapt' 0 2 'sadapt' 0 3) diff --git a/pywafo/src/wafo/source/rind2007/c1c2mod.mod b/pywafo/src/wafo/source/rind2007/c1c2mod.mod deleted file mode 100644 index 3c3d338..0000000 --- a/pywafo/src/wafo/source/rind2007/c1c2mod.mod +++ /dev/null @@ -1,40 +0,0 @@ -GFORTRAN module version '10' created from rind71mod.f -MD5:29854c062906bbb41e95ea0739b932af -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () -() () () ()) - -() - -(('c1c2' 'c1c2mod' 2)) - -() - -() - -() - -(2 'c1c2' 'c1c2mod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC IMPLICIT_PURE ALWAYS_EXPLICIT) (UNKNOWN 0 -0 0 0 UNKNOWN ()) 3 0 (4 5 6 7 8 9) () 0 () () () 0 0) -10 'c1c2mod' 'c1c2mod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -4 'c1' '' '' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -5 'c2' '' '' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -6 'cm' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -7 'b1' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -8 'sq' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -9 'ind' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT -(INTEGER 4 0 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 deleted file mode 100644 index bd9f9e5..0000000 --- a/pywafo/src/wafo/source/rind2007/dkbvrcmod.mod +++ /dev/null @@ -1,46 +0,0 @@ -GFORTRAN module version '10' created from intmodule.f -MD5:5db9060e86b2574cd530f108139d8f83 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('dkbvrc' 'dkbvrcmod' 2)) - -() - -() - -() - -(2 'dkbvrc' 'dkbvrcmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 3 0 (4 5 6 -7 8 9 10 11 12) () 0 () () () 0 0) -4 'ndim' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -5 'minvls' '' '' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -6 'maxvls' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -7 'functn' '' '' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY UNKNOWN -0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 13 0 (14 15) -() 7 () () () 0 0) -8 'abseps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'releps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -10 'abserr' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -11 'finest' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -12 'inform' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -14 'n' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -15 'z' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -) - -('dkbvrc' 0 2) diff --git a/pywafo/src/wafo/source/rind2007/fimod.mod b/pywafo/src/wafo/source/rind2007/fimod.mod deleted file mode 100644 index 0646be5..0000000 --- a/pywafo/src/wafo/source/rind2007/fimod.mod +++ /dev/null @@ -1,217 +0,0 @@ -GFORTRAN module version '10' created from fimod.f -MD5:91d910b9ce2741a570f24f5bec6fdc83 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () -() () () ()) - -() - -(('bvnmvn' 'fimod' 2) ('bvtl' 'fimod' 3) ('bvu' 'fimod' 4) ('exinv' -'fimod' 5) ('exlms' 'fimod' 6) ('fi' 'fimod' 7) ('fiinv' 'fimod' 8) ( -'gausint' 'fimod' 9) ('gausint2' 'fimod' 10) ('mvnlimits' 'fimod' 11) ( -'mvnlms' 'fimod' 12) ('normprb' 'fimod' 13) ('studnt' 'fimod' 14) ('tvtl' -'fimod' 15)) - -() - -() - -() - -(2 'bvnmvn' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 16 -0 (17 18 19 20) () 21 () () () 0 0) -3 'bvtl' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 22 0 (23 24 25 26) -() 3 () () () 0 0) -4 'bvu' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN -0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 27 0 (28 29 30) () 31 () () -() 0 0) -5 'exinv' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 32 0 (33 34 35 36) -() 37 () () () 0 0) -6 'exlms' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 38 0 (39 40 -41 42 43 44 45 46) () 0 () () () 0 0) -7 'fi' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN -0 0 FUNCTION GENERIC IMPLICIT_PURE) (REAL 8 0 0 0 REAL ()) 47 0 (48) () -49 () () () 0 0) -8 'fiinv' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC IMPLICIT_PURE) (REAL 8 0 0 0 REAL ()) 50 0 -(51) () 52 () () () 0 0) -9 'gausint' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 53 0 (54 55 56 57 -58 59) () 60 () () () 0 0) -10 'gausint2' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 61 0 (62 63 64 65) -() 66 () () () 0 0) -11 'mvnlimits' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN -()) 67 0 (68 69 70 71 72 73) () 0 () () () 0 0) -12 'mvnlms' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 74 0 (75 76 -77 78 79) () 0 () () () 0 0) -13 'normprb' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC IMPLICIT_PURE ALWAYS_EXPLICIT) (UNKNOWN 0 -0 0 0 UNKNOWN ()) 80 0 (81 82 83) () 0 () () () 0 0) -14 'studnt' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC) (REAL 8 0 0 0 REAL ()) 84 0 (85 86) () 14 -() () () 0 0) -87 'tvnmvn' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 88 0 (89 90 -91 92 93) () 94 () () () 0 0) -15 'tvtl' 'fimod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 95 -0 (96 97 98 99) () 15 () () () 0 0) -17 'lower' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -18 'upper' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -19 'infin' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE -(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -20 'correl' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -21 'val' '' '' 16 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () -0 0) -23 'nu' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -24 'dh' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -25 'dk' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -26 'r' '' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -28 'sh' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -29 'sk' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -30 'r' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -31 'val' '' '' 27 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -33 'p' '' '' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -34 'a' '' '' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -35 'ca' '' '' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -36 'pa' '' '' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -37 'val' '' '' 32 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -39 'a' '' '' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -40 'x1' '' '' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -41 'x2' '' '' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -42 'infin' '' '' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -43 'lower' '' '' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -44 'upper' '' '' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -45 'ca' '' '' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -46 'pa' '' '' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -48 'z' '' '' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -49 'value' '' '' 47 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -51 'p' '' '' 50 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -52 'val' '' '' 50 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -54 'x1' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -55 'x2' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -56 'a' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -57 'b' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -58 'c' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -59 'd' '' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -60 'value' '' '' 53 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -62 'x1' '' '' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -63 'x2' '' '' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -64 'a' '' '' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -65 'b' '' '' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -66 'value' '' '' 61 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 RESULT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -68 'a' '' '' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -69 'b' '' '' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -70 'infin' '' '' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -71 'ap' '' '' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -72 'prb' '' '' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -73 'aq' '' '' 67 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -75 'a' '' '' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -76 'b' '' '' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -77 'infin' '' '' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -78 'lower' '' '' 74 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -79 'upper' '' '' 74 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -81 'z' '' '' 80 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -82 'p' '' '' 80 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -83 'q' '' '' 80 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -85 'nu' '' '' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -86 't' '' '' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -89 'a' '' '' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -90 'b' '' '' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -91 'infin' '' '' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE -(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -92 'r' '' '' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -93 'epsi' '' '' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -94 'val' '' '' 88 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () -0 0) -96 'nu1' '' '' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -97 'h' '' '' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -98 'r' '' '' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -99 'epsi' '' '' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -) - -('bvnmvn' 0 2 'bvtl' 0 3 'bvu' 0 4 'exinv' 0 5 'exlms' 0 6 'fi' 0 7 -'fiinv' 0 8 'gausint' 0 9 'gausint2' 0 10 'mvnlimits' 0 11 'mvnlms' 0 12 -'normprb' 0 13 'studnt' 0 14 'tvnmvn' 0 87 'tvtl' 0 15) diff --git a/pywafo/src/wafo/source/rind2007/funcmod.mod b/pywafo/src/wafo/source/rind2007/funcmod.mod deleted file mode 100644 index cae4078..0000000 --- a/pywafo/src/wafo/source/rind2007/funcmod.mod +++ /dev/null @@ -1,63 +0,0 @@ -GFORTRAN module version '10' created from rind71mod.f -MD5:6bcfb6bfc6e35ac2718a061882cb76df -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () -() () () ()) - -() - -(('mvnfun' 'funcmod' 2) ('mvnfun2' 'funcmod' 3)) - -() - -() - -() - -(4 'big' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () ( -2 0 DEFERRED () () () ()) 0 () () () 0 0) -5 'cm' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () ( -1 0 DEFERRED () ()) 0 () () () 0 0) -6 'cmn' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () ( -1 0 DEFERRED () ()) 0 () () () 0 0) -7 'funcmod' 'funcmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -2 'mvnfun' 'funcmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 8 0 -(9 10) () 11 () () () 0 0) -3 'mvnfun2' 'funcmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 12 -0 (13 14) () 15 () () () 0 0) -16 'pl1' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -17 'pu1' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -18 'xc' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () ( -1 0 DEFERRED () ()) 0 () () () 0 0) -19 'xd' 'funcmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () ( -1 0 DEFERRED () ()) 0 () () () 0 0) -9 'ndim' '' '' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -10 'w' '' '' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -11 'xind' '' '' 8 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () -0 0) -13 'ndim' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -14 'w' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -15 'xind' '' '' 12 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 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 -'pl1' 0 16 'pu1' 0 17 'xc' 0 18 'xd' 0 19) diff --git a/pywafo/src/wafo/source/rind2007/globalconst.mod b/pywafo/src/wafo/source/rind2007/globalconst.mod deleted file mode 100644 index a68b060..0000000 --- a/pywafo/src/wafo/source/rind2007/globalconst.mod +++ /dev/null @@ -1,66 +0,0 @@ -GFORTRAN module version '10' created from rindmod.f -MD5:f808c5946c0c41fb2c75e26aa349bbd9 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'ghalf' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.80000000000000@0') () 0 () () () 0 0) -3 'ginfinity' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.25000000000000@2') () 0 () () () 0 0) -4 'globalconst' 'globalconst' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 -0) -5 'gone' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.10000000000000@1') () 0 () () () 0 0) -6 'gpi' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.3243f6a8885a22@1') () 0 () () () 0 0) -7 'gpi1' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.517cc1b72721dc@0') () 0 () () () 0 0) -8 'gsqpi' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.1c5bf891b4ef7d@1') () 0 () () () 0 0) -9 'gsqpi1' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.906eba8214dc78@0') () 0 () () () 0 0) -10 'gsqtw' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.16a09e667f3be3@1') () 0 () () () 0 0) -11 'gsqtw1' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.b504f333f9df18@0') () 0 () () () 0 0) -12 'gsqtwpi' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.281b263fec4e08@1') () 0 () () () 0 0) -13 'gsqtwpi1' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.662114cf50d880@0') () 0 () () () 0 0) -14 'gtwo' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.20000000000000@1') () 0 () () () 0 0) -15 'gtwpi' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.6487ed5110b444@1') () 0 () () () 0 0) -16 'gzero' 'globalconst' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0) -) - -('ghalf' 0 2 'ginfinity' 0 3 'globalconst' 0 4 'gone' 0 5 'gpi' 0 6 'gpi1' -0 7 'gsqpi' 0 8 'gsqpi1' 0 9 'gsqtw' 0 10 'gsqtw1' 0 11 'gsqtwpi' 0 12 -'gsqtwpi1' 0 13 'gtwo' 0 14 'gtwpi' 0 15 'gzero' 0 16) diff --git a/pywafo/src/wafo/source/rind2007/globaldata.mod b/pywafo/src/wafo/source/rind2007/globaldata.mod deleted file mode 100644 index 9e9c34a..0000000 --- a/pywafo/src/wafo/source/rind2007/globaldata.mod +++ /dev/null @@ -1,169 +0,0 @@ -GFORTRAN module version '10' created from rind71mod.f -MD5:60dce69be122281d64fa324954fe4b9a -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 '__convert_r4_r8' '(intrinsic)' '' 1 ((PROCEDURE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION ELEMENTAL PURE) (REAL 8 0 0 0 -REAL ()) 0 0 () () 2 () () () 0 0) -3 'c1c2det' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () ( -CONSTANT (LOGICAL 4 0 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0) -4 'cepss' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -5 'cov' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () ( -1 0 DEFERRED () ()) 0 () () () 0 0) -6 'covix' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -7 'eps' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -8 'eps0' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -9 'eps2' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -10 'epss' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -11 'fxcepss' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -12 'globaldata' 'globaldata' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 -0) -13 'hlo' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) -0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0) -14 'hup' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) -0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0) -15 'index1' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 0 -INTEGER ()) 0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0) -16 'indxtd' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 0 -INTEGER ()) 0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0) -17 'mb' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -18 'nc' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -19 'nd' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -20 'ni' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -21 'nit' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -22 'nj' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -23 'njj' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -24 'nsimmax' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -25 'nsimmin' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -26 'nsxdj' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 0 -INTEGER ()) 0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0) -27 'nsxtmj' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 0 -INTEGER ()) 0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0) -28 'nt' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -29 'ntd' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -30 'ntdc' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -31 'ntscis' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -32 'nugget' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -33 'nx' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -34 'pi' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.3243f6a8885a22@1') () 0 () () () 0 0) -35 'pi1' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.517cc1b72721dc@0') () 0 () () () 0 0) -36 'plowgth' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0) -37 'releps' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -38 'scis' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -39 'sq' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ()) 0 0 () ( -2 0 DEFERRED () () () ()) 0 () () () 0 0) -40 'sqpi' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.1c5bf891b4ef7d@1') () 0 () () () 0 0) -41 'sqpi1' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.906eba8214dc78@0') () 0 () () () 0 0) -42 'sqtwo' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.16a09e667f3be3@1') () 0 () () () 0 0) -43 'sqtwo1' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.b504f333f9df18@0') () 0 () () () 0 0) -44 'sqtwopi1' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.662114cf50d880@0') () 0 () () () 0 0) -45 'twopi' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () (CONSTANT ( -REAL 8 0 0 0 REAL ()) 0 '0.6487ed5110b444@1') () 0 () () () 0 0) -46 'usec1c2' 'globaldata' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () ( -CONSTANT (LOGICAL 4 0 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0) -47 'xceps2' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -48 'xcscale' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -49 'xcutoff' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -50 'xedni' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 0 -INTEGER ()) 0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0) -51 'xsplt' 'globaldata' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -) - -('__convert_r4_r8' 0 2 'c1c2det' 0 3 'cepss' 0 4 'cov' 0 5 'covix' 0 6 -'eps' 0 7 'eps0' 0 8 'eps2' 0 9 'epss' 0 10 'fxcepss' 0 11 'globaldata' -0 12 'hlo' 0 13 'hup' 0 14 'index1' 0 15 'indxtd' 0 16 'mb' 0 17 'nc' 0 -18 'nd' 0 19 'ni' 0 20 'nit' 0 21 'nj' 0 22 'njj' 0 23 'nsimmax' 0 24 -'nsimmin' 0 25 'nsxdj' 0 26 'nsxtmj' 0 27 'nt' 0 28 'ntd' 0 29 'ntdc' 0 -30 'ntscis' 0 31 'nugget' 0 32 'nx' 0 33 'pi' 0 34 'pi1' 0 35 'plowgth' -0 36 'releps' 0 37 'scis' 0 38 'sq' 0 39 'sqpi' 0 40 'sqpi1' 0 41 'sqtwo' -0 42 'sqtwo1' 0 43 'sqtwopi1' 0 44 'twopi' 0 45 'usec1c2' 0 46 'xceps2' -0 47 'xcscale' 0 48 'xcutoff' 0 49 'xedni' 0 50 'xsplt' 0 51) diff --git a/pywafo/src/wafo/source/rind2007/jacobmod.mod b/pywafo/src/wafo/source/rind2007/jacobmod.mod deleted file mode 100644 index 7ef41be..0000000 --- a/pywafo/src/wafo/source/rind2007/jacobmod.mod +++ /dev/null @@ -1,31 +0,0 @@ -GFORTRAN module version '10' created from jacobmod.f -MD5:7a6067e5bb3ccfd4f42952ae9bfa1ad5 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('jacob' 'jacobmod' 2)) - -() - -() - -() - -(2 'jacob' 'jacobmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 FUNCTION GENERIC IMPLICIT_PURE ALWAYS_EXPLICIT) (REAL 8 0 0 -0 REAL ()) 3 0 (4 5) () 6 () () () 0 0) -4 'xd' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -5 'xc' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -6 'value1' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) (REAL 8 0 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 deleted file mode 100644 index fd1c40e..0000000 --- a/pywafo/src/wafo/source/rind2007/krbvrcmod.mod +++ /dev/null @@ -1,46 +0,0 @@ -GFORTRAN module version '10' created from intmodule.f -MD5:589ca1c63e3206ea8f2c160cd1272c74 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('krbvrc' 'krbvrcmod' 2)) - -() - -() - -() - -(2 'krbvrc' 'krbvrcmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 3 0 (4 5 6 -7 8 9 10 11 12) () 0 () () () 0 0) -4 'ndim' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -5 'minvls' '' '' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -6 'maxvls' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -7 'functn' '' '' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY UNKNOWN -0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 13 0 (14 15) -() 7 () () () 0 0) -8 'abseps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'releps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -10 'abserr' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -11 'finest' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -12 'inform' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -14 'n' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -15 'z' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -) - -('krbvrc' 0 2) diff --git a/pywafo/src/wafo/source/rind2007/krobovmod.mod b/pywafo/src/wafo/source/rind2007/krobovmod.mod deleted file mode 100644 index 8d58b44..0000000 --- a/pywafo/src/wafo/source/rind2007/krobovmod.mod +++ /dev/null @@ -1,46 +0,0 @@ -GFORTRAN module version '10' created from intmodule.f -MD5:26b7b13d2d0907b2794fa7eafca04d0f -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('krobov' 'krobovmod' 2)) - -() - -() - -() - -(2 'krobov' 'krobovmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 3 0 (4 5 6 -7 8 9 10 11 12) () 0 () () () 0 0) -4 'ndim' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -5 'minvls' '' '' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -6 'maxvls' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -7 'functn' '' '' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY UNKNOWN -0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 13 0 (14 15) -() 7 () () () 0 0) -8 'abseps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'releps' '' '' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -10 'abserr' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -11 'finest' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -12 'inform' '' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -14 'n' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -15 'z' '' '' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -) - -('krobov' 0 2) diff --git a/pywafo/src/wafo/source/rind2007/precisionmod.mod b/pywafo/src/wafo/source/rind2007/precisionmod.mod deleted file mode 100644 index bf83a2a..0000000 --- a/pywafo/src/wafo/source/rind2007/precisionmod.mod +++ /dev/null @@ -1,28 +0,0 @@ -GFORTRAN module version '10' created from intmodule.f -MD5:05080898712bd6dd12fae55e2dee5263 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'gp' 'precisionmod' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) -3 'precisionmod' 'precisionmod' '' 1 ((MODULE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () -0 () () () 0 0) -4 'selected_real_kind' '(intrinsic)' '' 1 ((PROCEDURE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION) (UNKNOWN 0 0 0 0 UNKNOWN ()) -0 0 () () 4 () () () 0 0) -) - -('gp' 0 2 'precisionmod' 0 3 'selected_real_kind' 0 4) diff --git a/pywafo/src/wafo/source/rind2007/quad.mod b/pywafo/src/wafo/source/rind2007/quad.mod deleted file mode 100644 index d4d13a2..0000000 --- a/pywafo/src/wafo/source/rind2007/quad.mod +++ /dev/null @@ -1,274 +0,0 @@ -GFORTRAN module version '10' created from rind71mod.f -MD5:1c9b25b1c3f920c049665fe552e92643 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () -() () () ()) - -() - -(('gausshe0' 'quad' 2) ('gaussla0' 'quad' 3) ('gaussle0' 'quad' 4) ( -'gaussle1' 'quad' 5) ('gaussle2' 'quad' 6) ('gaussq' 'quad' 7)) - -() - -() - -() - -(8 '__convert_r4_r8' '(intrinsic)' '' 1 ((PROCEDURE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 FUNCTION ELEMENTAL PURE) (REAL 8 0 0 0 -REAL ()) 0 0 () () 8 () () () 0 0) -2 'gausshe0' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN -()) 9 0 (10 11 12 13 14 15) () 0 () () () 0 0) -3 'gaussla0' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN -()) 16 0 (17 18 19 20 21 22) () 0 () () () 0 0) -4 'gaussle0' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN -()) 23 0 (24 25 26 27 28 29) () 0 () () () 0 0) -5 'gaussle1' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN -()) 30 0 (31 32 33 34 35) () 0 () () () 0 0) -6 'gaussle2' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC IMPLICIT_PURE ALWAYS_EXPLICIT) (UNKNOWN 0 -0 0 0 UNKNOWN ()) 36 0 (37 38 39 40 41 42) () 0 () () () 0 0) -7 'gaussq' 'quad' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN -()) 43 0 (44 45 46 47 48 49) () 0 () () () 0 0) -50 'hebp' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) -51 'heind' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY -(INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '0') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') ()) (( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 -0 0 INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '27') ()) ((CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '35') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '44') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '54') ()) ((CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '66') ()) ((CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '82') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '102') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '126') ())) ('14')) (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0) -52 'heqnr' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY -(INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '2') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') ()) (( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0 -0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') ()) ((CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '8') ()) ((CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') ()) -((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') ()) ((CONSTANT (INTEGER -4 0 0 0 INTEGER ()) 0 '16') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '20') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '24') ())) ('13')) -(1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '13')) 0 () () () 0 0) -53 'hewf' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) -54 'i' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -55 'labp0' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) -56 'labp5' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) -57 'laind' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY -(INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '0') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') ()) (( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 -0 0 INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '27') ()) ((CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '35') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '44') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '54') ()) ((CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '66') ()) ((CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '82') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '102') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '126') ())) ('14')) (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0) -58 'laqnr' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY -(INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '2') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') ()) (( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0 -0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') ()) ((CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '8') ()) ((CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') ()) -((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') ()) ((CONSTANT (INTEGER -4 0 0 0 INTEGER ()) 0 '16') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '20') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '24') ())) ('13')) -(1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '13')) 0 () () () 0 0) -59 'lawf0' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) -60 'lawf5' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) -61 'le2qnr' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -62 'lebp' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) -63 'leind' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY -(INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '0') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') ()) (( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 -0 0 INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '20') ()) ((CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '27') ()) ((CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '35') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '44') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '54') ()) ((CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '66') ()) ((CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '82') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '102') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '126') ())) ('14')) (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '14')) 0 () () () 0 0) -64 'leqnr' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (ARRAY -(INTEGER 4 0 0 0 INTEGER ()) 1 (((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '2') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') ()) (( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') ()) ((CONSTANT (INTEGER 4 0 -0 0 INTEGER ()) 0 '5') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') -()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') ()) ((CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '8') ()) ((CONSTANT (INTEGER 4 0 0 0 -INTEGER ()) 0 '9') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') ()) -((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') ()) ((CONSTANT (INTEGER -4 0 0 0 INTEGER ()) 0 '16') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) -0 '20') ()) ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '24') ())) ('13')) -(1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '13')) 0 () () () 0 0) -65 'lewf' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION DATA) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '126')) 0 () () () 0 0) -66 'minqnr' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -67 'nhew' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) -68 'nint1' 'quad' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 -EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '13')) 0 () () () 0 0) -69 'nlaw' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) -70 'nlew' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) -71 'pmax' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '24') () 0 () () () 0 0) -72 'quad' 'quad' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -73 'siznint' 'quad' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) -10 'n' '' '' 9 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -11 'wfout' '' '' 9 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -12 'bpout' '' '' 9 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -13 'xmi' '' '' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -14 'xma' '' '' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -15 'n0' '' '' 9 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -17 'n' '' '' 16 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -18 'wfout' '' '' 16 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -19 'bpout' '' '' 16 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -20 'xmi' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -21 'xma' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -22 'n0' '' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -24 'n' '' '' 23 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -25 'wfout' '' '' 23 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -26 'bpout' '' '' 23 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -27 'xmi' '' '' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -28 'xma' '' '' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -29 'n0' '' '' 23 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -31 'n' '' '' 30 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -32 'wfout' '' '' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -33 'bpout' '' '' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -34 'xmi' '' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -35 'xma' '' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -37 'n' '' '' 36 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -38 'wfout' '' '' 36 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -39 'bpout' '' '' 36 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -40 'xmi' '' '' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -41 'xma' '' '' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -42 'n0' '' '' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -44 'n' '' '' 43 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -45 'wf' '' '' 43 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -46 'bp' '' '' 43 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -47 'xmi' '' '' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -48 'xma' '' '' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -49 'n0' '' '' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -) - -('__convert_r4_r8' 0 8 'gausshe0' 0 2 'gaussla0' 0 3 'gaussle0' 0 4 -'gaussle1' 0 5 'gaussle2' 0 6 'gaussq' 0 7 'hebp' 0 50 'heind' 0 51 -'heqnr' 0 52 'hewf' 0 53 'i' 0 54 'labp0' 0 55 'labp5' 0 56 'laind' 0 57 -'laqnr' 0 58 'lawf0' 0 59 'lawf5' 0 60 'le2qnr' 0 61 'lebp' 0 62 'leind' -0 63 'leqnr' 0 64 'lewf' 0 65 'minqnr' 0 66 'nhew' 0 67 'nint1' 0 68 -'nlaw' 0 69 'nlew' 0 70 'pmax' 0 71 'quad' 0 72 'siznint' 0 73) diff --git a/pywafo/src/wafo/source/rind2007/rcrudemod.mod b/pywafo/src/wafo/source/rind2007/rcrudemod.mod deleted file mode 100644 index 33f3a72..0000000 --- a/pywafo/src/wafo/source/rind2007/rcrudemod.mod +++ /dev/null @@ -1,44 +0,0 @@ -GFORTRAN module version '10' created from intmodule.f -MD5:07b8298075e9a9f54709398e56efc6eb -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('ranmc' 'rcrudemod' 2)) - -() - -() - -() - -(2 'ranmc' 'rcrudemod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 3 0 (4 5 6 -7 8 9 10 11) () 0 () () () 0 0) -4 'n' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -5 'maxpts' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -6 'functn' '' '' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY UNKNOWN -0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 12 0 (13 14) -() 6 () () () 0 0) -7 'abseps' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -8 'releps' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -9 'error' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -10 'value' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -11 'inform' '' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -13 'n' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -14 'z' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -) - -('ranmc' 0 2) diff --git a/pywafo/src/wafo/source/rind2007/rind71mod.mod b/pywafo/src/wafo/source/rind2007/rind71mod.mod deleted file mode 100644 index 2181ff1..0000000 --- a/pywafo/src/wafo/source/rind2007/rind71mod.mod +++ /dev/null @@ -1,83 +0,0 @@ -GFORTRAN module version '10' created from rind71mod.f -MD5:08e55dca717f64ecaccc2cce27eb575a -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () -() () () ()) - -() - -(('echo' 'rind71mod' 2) ('initdata' 'rind71mod' 3) ('rind71' 'rind71mod' -4) ('setdata' 'rind71mod' 5)) - -() - -() - -() - -(2 'echo' 'rind71mod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN -()) 6 0 (7) () 0 () () () 0 0) -3 'initdata' 'rind71mod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 8 0 ( -9) () 0 () () () 0 0) -4 'rind71' 'rind71mod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN -()) 10 0 (11 12 13 14 15 16 17 18) () 0 () () () 0 0) -5 'setdata' 'rind71mod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 19 0 (20 21 -22 23 24 25 26 27 28) () 0 () () () 0 0) -7 'array' '' '' 6 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -0 0 DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -9 'speed' '' '' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -11 'fxind' '' '' 10 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -12 'big1' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -13 'ex' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -14 'xc1' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -15 'nt1' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -16 'indi' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE -(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -17 'blo' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -18 'bup' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -20 'method' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -21 'scale' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -22 'depss' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -23 'dreps' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -24 'deps2' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -25 'dnit' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -26 'dxc' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -27 'dnint' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -28 'dxsplt' '' '' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -) - -('echo' 0 2 'initdata' 0 3 'rind71' 0 4 'setdata' 0 5) diff --git a/pywafo/src/wafo/source/rind2007/rindmod.mod b/pywafo/src/wafo/source/rind2007/rindmod.mod deleted file mode 100644 index 1cc1f55..0000000 --- a/pywafo/src/wafo/source/rind2007/rindmod.mod +++ /dev/null @@ -1,114 +0,0 @@ -GFORTRAN module version '10' created from rindmod.f -MD5:65b72428787a61c0a824d8a584a49497 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () -() () () ()) - -() - -(('rindd' 'rindmod' 2) ('setconstants' 'rindmod' 3)) - -() - -() - -() - -(4 'mabseps' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -5 'mcoveps' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -6 'mmaxpts' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -7 'mmethod' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -8 'mminpts' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -9 'mnc1c2' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -10 'mnit' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -EXPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -11 'mreleps' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -12 'msmall' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -13 'mxcscale' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -14 'mxcutoff' 'rindmod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN EXPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -2 'rindd' 'rindmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 UNKNOWN -()) 15 0 (16 17 18 19 20 21 22 23 24 25 26) () 0 () () () 0 0) -3 'setconstants' 'rindmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 -UNKNOWN ()) 27 0 (28 29 30 31 32 33 34 35 36 37) () 0 () () () 0 0) -16 'vals' '' '' 15 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -17 'err' '' '' 15 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -18 'terr' '' '' 15 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -19 'big' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -20 'ex' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -21 'xc' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -22 'nt' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -23 'indi' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE -(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -24 'blo' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -25 'bup' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (2 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 -0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -26 'infin' '' '' 15 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE -(CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -28 'method' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -29 'xcscale' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -30 'abseps' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -31 'releps' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -32 'coveps' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -33 'maxpts' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -34 'minpts' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -35 'nit' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -36 'xcutoff' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -37 'nc1c2' '' '' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -OPTIONAL DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -) - -('mabseps' 0 4 'mcoveps' 0 5 'mmaxpts' 0 6 'mmethod' 0 7 'mminpts' 0 8 -'mnc1c2' 0 9 'mnit' 0 10 'mreleps' 0 11 'msmall' 0 12 'mxcscale' 0 13 -'mxcutoff' 0 14 'rindd' 0 2 'setconstants' 0 3) diff --git a/pywafo/src/wafo/source/rind2007/rindmod.pyd b/pywafo/src/wafo/source/rind2007/rindmod.pyd deleted file mode 100644 index e497cd4..0000000 Binary files a/pywafo/src/wafo/source/rind2007/rindmod.pyd and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/ssobolmod.mod b/pywafo/src/wafo/source/rind2007/ssobolmod.mod deleted file mode 100644 index 9b89ec6..0000000 --- a/pywafo/src/wafo/source/rind2007/ssobolmod.mod +++ /dev/null @@ -1,70 +0,0 @@ -GFORTRAN module version '10' created from intmodule.f -MD5:f5d30ff58e564e7648b2ba106d40bcd2 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () -() () () ()) - -() - -(('initsobol' 'ssobolmod' 2) ('sobnied' 'ssobolmod' 3) ('sobolseq' -'ssobolmod' 4)) - -() - -() - -() - -(2 'initsobol' 'ssobolmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 5 0 ( -6 7 8 9 10 11) () 0 () () () 0 0) -3 'sobnied' 'ssobolmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE GENERIC) (UNKNOWN 0 0 0 0 UNKNOWN ()) 12 0 (13 14 -15 16 17 18 19 20 21) () 0 () () () 0 0) -4 'sobolseq' 'ssobolmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC -DECL UNKNOWN 0 0 SUBROUTINE GENERIC ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 0 -UNKNOWN ()) 22 0 (23 24) () 0 () () () 0 0) -6 'inform' '' '' 5 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -7 'taus' '' '' 5 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -8 'ndim' '' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -9 'atmost' '' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -10 'numds' '' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -11 'iflag' '' '' 5 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -13 'ndim' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -14 'minvls' '' '' 12 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -15 'maxvls' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -16 'functn' '' '' 12 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY -UNKNOWN 0 0 DUMMY FUNCTION ALWAYS_EXPLICIT) (REAL 8 0 0 0 REAL ()) 25 0 -(26 27) () 16 () () () 0 0) -17 'abseps' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -18 'releps' '' '' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -19 'abserr' '' '' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -20 'finest' '' '' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -21 'inform' '' '' 12 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -23 'quasi' '' '' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DIMENSION DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE ( -CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -24 'inform' '' '' 22 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 -DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -26 'n' '' '' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -27 'z' '' '' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION -DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT ( -INTEGER 4 0 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) -) - -('initsobol' 0 2 'sobnied' 0 3 'sobolseq' 0 4) diff --git a/pywafo/src/wafo/source/rind2007/swapmod.mod b/pywafo/src/wafo/source/rind2007/swapmod.mod deleted file mode 100644 index fca05bb..0000000 --- a/pywafo/src/wafo/source/rind2007/swapmod.mod +++ /dev/null @@ -1,44 +0,0 @@ -GFORTRAN module version '10' created from swapmod.f -MD5:825f23b27481d78d127d3a2f61a750fa -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -(('swap' 'swapmod' 2 3 4)) - -() - -() - -() - -(2 'swap_c' 'swapmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 5 0 ( -6 7) () 0 () () () 0 0) -3 'swap_i' 'swapmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 8 0 ( -9 10) () 0 () () () 0 0) -4 'swap_r' 'swapmod' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 11 0 -(12 13) () 0 () () () 0 0) -14 'swapmod' 'swapmod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) -6 'a' '' '' 5 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -CHARACTER 1 0 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1'))) -0 0 () () 0 () () () 0 0) -7 'b' '' '' 5 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -CHARACTER 1 0 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1'))) -0 0 () () 0 () () () 0 0) -9 'a' '' '' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( -INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -10 'b' '' '' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) -12 'a' '' '' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -13 'b' '' '' 11 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) -(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0) -) - -('swap_c' 0 2 'swap_i' 0 3 'swap_r' 0 4 'swapmod' 0 14) diff --git a/pywafo/src/wafo/source/rind2007/test_fimod.exe b/pywafo/src/wafo/source/rind2007/test_fimod.exe deleted file mode 100644 index 65adab4..0000000 Binary files a/pywafo/src/wafo/source/rind2007/test_fimod.exe and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/test_rind71mod.exe b/pywafo/src/wafo/source/rind2007/test_rind71mod.exe deleted file mode 100644 index 6bac866..0000000 Binary files a/pywafo/src/wafo/source/rind2007/test_rind71mod.exe and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/test_rindmod.exe b/pywafo/src/wafo/source/rind2007/test_rindmod.exe deleted file mode 100644 index 4df9702..0000000 Binary files a/pywafo/src/wafo/source/rind2007/test_rindmod.exe and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/test_rindmod2007.exe b/pywafo/src/wafo/source/rind2007/test_rindmod2007.exe deleted file mode 100644 index 8fb3712..0000000 Binary files a/pywafo/src/wafo/source/rind2007/test_rindmod2007.exe and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/test_rindmod2007.opt b/pywafo/src/wafo/source/rind2007/test_rindmod2007.opt deleted file mode 100644 index e3e59f7..0000000 Binary files a/pywafo/src/wafo/source/rind2007/test_rindmod2007.opt and /dev/null differ diff --git a/pywafo/src/wafo/source/rind2007/test_rindmod2007.plg b/pywafo/src/wafo/source/rind2007/test_rindmod2007.plg deleted file mode 100644 index d4e54ce..0000000 --- a/pywafo/src/wafo/source/rind2007/test_rindmod2007.plg +++ /dev/null @@ -1,39 +0,0 @@ - - -
-
Build Log

-

---------------------Configuration: test_rindmod2007 - Win32 Debug--------------------
-

-
Command Lines

-Creating temporary file "C:\DOCUME~1\pab2\LOCALS~1\Temp\RSP391.tmp" with contents
-[
-/check:bounds /compile_only /debug:full /nologo /traceback /warn:argument_checking /warn:nofileopt /module:"Debug/" /object:"Debug/" /pdbfile:"Debug/DF60.PDB" 
-"C:\pab\workspace\PYWAFO\src\wafo\src\rind2007\split\fimod.f"
-"C:\pab\workspace\PYWAFO\src\wafo\src\rind2007\split\test_rindmod2007.f"
-]
-Creating temporary file "C:\DOCUME~1\pab2\LOCALS~1\Temp\RSP392.tmp" with contents
-[
-kernel32.lib /nologo /subsystem:console /incremental:yes /pdb:"Debug/test_rindmod2007.pdb" /debug /machine:I386 /out:"Debug/test_rindmod2007.exe" /pdbtype:sept 
-.\Debug\erfcoremod.obj
-.\Debug\fimod.obj
-.\Debug\intmodule.obj
-.\Debug\jacobmod.obj
-.\Debug\rindmod2007.obj
-.\Debug\swapmod.obj
-.\Debug\test_rindmod2007.obj
-]
-Creating command line "link.exe @C:\DOCUME~1\pab2\LOCALS~1\Temp\RSP392.tmp"
-
Output Window

-Compiling Fortran...
-C:\pab\workspace\PYWAFO\src\wafo\src\rind2007\split\fimod.f
-C:\pab\workspace\PYWAFO\src\wafo\src\rind2007\split\test_rindmod2007.f
-Linking...
-
-
-
-
Results

-test_rindmod2007.exe - 0 error(s), 0 warning(s)
-
- - diff --git a/pywafo/src/wafo/source/rind2007/trivariatevar.mod b/pywafo/src/wafo/source/rind2007/trivariatevar.mod deleted file mode 100644 index 76d4bb3..0000000 --- a/pywafo/src/wafo/source/rind2007/trivariatevar.mod +++ /dev/null @@ -1,50 +0,0 @@ -GFORTRAN module version '10' created from fimod.f -MD5:2d0305398ff580834095df763e4a2991 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -() - -(2 'ar' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -3 'h1' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -4 'h2' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -5 'h3' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -6 'nu' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () -() 0 0) -7 'r23' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -8 'rua' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -9 'rub' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -10 'ruc' 'trivariatevar' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 -0) -11 'trivariatevar' 'trivariatevar' '' 1 ((MODULE UNKNOWN-INTENT -UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () -0 () () () 0 0) -) - -('ar' 0 2 'h1' 0 3 'h2' 0 4 'h3' 0 5 'nu' 0 6 'r23' 0 7 'rua' 0 8 'rub' -0 9 'ruc' 0 10 'trivariatevar' 0 11) diff --git a/pywafo/src/wafo/source/test_f90/hello.mod b/pywafo/src/wafo/source/test_f90/hello.mod deleted file mode 100644 index df2c0fe..0000000 --- a/pywafo/src/wafo/source/test_f90/hello.mod +++ /dev/null @@ -1,41 +0,0 @@ -GFORTRAN module created from hello.f90 on Wed Jul 15 21:22:12 2009 -MD5:e42897d3921cc8627fe4ea5bfb648729 -- If you edit this, you'll get what you deserve. - - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -(2 'foo' 'hello' 'foo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL -UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4) () 0 () () 0 0) -5 'hello' 'hello' 'hello' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () 0 0) -6 'intdim' 'types' 'intdim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () 0 0) -7 'selected_int_kind' '(intrinsic)' 'selected_int_kind' 1 ((PROCEDURE -UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION) (REAL 4 0 0 REAL ()) -0 0 () () 7 () () 0 0) -8 'to_intdim' 'types' 'to_intdim' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN FUNCTION) (INTEGER 4 0 0 INTEGER ()) 9 0 (10) () -8 () () 0 0) -11 'types' 'types' 'types' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () 0 0) -12 'wp' 'types' 'wp' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 -0 INTEGER ()) 0 '4') () 0 () () 0 0) -4 'a' '' 'a' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN -DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -10 'int_value' '' 'int_value' 9 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -) - -('foo' 0 2 'hello' 0 5 'intdim' 0 6 'selected_int_kind' 0 7 'to_intdim' -0 8 'types' 0 11 'wp' 0 12) diff --git a/pywafo/src/wafo/source/test_f90/hello.pyd b/pywafo/src/wafo/source/test_f90/hello.pyd deleted file mode 100644 index 0cd5db6..0000000 Binary files a/pywafo/src/wafo/source/test_f90/hello.pyd and /dev/null differ diff --git a/pywafo/src/wafo/source/test_f90/mymod.pyd b/pywafo/src/wafo/source/test_f90/mymod.pyd deleted file mode 100644 index 99d5811..0000000 Binary files a/pywafo/src/wafo/source/test_f90/mymod.pyd and /dev/null differ diff --git a/pywafo/src/wafo/source/test_f90/types.mod b/pywafo/src/wafo/source/test_f90/types.mod deleted file mode 100644 index 54d66ad..0000000 --- a/pywafo/src/wafo/source/test_f90/types.mod +++ /dev/null @@ -1,34 +0,0 @@ -GFORTRAN module created from types.f90 on Wed Jul 15 21:21:44 2009 -MD5:e10521533cef217cbd18f79ca3dd5909 -- If you edit this, you'll get what you deserve. - -(() () () () () () () () () () () () () () () () () () () () () () () () -() () ()) - -() - -() - -() - -() - -(2 'intdim' 'types' 'intdim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT ( -INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () 0 0) -3 'selected_int_kind' '(intrinsic)' 'selected_int_kind' 1 ((PROCEDURE -UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION) (REAL 4 0 0 REAL ()) -0 0 () () 3 () () 0 0) -4 'to_intdim' 'types' 'to_intdim' 1 ((PROCEDURE UNKNOWN-INTENT -MODULE-PROC DECL UNKNOWN FUNCTION) (INTEGER 4 0 0 INTEGER ()) 5 0 (6) () -4 () () 0 0) -7 'types' 'types' 'types' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () 0 0) -8 'wp' 'types' 'wp' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN -IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 -0 INTEGER ()) 0 '4') () 0 () () 0 0) -6 'int_value' '' 'int_value' 5 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC -UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () 0 0) -) - -('intdim' 0 2 'selected_int_kind' 0 3 'to_intdim' 0 4 'types' 0 7 'wp' 0 -8) diff --git a/pywafo/src/wafo/transform/models.~py b/pywafo/src/wafo/transform/models.~py deleted file mode 100644 index 1945ba1..0000000 --- a/pywafo/src/wafo/transform/models.~py +++ /dev/null @@ -1,557 +0,0 @@ -#------------------------------------------------------------------------------- -# Name: transform.models -# Purpose: -# -# Author: pab -# -# Created: 24.11.2008 -# Copyright: (c) pab 2008 -# Licence: -#------------------------------------------------------------------------------- -#!/usr/bin/env python - -from scipy.optimize import brentq -from scipy.integrate import trapz -from numpy import (sqrt, atleast_1d, abs, imag, sign, where, cos, arccos, ceil, - expm1,log1p) -import numpy as np -import warnings - -__all__=['TrHermite','TrOchi'] -class TrCommon(object): - """ - transformation model, g, from the moments of the process. - - Information about the moments of the process can be obtained by site - specific data, laboratory measurements or by resort to theoretical models. - - Assumption - ---------- - The Gaussian process, Y, distributed N(0,1) is related to the - non-Gaussian process, X, by Y = g(X). - - Methods - ------- - dist2gauss : int (g(x)-xn)^2 dx where int. limits is given by X. This - is a measure of departure from the Gaussian model. - dat2gauss : transform non-linear data to Gaussian scale - gauss2dat : transform Gaussian data to non-linear scale - - Member variables - ---------------- - mean, sigma, skew, kurt : real, scalar - mean, standard-deviation, skewness and kurtosis, respectively, of the - non-Gaussian process. Default mean=0, sigma=1, skew=0.16, kurt=3.04. - skew=kurt-3=0 for a Gaussian process. - """ - def __init__(self,mean=0.0,var=1.0,skew=0.16,kurt=3.04,sigma=None,*args,**kwds): - if sigma is None: - sigma = sqrt(var) - self.mean = mean - self.sigma = sigma - self.skew = skew - self.kurt = kurt - - def __call__(self,x): - return self._dat2gauss(x) - - def dist2gauss(self,x=None,xnmin=-5,xnmax=5,n=513): - """ Return a measure of departure from the Gaussian model. - - Parameters - ---------- - x : vector (default sigma*linspace(xnmin,xnmax,n)+mean) - xnmin : real, scalar - minimum on normalized scale - xnmax : real, scalar - maximum on normalized scale - n : integer, scalar - number of evaluation points - - - Returns - ------- - t0 = real, scalar - a measure of departure from the Gaussian model calculated as - trapz(xn,(xn-g(x))**2.) where int. limits is given by X. - """ - if x is None: - xn = np.linspace(xnmin,xnmax,n) - x = self.sigma*xn+self.mean - else: - xn = (x-self.mean)/self.sigma - - g = self._dat2gauss(x) - t0 = trapz(xn,(xn-g)**2.) - return t0 - - def gauss2dat(self,y): - """ Transforms Gaussian data, y, to non-linear scale. - - Parameters - ---------- - y : array-like - input vector with Gaussian data values. - - Returns - ------- - x : array-like - transformed data to a non-linear scale - - - See also - -------- - dat2gauss - tranproc. - """ - return self._gauss2dat(y) - def dat2gauss(self,x): - """ Transforms non-linear data, x, to Gaussian scale. - - Parameters - ---------- - x : array-like - input vector with non-linear data values. - - Returns - ------- - y : array-like - transformed data to a Gaussian scale - - See also - -------- - gauss2dat - tranproc. - """ - return self._dat2gauss(x) - -class TrHermite(TrCommon): - __doc__ = TrCommon.__doc__.replace('','Hermite') + """ - pardef : scalar, integer - 1 Winterstein et. al. (1994) parametrization [1]_ (default) - 2 Winterstein (1988) parametrization [2]_ - - Description - ----------- - The hermite transformation model is monotonic cubic polynomial, calibrated - such that the first 4 moments of the transformed model G(y)=g^-1(y) match - the moments of the true process. The model is given as: - - g(x) = xn - c3(xn**2-1) - c4*(xn**3-3*xn) - - for kurt<3 (hardening model) where - xn = (x-mean)/sigma - c3 = skew/6 - c4 = (kurt-3)/24. - - or - G(y) = mean + K*sigma*[ y + c3(y**2-1) + c4*(y**3-3*y) ] - - for kurt>=3 (softening model) where - y = g(x) = G**-1(x) - K = 1/sqrt(1+2*c3^2+6*c4^2) - If pardef = 1 : - c3 = skew/6*(1-0.015*abs(skew)+0.3*skew^2)/(1+0.2*(kurt-3)) - c4 = 0.1*((1+1.25*(kurt-3))^(1/3)-1)*c41 - c41 = (1-1.43*skew^2/(kurt-3))^(1-0.1*(kurt)^0.8) - If pardef = 2 : - c3 = skew/(6*(1+6*c4)) - c4 = [sqrt(1+1.5*(kurt-3))-1]/18 - - - Example: - -------- - # Simulate a Transformed Gaussian process: - Hm0=7;Tp=11; - S = jonswap([],[Hm0 Tp]); - g=hermitetr*Hm0/4; - ys = spec2sdat(S,15000); % Simulated in the Gaussian world - xs = gaus2dat(ys,g); % Transformed to the real world - - See also spec2skew, ochitr, lc2tr, dat2tr - - References - ---------- - .. [1] Winterstein, S.R, Ude, T.C. and Kleiven, G. (1994) - "Springing and slow drift responses: - predicted extremes and fatigue vs. simulation" - In Proc. 7th International behaviour of Offshore structures, (BOSS) - Vol. 3, pp.1-15 - .. [2] Winterstein, S.R. (1988) - 'Nonlinear vibration models for extremes and fatigue.' - J. Engng. Mech., ASCE, Vol 114, No 10, pp 1772-1790 - """ - def __init__(self,mean=0.0,var=1.0,skew=0.16,kurt=3.04,sigma=None,pardef=0): - if sigma==None: - sigma = sqrt(var) - self.sigma = sigma - self.skew = skew - self.kurt = kurt - self.mean = mean - self.pardef = pardef - self._c3 = None - self._c4 = None - self._forward = None - self._backward = None - self._x_limit = None - self.set_poly() - - def _poly_par_from_stats(self): - skew = self.skew - ga2 = self.kurt-3.0 - if ga2<=0: - self._c4 = ga2/24. - self._c3 = skew/6. - elif self.pardef==2: - #% Winterstein 1988 parametrization - if skew**2>8*(ga2+3.)/9.: - warnings.warn('Kurtosis too low compared to the skewness') - - self._c4 = (sqrt(1.+1.5*ga2)-1.)/18.; - self._c3 = skew/(6.*(1+6.*c4)) - else: - # Winterstein et. al. 1994 parametrization intended to - # apply for the range: 0 <= ga2 < 12 and 0<= skew^2 < 2*ga2/3 - if skew**2>2*(ga2)/3: - warnings.warn('Kurtosis too low compared to the skewness') - - if (ga2 < 0) or (12 < ga2): - warnings.warn('Kurtosis must be between 0 and 12') - - self._c3 = skew/6*(1-0.015*abs(skew)+0.3*skew**2)/(1+0.2*ga2); - if ga2==0.: - self._c4=0.0; - else: - c41= (1.-1.43*skew**2./ga2)**(1.-0.1*(ga2+3.)**0.8); - self._c4 = 0.1*((1.+1.25*ga2)**(1./3.)-1.)*c41; - - if not np.isfinite(self._c3) or not np.isfinite(self._c4): - raise ValueError('Unable to calculate the polynomial') - def set_poly(self): - - if self._c3 is None: - self._poly_par_from_stats() - eps = np.finfo(float).eps - c3 = self._c3 - c4 = self._c4 - ma = self.mean - sa = self.sigma - if abs(c4)0: - # Compute where it is possible to invert the polynomial - if self.kurt<3.: - self._x_limit = r; - else: - self._x_limit = sa*p(r)+ma - - txt1 = 'The polynomial is not a strictly increasing function.'; - txt2 = 'The derivative of g(x) is infinite at x = %g' % self._x_limit - warnings.warn('%s \n %s ' % (txt1,txt2)) - return - def check_forward(self,x): - if not (self._x_limit is None): - x00 = self._x_limit - txt2 = 'for the given interval x = [%g, %g]' % (x[0],x[-1]) - - if any(np.logical_and(x[0]<= x00, x00 <= x[-1])): - cdef = 1; - else: - cdef = sum( np.logical_xor(x00 <= x[0] , x00 <= x[-1])); - - if np.mod(cdef,2): - errtxt = 'Unable to invert the polynomial \n %s' % txt2 - raise ValueError(errtxt) - np.disp('However, successfully inverted the polynomial\n %s' % txt2) - - - def _dat2gauss(self,x): - x = np.atleast_1d(x) - self.check_forward(x) - - xn = (x-self.mean)/self.sigma - - if self._forward is None: - #% Inverting the polynomial - #%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - return self._poly_inv(self._backward,xn) - else: - return self._forward(xn) - - def _gauss2dat(self,y): - y = np.atleast_1d(y) - #self.check_forward(y) - - if self._backward is None: - #% Inverting the polynomial - #%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - xn = self._poly_inv(self._forward,y) - else: - xn = self._backward(y) - return self.sigma*xn + self.mean - def _poly_inv(self,p,xn): - - if p.order<2: - return xn - elif p.order==2: - # Quadratic: Solve a*u**2+b*u+c = xn - coefs = p.coeffs - a = coefs[0] - b = coefs[1] - c = coefs[2]-xn - t = 0.5*(b+sign(b)*sqrt(b**2-4*a*c)) - #so1 = t/a # largest solution - so2 = -c/t # smallest solution - return so2 - elif p.order==3: - # Solve - # K*(c4*u^3+c3*u^2+(1-3*c4)*u-c3) = xn = (x-ma)/sa - # -c4*xn^3-c3*xn^2+(1+3*c4)*xn+c3 = u - coefs = p.coeffs[1::]/p.coeffs[0] - a = coefs[0] - b = coefs[1] - c = coefs[2]-xn/p.coeffs[0] - - x0 = a/3. - #% substitue xn = z-x0 and divide by c4 => z^3 + 3*p1*z+2*q0 = 0 - p1 = b/3-x0**2 - #p1 = (b-a**2/3)/3 - - - #q0 = (c + x0*(2.*x0/3.-b))/2. - #q0 = x0**3 -a*b/6 +c/2 - q0 = x0*(x0**2-b/2)+c/2 -## # z^3+3*p1*z+2*q0=0 - -## c3 = self._c3 -## c4 = self._c4 -## b1 = 1./(3.*c4); -## #x0 = c3*b1 ; -## #% substitue u = z-x0 and divide by c4 => z^3 + 3*c*z+2*q0 = 0 -## #p1 = b1-1.-x0**2. -## Km1 = np.sqrt(1.+2.*c3**2+6*c4**2); -## q0 = x0**3-1.5*b1*(x0+xn*Km1) - #q0 = x0**3-1.5*b1*(x0+xn) - if not (self._x_limit is None): # % Three real roots - d = sqrt(-p1); - theta1 = arccos(-q0/d**3)/3; - th2 = np.r_[0, -2*pi/3, 2*pi/3]; - x1 = abs(2*d*cos(theta1[ceil(len(xn)/2)] + th2)-x0); - ix = x1.argmin() #; % choose the smallest solution - return 2.*d*cos(theta1 + th2[ix])-x0 - else: # %Only one real root exist - q1 = sqrt((q0)**2+p1**3); - #% Find the real root of the monic polynomial - A0 = (q1-q0)**(1./3.); - B0 = -(q1+q0)**(1./3.); - return A0+B0-x0; #% real root - #%% The other complex roots are given by - #%x= -(A0+B0)/2+(A0-B0)*sqrt(3)/2-x0; - #%x=-(A0+B0)/2+(A0-B0)*sqrt(-3)/2-x0; - - -class TrOchi(TrCommon): - __doc__ = TrCommon.__doc__.replace('','Ochi') + """ - - Description - ----------- - The Ochi transformation model is a monotonic exponential function, - calibrated such that the first 3 moments of the transformed model - G(y)=g^-1(y) match the moments of the true process. However, the - skewness is limited by ABS(SKEW)<2.82. According to Ochi it is - appropriate for a process with very strong non-linear characteristics. - The model is given as: - g(x) = ((1-exp(-gamma*(x-mean)/sigma))/gamma-mean2)/sigma2 - where - gamma = 1.28*a for x>=mean - 3*a otherwise - mean, - sigma = standard deviation and mean, respectively, of the process. - mean2, - sigma2 = normalizing parameters in the transformed world, i.e., to - make the gaussian process in the transformed world is N(0,1). - - The unknown parameters a, mean2 and sigma2 are found by solving the - following non-linear equations: - - a*(sigma2^2+mean2^2)+mean2 = 0 - sigma2^2-2*a^2*sigma2^4 = 1 - 2*a*sigma2^4*(3-8*a^2*sigma2^2) = skew - - Note - ---- - Transformation, g, does not have continous derivatives of 2'nd order or higher. - - Example - ------- - #Simulate a Transformed Gaussian process: - Hm0=7;Tp=11; - S = jonswap([],[Hm0 Tp]); [sk ku ma]=spec2skew(S); - g = ochitr([],[Hm0/4,sk,ma]); g2=[g(:,1), g(:,2)*Hm0/4]; - ys = spec2sdat(S,15000); % Simulated in the Gaussian world - xs = gaus2dat(ys,g2); % Transformed to the real world - - See also - -------- - spec2skew, hermitetr, lc2tr, dat2tr - - References - ---------- - Ochi, M.K. and Ahn, K. (1994) - 'Non-Gaussian probability distribution of coastal waves.' - In Proc. 24th Conf. Coastal Engng, Vol. 1, pp 482-496 - - Michel K. Ochi (1998), - "OCEAN WAVES, The stochastic approach", - OCEAN TECHNOLOGY series 6, Cambridge, pp 255-275. - """ - - def __init__(self,mean=0.0,var=1.0,skew=0.16,sigma=None): - if sigma is None: - sigma = sqrt(var) - self.mean = mean - self.sigma = sigma - self.skew = skew - self.phat = None - if abs(self.skew)>2.82842712474619: - raise ValueError('Skewness must be less than 2.82842') - - - def _par_from_stats(self): - skew = self.skew - ma = self.mean - sig1 = self.sigma - - if skew==0: - self.phat = [0, 0, sig1, ma,1, 0]; - return - - #% Solve the equations to obtain the gamma parameters: - #%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - #% a*(sig2^2+ma2^2)+ma2 = 0 - #% sig2^2-2*a^2*sig2^4 = E(y^2) % =1 - #% 2*a*sig2^4*(3-8*a^2*sig2^2) = E(y^3) % = skew - - #% Let x = [a sig2^2 ] - #% Set up the 2D non-linear equations for a and sig2^2: - #g1='[x(2)-2.*x(1).^2.*x(2).^2-P1, 2.*x(1).*x(2).^2.*(3-8.*x(1).^2.*x(2))-P2 ]'; - #% Or solve the following 1D non-linear equation for sig2^2: - g2 = lambda x: -sqrt(abs(x-1)*2)*(3.*x-4*abs(x-1))+abs(skew) - - - a1 = 1. #; % Start interval where sig2^2 is located. - a2 = 2. - - sig22 = brentq(g2,a1,a2) #% smallest solution for sig22 - a = sign(skew)*sqrt(abs(sig22-1)/2/sig22**2); - - sig2 = sqrt(sig22); - - #% Solve the following 2nd order equation to obtain ma2 - #% a*(sig2^2+ma2^2)+ma2 = 0 - my2 = (-1.-sqrt(1.-4.*a**2*sig22))/a; #% Largest mean - ma2 = a*sig22/my2 ; #% choose the smallest mean - - gam_a = 1.28*a - gam_b = 3*a - # this is valid for processes with very strong - # nonlinear characteristics - self.phat = [gam_a, gam_b, sig1, ma, sig2, ma2]; - - return - - - - def _dat2gauss(self,x): - - if self.phat is None: - self._par_from_stats() - - ga =self.phat[0]; - gb = self.phat[1] - sigma = self.phat[2] - ma = self.phat[3] - sigma2 = self.phat[4] - ma2 = self.phat[5] - - - - - igp,=where(ma<=x); - igm,=where(x