1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
# Copyright 2013-2023 Lawrence Livermore National Security, LLC and other
# Spack Project Developers. See the top-level COPYRIGHT file for details.
#
# SPDX-License-Identifier: (Apache-2.0 OR MIT)
import os
from spack.package import *
class Ffr(MakefilePackage):
"""FFR: FrontFlow/red, developed in Frontier Simulation Software
for Industrial Science(FSIS) project supported by IT program of
Ministry of Education, Culture, Sports, Science and Technology(MEXT),
JAPAN."""
homepage = "http://www.ciss.iis.u-tokyo.ac.jp/rss21/theme/multi/fluid/fluid_softwareinfo.html"
manual_download = True
version(
"3.1.004",
sha256="2b396f66bb6437366721fac987f9c6e8b830638c3e4cb5df6a08ff41633f8481",
url="file://{0}/FFR_V3.1.004.zip".format(os.getcwd()),
)
version(
"3.0_000",
sha256="edc69fb1fd9dbdb3f531a8f2b9533a9b3c1a28768bb4029b84a6b35c95db0b48",
url="file://{0}/open_FrontFlowRed_3.0_000.tar.gz".format(os.getcwd()),
)
# FrontFlow/red used Fortran format I/E without width (For Example 3I)
# But gfortran require width (For Example (3I6).
patch("gfortran_format_31.patch", when="@3.1.004 %gcc")
patch("gfortran_format_30.patch", when="@3.0_000 %gcc")
depends_on("mpi")
depends_on("metis@:4", type="link")
parallel = False
build_directories = [
join_path("src_main", "src"),
join_path("src_pre", "src"),
join_path("FFR2VIZ", "src"),
join_path("FFR2VIZ", "src_P_for"),
]
def edit(self, spec, prefix):
flags = ["-O3", "-I.", "-I{0}".format(spec["metis"].prefix.include)]
fflags = flags[:]
if spec.satisfies("%gcc"):
fflags.append("-ffixed-line-length-none")
elif spec.satisfies("%fj"):
fflags.append("-Fwide")
d = find(".", "src_main", recursive=True)
src_main = d[0]
root_dir = os.path.dirname(src_main)
make = join_path(root_dir, "src_pre", "src", "Makefile")
os.chmod(make, 0o644)
filter_file("#CSRCS =.*$", "CSRCS = kmetis_main.c io.c", make)
filter_file("LIBPRE =.*$", "LIBPRE = " + spec["metis"].libs.ld_flags, make)
make = join_path(src_main, "src", "Makefile")
os.chmod(make, 0o644)
with open(make, "a") as m:
m.write("module_hpc.o: module_hpc.f\n")
m.write("\t$(MPI_F90) $(FFLAGS) -c $<\n")
m.write("\n")
m.write("hpc.o: hpc.f\n")
m.write("\t$(MPI_F90) $(FFLAGS) -c $<\n")
if spec.satisfies("@3.0_000"):
for d in ["src_pre", "FFR2VIZ"]:
workdir = join_path(root_dir, d, "src")
make = join_path(workdir, "Makefile")
os.chmod(make, 0o644)
m = FileFilter(make)
m.filter(r"include Makefile\..*\.in", "include Makefile.spack.in")
with open(join_path(workdir, "Makefile.spack.in"), "w") as m:
m.write("OS = {0}\n".format(spec.os))
m.write("F90 = {0}\n".format(spack_fc))
m.write("F90LINKER = {0}\n".format(spack_fc))
m.write("FOPTIONS = {0}\n".format(" ".join(fflags)))
m.write("CC = {0}\n".format(spack_cc))
m.write("COPTIONS = {0}\n".format(" ".join(flags)))
m.write("MPI_HOME = \n")
m.write("MPI_INCLUDE = \n")
m.write("MPI_LIBS = ")
m.write("MPI_F90 = {0} {1}\n".format(spec["mpi"].mpifc, " ".join(fflags)))
m.write("AR = ar rv\n")
m.write("RANLIB = :\n")
for makefile_in in find(".", "Makefile.in", recursive=True):
os.chmod(makefile_in, 0o644)
m = FileFilter(makefile_in)
m.filter(r"OS\s*=.*$", "OS = {0}".format(spec.os))
m.filter(r"F90\s*=.*$", "F90 = {0}".format(spack_fc))
m.filter(r"F90LINKER\s*=.*$", "F90LINKER = {0}".format(spack_fc))
m.filter(r"FOPTIONS\s+=.*$", "FOPTIONS = {0}".format(" ".join(fflags)))
m.filter(r"CC\s+=.*$", "CC = {0}".format(spack_cc))
m.filter(r"COPTIONS\s+=.*$", "COPTIONS = {0}".format(" ".join(flags)))
m.filter(r"MPI_HOME\s+=.*$", "MPI_HOME = ")
m.filter(r"MPI_INC\s+=.*$", "MPI_INCLUDE = ")
m.filter(r"MPI_LIBS\s+=.*$", "MPI_LIBS = ")
m.filter(
r"MPI_F90\s+=.*$", "MPI_F90 = {0} {1}".format(spec["mpi"].mpifc, " ".join(fflags))
)
m.filter(r"AR\s+=.*$", "AR = ar rv")
m.filter(r"RANLIB =.*$", "RANLIB = :")
def build(self, spec, prefix):
d = find(".", "src_main", recursive=True)
root_dir = os.path.dirname(d[0])
copy(
join_path(root_dir, "src_metis_4.1_fflow", "Lib", "kmetis_main.c"),
join_path(root_dir, "src_pre", "src"),
)
copy(
join_path(root_dir, "src_metis_4.1_fflow", "Lib", "io.c"),
join_path(root_dir, "src_pre", "src"),
)
mkdirp(join_path(root_dir, "bin_FFR"))
for dir in self.build_directories:
with working_dir(join_path(root_dir, dir)):
make("clean")
make()
def install(self, spec, prefix):
d = find(".", "src_main", recursive=True)
root_dir = os.path.dirname(d[0])
install_tree(join_path(root_dir, "bin_FFR"), prefix.bin)
|
