请看 Fortran 2003 语法，用 allocatable 数组做子例程哑元。

我们学的是f90/95，还没到03，不知道90/95里边能否有解决方案~~

90/95 里面好像还不能返回一个不确定大小的数组, 例如你这个数组指针.

[url=http://www.gmbar.com/cataclysm-power-leveling-us.php]cataclysm power  level[/url] 
[url=http://www.gmbar.com/gw2-cdk.php]guild wars2 cd key[/url] 
[url=http://www.gmbar.com/ffxiv-cdk.php]ffxiv time card[/url] 
[url=http://www.gmbar.com/conan-cdkey.php]rise of the godslayer key[/url] 
[url=http://www.gmbar.com/ffxiv-cdk.php]cheap ffxiv cd key[/url] 
[url=http://www.gmbar.com/ffxiv-account.php]ffxiv accounts[/url] 
[url=http://www.gmbar.com/ffxiv-power-leveling.php]final fantasy xiv power  leveling[/url]  
[url=http://www.gmbar.com/cheap-wow-cdkey-us.php]wow cataclysm cd key[/url] 
[url=http://www.gmbar.com/cheap-wow-cdkey-eu.php]buy world of warcraft  cataclysm cd key[/url]    
[url=http://www.gmbar.com/conan-power-leveling.php]rise of the godslayer power  leveling[/url] 
[url=http://www.gmsky.fr/ffxiv-gil.html]ff14 gold[/url] 
[url=http://www.gmsky.fr/ffxiv-cdkey.html]final fantasy xiv cd key[/url] 
[url=http://www.gmsky.fr/ffxiv-account.html]ffxiv accounts[/url] 
[url=http://www.gmsky.fr/ffxiv-power-leveling.html]final fantasy xiv power  leveling[/url] 
[url=http://www.bestffxivgil.com/]ffxiv gold[/url] 
[url=http://www.bestffxivgil.com/ffxiv-power-leveling.html]ffxiv leveling[/url] 
[url=http://www.bestffxivgil.com/ffxiv-account.html]ffxiv accounts[/url] 
[url=http://www.bestffxivgil.com/ffxiv-cdkey.html]final fantasy xiv cd key[/url] 
[url=http://www.wowcataclysmonline.com/cataclysm-cd-key-us.php]world of warcraft  cataclysm cd key[/url] 
[url=http://www.wowcataclysmonline.com/cataclysm-cd-key-us.php]buy wow cataclysm[/url] 
[url=http://www.wowcataclysmonline.com/cataclysm-cd-key-us.php]buy world  of warcraft cataclysm[/url] 
[url=http://www.wowcataclysmonline.com/cataclysm-cd-key-eu.php]buy world of warcraft  cataclysm cd key[/url] 
[url=http://www.wowcataclysmonline.com/cataclysm-cd-key-eu.php]buy cataclysm[/url] 
[url=http://www.wowcataclysmonline.com/cataclysm-cd-key-eu.php] buy cataclysm key[/url]

[url=http://www.gmbar.com/cheap_aion_gold_us.php]aion gold[/url]  
[url=http://www.gmbar.com/cheap_aion_gold_us.php]cheap aion kina[/url] 
[url=http://www.gmbar.com/aion-power-leveling-eu.php]aion leveling[/url] 
[url=http://www.gmbar.com/aion-cdkey.php]aion cdkey[/url] 
[url=http://www.gmbar.com/aion-account.php]aion account[/url] 
[url=http://www.gmbar.com/cheap-wow-cdkey-us.php]wotlk cd key[/url] 
[url=http://www.gmbar.com/cheap-wow-cdkey-eu.php]buy wow key[/url]  
[url=http://www.gmbar.com/]cheap wow gold [/url]  
[url=http://www.gmbar.com/]wow leveling[/url]  
[url=http://www.gmbar.com/conan-cdkey.php]aoc time card[/url]  
[url=http://www.gmbar.com/lotro-power-leveling-eu.php?g_id=15]lotro power  leveling[/url] 
[url=http://www.gmbar.com/conan-power-leveling.php]aoc power  leveling[/url] 
[url=http://www.gmbar.com/lineage2-cdkey.php?g_id=1]lineage 2  cd key[/url]
[url=http://www.gmbar.com/cheap-conan-gold.php]age  of conan gold[/url] 
[url=http://www.gmbar.com/cheap-conan-gold.php]conan  gold[/url] 
[url=http://www.gmbar.com/]cheap wow gold[/url] 
[url=http://www.gmbar.com/cheap_aion_gold_us.php]aion kina[/url] 
[url=http://www.gmbar.com/cheap-wow-cdkey-us.php]wow time card[/url]
[url=http://www.gmbar.com/]cheap wow power leveling[/url] 
[url=http://www.gmbar.com/cheap-wow-cdkey-us.php]wow game time card[/url] 
[url=http://www.gmbar.com/cheap_trek_gold_us.php]sto gold[/url] 
[url=http://www.gmbar.com/cheap-war-gold.php]warhammer gold [/url] 
[url=http://www.gmbar.com/cheap-wow-cdkey-eu.php]world of  warcraft cd key [/url] 
[url=http://www.gmbar.com/cheap-wow-cdkey-eu.php]world of warcraft time card[/url]  
[url=http://www.gmbar.com/cheap_aion_gold_us.php]cheap aion kina[/url] 
[url=http://www.gmbar.com/]cheap wow gold[/url] 
[url=http://www.gmbar.com/cheap_aion_gold_us.php]aion kinah[/url] 
[url=http://www.gmbar.com/cheap-aion-gold.php]buy aion gold[/url] 
[url=http://www.gmbar.com/cheap_aion_gold_us.php]buy aion kina[/url] 
[url=http://www.gmbar.com/cheap_aion_gold_us.php]cheap aion kina[/url] 
[url=http://www.gmbar.com/cheap_aion_gold_us.php]cheap aion kinah[/url] 
[url=http://www.gmbar.com/cheap-aion-gold.php]aion online gold[/url] 
[url=http://www.gmbar.com/aion-power-leveling-eu.php]aion leveling[/url] 
[url=http://www.gmbar.com/aion-power-leveling-us.php]cheap aion leveling[/url] 
[url=http://www.gmbar.com/aion-cdkey.php]aion cd key[/url] 
[url=http://www.gmbar.com/aion-cdkey.php]aion cdkey[/url] 
[url=http://www.gmbar.com/aion-cdkey.php]aion time card[/url] 
[url=http://www.gmbar.com/aion-power-leveling.php]aion power leveling[/url] 
[url=http://www.gmbar.com/aion-power-leveling-eu.php]aion power level[/url]  
[url=http://www.gmbar.com/cheap-wow-cdkey-us.php]wow cd key [/url] 
[url=http://www.gmbar.com/ffxiv-gold.php]ffxiv  gil [/url] 
[url=http://www.gmbar.com/ffxiv-gold.php]ff14 gil[/url]  
[url=http://www.gmbar.com/ffxiv-gold.php]ffxiv  gold[/url]  
[url=http://www.gmbar.com/ffxiv-gold.php]ff14 gold[/url] 
[url=http://www.gmbar.com/ffxiv-gold.php]final fantasy xiv gil [/url] 
[url=http://www.gmbar.com/ffxiv-gold.php]final  fantasy 14 gil[/url]  
[url=http://www.gmbar.com/ffxiv-gold.php]buy ffxiv gil[/url] 
[url=http://www.gmbar.com/ffxiv-gold.php]buy ff14 gil[/url]  
[url=http://www.gmbar.com/ffxiv-gold.php]cheap  ffxiv gil[/url] 
[url=http://www.gmbar.com/ffxiv-gold.php]cheap ff14 gil[/url] 
[url=http://www.gmbar.com/cheap-war-gold.php]warhammer gold[/url] 
[url=http://www.gmbar.com/cheap-conan-gold-eu.php]aoc gold[/url] 
[url=http://www.gmbar.com/cheap-lotro-gold.php]lotro gold[/url] 
[url=http://www.gmbar.com/war-power-leveling.php]warhammer power leveling[/url] 
[url=http://www.gmbar.com/war-accounts.php]warhammer account[/url]
[url=http://www.gmbar.com/gw2-gold.php]guild  wars 2 gold for sale[/url] 
[url=http://www.gmbar.com/gw2-power-leveling.php]guild  wars 2 power leveling[/url] 
[url=http://www.gmbar.com/gw2-account.php]gw2  accounts [/url] 
[url=http://www.gmbar.com/conan-cdkey-eu.php]rise of the godslayer cd key[/url] 
[url=http://www.gmbar.com/gw2-account.php]buy gw2 accounts[/url]  
[url=http://www.gmbar.com/ffxiv-gold.php]cheap  ffxiv gold[/url] 
[url=http://www.gmbar.com/cataclysm-power-leveling-eu.php]wow  cataclysm power level[/url]  

我的意思是，p(:)在自子程序里分配大小使用后怎么deallocate。如以下程序里的intsec（：）用过后如何释放它占用的内存。
    
    
    FUNCTION INTSEC(A,B)         
      
      IMPLICIT NONE
      integer, intent(in):: A(:),B(:)
      INTEGER M,N,I,J,MINUS,COUNTER,C(10)
      INTEGER,POINTER::INTSEC(:)
      COUNTER=0 
             M=SIZE(A)
      N=SIZE(B)
          
      DO J=1,N
         DO I=1,M
            MINUS=A(I)-B(J)  
            IF(MINUS==0) THEN
               COUNTER=COUNTER+1
               C(COUNTER)=A(I)
            ENDIF
         ENDDO
      ENDDO

      ALLOCATE(INTSEC(COUNTER))

      INTSEC=C(1:COUNTER)


    END