Skip to content

Commit

Permalink
update for fpm-0.9.0
Browse files Browse the repository at this point in the history
  • Loading branch information
zoziha committed Nov 29, 2023
1 parent 6d855bd commit c86f05f
Show file tree
Hide file tree
Showing 5 changed files with 9 additions and 4 deletions.
1 change: 1 addition & 0 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -26,6 +26,7 @@ FPM is a community-driven Fortran language package manager and code build system
You can build the code with the provided `fpm.toml`:

```sh
cd data && mkdir all && mkdir paraview
fpm build
# SPH main program
fpm run sph --profile release
Expand Down
1 change: 1 addition & 0 deletions README_CN.md
Original file line number Diff line number Diff line change
Expand Up @@ -26,6 +26,7 @@ FPM是社区驱动的Fortran语言的包管理器和代码构建工具,适用
你可以通过提供的`fpm.toml`构建代码:

```sh
cd data && mkdir all && mkdir paraview
fpm build
# 运行SPH主程序
fpm run sph --profile release
Expand Down
3 changes: 3 additions & 0 deletions fpm.toml
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,9 @@ auto-executables = false
auto-tests = false
auto-examples = false

[fortran]
implicit-external = true

[library]
include-dir = "src"

Expand Down
4 changes: 2 additions & 2 deletions src/output/paraview_interface.f90
Original file line number Diff line number Diff line change
Expand Up @@ -16,11 +16,11 @@ module paraview_interface
subroutine output_to_paraview_vtk()
integer :: steps, i

print *, "请输入时间步数:"
print "(a)", "Please enter the number of time steps:"
read (*, *) steps

do i = 1, steps
print "(a, i0, a)", "正在输出第", i, "个时间步。"
print "(a, i0, a)", "Exporting ", i, " step..."
call output_to_paraview_vtk_one_step(i)
end do

Expand Down
4 changes: 2 additions & 2 deletions src/sph_kind.F90
Original file line number Diff line number Diff line change
Expand Up @@ -3,9 +3,9 @@ module sph_kind
use, intrinsic :: iso_fortran_env, only: real32, real64
implicit none
private

public :: rk

!> sph预设浮点精度
!> Default real precision for SPH
integer, parameter :: rk = real64
Expand Down

0 comments on commit c86f05f

Please sign in to comment.