Blame view

src/statistics.f90 206 Bytes
68586e03   Jérémy Baudry   new release
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        subroutine statistics

        USE PARAMETERS




        IMPLICIT NONE   
        double precision :: m_0

        m_0=sum(E(n,i,:)*domega)
        h_sign(n,i)=4*sqrt(m_0)


        end subroutine