ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
View Changeset
|
Root Listing
root
/
group
/
trunk
/
OOPSE_old
/
src
/
mdtools
/
libmdCode
/
atype_typedefs.F90
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.
File Contents
#
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