--- trunk/OOPSE-3.0/src/types/AtomTypeProperties.h	2004/10/21 20:15:31	1628
+++ trunk/OOPSE-3.0/src/types/AtomTypeProperties.h	2004/10/22 20:21:36	1632
@@ -9,6 +9,7 @@ typedef  struct{
  */
 typedef  struct{
   int ident;
+  int is_Directional;
   int is_LennardJones;
   int is_Electrostatic;
   int is_Charge;
@@ -24,10 +25,10 @@ type, public :: AtomTypeProperties
 
 #ifdef  __FORTRAN90
 
-type, public :: AtomTypeProperties
-   PRIVATE
+type :: AtomTypeProperties
    SEQUENCE
    integer :: ident
+   logical :: is_Directional
    logical :: is_LennardJones
    logical :: is_Electrostatic
    logical :: is_Charge