lxsd / fvn

Download as
Browse Code ยป

Commit 410c0dfaf8eea8efccb308511ddfb16021214225

Authored by daniau
1 parent b930260397
Exists in master and in 3 other branches geevx, geevx_2020, multi

git-svn-id: https://lxsd.femto-st.fr/svn/fvn@44 b657c933-2333-4658-acf2-d3c7c2708721

Showing 3 changed files with 4 additions and 81 deletions Inline Diff

1 1
include $(BTREE)/Make.inc 2 2 include $(BTREE)/Make.inc
3 3
objects = acosh.o aide.o aid.o aie.o \ 4 4 objects = acosh.o aide.o aid.o aie.o \
ai.o albeta.o algams.o ali.o \ 5 5 ai.o albeta.o algams.o ali.o \
alngam.o alnrel.o asinh.o atanh.o \ 6 6 alngam.o alnrel.o asinh.o atanh.o \
besi0e.o besi0.o besi1e.o besi1.o \ 7 7 besi0e.o besi0.o besi1e.o besi1.o \
besj0.o besj1.o besk0e.o besk0.o \ 8 8 besj0.o besj1.o besk0e.o besk0.o \
besk1e.o besk1.o beskes.o besks.o \ 9 9 besk1e.o besk1.o beskes.o besks.o \
besy0.o besy1.o betai.o beta.o \ 10 10 besy0.o besy1.o betai.o beta.o \
bide.o bid.o bie.o binom.o \ 11 11 bide.o bid.o bie.o binom.o \
bi.o c0lgmc.o c8lgmc.o c9lgmc.o \ 12 12 bi.o c0lgmc.o c8lgmc.o c9lgmc.o \
c9ln2r.o cacosh.o cacos.o carg.o \ 13 13 c9ln2r.o cacosh.o cacos.o carg.o \
casinh.o casin.o catan2.o catanh.o \ 14 14 casinh.o casin.o catan2.o catanh.o \
catan.o cbeta.o cbrt.o ccbrt.o \ 15 15 catan.o cbeta.o cbrt.o ccbrt.o \
ccosh.o ccot.o cexprl.o cgamma.o \ 16 16 ccosh.o ccot.o cexprl.o cgamma.o \
cgamr.o chi.o chu.o cinh.o \ 17 17 cgamr.o chi.o chu.o cinh.o \
cin.o ci.o clbeta.o clngam.o \ 18 18 cin.o ci.o clbeta.o clngam.o \
clnrel.o clog10.o comp1.o comp2.o \ 19 19 clnrel.o clog10.o comp1.o comp2.o \
comp3.o cosdg.o cot.o cpsi.o \ 20 20 comp3.o cosdg.o cot.o cpsi.o \
csevl.o csinh.o ctanh.o ctan.o \ 21 21 csevl.o csinh.o ctanh.o ctan.o \
d9admp.o d9aimp.o d9atn1.o \ 22 22 d9admp.o d9aimp.o d9atn1.o \
d9b0mp.o d9b1mp.o d9chm.o d9chu.o \ 23 23 d9b0mp.o d9b1mp.o d9chm.o d9chu.o \
d9gaml.o d9gmic.o d9gmit.o d9knus.o \ 24 24 d9gaml.o d9gmic.o d9gmit.o d9knus.o \
d9lgic.o d9lgit.o d9lgmc.o d9ln2r.o \ 25 25 d9lgic.o d9lgit.o d9lgmc.o d9ln2r.o \
d9pak.o d9sifg.o d9upak.o dacosh.o \ 26 26 d9pak.o d9sifg.o d9upak.o dacosh.o \
daide.o daid.o daie.o dai.o \ 27 27 daide.o daid.o daie.o dai.o \
dasinh.o datanh.o daws.o dbesi0.o \ 28 28 dasinh.o datanh.o daws.o dbesi0.o \
dbesi1.o dbesj0.o dbesj1.o dbesk0.o \ 29 29 dbesi1.o dbesj0.o dbesj1.o dbesk0.o \
dbesk1.o dbesks.o dbesy0.o dbesy1.o \ 30 30 dbesk1.o dbesks.o dbesy0.o dbesy1.o \
dbetai.o dbeta.o dbide.o dbid.o \ 31 31 dbetai.o dbeta.o dbide.o dbid.o \
dbie.o dbinom.o dbi.o dbsi0e.o \ 32 32 dbie.o dbinom.o dbi.o dbsi0e.o \
dbsi1e.o dbsk0e.o dbsk1e.o dbskes.o \ 33 33 dbsi1e.o dbsk0e.o dbsk1e.o dbskes.o \
dcbrt.o dchi.o dchu.o dcinh.o \ 34 34 dcbrt.o dchi.o dchu.o dcinh.o \
dcin.o dci.o dcosdg.o dcot.o \ 35 35 dcin.o dci.o dcosdg.o dcot.o \
dcsevl.o ddaws.o de1.o dei.o \ 36 36 dcsevl.o ddaws.o de1.o dei.o \
derfc.o derf.o dexprl.o dfac.o \ 37 37 derfc.o derf.o dexprl.o dfac.o \
dgamic.o dgami.o dgamit.o dgamma.o \ 38 38 dgamic.o dgami.o dgamit.o dgamma.o \
dgamr.o dlbeta.o dlgams.o dli.o \ 39 39 dgamr.o dlbeta.o dlgams.o dli.o \
dlngam.o dlnrel.o dpoch1.o dpoch.o \ 40 40 dlngam.o dlnrel.o dpoch1.o dpoch.o \
dpsi.o dshi.o dsindg.o dsi.o \ 41 41 dpsi.o dshi.o dsindg.o dsi.o \
dspenc.o e1.o e9rint.o ei.o \ 42 42 dspenc.o e1.o e9rint.o ei.o \
entsrc.o eprint.o erfc.o erf.o \ 43 43 entsrc.o eprint.o erfc.o erf.o \
erroff.o exprel.o fac.o fdump.o \ 44 44 erroff.o exprel.o fac.o fdump.o \
fvn_fnlib.o gamic.o gami.o gamit.o \ 45 45 fvn_fnlib.o gamic.o gami.o gamit.o \
gamma.o gamr.o i1mach.o i8save.o \ 46 46 gamma.o gamr.o i1mach.o i8save.o \
initds.o inits.o nerror.o poch1.o \ 47 47 initds.o inits.o nerror.o poch1.o \
poch.o psi.o r1mach.o r9admp.o \ 48 48 poch.o psi.o r9admp.o \
r9aimp.o r9atn1.o r9chm.o r9chu.o \ 49 49 r9aimp.o r9atn1.o r9chm.o r9chu.o \
r9gaml.o r9gmic.o r9gmit.o r9knus.o \ 50 50 r9gaml.o r9gmic.o r9gmit.o r9knus.o \
r9lgic.o r9lgit.o r9lgmc.o r9ln2r.o \ 51 51 r9lgic.o r9lgit.o r9lgmc.o r9ln2r.o \
r9pak.o r9sifg.o r9upak.o randgs.o \ 52 52 r9pak.o r9sifg.o r9upak.o randgs.o \
rand.o random.o ranf.o retsrc.o \ 53 53 rand.o random.o ranf.o retsrc.o \
s88fmt.o s9comp.o seterr.o seteru.o \ 54 54 s88fmt.o s9comp.o seterr.o seteru.o \
shi.o sindg.o si.o spenc.o \ 55 55 shi.o sindg.o si.o spenc.o \
z0lgmc.o z8lgmc.o z9lgmc.o z9ln2r.o \ 56 56 z0lgmc.o z8lgmc.o z9lgmc.o z9ln2r.o \
zacosh.o zacos.o zarg.o zasinh.o \ 57 57 zacosh.o zacos.o zarg.o zasinh.o \
zasin.o zatan2.o zatanh.o zatan.o \ 58 58 zasin.o zatan2.o zatanh.o zatan.o \
zbeta.o zcbrt.o zcosh.o zcot.o \ 59 59 zbeta.o zcbrt.o zcosh.o zcot.o \
zexprl.o zgamma.o zgamr.o zlbeta.o \ 60 60 zexprl.o zgamma.o zgamr.o zlbeta.o \
zlngam.o zlnrel.o zlog10.o zpsi.o \ 61 61 zlngam.o zlnrel.o zlog10.o zpsi.o \
zsinh.o ztanh.o ztan.o besyn.o \ 62 62 zsinh.o ztanh.o ztan.o besyn.o \
besjn.o dbesyn.o dbesjn.o beskn.o \ 63 63 besjn.o dbesyn.o dbesjn.o beskn.o \
besin.o dbeskn.o dbesin.o 64 64 besin.o dbeskn.o dbesin.o
65 65
lib:$(objects) 66 66 lib:$(objects)
67 67
install: 68 68 install:
cp fvn_fnlib.mod $(BTREE)/modules 69 69 cp fvn_fnlib.mod $(BTREE)/modules
70 70
clean: 71 71 clean:
rm -f {*.o,*.oo,*.ipo,*.a,*.mod} 72 72 rm -f {*.o,*.oo,*.ipo,*.a,*.mod}
fvn_fnlib/r1mach.f90
View file @ 410c0df
!DECK R1MACH 1 File was deleted
REAL FUNCTION R1MACH (I) 2
IMPLICIT NONE 3
INTEGER :: I 4
REAL :: B, X 5
!***BEGIN PROLOGUE R1MACH 6
!***PURPOSE Return floating point machine dependent constants. 7
!***LIBRARY SLATEC 8
!***CATEGORY R1 9
!***TYPE SINGLE PRECISION (R1MACH-S, D1MACH-D) 10
!***KEYWORDS MACHINE CONSTANTS 11
!***AUTHOR Fox, P. A., (Bell Labs) 12
! Hall, A. D., (Bell Labs) 13
! Schryer, N. L., (Bell Labs) 14
!***DESCRIPTION 15
! 16
! R1MACH can be used to obtain machine-dependent parameters for the 17
! local machine environment. It is a function subprogram with one 18
! (input) argument, and can be referenced as follows: 19
! 20
! A = R1MACH(I) 21
! 22
! where I=1,...,5. The (output) value of A above is determined by 23
! the (input) value of I. The results for various values of I are 24
! discussed below. 25
! 26
! R1MACH(1) = B**(EMIN-1), the smallest positive magnitude. 27
! R1MACH(2) = B**EMAX*(1 - B**(-T)), the largest magnitude. 28
! R1MACH(3) = B**(-T), the smallest relative spacing. 29
! R1MACH(4) = B**(1-T), the largest relative spacing. 30
! R1MACH(5) = LOG10(B) 31
! 32
! Assume single precision numbers are represented in the T-digit, 33
! base-B form 34
! 35
! sign (B**E)*( (X(1)/B) + ... + (X(T)/B**T) ) 36
! 37
! where 0 .LE. X(I) .LT. B for I=1,...,T, 0 .LT. X(1), and 38
! EMIN .LE. E .LE. EMAX. 39
! 40
! The values of B, T, EMIN and EMAX are provided in I1MACH as 41
! follows: 42
! I1MACH(10) = B, the base. 43
! I1MACH(11) = T, the number of base-B digits. 44
! I1MACH(12) = EMIN, the smallest exponent E. 45
! I1MACH(13) = EMAX, the largest exponent E. 46
! 47
! 48
!***REFERENCES P. A. Fox, A. D. Hall and N. L. Schryer, Framework for 49
! a portable library, ACM Transactions on Mathematical 50
! Software 4, 2 (June 1978), pp. 177-188. 51
!***ROUTINES CALLED XERMSG 52
!***REVISION HISTORY (YYMMDD) 53
! 790101 DATE WRITTEN 54
! 960329 Modified for Fortran 90 (BE after suggestions by EG) 55
!***END PROLOGUE R1MACH 56
! 57
X = 1.0 58
B = RADIX(X) 59
SELECT CASE (I) 60
CASE (1) 61
R1MACH = B**(MINEXPONENT(X)-1) ! the smallest positive magnitude. 62
CASE (2) 63
R1MACH = HUGE(X) ! the largest magnitude. 64
CASE (3) 65
R1MACH = B**(-DIGITS(X)) ! the smallest relative spacing. 66
CASE (4) 67
R1MACH = B**(1-DIGITS(X)) ! the largest relative spacing. 68
CASE (5) 69
R1MACH = LOG10(B) 70
CASE DEFAULT 71
WRITE (*, FMT = 9000) 72
9000 FORMAT ('1ERROR 1 IN R1MACH - I OUT OF BOUNDS') 73
STOP 74
END SELECT 75
RETURN 76
END 77
1 1
include $(BTREE)/Make.inc 2 2 include $(BTREE)/Make.inc
3 3
objects = fvn_sparse.o umfpack_wrapper.o 4 4 objects = fvn_sparse.o umfpack_wrapper.o
5 5
all: umfpack $(objects) 6 6 all: suitesparse $(objects)
7 7
umfpack: 8 8 suitesparse:
( cd UMFPACK ; make ) 9 9 ( cd UMFPACK && make )
10 10
clean: 11 11 clean:
( cd AMD && make clean ) 12 12 ( cd AMD && make clean )
( cd UMFPACK && make clean ) 13 13 ( cd UMFPACK && make clean )
rm -f {*.o,*.oo,*.ipo,*.a,*.mod} 14 14 rm -f {*.o,*.oo,*.ipo,*.a,*.mod}
15 15
install: 16 16 install:
cp fvn_sparse.mod $(BTREE)/modules 17 17 cp fvn_sparse.mod $(BTREE)/modules
18 18