
                               					20-May-1983 10:31:29	VAX-11 FORTRAN V3.2-37              Page   1
								17-May-1983 08:45:06	CAD$VOLSET:[GARY.STATS.SOURCE]STD.FOR;5     

0001    !
0002    !			  COPYRIGHT (c) 1982 BY
0003    !	      MOSTEK CORPORATION, CARROLLTON TX
0004    !
0005    ! This software is furnished under a license and may be used and  copied
0006    ! only  in  accordance  with  the  terms  of  such  license and with the
0007    ! inclusion of the above copyright notice.  This software or  any  other
0008    ! copies  thereof may not be provided or otherwise made available to any
0009    ! other person.  No title to and ownership of  the  software  is  hereby
0010    ! transferred.
0011    !
0012    ! The information in this software is subject to change  without  notice
0013    ! and  should  not  be  construed  as  a commitment by MOSTEK
0014    ! CORPORATION.
0015    !
0016    ! MOSTEK assumes no responsibility for the use or  reliability  of  its
0017    ! software on equipment which is not supplied by MOSTEK.
0018    !
0019     
0020    !++
0021    ! FACILITY:
0022    !   MOSTEK CORPORATION
0023    !
0024    ! ABSTRACT: STD calculates the standard deviation.
0025    !   
0026    !
0027    ! ENVIRONMENT: VAX/VMS unpriv
0028    !   
0029    !
0030    ! AUTHOR: Gary Smith, CREATION DATE: 4/20/83
0031    !
0032    ! MODIFIED BY:
0033    !
0034    !--
0035    !
0036    ! TABLE OF CONTENTS:
0037    !
0038    !
0039    ! INCLUDE FILES: none
0040    !
0041    !
0042    ! MACROS: none
0043    !
0044    !
0045    ! EQUATED SYMBOLS: none
0046    !
0047    !
0048    ! EXTERNAL REFERENCES: none
0049    !
0050     
0051    !++
0052    ! FUNCTIONAL DESCRIPTION: STD receives the sum of the values squared,
0053    !                         the sum of the values, and the number of values.
0054    !                         This goes into the standard formula for STD.
0055    !
0056    !
0057    !

                               					20-May-1983 10:31:29	VAX-11 FORTRAN V3.2-37              Page   2
								17-May-1983 08:45:06	CAD$VOLSET:[GARY.STATS.SOURCE]STD.FOR;5     

0058    ! FORMAL PARAMETERS: bar   -> the sum of the values**2
0059    !                    set   -> the sum of the values
0060    !                    count -> how many values there are
0061    !
0062    !
0063    !
0064    ! IMPLICIT INPUTS: none
0065    !
0066    !
0067    !
0068    ! IMPLICIT OUTPUTS: none
0069    !
0070    !
0071    !
0072    ! ROUTINE VALUE and
0073    ! COMPLETION CODES: the standard deviation
0074    !
0075    !
0076    !
0077    ! SIDE EFFECTS: none to date
0078    !
0079    !
0080    !
0081    !--
0082              REAL FUNCTION STD(  BAR, SET, COUNT )
0083     
0084              real * 8 bar, set
0085     
0086              integer count
0087     
0088    !++
0089    ! compute the STD as square_root( x**2_bar - (x_bar)**2 )
0090    !--
0091     
0092              std = sqrt( (bar/count) - ((set/count) ** 2) )
0093              return
0094              end

STD                            					20-May-1983 10:31:29	VAX-11 FORTRAN V3.2-37              Page   3
								17-May-1983 08:45:06	CAD$VOLSET:[GARY.STATS.SOURCE]STD.FOR;5     

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                   48   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                   4   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                   52


ENTRY POINTS

    Address  Type  Name                      References

  0-00000000  R*4  STD                          82        92=    


VARIABLES

    Address  Type  Name          Attributes  References

 AP-00000004@ R*8  BAR                          82        84        92     
 AP-0000000C@ I*4  COUNT                        82        86        92(2)  
 AP-00000008@ R*8  SET                          82        84        92     


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                 References

   R*8  MTH$DSQRT                               92     


  +----------------------------------------------+
  |           KEY TO REFERENCE FLAGS             |
  |   =   - Value Modified                       |
  |   #   - Defining Reference                   |
  |   A   - Actual Argument, possibly modified   |
  |   D   - Data Initialization                  |
  |  (n)  - Number of occurrences on line        |
  +----------------------------------------------+



COMMAND QUALIFIERS

  FORTRAN /DEBUG/OBJECT=OBJ:STD/LIST=LIS:STD/CONT=99/CROSS/NOOPT SRC:STD

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(SYMBOLS,TRACEBACK)
  /STANDARD=(NOSYNTAX,NOSOURCE_FORM)
  /SHOW=(NOPREPROCESSOR,NOINCLUDE,MAP)
  /F77  /NOG_FLOATING  /I4  /NOOPTIMIZE  /WARNINGS  /NOD_LINES  /CROSS_REFERENCE  /NOMACHINE_CODE  /CONTINUATIONS=99

STD                            					20-May-1983 10:31:29	VAX-11 FORTRAN V3.2-37              Page   4
								17-May-1983 08:45:06	CAD$VOLSET:[GARY.STATS.SOURCE]STD.FOR;5     

COMPILATION STATISTICS

  Run Time:           0.69 seconds
  Elapsed Time:       3.44 seconds
  Page Faults:        338
  Dynamic Memory:     794 pages
