openSource/tem3dfdtd-open
4
0
派生 0
代码 项目 活动

比较提交

基准分支: openSource/tem3dfdtd-open:d1d658598ca67fcaac8f7a8d174216ecfda37db4
分支列表 Git 标签列表
openSource/tem3dfdtd-open:master
...
比较: openSource/tem3dfdtd-open:d855afd251eca3068c1c2e78532cb8eea4976aaa
分支列表 Git 标签列表
openSource/tem3dfdtd-open:master
2 次代码提交
d1d658598c ... d855afd251
作者 SHA1 备注 提交日期
lixinyu d855afd251 Merge branch 'master' of https://git.em3d.cn/openSource/tem3dfdtd-open 2026-08-18 16:21:44 +08:00
lixinyu 642849b079 修正一处bug，VTK_fortran.f90 格式化输出格式不规范，无法在gfortran环境中编译，现已改为标准格式 2026-08-18 16:19:47 +08:00
共修改 1 个文件，包含 4 行新增和 4 行删除
展开所有文件 折叠所有文件
tem3dfdtd/module/VTK_fortran.f90
+4 -4
查看文件
@@ -204,7 +204,7 @@ Module VTK_Fortran
do i=1,NXB do i=1,NXB
temp = temp + 1 temp = temp + 1
write(unit, fmt='(3f)', iostat=error) Coord_x(i), Coord_y(j), Coord_z(k) write(unit, fmt='(3F25.16)', iostat=error) Coord_x(i), Coord_y(j), Coord_z(k)
end do end do
end do end do
@@ -250,7 +250,7 @@ Module VTK_Fortran
do j=1, NY do j=1, NY
do i=1,NX do i=1,NX
temp = temp + 1 temp = temp + 1
write(unit, fmt='(9i)', iostat=error)nums,& write(unit, fmt='(9I12)', iostat=error)nums,&
((i ) + (j-1)*NXB + (k-1)*NXB*NYB) -1, & ((i ) + (j-1)*NXB + (k-1)*NXB*NYB) -1, &
((i+1) + (j-1)*NXB + (k-1)*NXB*NYB) -1, & ((i+1) + (j-1)*NXB + (k-1)*NXB*NYB) -1, &
((i ) + (j )*NXB + (k-1)*NXB*NYB) -1, & ((i ) + (j )*NXB + (k-1)*NXB*NYB) -1, &
@@ -266,7 +266,7 @@ Module VTK_Fortran
write(unit=unit,fmt='(A,I0,A,I0)', iostat=error) "CELL_TYPES ", cells write(unit=unit,fmt='(A,I0,A,I0)', iostat=error) "CELL_TYPES ", cells
do i=1, temp do i=1, temp
write(unit, fmt='(i)', iostat=error)num_cell_types write(unit, fmt='(I12)', iostat=error)num_cell_types
end do end do
write(unit=unit,fmt='(2A,I0)', iostat=error) Value_site_cell," ", cells write(unit=unit,fmt='(2A,I0)', iostat=error) Value_site_cell," ", cells
@@ -311,7 +311,7 @@ Module VTK_Fortran
do j=1, NY do j=1, NY
do i=1,NX do i=1,NX
temp = temp + 1 temp = temp + 1
write(unit, fmt='(f)', iostat=error)values(i,j,k) write(unit, fmt='(F25.16)', iostat=error)values(i,j,k)
end do end do
end do end do
end do end do