writemac.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	writemac (mac, nev)

Function/Subroutine Documentation

writemac()

subroutine writemac	(	real*8, dimension(nev,nev)	mac,
		integer	nev
	)

!
!      writes the results of MAC-caculation in *_mac.dat
!
!      nm is the nodal diameter in case of complex frequency
!      nev is the number of eigenvectors
!      mac contains the MAC-Values
!
       implicit none
!
       integer i,j,nev
       real*8 mac(nev,nev)
!
       write(5,*)
       write(5,*)    'Modal Assurance Criterium'
       write(5,*)
       do i=1,nev
          write(5,100) (mac(i,j),j=1,nev)
       enddo
!
 100   format(15(1x,e11.4))
       return