stats_ Subroutine

subroutine stats_(title, bits, aerr, perr, im, jm)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: title
integer :: bits
real, intent(in) :: aerr(im,jm)
real, intent(in) :: perr(im,jm)
integer :: im
integer :: jm

Calls

proc~~stats_~~CallsGraph proc~stats_ stats_ 2 2 proc~stats_->2

Source Code

   subroutine stats_ ( title, bits, aerr, perr, im, jm )
         character(len=*) :: title
         real, intent(in) :: aerr(im,jm), perr(im,jm)
         integer :: n, bits
         real    :: amean, pmean
         n = im * jm
         amean = sum(aerr) / n 
         pmean = sum(perr) / n 
         print 10, title, bits, amean, maxval(abs(aerr)), &
                                pmean, maxval(abs(perr))
10       format(a20,i3,'  |'2(E14.6),'   |',f14.6,' %',f14.6,' %  |')
!         print *, '   Mean: ', emean
!         print *, '   Supp:',  maxval(abs(err))
!         print *, '   Stdv:',  sqrt(sum((err-emean)**2)/(n-1)) 
    end subroutine stats_