From 3de605d7822a020ddd86840ae7c706c4b4e93840 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 19 Oct 2019 16:06:01 +0200
Subject: [PATCH] better name

---
 src/results.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/results.f90 b/src/results.f90
index 36b122776..471f994d6 100644
--- a/src/results.f90
+++ b/src/results.f90
@@ -304,18 +304,18 @@ subroutine results_writeTensorDataset_real(group,dataset,label,description,SIuni
   real(pReal),      intent(in), dimension(:,:,:) :: dataset
   
   integer :: i 
-  logical :: T
+  logical :: transposed_
   integer(HID_T) :: groupHandle
   real(pReal), dimension(:,:,:), allocatable :: dataset_transposed
 
   
   if(present(transposed)) then
-    T = transposed
+    transposed_ = transposed
   else
-    T = .true.
+    transposed_ = .true.
   endif
 
-  if(T) then
+  if(transposed_) then
     if(size(dataset,1) /= size(dataset,2)) call IO_error(0,ext_msg='transpose non-symmetric tensor')
     allocate(dataset_transposed,mold=dataset)
     do i=1,size(dataset_transposed,3)