3 REAL(KIND(1.D0
)), POINTER :: ASPK(:)
8 Integer, Parameter :: DIM_TEMP_BUFFER
=10000
9 Real(Kind(1.d0
)), Parameter :: COLROW_
=0.33,PERCENT
=0.7
16 Type(DMT
), intent (inout
) :: A
17 Real(Kind(1.d0
)),Pointer :: ASPK(:)
18 Integer :: ISIZE
, IDIM
22 Allocate(ASPK(ISIZE
),STAT
=INFO
)
23 IDIM
= MIN(ISIZE
,SIZE(A
%ASPK
))
24 ASPK(1:IDIM
) = A
%ASPK(1:IDIM
)