From 642849b0792a1a785e2ccc0185a42538d8aef51c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E6=9D=8E=E6=96=B0=E5=AE=87?= Date: Tue, 18 Aug 2026 16:19:47 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=AD=A3=E4=B8=80=E5=A4=84bug?= =?UTF-8?q?=EF=BC=8CVTK=5Ffortran.f90=20=E6=A0=BC=E5=BC=8F=E5=8C=96?= =?UTF-8?q?=E8=BE=93=E5=87=BA=E6=A0=BC=E5=BC=8F=E4=B8=8D=E8=A7=84=E8=8C=83?= =?UTF-8?q?=EF=BC=8C=E6=97=A0=E6=B3=95=E5=9C=A8gfortran=E7=8E=AF=E5=A2=83?= =?UTF-8?q?=E4=B8=AD=E7=BC=96=E8=AF=91=EF=BC=8C=E7=8E=B0=E5=B7=B2=E6=94=B9?= =?UTF-8?q?=E4=B8=BA=E6=A0=87=E5=87=86=E6=A0=BC=E5=BC=8F?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- tem3dfdtd/module/VTK_fortran.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/tem3dfdtd/module/VTK_fortran.f90 b/tem3dfdtd/module/VTK_fortran.f90 index 161791f..3444323 100644 --- a/tem3dfdtd/module/VTK_fortran.f90 +++ b/tem3dfdtd/module/VTK_fortran.f90 @@ -1,4 +1,4 @@ -!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com) +!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) !written by Qi Zhao(zhaoqi_326326@163.com) ! --------------------------------Subroutine part---------------------------------------------! @@ -204,7 +204,7 @@ Module VTK_Fortran do i=1,NXB 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 @@ -250,7 +250,7 @@ Module VTK_Fortran do j=1, NY do i=1,NX 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+1) + (j-1)*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 do i=1, temp - write(unit, fmt='(i)', iostat=error)num_cell_types + write(unit, fmt='(I12)', iostat=error)num_cell_types end do write(unit=unit,fmt='(2A,I0)', iostat=error) Value_site_cell," ", cells @@ -311,7 +311,7 @@ Module VTK_Fortran do j=1, NY do i=1,NX 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