1.d0
-1.d0
1.d-5
-1.D5
342.e+12
12.
12
.23
-.23
1.E4
1E4
1D-4
var1
va1r
mo_tot_8 = 1./(0.4*log(float(elec_num_tot_8+0.4)))