SolutionFile Module


Uses


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: MESH_FILE = 1
integer, public, parameter :: SOLUTION_FILE = 2
integer, public, parameter :: SOLUTION_AND_GRADIENTS_FILE = 3
integer, public, parameter :: STATS_FILE = 4
integer, public, parameter :: ZONE_MESH_FILE = 5
integer, public, parameter :: ZONE_SOLUTION_FILE = 6
integer, public, parameter :: ZONE_SOLUTION_AND_DOT_FILE = 7
integer, public, parameter :: SOLUTION_AND_SENSOR_FILE = 8
integer, public, parameter :: SOLUTION_AND_GRADIENTS_AND_SENSOR_FILE = 9
integer, public, parameter :: SOLFILE_STR_LEN = 128
integer, public, parameter :: BEGINNING_DATA = 88
integer, public, parameter :: NO_OF_SAVED_REFS = 6
integer, public, parameter :: GAMMA_REF = 1
integer, public, parameter :: RGAS_REF = 2
integer, public, parameter :: V_REF = 3
integer, public, parameter :: RHO_REF = 4
integer, public, parameter :: T_REF = 5
integer, public, parameter :: MACH_REF = 6
integer, public, parameter :: POS_FILETYPE = POS_FILENAME+SOLFILE_STR_LEN*SIZEOF_CHAR
integer, public, parameter :: POS_INIT_DATA = POS_TERMINATOR+SIZEOF_INT

Interfaces

public interface writeArray

  • private subroutine Write0DArray(fID, array, position)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: fID
    real(kind=RP), intent(in) :: array
    integer(kind=AddrInt), intent(in), optional :: position

  • private subroutine Write1DArray(fID, array, position)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: fID
    real(kind=RP), intent(in) :: array(:)
    integer(kind=AddrInt), intent(in), optional :: position

  • private subroutine Write2DArray(fID, array, position)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: fID
    real(kind=RP), intent(in) :: array(:,:)
    integer(kind=AddrInt), intent(in), optional :: position

  • private subroutine Write3DArray(fID, array, position)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: fID
    real(kind=RP), intent(in) :: array(:,:,:)
    integer(kind=AddrInt), intent(in), optional :: position

  • private subroutine Write4DArray(fID, array, position)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: fID
    real(kind=RP), intent(in) :: array(:,:,:,:)
    integer(kind=AddrInt), intent(in), optional :: position

  • private subroutine Write5DArray(fID, array, position)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: fID
    real(kind=RP), intent(in) :: array(:,:,:,:,:)
    integer(kind=AddrInt), intent(in), optional :: position

Functions

public function getSolutionFileName(fileName)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fileName

Return Value character(len=solfile_str_len)

public function getSolutionFileType(fileName)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fileName

Return Value integer

public function getSolutionFileNoOfElements(fileName)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fileName

Return Value integer

public function getSolutionFileNodeType(fileName)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fileName

Return Value integer

public function getSolutionFileDataInitFlag(fileName)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fileName

Return Value integer

public function getSolutionFileReferenceValues(fileName)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fileName

Return Value real(kind=RP), dimension(NO_OF_SAVED_REFS)

public function putSolutionFileInReadDataMode(fileName)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fileName

Return Value integer

public function putSolutionFileInWriteDataMode(fileName)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fileName

Return Value integer


Subroutines

public subroutine CreateNewSolutionFile(name, type_, nodes, no_of_elements, iter, time, refs)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
integer, intent(in) :: type_
integer, intent(in) :: nodes
integer, intent(in) :: no_of_elements
integer, intent(in) :: iter
real(kind=RP), intent(in) :: time
real(kind=RP), intent(in) :: refs(NO_OF_SAVED_REFS)

public subroutine SealSolutionFile(name)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name

public subroutine getSolutionFileTimeAndIteration(fileName, iter, time)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fileName
integer, intent(out) :: iter
real(kind=RP), intent(out) :: time

public subroutine getSolutionFileArrayDimensions(fid, N, pos)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: fid
integer, intent(out) :: N(:)
integer, intent(in), optional :: pos