anchor.diff:      if (id == 1) then
        ! allocate(fstrSOLID%PSTRAIN)
   		 !NODEです。	
  -			IF (ALLOCATED(fstrSOLID%PSTRAIN)) then 
  +			IF (ASSOCIATED(fstrSOLID%PSTRAIN)) then 
   				RETURN
   			ENDIF
   			if( (ndof==6 .or. mixedflag==1 ) ) then
  
positive.code: 				end do
  			end if	 
      else
  		 IF (ALLOCATED(fstrSOLID%EPSTRAIN)) 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
  