checking size of unallocated array does not work

This commit is contained in:
Martin Diehl 2019-10-17 08:40:05 +02:00
parent 88df7f2957
commit b9027e3257
1 changed files with 1 additions and 2 deletions

View File

@ -316,8 +316,7 @@ subroutine results_writeTensorDataset_real(group,dataset,label,description,SIuni
endif
if(T) then
if(size(dataset_transposed,1) /= size(dataset_transposed,2)) &
call IO_error(0,ext_msg='transpose non-symmetric tensor')
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)
dataset_transposed(:,:,i) = transpose(dataset(:,:,i))