MODULE gem_kind
IMPLICIT NONE

INTEGER, PARAMETER, PUBLIC :: r4 = 4  !single precision
INTEGER, PARAMETER, PUBLIC :: r8 = 8  !double

CHARACTER (LEN=*), PARAMETER :: gemini_home="/home/bob/gemini/"

TYPE, PUBLIC :: info
   REAL (KIND=r4) :: Excn,dexcn,R_num,t_delay,sig_delay,Kramer,ratio
   REAL (KIND=r4) :: E2_strength,E1_strength,aden_0
   REAL (KIND=r4) :: a_scale,b_scale,threshold
   LOGICAL        :: diagnostics,time_flag,I_angle,quantum
   LOGICAL        :: sharp_delay,tl_iwbc,polarization
   LOGICAL        :: time_wise,lestone
   LOGICAL        :: k_sum,j_flag,ssum,fluct,expand,ex_flag
   INTEGER        :: Zcn,Acn,lmin,lmax,N_weight,imf_option,Z_IMF_min
   INTEGER        :: exotic_index,mass_option,aden_type
   CHARACTER (LEN=40) :: reaction
   CHARACTER (LEN=12) ::day
END TYPE info

TYPE (info), PUBLIC :: para 

TYPE, PUBLIC :: vell
    REAL (KIND=r4) :: v,theta,phi
END TYPE vell
TYPE, PUBLIC :: spinn
    REAL (KIND=r4) :: theta,phi
END TYPE spinn

TYPE, PUBLIC :: identity
    INTEGER :: Z,A,Id,level
    REAL (KIND=r4) :: Ex,time,J,K,M,exx
    TYPE (spinn) :: spin
    TYPE (vell) :: vel 
END TYPE identity

INTEGER, PARAMETER, PUBLIC :: l_max_quantum = 50
INTEGER, PUBLIC :: A_cut


REAL (KIND=r4), PARAMETER, PUBLIC :: pi = 3.141592653589793238
REAL (KIND=r4), PARAMETER, PUBLIC :: r0 = 1.16
REAL (KIND=r4), PARAMETER, PUBLIC :: sep = 2.0
REAL (KIND=r4), PARAMETER, PUBLIC :: r0ld = 1.2249

END MODULE gem_kind