← Back to branch summary

~abenson/galacticus/v0.9.0

« back to all changes in this revision

Viewing changes to source/events.interrupts.F90

  • Committer: Andrew Benson
  • Date: 2010-05-27 14:18:28 UTC
  • Revision ID: abesnson@its.caltech.edu-20100527141828-dzvnjovtiq02impa
* Importing full Galacticus code as developed to date.

Show diffs side-by-side

added added

removed removed

Lines of Context:
source/events.interrupts.F90
 
1
!% Contains a module which specifies the template for interrupt procedures.
 
2
 
 
3
module Events_Interrupts
 
4
  !% Specifies the template for interrupt procedures.
 
5
  use Tree_Nodes
 
6
  private
 
7
  public :: Interrupt_Procedure_Template
 
8
 
 
9
  ! Procedure template for interrupt routines.
 
10
  abstract interface
 
11
     subroutine Interrupt_Procedure_Template(thisNode)
 
12
       import treeNode
 
13
       type(treeNode), pointer, intent(inout) :: thisNode
 
14
     end subroutine Interrupt_Procedure_Template
 
15
  end interface
 
16
  
 
17
end module Events_Interrupts