Révision 7 src/VarTypes.f90

VarTypes.f90 (revision 7)
13 13
     INTEGER(KINT) :: At1,At2,At3,At4
14 14
! Value of the Coordinate
15 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
16 18
     INTEGER(KINT) :: SignDihedral
17 19
     TYPE (ListCoord), POINTER :: Next
18 20
  END TYPE ListCoord
19 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
20 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

  
21 37
END MODULE VARTYPES

Formats disponibles : Unified diff