anchor.diff:          if( p%PARAM%solution_type==kstSTATIC .or. p%PARAM%solution_type==kstNLSTATIC .or. &
              p%PARAM%solution_type==kstDYNAMIC .or. p%PARAM%solution_type==kstEIGEN .or.   &
              p%PARAM%solution_type==6 )            &
  -          call fstr_solid_alloc( hecMESH, hecMAT, fstrSOLID )
  +          call fstr_solid_alloc( hecMESH, fstrSOLID )
   
           if( p%PARAM%solution_type == kstHEAT) then
             p%PARAM%fg_irres = fstrSOLID%output_ctrl(3)%freqency
  
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:         type(hecmwST_local_mesh),target :: hecMESH
          type(fstr_solid)                :: fstrSOLID
  
          integer :: i, j, ng, isect, ndof, id, nn            
  
          if( hecMESH%n_elem <=0 ) then
               stop "no element defined!"
  