新手求告知

shaoqikao100 · 发表于 2018-4-22 21:35:42

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

01MODULE  FUNC
02    TYPE PERSON
03        CHARACTER ( LEN = 10 ) :: NAME
04        REAL :: HEIGHT , WEIGHT
05    END TYPE 
06    TYPE PPERSON
07        TYPE(PERSON) , POINTER :: P
08    END TYPE
09     
10    CONTAINS
11    SUBROUTINE SORT (P)
12    IMPLICIT NONE
13    TYPE(PPERSON) :: P (:)
14    TYPE(PPERSON) :: TEMP
15    INTEGER I,J,S
16    S = SIZE(P,1)
17    DO I = 1 , S-1
18        DO J = I+1 , S
19            IF( P(J)%P%HEIGHT < P(I)%P%HEIGHT ) THEN
20                TEMP = P(I)
21                P(I) = P(J)
22                P(J) = TEMP
23            END IF
24        END DO
25    END DO
26    RETURN
27    END SUBROUTINE
28    END MODULE
29     
30         
31PROGRAM MAIN
32   USE FUNC
33   IMPLICIT NONE
34   TYPE(PERSON) , TARGET :: P(3) = (/PERSON("CHEN" , 180.0 , 56.0 ), &
35                                     PERSON("HUANG", 190.0 , 75.0 ),&
36                                     PERSON("LIU", 177.0 , 89.0 )/)
37   TYPE(PPERSON) :: PT(3)
38   INTEGER I
39   FORALL (I = 1:3)
40       PT(I)%P => P(I)
41   END FORALL
42   CALL SORT(PT)
43   WRITE (*,"(3(A8,F6.1,F5.1/))")( PT(I)%P , I = 1,3)
44     
45   STOP
46END PROGRAM

这里子程序里的，TYPE(PPERSON) :: P (:)，为什么可以使用P (:)。
在这里TYPE(PPERSON)并不是个指针，为什么可以使用这种类似可变数组的表达。
而在主程序里TYPE(PPERSON) :: PT(3)就不能使用PT(:)了。

请前辈们看看。

fcode · 发表于 2018-4-22 22:17:32

TYPE(PPERSON) :: P (:) 在子程序里，如果 P 是虚参，则这种用法叫“假定形状”，意思是，实参多大，虚参就多大。

它只能对虚参进行，所以主程序不能使用。

胡文刚 · 发表于 2018-4-23 07:32:53

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

shaoqikao100 · 发表于 2018-4-23 14:23:21

fcode 发表于 2018-4-22 22:17
TYPE(PPERSON) :: P (:) 在子程序里，如果 P 是虚参，则这种用法叫“假定形状”，意思是，实参多大，虚参就 ...

谢谢，懂了

shaoqikao100 · 发表于 2018-4-23 14:24:14

本帖最后由 shaoqikao100 于 2018-4-23 14:50 编辑

胡文刚发表于 2018-4-23 07:32
指针的排序为啥要用赋值呢？
用
TEMP => P(I)

这里的temp和p并不是指针是类，不能用指向的。

胡文刚 · 发表于 2018-4-23 15:26:15

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

1    TYPE(PPERSON) , target  :: P (:)
2    TYPE(PERSON)  , pointer :: TEMP
3 
4TEMP   => P(I)%P
5P(I)%P => P(J)%P
6P(J)%P => TEMP

shaoqikao100 · 发表于 2018-4-23 16:40:57

胡文刚发表于 2018-4-23 15:26
[mw_shl_code=fortran,true] TYPE(PPERSON) , target :: P (:)
TYPE(PERSON) , pointer :: TEMP

嗯嗯，这样是可以的

[子程序] 新手求告知

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章