anchor.diff:  ! ----- material type judgement. in case of infinitive analysis, nlgeom_flag=0
           if( P%PARAM%solution_type == kstSTATIC ) then
             do i=1, c_material
  -            fstrSOLID%materials(c_material)%nlgeom_flag = 0
  +            fstrSOLID%materials(i)%nlgeom_flag = 0
             enddo
           endif
        !   do i=1, c_material
  
positive.code:               call hecmw_abort( hecmw_comm_get_comm())
              end if
            fstrSOLID%reftemp = REF_TEMP
          endif
  
          if( associated(fstrSOLID%step_ctrl) )  then
  
negative.code:         endif
          if( associated(fstrSOLID%reftemp) ) then
              deallocate(fstrSOLID%reftemp       ,STAT=ierror)
              if( ierror /= 0 ) then
                write(idbg,*) 'stop due to deallocation error <FSTR_SOLID, reftemp>'
                call flush(idbg)
                call hecmw_abort( hecmw_comm_get_comm())
              end if
          endif
          if( associated(fstrSOLID%last_temp) ) then
              deallocate(fstrSOLID%last_temp       ,STAT=ierror)
              if( ierror /= 0 ) then
                write(idbg,*) 'stop due to deallocation error <FSTR_SOLID, reftemp>'
                call flush(idbg)
                call hecmw_abort( hecmw_comm_get_comm())
              end if
          endif
          if( associated(fstrSOLID%temp_bak) ) then
              deallocate(fstrSOLID%temp_bak       ,STAT=ierror)
              if( ierror /= 0 ) then
                write(idbg,*) 'stop due to deallocation error <FSTR_SOLID, reftemp>'
                call flush(idbg)
  