TYPE DATUM
       REAL VALUE
       REAL SD
      END TYPE DATUM
      TYPE POINT
       TYPE(DATUM) X
       TYPE(DATUM) Y
      END TYPE POINT
      TYPE(POINT) P1,P2