新手求告知

胡文刚

指针的排序为啥要用赋值呢？
用
  TEMP => P(I)
  P(I) => P(J)
  P(J) => TEMP
呀
指针赋值（=）比指针指向（=>)慢多了

胡文刚

[Fortran] 纯文本查看 复制代码

    TYPE(PPERSON) , target  :: P (:)
    TYPE(PERSON)  , pointer :: TEMP

TEMP   => P(I)%P
P(I)%P => P(J)%P
P(J)%P => TEMP