MULDA LANGUAGE - FORTRAN IV 



COMPUTER - IBM 1130 

 (COPY ON FILE AT NODC) 



A COMPLETE MULTIPLE DISCRIMINANT ANALYSIS IS PERFORMED BY SIX INTERRE- 

 LATED PROGRAMS WHICH ARE EXECUTED IN SUCCESSION THROUGH THE L I NIC FEA- 

 TURE IN 1130 FORTRAN. WILL ACCEPT UP TO 25 VARIATES AND AS MAnY AS 10 

 GROUPS. ANY NUMBER OF ADDITIONAL DATA CARDS CAN BE READ AND PROCESSED 

 AFTER THE DISCRIMINANT ANALYSIS HAS BEEN COMPLETED. THE VALUE OF THE 

 DISCRIMINANT FUNCTION. CLASSIFICATION CHI-SQUARES AND PROBABILITIES OF 

 GROUP MEMBERSHIP ARE COMPUTED AND PRINTED FOR EACH ADDITIONAL M-VARI- 

 AtE observation. AUTHORS — L.V. PIENAAr AND J. A. THOMSON, FrB TECHNI- 

 CAL REPORT NO. 112, MAR 1969 (UNPUBLISHED MANUSCRIPT). DIRECT INQUIR- 

 IES TO — 



FISHERIES RESEARCH BOARD OF CANADA 

 BIOLOGICAL STATION 

 NANAIMO, B.C. 



SCALING SUBROUTINE LANGUAGE - FORTRAN 



COMPUTER - CDC 3800 



SCALES AN ARRAY OF FLOATING POINT NUMBERS, CORRESPONDING TO A SINGLE 

 COORDINATE, PREPARING THEM FOR INPUT TO THE 565 CALCOMP PLOTTER. NRL 

 MEMO. REPORT 2047. AUTHORS — J. LANGWORTHY, J. HOUSTON. 



JAMES B. LANGWORTHY 



THEORY BRANCH 



NUCLEAR PHYSICS DIVISION 



NAVAL RESEARCH LABORATORY. WASHINGTON, D. C. 20390 



EVALUATE BESSEL FUNCTIONS LANGUAGE - FORTRAN 



COMPUTER - CDC 3800 



A SET OF SUBROUTINES THAT EVALUATE, IN SINGLE AND DOUBLE PRECISION, 

 BESSEL FUNCTIONS OF THE FIRST AND SECOND KINDS FOR ORDERS ZERO AND ONE 

 FOR POSITIVE REAL ARGUMENTS. ALSO TO EVALUATE, IN SINGLE AND DOUBLE 

 PRECISION, BESSEL FUNCTIONS OF THE FIRST AND SECOND KINDS FOR INTEGER 

 OR FRACTIONAL ORDERS AND POSITIVE REAL ARGUMENTS. NRL MEMO. REPORTS 

 1975-1978. AUTHORS — J. MASON, R. BAIER. 



JANET P. MASON 



RESEARCH COMPUTATION CENTER 



MATHEMATICS AND INFORMATION SCIENCES DIVISION 



NAVAL RESEARCH LABORATORY, WASHINGTON, D. C. 20390 



DETERMINANT OF A REAL SYMMETRIC MATRIX LANGUAGE - FORTRAN 



COMPUTER - CDC 3800 



A SUBROUTINE WRITTEN AT ARGONNE NATIONAL LABORATORY THAT SOLVES, IN- 

 VERTS, AND FINDS THE DETERMINANT OF SYMMETRIC REAL MATRICES, HAS BEEN 

 MODIFIED. IT REQUIRES THAT ONLY THE UPPER TRIANGULAR PORTION OF THE 

 MATRIX BE INPUT, THEREBY REDUCING THE MATRIX STORAGE REQUIREMENT TO 

 N(N+l)/2 LOCATIONS. NRL MEMO. REPORT 2009. AUTHOR — J. MASON 



JANET P. MASON 



RESEARCH COMPUTATION CENTER 



MATHEMATICS AND INFORMATION SCIENCES DIVISION 



NAVAL RESEARCH LABORATORY, WASHINGTON, D. C. 20390 



SUBROUTINE TO FIND THE REAL ZEROS OF A LANGUAGE - FORTRAN 



SINGLE-VALUED FUNCTION OF ONE REAL VARIABLE COMPUTER - CDC 3800 



FINDS THE REAL ZEROS OF A SINGLE-VALUED FUNCTION OF ONE REAL VA.RIABLE 

 BY A MODIFIED METHOD OF FALSE POSITION. FINDS WITHIN A SPECIFIED TOL- 



PAGE 053 



