c..sizes of the tables c..normal table, big table, bigger table, denser bigger table integer imax,jmax c parameter (imax = 211, jmax = 71) c parameter (imax = 261, jmax = 101) parameter (imax = 271, jmax = 101) c parameter (imax = 541, jmax = 201) c..for the electrons c..density and temperature double precision tlo,thi,tstp,tstpi,dlo,dhi,dstp,dstpi double precision d(imax),t(jmax) common /dttabc1/ d,t, 1 tlo,thi,tstp,tstpi,dlo,dhi,dstp,dstpi c..for chemical potential tables double precision ef(imax,jmax),efd(imax,jmax), 1 eft(imax,jmax),efdt(imax,jmax) common /eftabc1/ ef,efd, 1 eft,efdt c..for storing the differences double precision dt_sav(jmax),dt2_sav(jmax), 1 dti_sav(jmax),dt2i_sav(jmax),dt3i_sav(jmax), 2 dd_sav(imax),dd2_sav(imax), 3 ddi_sav(imax),dd2i_sav(imax),dd3i_sav(jmax) common /diftabc1/dt_sav,dt2_sav, 1 dti_sav,dt2i_sav,dt3i_sav, 2 dd_sav,dd2_sav, 3 ddi_sav,dd2i_sav,dd3i_sav