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.
69 Commits
2 Branches
136 MiB
 
 
 
 
 
 
Tree: a57ac8edd6
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'a57ac8edd6'
${ noResults }
SimulationCore2/CSharp/BasicInputs/WellProfile/CWellSurveyDataVariables.i90

25 lines
679 B
Raw Blame History 

  1. # 1 "/home/admin/SimulationCore2/CSharp/BasicInputs/WellProfile/CWellSurveyDataVariables.f90"

  2. module CWellSurveyDataVariables

  3.     implicit none

  4.     public

  5.     

  6. ! types

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

  8.         real(8) :: MeasuredDepth

  9.         real(8) :: Inclination

  10.         real(8) :: Azimoth

  11.         real(8) :: TotalVerticalDepth

  12.         real(8) :: X

  13.         real(8) :: Y

  14.         real(8) :: Z

  15.     end type CSurveyDataItem

  16. 

  17.     Type :: WellSurveyDataType

  18.         integer :: Count = 0

  19.         type(CSurveyDataItem), allocatable :: Items(:)

  20.     End Type WellSurveyDataType

  21.     

  22. ! Type(WellSurveyDataType)::WellSurveyData

  23.     contains

  24. end module CWellSurveyDataVariables