我定义了一个动态数组，
    COMPLEX(16),DIMENSION(:,:),allocatable ::GG,SHH,GA
     & ,Rho1,Rho2,Rho
     
      COMPLEX(16),DIMENSION(:,:,:),allocatable :: F,HG,S
      ALLOCATE(GG(MN,MN),SHH(MN,MN),GA(MN,MN),Rho1(MN,MN),Rho2(N,L),
     & Rho(MN,MN))
       
       ALLOCATE(F(N,N,L),HG(N,N,L),S(N,N,L))
在我自己电脑上用的挺好，但是在Lunix下出问题了！！提示
为什么 会这样呢？
 
      COMPLEX(16),DIMENSION(:,:),allocatable ::GG,SHH,GA
                1
Error: Kind 16 not supported for type COMPLEX at (1)
xingnewarmchair.f:20.16:

      COMPLEX(16),DIMENSION(:,:,:),allocatable :: F,HG,S
                1
Error: Kind 16 not supported for type COMPLEX at (1)
xingnewarmchair.f:31.16:

       ALLOCATE(GG(MN,MN),SHH(MN,MN),GA(MN,MN),Rho1(MN,MN),Rho2(N,L),
                1
Error: Allocate-object at (1) is not a nonprocedure pointer or an allocatable variable
xingnewarmchair.f:34.16:

       ALLOCATE(F(N,N,L),HG(N,N,L),S(N,N,L))
                1
Error: Allocate-object at (1) is not a nonprocedure pointer or an allocatable variable
xingnewarmchair.f:94.6:

      SHH(N+1:2*N,N+1:2*N)=SL1
      1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:95.6:

      SHH(2*N+1:3*N,2*N+1:3*N)=SL1
      1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:111.6:

      F(:,:,1)=-MATMUL(TA,B1)
      1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:118.29:

          TA=AL2+MATMUL(C2,F(:,:,j-1))-SL1  !\xB5\xDA2\xCC\xF5\xC1\xB4\xD3\xD0\xB5\xE7\xBC\xAB
                             1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:120.29:

          TA=AL2+MATMUL(C2,F(:,:,j-1))
                             1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:125.6:

      F(:,:,j)=-MATMUL(TA,B2)
      1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:128.28:

         TA=AL1+MATMUL(C1,F(:,:,j-1))-SL1
                            1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:130.28:

         TA=AL1+MATMUL(C1,F(:,:,j-1))
                            1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:135.6:

      F(:,:,j)=-MATMUL(TA,B1)
      1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:140.25:

      TA=AR1+MATMUL(C1,F(:,:,j-1))
                         1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:144.6:

      F(:,:,j)=-MATMUL(TA,B1)
      1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:146.25:

      TA=AR2+MATMUL(C2,F(:,:,j-1))
                         1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:150.6:

      F(:,:,j)=-MATMUL(TA,B2)
      1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:156.25:

      TA=AR2+MATMUL(C2,F(:,:,L-1))-SR
                         1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:159.6:

      HG(:,:,L)=TA
      1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:166.6:

      S(:,:,L-1)=-MATMUL(TA,C2)
      1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:169.25:

      TA=AR1+MATMUL(C1,F(:,:,L-2))+MATMUL(B1,S(:,:,L-1))  ! TA=AR1+MATMU
                         1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:173.6:

      HG(:,:,L-1)=TA
      1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:178.31:

            TA=AR1+MATMUL(B1,S(:,:,j+1))  !TA=AR1+MATMUL(B1,S(:,:,j+1))
                               1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:183.13:

             S(:,:,j)=-MATMUL(TA,C1)
             1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:186.32:

             TA=AR2+MATMUL(C2,F(:,:,j-1))+MATMUL(B2,S(:,:,j))  ! TA=AR2+
                                1
Error: Syntax error in argument list at (1)