Adouble$d=.;Bint_i=;Cboolean_flag=true;DfloatF=.f;