1!
2!      CalculiX - A 3-dimensional finite element program
3!               Copyright (C) 1998-2021 Guido Dhondt
4!
5!      This program is free software; you can redistribute it and/or
6!      modify it under the terms of the GNU General Public License as
7!      published by the Free Software Foundation(version 2);
8!
9!
10!      This program is distributed in the hope that it will be useful,
11!      but WITHOUT ANY WARRANTY; without even the implied warranty of
12!      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13!      GNU General Public License for more details.
14!
15!      You should have received a copy of the GNU General Public License
16!      along with this program; if not, write to the Free Software
17!      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18!
19       subroutine writemac(mac,nev,nevcomplex)
20!
21!      writes the results of MAC-caculation in *_mac.dat
22!
23!      nm is the nodal diameter in case of complex frequency
24!      nev is the number of eigenvectors
25!      mac contains the MAC-Values
26!
27       implicit none
28!
29       integer i,j,nev,nevcomplex
30       real*8 mac(nev,nevcomplex)
31!
32       write(5,*)
33       write(5,*)    'Modal Assurance Criterium'
34       write(5,*)
35       do i=1,nev
36          write(5,100) (mac(i,j),j=1,nevcomplex)
37       enddo
38!
39 100   format(15(1x,e11.4))
40       return
41       end
42