← Back to branch summary

~abenson/galacticus/v0.9.1

« back to all changes in this revision

Viewing changes to source/satellites.merging.virial_orbits.Wetzel2010.F90

  • Committer: Andrew Benson
  • Date: 2012-10-20 17:46:37 UTC
  • Revision ID: abenson@obs.carnegiescience.edu-20121020174637-l62iceznt1pfxd4s
* Remove obsolete module use statements.

Show diffs side-by-side

added added

removed removed

Lines of Context:
source/satellites.merging.virial_orbits.Wetzel2010.F90
95
95
    use Pseudo_Random
96
96
    use Tree_Nodes
97
97
    use Dark_Matter_Halo_Scales
98
 
    use Galacticus_Error
99
98
    use Critical_Overdensity
100
99
    use Numerical_Interpolation
101
100
    use Root_Finder
102
101
    use Cosmology_Functions
103
 
    use FGSL
104
102
    use Kepler_Orbits_Structure
105
103
    implicit none
106
104
    type(keplerOrbit)                                :: thisOrbit
225
223
  !# </galacticusStateStoreTask>
226
224
  subroutine Virial_Orbital_Parameters_Wetzel2010_State_Store(stateFile,fgslStateFile)
227
225
    !% Write the stored snapshot of the random number state to file.
228
 
    use FGSL
229
226
    use Pseudo_Random
230
227
    implicit none
231
228
    integer,         intent(in) :: stateFile
241
238
  !# </galacticusStateRetrieveTask>
242
239
  subroutine Virial_Orbital_Parameters_Wetzel2010_State_Retrieve(stateFile,fgslStateFile)
243
240
    !% Write the stored snapshot of the random number state to file.
244
 
    use FGSL
245
241
    use Pseudo_Random
246
242
    implicit none
247
243
    integer,         intent(in) :: stateFile