22 行
1.0 KiB
Fortran
22 行
1.0 KiB
Fortran
!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
|