anchor.diff:            deallocate( fstrSOLID%materials )
           if( .not. associated(fstrSOLID%elements ) ) return
           do i=1,size(fstrSOLID%elements)
  -          if( associated(fstrSOLID%elements(i)%gausses) ) then
  +          if( associated(fstrSOLID%elements(i)%gausses) ) then           
               do j=1,size(fstrSOLID%elements(i)%gausses)
                 call fstr_finalize_gauss(fstrSOLID%elements(i)%gausses(j))
               enddo
               deallocate( fstrSOLID%elements(i)%gausses )
  -          endif
  -          if(associated(fstrSOLID%elements(i)%equiForces) ) then
  -            deallocate(fstrSOLID%elements(i)%equiForces)
  -          endif
  -        enddo
  +          endif                                                              
  +          if(associated(fstrSOLID%elements(i)%equiForces) ) then            
  +            deallocate(fstrSOLID%elements(i)%equiForces)    
  +          endif                                                               
  +        enddo                                   
  +          
           deallocate( fstrSOLID%elements )
           if( associated( fstrSOLID%mpc_const ) ) then
             deallocate( fstrSOLID%mpc_const )
  
positive.code:         fstrSOLID%COUPLE_ngrp_tot   = 0
  
          fstrSOLID%restart_nout= 0
  end subroutine fstr_solid_init
  
  !> Initializer of structure fstr_solid
  subroutine fstr_solid_alloc( hecMESH, hecMAT, fstrSOLID )
          use m_fstr
          type(hecmwST_local_mesh),target :: hecMESH
          type(hecmwST_matrix ),target    :: hecMAT
          type(fstr_solid)                :: fstrSOLID
  
          integer :: ntotal, ierror
  
          ntotal=hecMAT_get_node_narray( hecMAT )
  
          allocate ( fstrSOLID%GL( ntotal )          ,STAT=ierror )
              if( ierror /= 0 ) then
                write(idbg,*) 'stop due to allocation error <FSTR_SOLID, GL>'
  
negative.code:               call hecmw_abort( hecmw_comm_get_comm())
              end if
          endif
  
  end subroutine
  
  !> Initial setting of heat analysis
  