包含基于射线追踪的任意复杂界面计算

tem3dfdtd/module/VTK_fix_header.f90

@@ -0,0 +1,21 @@
+!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
+!written by Qi Zhao(zhaoqi_326326@163.com)
+MODULE vtk_fix_header
+    USE Precision, ONLY : i4k
+    IMPLICIT NONE
+    !! Author: Qi Zhao
+    !! Date: 03/11/2024
+    !!
+    !! This module contains fix header information for the vtk file
+    !!
+    PRIVATE
+    PUBLIC :: version, default_title, vtkfilename, vtktitle,default_filename,vtk_form !! Selected file type
+
+    CHARACTER(LEN=*), PARAMETER   :: version       = '# vtk DataFile Version 3.0'   !! VTK datafile version
+    CHARACTER(LEN=*), PARAMETER   :: default_title = 'Version 3.0 VTK file'         !! Title card
+    CHARACTER(LEN=*), PARAMETER   :: default_filename = 'zhaoqi.vtk'        !! Default filename
+     CHARACTER(LEN=*), PARAMETER   :: vtk_form = 'ASCII'        !! Default filename
+    CHARACTER(LEN=:), ALLOCATABLE :: vtkfilename                                    !! Supplied filename
+    CHARACTER(LEN=:), ALLOCATABLE :: vtktitle                                       !! Supplied title
+    
+END MODULE vtk_fix_header