SimulationCore2/CSharp/BasicInputs/Geology/CFormationVariables.f90

module CFormationVariables
    implicit none    
    public    
    
    ! types
    ! Pipe Items in String Array
    type, bind(c), public :: CFormationItem
        real(8) :: Top
        real(8) :: Thickness
        real(8) :: Drillablity
        real(8) :: Abrasiveness
        real(8) :: ThresholdWeight
        real(8) :: PorePressureGradient
    end type CFormationItem
    Type::FormationType
        integer :: Formation%Count = 0
        type(CFormationItem), allocatable :: Formation%Formations(:)
    End type FormationType
    Type(FormationType) :: Formation
    contains    
end module CFormationVariables