anchor.diff:  				end do
   			end if	 
       else
  -		 IF (ALLOCATED(fstrSOLID%EPSTRAIN)) then 
  +		 IF (ASSOCIATED(fstrSOLID%EPSTRAIN)) then 
   			RETURN
   		 ENDIF
           if( (ndof==6 .or. mixedflag==1 ) ) then
  
positive.code: 				end do
  			end if
      else
  		 IF (ALLOCATED(fstrSOLID%EPSTRESS)) then 
  			RETURN
  		 ENDIF
  			if( (ndof==6 .or. mixedflag==1 ) ) then
  
negative.code:     if (id == 1) then
       ! allocate(fstrSOLID%PSTRAIN)
  		 !NODEです。	
  		 IF (ASSOCIATED(fstrSOLID%PSTRESS)) then 
  			RETURN
  		 ENDIF
  			if( (ndof==6 .or. mixedflag==1 ) ) then
  