You should specify the type of A.
instead of
ALLOCATABLE :: T(:,:),B(:,:),A(:,:)
you should specify
real*4, ALLOCATABLE :: T(:,:),B(:,:),A(:,:)
if real*4 is the proper type.
Norbert
The optimist believes we live in the best of all possible worlds - the pessimist fears this might be true.