IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../core/stats.F 03/09/11 11:04:55 >>>>> OPTIONS SECTION <<<<< *** Options In Effect *** == On / Off Options == CR DBG ESCAPE FULLPATH I4 INLGLUE NOLIBESSL NOLIBPOSIX OBJECT SOURCE STRICT SWAPOMP THREADED UNWIND ZEROSIZE == Options Of Integer Type == ALIAS_SIZE(65536) MAXMEM(-1) OPTIMIZE(2) SPILLSIZE(2000) STACKTEMP(0) == Options Of Character Type == 64(LARGETYPE) ALIAS(STD,NOINTPTR) ALIGN(BINDC(POWER),STRUCT(NATURAL)) ARCH(PWR6) ATTR(FULL) AUTODBL(NONE) DESCRIPTOR(V1) DIRECTIVE(IBM*,IBMT) ENUM() FLAG(I,I) FLOAT(RNDSNGL,MAF,FOLD,RNGCHK,SINGLE) FREE(F90) HALT(S) IEEE(NEAR) INTSIZE(4) LANGLVL(EXTENDED) REALSIZE(4) NOSAVE() TUNE(PWR6) UNROLL(AUTO) XREF(FULL) XLF2003(NOPOLYMORPHIC,NOBOZLITARGS,NOSTOPEXCEPT,NOVOLATILE,NOAUTOREALLOC,OLDNANINF) XLF77(LEADZERO,BLANKPAD) XLF90(NOSIGNEDZERO,NOAUTODEALLOC,OLDPAD) >>>>> SOURCE SECTION <<<<< 1 |#line 1 "../core/stats.F" 1 |!------------------------------------------------------------------------- 2 |! NASA Goddard Space Flight Center Land Information System (LIS) V3.0 3 |! Released May 2004 4 |! 5 |! See SOFTWARE DISTRIBUTION POLICY for software distribution policies 6 |! 7 |! The LIS source code and documentation are in the public domain, 8 |! available without fee for educational, research, non-commercial and 9 |! commercial purposes. Users may distribute the binary or source 10 |! code to third parties provided this statement appears on all copies and 11 |! that no charge is made for such copies. 12 |! 13 |! NASA GSFC MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE 14 |! SOFTWARE FOR ANY PURPOSE. IT IS PROVIDED AS IS WITHOUT EXPRESS OR 15 |! IMPLIED WARRANTY. NEITHER NASA GSFC NOR THE US GOVERNMENT SHALL BE 16 |! LIABLE FOR ANY DAMAGES SUFFERED BY THE USER OF THIS SOFTWARE. 17 |! 18 |! See COPYRIGHT.TXT for copyright details. 19 |! 20 |!------------------------------------------------------------------------- 21 |!BOP 22 |! 23 |! !ROUTINE: stats.F90 24 |! 25 |! !DESCRIPTION: 26 |! Calculates statistics for a given variable 27 |! 28 |! !REVISION HISTORY: 29 |! Nov 11 1999: Jon Radakovich; Initial code 30 |! 31 |! !INTERFACE: 32 |subroutine stats(var,udef,nch,mean,stdev,min,max) 33 |! !ARGUMENTS: 34 | integer, intent(in) :: nch 35 | real, intent(in) :: var(nch), udef 36 | real, intent(out) :: mean,stdev,min,max 37 |!EOP 38 | integer :: t, count 39 | real :: dev, vsum 40 |!=== End Variable List =================================================== 41 |!BOC 42 | vsum=0. 43 | mean=0. 44 | dev=0. 45 | stdev=0. 46 | min=100000. 47 | max=-100000. 48 | count = 0 49 | do t=1,nch 50 | if(var(t).ne.udef)then 51 | count = count +1 52 | vsum=vsum+var(t) 53 | if(var(t).gt.max)max=var(t) 54 | if(var(t).lt.min)min=var(t) 55 | endif 56 | enddo 57 | if(vsum.eq.0.)then 58 | max=0. 59 | min=0. 60 | endif 61 | if(count .ge.1) then 62 | mean=vsum/float(count) 63 | else 64 | mean = 0 65 | endif 66 | count = 0 67 | do t=1,nch 68 | if(var(t).ne.udef)then 69 | count = count + 1 70 | dev=dev+(var(t)-mean)**2 71 | endif 72 | enddo 73 | if(count .gt.1) then 74 | stdev=(dev*(float(count)-1)**(-1))**(0.5) 75 | else 76 | stdev = 0 77 | endif 78 | return 79 |!EOC 80 |end subroutine stats >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES count Automatic, Integer(4), Offset: 0, Alignment: full word 0-38.17$ 0-48.3@ 0-51.9@ 0-51.17 0-61.6 0-62.22 0-66.3@ 0-69.9@ 0-69.17 0-73.6 0-74.24 dev Automatic, Real(4), Offset: 0, Alignment: full word 0-39.11$ 0-44.3@ 0-70.9@ 0-70.13 0-74.13 float Pure Intrinsic 0-62.16 0-74.18 max Reference argument, Intent (OUT), Real(4), Offset: 0, Alignment: full word 0-36.41$ 0-32.46 0-47.3@ 0-53.22 0-53.26@ 0-58.6@ mean Reference argument, Intent (OUT), Real(4), Offset: 0, Alignment: full word 0-36.26$ 0-32.31 0-43.3@ 0-62.6@ 0-64.6@ 0-70.25 min Reference argument, Intent (OUT), Real(4), Offset: 0, Alignment: full word 0-36.37$ 0-32.42 0-46.3@ 0-54.22 0-54.26@ 0-59.6@ nch Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-34.26$ 0-32.27 0-35.30 0-35.30 0-49.10 0-67.10 stats Subroutine 0-32.12$ stdev Reference argument, Intent (OUT), Real(4), Offset: 0, Alignment: full word 0-36.31$ 0-32.36 0-45.3@ 0-74.6@ 0-76.6@ t Automatic, Integer(4), Offset: 0, Alignment: full word 0-38.14$ 0-49.6@ 0-50.13 0-52.23 0-53.16 0-53.34 0-54.16 0-54.34 0-67.6@ 0-68.13 0-70.22 udef Reference argument, Intent (IN), Real(4), Offset: 0, Alignment: full word 0-35.36$ 0-32.22 0-50.19 0-68.19 var Reference argument, Intent (IN), Real(4) (1:?), Offset: 0, Alignment: full word 0-35.26$ 0-32.18 0-50.9 0-52.19 0-53.12 0-53.30 0-54.12 0-54.30 0-68.9 0-70.18 vsum Automatic, Real(4), Offset: 0, Alignment: full word 0-39.16$ 0-42.3@ 0-52.9@ 0-52.14 0-57.6 0-62.11 ** stats === End of Compilation 1 === >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 ../core/stats.F 03/09/11 11:04:55 >>>>> COMPILATION EPILOGUE SECTION <<<<< FORTRAN Summary of Diagnosed Conditions TOTAL UNRECOVERABLE SEVERE ERROR WARNING INFORMATIONAL (U) (S) (E) (W) (I) 0 0 0 0 0 0 Source records read....................................... 81 1501-510 Compilation successful for file stats.F. 1501-543 Object file created.