cos_precision.f90

Go to the documentation of this file.

! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
!*******************************************************************************
module cos_precision
  implicit none
  integer,parameter :: DP=kind(1.0D0)
  type tab_ptr
      real(DP),dimension(:),pointer  :: val
  end type tab_ptr
end module cos_precision
!*******************************************************************************