mdtools/libmdCode/atype_typedefs.F90

!! module defines atypes available to simulation

module atype_typedefs
  use definitions, only: dp
  use vector_class
  implicit none


  type (vector), pointer :: atype => null()

end module atype_typedefs
Revision:	315
Committed:	Tue Mar 11 20:15:18 2003 UTC (21 years, 6 months ago) by chuckv
File size:	209 byte(s)
Log Message:	Changes to vector_class and removed all traces of linked list.
#	Content
1	!! module defines atypes available to simulation
2
3	module atype_typedefs
4	use definitions, only: dp
5	use vector_class
6	implicit none
7
8
9
10	type (vector), pointer :: atype => null()
11
12	end module atype_typedefs