$ SET NOVERIFY

  SYS$NODE = "CFAKU3::"  (LNM$SYSTEM_TABLE)

   6-FEB-1997 14:28:32

$	IF F$SEARCH("LOGIN.COM") .NES. "" THEN @LOGIN
$ SET NOON		! IGC 15-APR-1987
$SET NOVERIFY
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
%DCL-W-PARMDEL, invalid parameter delimiter - check use of special characters
 \$\
$ IF "BATCH" .EQS. "BATCH" THEN EXIT
$SET5601
$ASSIGN AB5601135X.DAT  FOR001
$ASSIGN HYPER5601135X.OUT FOR005
$ASSIGN HYPER5601135X.DAT FOR007
$RUN COWAN:HYPERFINEX
      0.000  0.5 6s  2S        3591.700     0.000BW           0.000        
      1.0      -0.150
      2.0       0.090
  21952.422  1.5 6p  2P         113.060     3.880BFH          0.000        
      0.0      -0.014
      1.0      -0.010
      2.0      -0.003
      3.0       0.009
  20261.562  0.5 6p  2P         663.700     0.000BFH          0.000        
      1.0      -0.028
      2.0       0.017
REFERENCES. A AND B IN MHZ.                                                     
BW        Becker, W. and Werth, G. Z. Physik A 311, 41-47, 1983.                
BFH       Becker, W,, Fischer, W., Huhnermann, H. 1968, Z. Physik 216, 142.     
  455.4029  0.170 56.01       0.000  0.5 6s  2S       21952.422  1.5 6p  2P      0.00  0.00  0.00NBS  0 0  0 0.000  0 0.000    0    0      0       0    0
      1.0       2.000
      0.0       3.000
      1.0      -0.150
  1.00000   0.00000   0.06250
  1.00000   1.00000   0.15625
  1.00000   2.00000   0.15625
      2.0       0.090
  2.00000   1.00000   0.03125
  2.00000   2.00000   0.15625
  2.00000   3.00000   0.43750
  1.00000
  493.4076 -0.150 56.01       0.000  0.5 6s  2S       20261.562  0.5 6p  2P      0.00  0.00  0.00NBS  0 0  0 0.000  0 0.000    0    0      0       0    0
      1.0       2.000
      1.0       2.000
      1.0      -0.150
  1.00000   1.00000   0.06250
  1.00000   2.00000   0.31250
      2.0       0.090
  2.00000   1.00000   0.31250
  2.00000   2.00000   0.31250
  1.00000
$SORT/STABLE/KEY=(POS:1,SIZE:11)/STAT HYPER5601135X.DAT HYPER5601135.SRT

                  OpenVMS VAX Sort/Merge Statistics

Records read:          10          Input record length:      154
Records sorted:        10          Internal length:          160
Records output:        10          Output record length:     154
Working set extent: 16000          Sort tree size:            30
Virtual memory:       392          Number of initial runs:     0
Direct I/O:             9          Maximum merge order:        0
Buffered I/O:          11          Number of merge passes:     0
Page faults:          224          Work file allocation:       0
Elapsed time: 00:00:00.19          Elapsed CPU:      00:00:00.04                                                                                                                                                                                               
  KURUCZ       job terminated at  6-FEB-1997 14:28:33.55

  Accounting information:
  Buffered I/O count:             125         Peak working set size:     861
  Direct I/O count:                38         Peak page file size:      5206
  Page faults:                   7243         Mounted volumes:             0
  Charged CPU time:           0 00:00:01.37   Elapsed time:     0 00:00:02.15