+ double precision time00,time01,time02,time03,time04,time05,
+ & time06,time07,time08,time001,tt0
+ double precision scalfac
+ integer i,j,k,il,il1,ii,iex,itmp,i_temp,i_mult,i_iset,i_mset,
+ & i_dir,i_temp1,i_mult1,i_mset1
+ integer ERRCODE,ierr,ierror