Back to OASIS4 home

Type dble_vector : defined in oasis4/lib/common_oa4/src/psmile_common.F90

Type integer_vector
         Integer,          Pointer :: vector (:)
End Type integer_vector

Type logical_vector
         Logical,          Pointer :: vector (:)
End Type logical_vector

Type real_vector
         Real,             Pointer :: vector (:)
End Type real_vector

Type dble_vector
         Double Precision, Pointer :: vector (:)
End Type dble_vector

#if defined ( PRISM_QUAD_TYPE )
Type quad_vector
         Real (kind=PRISM_QUAD_TYPE), Pointer :: vector (:)
End Type quad_vector
#endif

Type memo
         Integer :: i
         Integer :: j
         Integer :: dir
         Logical :: overlap
End Type memo

Type point_real
         Real :: x
         Real :: y
End Type point_real

Type point_dble
         Double Precision :: x
         Double Precision :: y
End Type point_dble

Type line_dble
         Type(point_dble) :: p1
         Type(point_dble) :: p2
End Type line_dble

Type line_real
         Type(point_real) :: p1
         Type(point_real) :: p2
End Type line_real