anchor.diff:            enddo
             iitem = iitem + nn
           endif
  -      endif
  +
   ! --- MISES @node
  -      if(fstrSOLID%output_ctrl(4)%outinfo%on(5)) then
  -
  -        if( (ndof==6 .or. mixedflag==1 ) ) then
  -          ncomp = ncomp + 1
  -          nn = 1
  -          fstrRESULT%nn_dof(ncomp) = nn
  -          fstrRESULT%node_label(ncomp) = 'NodalMISES_Layer'//trim(char_n_lyr)//'+'
  -          do i = 1, hecMESH%n_node
  -            fstrRESULT%node_val_item(nitem*(i-1)+1+iitem) = fstrSOLID%MISES(2*ntot_lyr*(i-1)+2*(n_lyr-1)  )
  -          enddo
  -          iitem = iitem + nn
  -
  -          ncomp = ncomp + 1
  -          fstrRESULT%nn_dof(ncomp) = nn
  -          fstrRESULT%node_label(ncomp) = 'NodalMISES_Layer'//trim(char_n_lyr)//'-'
  -          do i = 1, hecMESH%n_node
  -            fstrRESULT%node_val_item(nitem*(i-1)+1+iitem) = fstrSOLID%MISES(2*ntot_lyr*(i-1)+2*(n_lyr-1)+1)
  -          enddo
  -          iitem = iitem + nn
  -
  -        else
  +        if(fstrSOLID%output_ctrl(4)%outinfo%on(5)) then
             ncomp = ncomp + 1
             nn = n_comp_valtype( fstrSOLID%output_ctrl(4)%outinfo%vtype(5), ndof )
             fstrRESULT%nn_dof(ncomp) = nn
  
positive.code:       addfname = '_dif'
        call hecmw_result_write_by_addfname( nameID, addfname )
      endif
  ! --- FINALIZE
      call hecmw_result_finalize
  
  
negative.code:           nitem = nitem + n_comp_valtype( fstrSOLID%output_ctrl(4)%outinfo%vtype(12), ndof )
          endif
  
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
          fstrRESULT%nn_component = ncomp
          fstrRESULT%ne_component = ecomp
          allocate( fstrRESULT%nn_dof(ncomp) )
          allocate( fstrRESULT%node_label(ncomp) )
          allocate( fstrRESULT%node_val_item(shell33_coeff*nitem*hecMESH%n_node) )
          allocate( fstrRESULT%ne_dof(ecomp) )
          allocate( fstrRESULT%elem_label(ecomp) )
          allocate( fstrRESULT%elem_val_item(eitem*hecMESH%n_elem) )
          ncomp = 0
          iitem = 0
          ecomp = 0
          jitem = 0
  
  ! --- DISPLACEMENT
          if (fstrSOLID%output_ctrl(4)%outinfo%on(1) ) then
            ncomp = ncomp + 1
            nn = n_comp_valtype( fstrSOLID%output_ctrl(4)%outinfo%vtype(1), ndof )
            fstrRESULT%nn_dof(ncomp) = nn
  