FrontFlow/Red: New Package. (#15965)
* FrontFlow/Red: New Package. * fix comment. use libs.ld_flags. * typo fix. * typo fix.
This commit is contained in:
Toyohisa Kameyama
GitHub
parent
d9992a778f
commit
f1d48a2a8e
30
var/spack/repos/builtin/packages/ffr/gfortran_format_30.patch
Executable file
30
var/spack/repos/builtin/packages/ffr/gfortran_format_30.patch
Executable file
@ -0,0 +1,30 @@
|
||||
diff -ru ffr.old/FFR2VIZ/src/tovtk.f ffr.new/FFR_V3.1.004/FFR2VIZ/src/tovtk.f
|
||||
--- ffr.old/FFR2VIZ/src/tovtk.f 2009-05-27 10:57:50.000000000 +0900
|
||||
+++ ffr.new/FFR2VIZ/src/tovtk.f 2020-04-07 18:55:05.000000000 +0900
|
||||
@@ -190,7 +190,7 @@
|
||||
|
||||
character(len=*), parameter :: FNAME = "write_vtk_points: "
|
||||
c character(len=*), parameter ::fmt_data = "(3E)"
|
||||
- character(len=*), parameter ::fmt_data = "(9E)"
|
||||
+ character(len=*), parameter ::fmt_data = "(9E15.7)"
|
||||
integer :: ii
|
||||
|
||||
write(*, *)'dbg> ', FNAME, ' writing...'
|
||||
@@ -491,7 +491,7 @@
|
||||
|
||||
character(len=*), parameter :: FNAME = "write_vtk_scalar: "
|
||||
c character(len=*), parameter ::fmt_data = "(E)"
|
||||
- character(len=*), parameter ::fmt_data = "(9E)"
|
||||
+ character(len=*), parameter ::fmt_data = "(9E15.7)"
|
||||
integer :: ii
|
||||
|
||||
write(*, *)'dbg> ', FNAME, ' writing...', trim(byname)
|
||||
@@ -541,7 +541,7 @@
|
||||
|
||||
character(len=*), parameter :: FNAME = "write_vtk_vector: "
|
||||
c character(len=*), parameter ::fmt_data = "(3E)"
|
||||
- character(len=*), parameter ::fmt_data = "(9E)"
|
||||
+ character(len=*), parameter ::fmt_data = "(9E15.7)"
|
||||
integer :: ii
|
||||
|
||||
write(*, *)'dbg> ', FNAME, ' writing...', trim(byname)
|
||||
42
var/spack/repos/builtin/packages/ffr/gfortran_format_31.patch
Executable file
42
var/spack/repos/builtin/packages/ffr/gfortran_format_31.patch
Executable file
@ -0,0 +1,42 @@
|
||||
diff -ru ffr.old/FFR_V3.1.004/FFR2VIZ/src/tovtk.f ffr.new/FFR_V3.1.004/FFR2VIZ/src/tovtk.f
|
||||
--- ffr.old/FFR_V3.1.004/FFR2VIZ/src/tovtk.f 2009-05-27 10:57:50.000000000 +0900
|
||||
+++ ffr.new/FFR_V3.1.004/FFR2VIZ/src/tovtk.f 2020-04-07 18:55:05.000000000 +0900
|
||||
@@ -190,7 +190,7 @@
|
||||
|
||||
character(len=*), parameter :: FNAME = "write_vtk_points: "
|
||||
c character(len=*), parameter ::fmt_data = "(3E)"
|
||||
- character(len=*), parameter ::fmt_data = "(9E)"
|
||||
+ character(len=*), parameter ::fmt_data = "(9E15.7)"
|
||||
integer :: ii
|
||||
|
||||
write(*, *)'dbg> ', FNAME, ' writing...'
|
||||
@@ -491,7 +491,7 @@
|
||||
|
||||
character(len=*), parameter :: FNAME = "write_vtk_scalar: "
|
||||
c character(len=*), parameter ::fmt_data = "(E)"
|
||||
- character(len=*), parameter ::fmt_data = "(9E)"
|
||||
+ character(len=*), parameter ::fmt_data = "(9E15.7)"
|
||||
integer :: ii
|
||||
|
||||
write(*, *)'dbg> ', FNAME, ' writing...', trim(byname)
|
||||
@@ -541,7 +541,7 @@
|
||||
|
||||
character(len=*), parameter :: FNAME = "write_vtk_vector: "
|
||||
c character(len=*), parameter ::fmt_data = "(3E)"
|
||||
- character(len=*), parameter ::fmt_data = "(9E)"
|
||||
+ character(len=*), parameter ::fmt_data = "(9E15.7)"
|
||||
integer :: ii
|
||||
|
||||
write(*, *)'dbg> ', FNAME, ' writing...', trim(byname)
|
||||
diff -ru ffr.old/FFR_V3.1.004/FFR2VIZ/src/writeFLUENTHeader.f ffr.new/FFR_V3.1.004/FFR2VIZ/src/writeFLUENTHeader.f
|
||||
--- ffr.old/FFR_V3.1.004/FFR2VIZ/src/writeFLUENTHeader.f 2009-05-27 10:57:50.000000000 +0900
|
||||
+++ ffr.new/FFR_V3.1.004/FFR2VIZ/src/writeFLUENTHeader.f 2020-04-07 18:24:57.000000000 +0900
|
||||
@@ -162,7 +162,7 @@
|
||||
end if
|
||||
|
||||
120 format(A)
|
||||
- 121 format(A,3I,A)
|
||||
+ 121 format(A,3I10,A)
|
||||
122 format(A,A,A)
|
||||
|
||||
status=0
|
||||
123
var/spack/repos/builtin/packages/ffr/package.py
Normal file
123
var/spack/repos/builtin/packages/ffr/package.py
Normal file
@ -0,0 +1,123 @@
|
||||
# Copyright 2013-2020 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 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"
|
||||
|
||||
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')
|
||||
d = find('.', 'src_main', recursive=True)
|
||||
root_dir = os.path.dirname(d[0])
|
||||
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
|
||||
)
|
||||
if spec.satisfies('@3.0_000'):
|
||||
d = find('.', 'src_main', recursive=True)
|
||||
root_dir = os.path.dirname(d[0])
|
||||
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)
|
||||
Loading…
Reference in New Issue
Block a user