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