anchor.diff:           '     ll_ene,   data_ene,'//&
            '  prior_ene,   cpu_time,       pacc'
   
  -    if (niter_agd > 0) call map_all('nag',nvars,nclasses,seq,seqs_table,prm,fmodel,&
  +    if (niter_agd > 0) call map_all('adam',nvars,nclasses,seq,seqs_table,prm,fmodel,&
            fdata,data_format,ulog,beta,lambda,&
            niter_agd,mc_nsweeps,tot_iter,nupdate)
       
  
positive.code:        tfista = 1.0_kflt
      case('adam')
         ! the "standard" value for adam should be 1.e-3
         eps_map = 0.01_kflt
         if (iproc == 0) then 
            allocate(prm1(dimm),stat=err)
            allocate(prm2(dimm),stat=err)
  
negative.code:     case('gd')
         eps_map = 0.01_kflt
      case('nag')
         eps_map = 0.001_kflt
         if (iproc == 0) then 
            allocate(prm1(dimm),stat=err)
            prm1 = prm
  