Logical function hermitian(n, a)
complex a(n,n)


do i=1,n

do j=i+1,n

if(.not. a(i,j) ==conjg(a(j,i)) ) then
hermitian =.false.
RETURN
endif

enddo
enddo

hermitian =.true.
END