Page 1 of 2 ID#: P00321D0VAX00 RSIC # : PSR-321 1 DS/HD 5.25" diskette (1.2mb) CODE PKG NAME: GRPANL COMPUTER: VAX family PACKAGED: 06/29/92 MOST RECENT UPDATE: ************************************************************************ DESCRIPTION Number of LINES ************************************************************************ Note: All files ar ASCII unless otherwise stated. 1 000022.L14 Sample problem, spectral data file 14 2 AAA_AUX.TXT List of auxiliary files, machine-readable 43 documentation 3 AAA_PROG.TXT List of GRPANL source files, machine-readable 41 documentation 4 ABSCOF.DAT EDIGRP sample problem, absorption coefficients 41 5 ANCR.FOR GRPANL subroutines, FORTRAN source 675 6 CALGPM.FOR GRPANL subroutin CALGPM, FORTRAN source, 53 self-absorption correction 7 CALIB.FOR GRPANL subroutine CALIB, FORTRAN source, 206 calculates reference points for linearity 8 EDI.COM Command file to create EDIGRP object library 6 9 EDIGRP.FOR EDIGRP FORTRAN source, creates and edits 214 an analysis control file 10 EDIPKS.FOR EDIGRP subroutine EDIPKS, FORTRAN source, 223 prepares EDIGRP input 11 EDVERS.FOR EDIGRP subroutine EDVERS, FORTRAN source, 16 gives program name and version 12 EVAL.FOR GRPANL subroutine EVAL, FORTRAN source, 241 evaluates a single spectrum 13 EVLMLR.FOR GEVAL subroutine EVLMIR, FORTRAN source, 105 runs MLR to achieve minimum errors 14 EVLOUT.FOR GEVAL subroutine EVLOUT, FORTRAN source, 138 reports multiple spectra analysis results 15 FIT.FOR GRPANL subroutine FIT, FORTRAN source, 531 calculates linear peak heights 16 GETFLOP.FOR GRPANL subroutine GETFLOP, FORTRAN source, 122 reads file options from the terminal 17 GETGRP.FOR EDIGRP subroutine GETGRP, FORTRAN source, 466 pre-edits peak grouping specifications 18 GETPMS.FOR EDIGRP subroutine GETPMS, FORTRAN source, 434 preloads GRPANL control information 19 GEVAL.FOR GEVAL FORTRAN source, identifies the 150 isotopes and calculates their abundance in the sample 20 GEVAL.PMS GEVAL parameters 13 21 GEVALLCOM.PMS GEVAL parameters to expand the GRPANL 168 parameter specifications 22 GEVIK.COM Command file to link GEVAL 2 23 GFIT.FOR GRPANL subroutine GFIT, FORTRAN source, 99 calculates the peak position, height, and width 24 GPM.FOR GRPANL subroutine GPM, FORTRAN source, 88 tests the effect of double precision 25 GRAPH.FOR GRPANL subroutine GRAPH, FORTRAN source, 157 prepares graphics output files 26 GRPANL.FOR GRPANL MAIN routine, FORTRAN source 130 27 GRPANL.HLP GRPANL HELP file, machine-readable 154 documentation 28 GRPDEFS.TXT Variable definitions, machine-readable 159 documentation 29 GRPEVC.PMS COMMON blocks for EVAL section of GRPANL 28 and EVAL 30 GRPGEV.PMS GEVAL parameter file to expand GEVAL 44 parameters 31 GRPGMS.PMS Arrays produced by OUT for SVPKS and GEVAL, 15 GRPANL FORTRAN source 32 GRPGSP.PMS GRPANL parameter file for a given spectrum 22 33 GRPKCM.PMS GRPANL COMMON blocks containing peak 32 information 34 GRPLGCM.PMS GRPANL parameter file to include GRPGSP.PMS, 4 GRPKCM.PMS, and GRPYLG.PMS 35 GRPRFL.PMS GRPANL COMMON blocks to transfer peak profiles 80 from FIT to the graphics routines 36 GRPYLG.PMS GRPANL COMMON blocks containing parameters 52 and control information 37 GVERS.FOR GRPANL subroutine GVERS, FORTRAN source, 15 gives program name and version. Page 2 of 2 RSIC # : PSR-321 1 DS/HD 5.25" diskette (1.2mb) CODE PKG NAME: GRPANL COMPUTER: VAX family PACKAGED: 06/29/92 MOST RECENT UPDATE: ************************************************************************ DESCRIPTION Number of LINES ************************************************************************ 38 INITLP.FOR GRPANL subroutine INITLP, FORTRAN source, 125 initiates printer output of parameters and file names 39 LI.DET Library of nuclide decay schemes 18 40 LDMTRX.FOR GRPANL subroutine LDMTRX, FORTRAN source, 162 forms the equations that represent the observed peaks 41 LIBRY.FOR LIBRY FORTRAN source, program to store nuclear 390 decay scheme data 42 LKGRP.COM Command file to link GRPANL 12 43 LODGRP.FOR GRPANL subroutine LODGRP, FORTRAN source, 296 loads a specified peak grouping and removes its background 44 LODMTRX.FOR GEVAL subroutine LODMTRX, FORTRAN source, forms 175 equations that represent the observed peaks 45 MATINV.FOR GRPANL subroutine MATINV, FORTRAN source, 80 matrix inversion routine 46 MLR.FOR GRPANL subroutine MLR, FORTRAN source, 467 minimizes residuals using Householder reflections method 47 NP237.FIL GRPANL sample control file containing input parameters and analysis options (BINARY) 48 NP237.LBl GRPANL data library created by LIBRY 9 49 NP237.LB2 GRPANL data library created by LIBRY 16 50 NP237.LIB GRPANL data library created by LIBRY for input to GRPANL (BINARY) 51 OUT.FOR GRPANL subroutine OUT, FORTRAN source, 505 accumulates peak fitting results, calculates the source photon emission rate, and tabulates and stores the data 52 PCKCMP.FOR GRPANL subroutine PCKCMP, FORTRAN source, 172 determines the set of nuclide components responsible for the spectrum peaks 53 PICKCMP.FOR GEVAL subroutine PICKCMP, FORTRAN source, 155 determines the nuclide components responsible for the spectrum peaks 54 PLOTFL.FOR GRPANL subroutine PLOTFL, FORTRAN source, 73 prepares ASCII files for use by external plot routines 55 RDGAMS.FOR GEVAL subroutine RDGAMS, FORTRAN source, 144 reads GRPANL output and reconstructs the photon/min table 56 RDHDR.FOR GRPANL subroutine RDHDR, FORTRAN source, 131 retrieves sample parameters from the spectrum file header 57 RDUMMY.FOR GRPANL subroutine RDUMMY, FORTRAN source, 15 replaces the routine which reads LANL spectral headers 58 READIN.FOR GRPANL subroutine READIN, FORTRAN source, 625 requests and reads files 59 SVPKS.FOR GRPANL subroutine SVPKS, FORTRAN source, saves 137 the peak fitting results for use by EVAL 60 SYMBLS.DAT Sample problem, chemical symbols 6 61 UTSUBS.FOR GRPANL FORTRAN source 623 62 DIGLIB.OLB DIGLIB object library (BINARY) 63 DIGRAPH.OLB DIGRAPH object library (BINARY) ********************************************************************* Note: The code was partially tested at RSIC on a VAX 6000 under VAX/VMS using the VAX FORTRAN compiler.