anchor.diff:          if( fstr_ctrl_get_param_ex( ctrl, 'NSET ',    '0,-1,+1 ',          0,   'I',   nset    ) /= 0) return
           if( fstr_ctrl_get_param_ex( ctrl, 'ITERLOG ', 'NO,YES ',           0,   'P',   iter ) /= 0) return
           if( fstr_ctrl_get_param_ex( ctrl, 'TIMELOG ', 'NO,YES ',           0,   'P',   time ) /= 0) return
  -        if( fstr_ctrl_get_param_ex( ctrl, 'DUMPTYPE ', dlist,              0,   'P',   dumptype ) /= 0) return
  +        if( fstr_ctrl_get_param_ex( ctrl, 'DUMPTYPE ', dlist,              0,   'P',   dmpt ) /= 0) return
           if( fstr_ctrl_get_param_ex( ctrl, 'DUMPEXIT ','NO,YES ',           0,   'P',   dmpx ) /= 0) return
           if( fstr_ctrl_get_param_ex( ctrl, 'USEJAD '  ,'NO,YES ',           0,   'P',   usjd ) /= 0) return
           ! JP-1
  
positive.code:         end if
  
          if( dumptype <= 4 ) then
            dumptype = dumptype - 1
          else
            dumptype = dumptype - 5
          end if
  
          !* data --------------------------------------------------------------------------------------- *!
  
negative.code: 
          integer(kind=kint) :: number_number = 5    
          integer(kind=kint) :: indirect_number = 4
          integer(kind=kint) :: iter, time, dmpt, dmpx, usjd
  
          fstr_ctrl_get_SOLVER = -1
  
          iter = iterlog+1
          time = timelog+1
          dmpt = dumptype+1
          dmpx = dumpexit+1
          usjd = usejad+1
          !* parameter in header line -----------------------------------------------------------------*!
  