DATA

module Datos
  implicit none

  REAL(8),PARAMETER:: t_min=0.541
  REAL(8),PARAMETER:: t_max=28.55

  REAL(8),PARAMETER:: Inc_min=1.e-3
  REAL(8),PARAMETER:: Inc_max=2.d0
  REAL(8),PARAMETER:: k=(Inc_min + Inc_max )/2.d0

  INTEGER,PARAMETER:: dim =((t_max-t_min)/k)
  INTEGER,PARAMETER:: neq=4

  REAL(8),PARAMETER:: E_max=2.d0
  REAL(8),PARAMETER:: E_min=0.15


  REAL(8),PARAMETER:: g=9.80665
  REAL(8),PARAMETER:: C_d=0.5
  REAL(8),PARAMETER:: rho=1.225
  REAL(8),PARAMETER:: s=0.05

  REAL(8),PARAMETER:: phi_1=10.d0*sqrt(3.d0)/2.d0
  REAL(8),PARAMETER:: phi_2=37.33*sqrt(3.d0)/2.d0
  REAL(8),PARAMETER:: phi_3=5.d0
  REAL(8),PARAMETER:: phi_4=37.33/2.d0


end module Datos