cleaning up, remove binaries and compiled modules
davidovitch
9 years ago
parent
b232657fe2
commit
2145d0f90c
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -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()
|
|
||||||
@ -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
|
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
Binary file not shown.
@ -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/
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
Binary file not shown.
@ -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)
|
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
Binary file not shown.
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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/
|
|
||||||
Binary file not shown.
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
Binary file not shown.
Binary file not shown.
@ -1,26 +0,0 @@
|
|||||||
<html>
|
|
||||||
<body>
|
|
||||||
<pre>
|
|
||||||
<h1>Build Log</h1>
|
|
||||||
<h3>
|
|
||||||
--------------------Configuration: test_mvnprodcorrprb - Win32 Debug--------------------
|
|
||||||
</h3>
|
|
||||||
<h3>Command Lines</h3>
|
|
||||||
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 "
|
|
||||||
<h3>Output Window</h3>
|
|
||||||
Compiling Fortran...
|
|
||||||
C:\pab\workspace\PYWAFO\src\wafo\src\mvnprodcorrprb\test_mvnprodcorrprb.f
|
|
||||||
Linking...
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<h3>Results</h3>
|
|
||||||
test_mvnprodcorrprb.exe - 0 error(s), 0 warning(s)
|
|
||||||
</pre>
|
|
||||||
</body>
|
|
||||||
</html>
|
|
||||||
@ -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)
|
|
||||||
Binary file not shown.
Binary file not shown.
@ -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)
|
|
||||||
Binary file not shown.
@ -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/
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -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
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
@ -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)
|
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue