!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