*begin leckfell

; ASSUMES ALL MAG DECL CORRECTIONS IN SURFACE DATA INCLUDED IN RESPECTIVE DATA FILES

*include Surface/leckfellsurfacesurvey

; BODGE FOR MAG DECL IN UNDERGROUND SURVEYS

; underground surveys - avg mag decl for 2010 = 3 deg W
; true N to grid N correction = -0.33 
*calibrate declination 2.67

*include BruntskillPot/BruntskillPot
*fix	BruntskillPot.Entrance	66734	79377	364	;Bruntskill pot III active sink RGB gps 15/01/07 to entrance at 001


*include BumblingHole/BumblingHole
*fix	BumblingHole.Entrance	66949	79284	343

*include CoalHole/CoalHole
*fix	CoalHole.EntranceLoc	67168	79047	358	;GPS RGB 13/12/07


*include DeathsHeadHole/DeathsHeadHole
*fix	DeathsHeadHole.FencePostTag	66783	79159	335 ;GPS RGB 29/11/07

*Include EyeHoles/Eyeholes
*fix	EyeHoles.006 66824	79184	337	;eyehole stile RGB GPS 02/03/07

*include LowDouk/LowDouk
*equate LowDouk.EntranceTag leckfellsurfacesurvey.LowDoukEntranceTag
;*fix LowDouk.EntranceTag 67766 76794 330


*include Ireby/Ireby
*equate Ireby.EntranceTag leckfellsurfacesurvey.IrebyEntranceTag


*include NottsII/NottsII
*equate NottsII.Entrance leckfellsurfacesurvey.NottsIIEntrance


*include MarbleSteps/AllMarbleSteps
*fix AllMarbleSteps.SurfaceMarbleSteps.001 67991.70 77072.04 382.3   ; 
*equate AllMarbleSteps.EntranceTag leckfellsurfacesurvey.MarbleStepsEntranceTag  

*include NottsPot/NottsPot
*equate NottsPot.EntrancePhanger leckfellsurfacesurvey.NottsPotEntrancePhanger
;*fix	NottsPot.EntrancePhanger	67105.25	77789.08	373.39 ; P Bolt(furthest of 2)
; to connect to diving data: NottsPot.SumpTag


*include LongDrop/LongDrop
     ; it would be desirable to move this into the surface survey
*fix LongDrop.StylePost	66969	79176	346	;Longdrop stile RGB GPS 02/03/07


*include RoughPot/RoughPot
*equate RoughPot.LostJohnsEntranceTag leckfellsurfacesurvey.LostJohnsEntranceTag


*include LostJohns/LostJohns
*equate LostJohns.EntranceTag leckfellsurfacesurvey.LostJohnsEntranceTag
     ; appears to refer to another surface survey to tie in here

*fix	LostJohns.BoxheadSurfaceRim	67110.19 78353.90 362.70   ;ev.ss19.022a  ;st015 is surface rim


*include ShortDrop/ShortDrop
*equate ShortDrop.FencePost  leckfellsurfacesurvey.ShortDropFencePost

*include GavelPot/GavelPot
*fix	GavelPot.GavelPotFencePost	66644.34 79082.83 329.13	;ev.ss25.003  ;st000=tag on fence post on path to entrance



*include RumblingHole/RumblingHole
*fix	RumblingHole.RumblingBeckTopEntrance	67173	79128	357 ;GPS RGB 13/09/07

*include StartingHandleHole/StartingHandleHole
*fix StartingHandleHole.001 66927.39 78605.91 350.49 ;ev.ss20.007a	;middle of starting handle hole

*include RiftPot/RiftPot
*equate RiftPot.EntranceTag leckfellsurfacesurvey.RiftPotEntranceTag

*equate RiftPot.SoutheastInletConnection Ireby.SoutheastInletConnection

*end leckfell