mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
57 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 8619d976a7
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '8619d976a7'
${ noResults }
SimulationCore2/CSharp/BasicInputs/WellProfile/CPathGenerationVariables.i90

30 lines
826 B
Raw Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/BasicInputs/WellProfile/CPathGenerationVariables.f90"

  2. module CPathGenerationVariables

  3.     implicit none

  4.     public

  5.     

  6. ! types

  7.     type, bind(c), public :: CPathGenerationItem

  8.         integer :: HoleType

  9.         real(8) :: Angle

  10.         real(8) :: Length

  11.         real(8) :: FinalAngle

  12.         real(8) :: TotalLength

  13.         real(8) :: MeasuredDepth

  14.         real(8) :: TotalVerticalDepth

  15.     end type CPathGenerationItem

  16.     

  17.     type, bind(c), public :: CDataPointItem

  18.         real(8) :: X

  19.         real(8) :: Y

  20.     end type CDataPointItem

  21. 

  22.     Type :: PathGenerationType

  23.         integer :: ItemCount = 0

  24.         type(CPathGenerationItem), allocatable :: Items(:)

  25.     End type PathGenerationType

  26. 

  27. ! Type(PathGenerationType)::PathGeneration

  28. 

  29. end module CPathGenerationVariables