Merge pull request #2 from fortran-fans/add_fpm_support

Add fpm support for fftapck with double precision
fortran-lang · Jul 28, 2021 · a8f7ae8 · a8f7ae8
2 parents 030cbf4 + b3cbec3
commit a8f7ae8
Show file tree

Hide file tree

Showing 61 changed files with 236 additions and 89 deletions.
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1,7 @@
+build*
+
+# Compiled objects
+*.o
+*.a
+*.so
+*.x
diff --git a/Makefile b/Makefile
@@ -1,96 +1,23 @@
-# Several changes made by HCP so this would build without trouble 
-# on a Linux/g77 system.
-# (1) changed step to build library to use ar instead of update
-#     (update must mean something different on someone elses Unix.)
-# (2) Added make clean step 
-# (3) In test step, changed a.out to ./a.out for cautious folk who don't 
-#     have "." in their PATH.
-# (4) Change FFLAGS from -O to -O2 -funroll-loops
-# (5) Specify FC=gcc in case /usr/bin/f77 is not a link to g77 
-#     (as it won't be if you have f77reorder installed)
-# (6) Added targets shared and installshared to make and install a shared 
-#     version of the library. You need /usr/local/lib in /etc/ld.so.conf 
-#     for this to work   
-# (7) Modified names for dble prec version
-LIB=dfftpack
+# Fortran fftpack Makefile
 
-# Use these lines for Linux/g77
-FC=g77
-FFLAGS=-O2 -funroll-loops -fexpensive-optimizations
+LIB = dfftpack
 
-# Use these lines for Solaris
-#FC=f77
-#FFLAGS=-fast -O5
+FC = gfortran
+FFLAGS = -O2
 
-OBJ=\
-zfftb.o\
-cfftb1.o\
-zfftf.o\
-cfftf1.o\
-zffti.o\
-cffti1.o\
-dcosqb.o\
-cosqb1.o\
-dcosqf.o\
-cosqf1.o\
-dcosqi.o\
-dcost.o\
-dcosti.o\
-ezfft1.o\
-dzfftb.o\
-dzfftf.o\
-dzffti.o\
-passb.o\
-passb2.o\
-passb3.o\
-passb4.o\
-passb5.o\
-passf.o\
-passf2.o\
-passf3.o\
-passf4.o\
-passf5.o\
-radb2.o\
-radb3.o\
-radb4.o\
-radb5.o\
-radbg.o\
-radf2.o\
-radf3.o\
-radf4.o\
-radf5.o\
-radfg.o\
-dfftb.o\
-rfftb1.o\
-dfftf.o\
-rfftf1.o\
-dffti.o\
-rffti1.o\
-dsinqb.o\
-dsinqf.o\
-dsinqi.o\
-dsint.o\
-sint1.o\
-dsinti.o
+export LIB
+export FC
+export FFLAGS
 
-lib$(LIB).a:	$(OBJ)
-	ar -rcs lib$(LIB).a $(OBJ)
+.PHONY: all clean test
 
-shared:$(OBJ)
-	$(FC)  -shared -o lib$(LIB).so $(OBJ)
+all:
+	$(MAKE) -f Makefile --directory=src
+	$(MAKE) -f Makefile --directory=test
 
-install:	lib$(LIB).a
-	mv lib$(LIB).a /usr/local/lib
-	rm *.o
+test:
+	$(MAKE) -f Makefile --directory=test
 
-installshared:lib$(LIB).so
-	mv lib$(LIB).so /usr/local/lib
-	rm *.o
-	ldconfig 
-
-test: test.o
-	$(FC) test.o -L./ -l$(LIB)
-	time ./a.out
-
-clean: 
-	 rm -f -r *.o *.a *.so
+clean:
+	$(MAKE) -f Makefile clean --directory=src
+	$(MAKE) -f Makefile clean --directory=test
diff --git a/README.md b/README.md
@@ -0,0 +1,31 @@
+# FFTPACK
+A package of fortran subprograms for the fast fourier transform of periodic and other symmetric sequences.
+
+## Getting started
+### Get the code
+```bash
+git clone https://github.com/certik/fftpack.git
+cd fftpack
+```
+
+### Build with [fortran-lang/fpm](https://github.com/fortran-lang/fpm)
+Fortran Package Manager (fpm) is a great package manager and build system for Fortran.   
+You can build using provided `fpm.toml`:
+```bash
+fpm build --flag "-O2"
+fpm test --flag "-O2" tstfft
+```
+To use `fftpack` within your `fpm` project, add the following to your `fpm.toml` file:
+```toml
+[dependencies]
+fftpack = { git="https://github.com/certik/fftpack.git" }
+```
+
+## Build with Make
+Alternatively, you can build using provided `Makefile`:
+```bash
+make
+```
+
+## Links
+[netlib/dfftpack1.0(fftpack4.0)](http://www.netlib.org/fftpack/)
diff --git a/doc/Makefile b/doc/Makefile
@@ -0,0 +1,96 @@
+# Several changes made by HCP so this would build without trouble 
+# on a Linux/g77 system.
+# (1) changed step to build library to use ar instead of update
+#     (update must mean something different on someone elses Unix.)
+# (2) Added make clean step 
+# (3) In test step, changed a.out to ./a.out for cautious folk who don't 
+#     have "." in their PATH.
+# (4) Change FFLAGS from -O to -O2 -funroll-loops
+# (5) Specify FC=gcc in case /usr/bin/f77 is not a link to g77 
+#     (as it won't be if you have f77reorder installed)
+# (6) Added targets shared and installshared to make and install a shared 
+#     version of the library. You need /usr/local/lib in /etc/ld.so.conf 
+#     for this to work   
+# (7) Modified names for dble prec version
+LIB=dfftpack
+
+# Use these lines for Linux/g77
+FC=g77
+FFLAGS=-O2 -funroll-loops -fexpensive-optimizations
+
+# Use these lines for Solaris
+#FC=f77
+#FFLAGS=-fast -O5
+
+OBJ=\
+zfftb.o\
+cfftb1.o\
+zfftf.o\
+cfftf1.o\
+zffti.o\
+cffti1.o\
+dcosqb.o\
+cosqb1.o\
+dcosqf.o\
+cosqf1.o\
+dcosqi.o\
+dcost.o\
+dcosti.o\
+ezfft1.o\
+dzfftb.o\
+dzfftf.o\
+dzffti.o\
+passb.o\
+passb2.o\
+passb3.o\
+passb4.o\
+passb5.o\
+passf.o\
+passf2.o\
+passf3.o\
+passf4.o\
+passf5.o\
+radb2.o\
+radb3.o\
+radb4.o\
+radb5.o\
+radbg.o\
+radf2.o\
+radf3.o\
+radf4.o\
+radf5.o\
+radfg.o\
+dfftb.o\
+rfftb1.o\
+dfftf.o\
+rfftf1.o\
+dffti.o\
+rffti1.o\
+dsinqb.o\
+dsinqf.o\
+dsinqi.o\
+dsint.o\
+sint1.o\
+dsinti.o
+
+lib$(LIB).a:	$(OBJ)
+	ar -rcs lib$(LIB).a $(OBJ)
+
+shared:$(OBJ)
+	$(FC)  -shared -o lib$(LIB).so $(OBJ)
+
+install:	lib$(LIB).a
+	mv lib$(LIB).a /usr/local/lib
+	rm *.o
+
+installshared:lib$(LIB).so
+	mv lib$(LIB).so /usr/local/lib
+	rm *.o
+	ldconfig 
+
+test: test.o
+	$(FC) test.o -L./ -l$(LIB)
+	time ./a.out
+
+clean: 
+	 rm -f -r *.o *.a *.so
diff --git a/README → doc/README b/README → doc/README
diff --git a/doc → doc/doc b/doc → doc/doc
diff --git a/doc.double → doc/doc.double b/doc.double → doc/doc.double
diff --git a/origMakefile → doc/origMakefile b/origMakefile → doc/origMakefile
diff --git a/fpm.toml b/fpm.toml
@@ -0,0 +1,21 @@
+
+name        = "fftpack"
+description = "A package of fortran subprograms for the fast fourier transform of periodic and other symmetric sequences"
+homepage    = "http://www.netlib.org/fftpack/"
+version     = "4.0.0"
+license     = "Public Domain"
+author      = "Paul N. Swarztrauber"
+maintainer  = "@fortran-lang"
+copyright   = "Copyright 1985 National Center for Atmospheric Research, Boulder, CO"
+categories  = ["Fast Fourier Transform"]
+keywords    = ["netlib", "fftpack", "fft"]
+
+[build]
+auto-executables = false
+auto-tests = false
+auto-examples = false
+
+[[test]]
+name = "tstfft"
+source-dir = "test"
+main = "tstfft.f"
diff --git a/src/Makefile b/src/Makefile
@@ -0,0 +1,59 @@
+OBJ = \
+zfftb.o\
+cfftb1.o\
+zfftf.o\
+cfftf1.o\
+zffti.o\
+cffti1.o\
+dcosqb.o\
+cosqb1.o\
+dcosqf.o\
+cosqf1.o\
+dcosqi.o\
+dcost.o\
+dcosti.o\
+ezfft1.o\
+dzfftb.o\
+dzfftf.o\
+dzffti.o\
+passb.o\
+passb2.o\
+passb3.o\
+passb4.o\
+passb5.o\
+passf.o\
+passf2.o\
+passf3.o\
+passf4.o\
+passf5.o\
+radb2.o\
+radb3.o\
+radb4.o\
+radb5.o\
+radbg.o\
+radf2.o\
+radf3.o\
+radf4.o\
+radf5.o\
+radfg.o\
+dfftb.o\
+rfftb1.o\
+dfftf.o\
+rfftf1.o\
+dffti.o\
+rffti1.o\
+dsinqb.o\
+dsinqf.o\
+dsinqi.o\
+dsint.o\
+sint1.o\
+dsinti.o
+
+lib$(LIB).a: $(OBJ)
+	ar -rcs lib$(LIB).a $(OBJ)
+
+shared: $(OBJ)
+	$(FC) -shared -o lib$(LIB).so $(OBJ)
+
+clean:
+	rm -f -r *.o *.a *.so
diff --git a/cfftb1.f → src/cfftb1.f b/cfftb1.f → src/cfftb1.f
diff --git a/cfftf1.f → src/cfftf1.f b/cfftf1.f → src/cfftf1.f
diff --git a/cffti1.f → src/cffti1.f b/cffti1.f → src/cffti1.f
diff --git a/cosqb1.f → src/cosqb1.f b/cosqb1.f → src/cosqb1.f
diff --git a/cosqf1.f → src/cosqf1.f b/cosqf1.f → src/cosqf1.f
diff --git a/dcosqb.f → src/dcosqb.f b/dcosqb.f → src/dcosqb.f
diff --git a/dcosqf.f → src/dcosqf.f b/dcosqf.f → src/dcosqf.f
diff --git a/dcosqi.f → src/dcosqi.f b/dcosqi.f → src/dcosqi.f
diff --git a/dcost.f → src/dcost.f b/dcost.f → src/dcost.f
diff --git a/dcosti.f → src/dcosti.f b/dcosti.f → src/dcosti.f
diff --git a/dfftb.f → src/dfftb.f b/dfftb.f → src/dfftb.f
diff --git a/dfftf.f → src/dfftf.f b/dfftf.f → src/dfftf.f
diff --git a/dffti.f → src/dffti.f b/dffti.f → src/dffti.f
diff --git a/dsinqb.f → src/dsinqb.f b/dsinqb.f → src/dsinqb.f
diff --git a/dsinqf.f → src/dsinqf.f b/dsinqf.f → src/dsinqf.f
diff --git a/dsinqi.f → src/dsinqi.f b/dsinqi.f → src/dsinqi.f
diff --git a/dsint.f → src/dsint.f b/dsint.f → src/dsint.f
diff --git a/dsinti.f → src/dsinti.f b/dsinti.f → src/dsinti.f
diff --git a/dzfftb.f → src/dzfftb.f b/dzfftb.f → src/dzfftb.f
diff --git a/dzfftf.f → src/dzfftf.f b/dzfftf.f → src/dzfftf.f
diff --git a/dzffti.f → src/dzffti.f b/dzffti.f → src/dzffti.f
diff --git a/ezfft1.f → src/ezfft1.f b/ezfft1.f → src/ezfft1.f
diff --git a/passb.f → src/passb.f b/passb.f → src/passb.f
diff --git a/passb2.f → src/passb2.f b/passb2.f → src/passb2.f
diff --git a/passb3.f → src/passb3.f b/passb3.f → src/passb3.f
diff --git a/passb4.f → src/passb4.f b/passb4.f → src/passb4.f
diff --git a/passb5.f → src/passb5.f b/passb5.f → src/passb5.f
diff --git a/passf.f → src/passf.f b/passf.f → src/passf.f
diff --git a/passf2.f → src/passf2.f b/passf2.f → src/passf2.f
diff --git a/passf3.f → src/passf3.f b/passf3.f → src/passf3.f
diff --git a/passf4.f → src/passf4.f b/passf4.f → src/passf4.f
diff --git a/passf5.f → src/passf5.f b/passf5.f → src/passf5.f
diff --git a/radb2.f → src/radb2.f b/radb2.f → src/radb2.f
diff --git a/radb3.f → src/radb3.f b/radb3.f → src/radb3.f
diff --git a/radb4.f → src/radb4.f b/radb4.f → src/radb4.f
diff --git a/radb5.f → src/radb5.f b/radb5.f → src/radb5.f
diff --git a/radbg.f → src/radbg.f b/radbg.f → src/radbg.f
diff --git a/radf2.f → src/radf2.f b/radf2.f → src/radf2.f
diff --git a/radf3.f → src/radf3.f b/radf3.f → src/radf3.f
diff --git a/radf4.f → src/radf4.f b/radf4.f → src/radf4.f
diff --git a/radf5.f → src/radf5.f b/radf5.f → src/radf5.f
diff --git a/radfg.f → src/radfg.f b/radfg.f → src/radfg.f
diff --git a/rfftb1.f → src/rfftb1.f b/rfftb1.f → src/rfftb1.f
diff --git a/rfftf1.f → src/rfftf1.f b/rfftf1.f → src/rfftf1.f
diff --git a/rffti1.f → src/rffti1.f b/rffti1.f → src/rffti1.f
diff --git a/sint1.f → src/sint1.f b/sint1.f → src/sint1.f
diff --git a/zfftb.f → src/zfftb.f b/zfftb.f → src/zfftb.f
diff --git a/zfftf.f → src/zfftf.f b/zfftf.f → src/zfftf.f
diff --git a/zffti.f → src/zffti.f b/zffti.f → src/zffti.f
diff --git a/test/Makefile b/test/Makefile
@@ -0,0 +1,6 @@
+tstfft: tstfft.o
+	$(FC) tstfft.o -L../src -l$(LIB) -o a.x
+	time ./a.x
+
+clean:
+	rm -f -r *.o *.x
diff --git a/test.f → test/tstfft.f b/test.f → test/tstfft.f