Statistiques
| Révision :

root / src / VarTypes.f90 @ 7

Historique | Voir | Annoter | Télécharger (996 octet)

1
MODULE VarTypes
2

    
3
  INTEGER, PARAMETER :: KINT=KIND(1)
4
  INTEGER, PARAMETER :: KREAL=KIND(1.0D0)
5
  INTEGER(KINT), PARAMETER :: VLCHARS=256, LCHARS=132, SCHARS=32
6

    
7
  Type ListCoord
8
! Type of the coordinate
9
! For now: BOND, ANGLE, DIHEDRAL
10
      CHARACTER(32) :: Type
11

    
12
! Index of the atoms
13
     INTEGER(KINT) :: At1,At2,At3,At4
14
! Value of the Coordinate
15
     REAL(KREAL) :: Value
16
!! ! This is the value to use to multiply the value to print it in a human readable format
17
!!     REAL(KREAL) :: PrintFactor
18
     INTEGER(KINT) :: SignDihedral
19
     TYPE (ListCoord), POINTER :: Next
20
  END TYPE ListCoord
21

    
22
  Type Barycenter
23
     INTEGER(KINT), ALLOCATABLE :: ListAtoms(:) ! Nat max
24
! Weights is not used for now 
25
     REAL(KREAL), ALLOCATABLE :: Weights(:) ! Nat max
26
     TYPE (Barycenter), POINTER :: Next
27
  END type BARYCENTER
28

    
29

    
30
  TYPE Input_Line
31
     CHARACTER(LCHARS) :: Line
32
     TYPE (Input_Line), POINTER :: Prev
33
     TYPE (Input_Line), POINTER :: Next
34
  END TYPE Input_Line
35

    
36

    
37
END MODULE VARTYPES