*
* $Id: fatindx.F,v 1.1.1.1 1996/03/07 15:17:50 mclareni Exp $
*
* $Log: fatindx.F,v $
* Revision 1.1.1.1  1996/03/07 15:17:50  mclareni
* Fatmen
*
*
#include "sys/CERNLIB_machine.h"
#include "_fatmen/pilot.h"
MESS ' '
MESS 'Example KUMAC to create entries for program FATINDX'
MESS ' '
init cndiv
cd jamie/dd
add/tape js0008 js0008 1 p021 M1E05001 FX 1 UKACRL 'G120 5001 5250'
add/tape js0008 js0008 3 p023 M1E05501 FX 1 UKACRL 'G120 5501 5750'
add/tape js0009 js0009 2 p025 M1E06001 FX 1 UKACRL 'G120 6001 6250'
add/tape js0010 js0010 1 p027 M1E06501 FX 1 UKACRL 'G120 6501 6750'
add/tape js0010 js0010 3 p029 M1E07001 FX 1 UKACRL 'G120 7001 7250'
add/tape js0011 js0011 2 p031 M1E07501 FX 1 UKACRL 'G120 7501 7750'
add/tape js0012 js0012 1 p033 M1E08001 FX 1 UKACRL 'G120 8001 8250'
add/tape js0012 js0012 3 p035 M1E08501 FX 1 UKACRL 'G120 8501 8750'
add/tape js0013 js0013 2 p037 M1E09001 FX 1 UKACRL 'G120 9001 9250'
add/tape js0014 js0014 1 p039 M1E09501 FX 1 UKACRL 'G120 9501 9750'
add/tape js0014 js0014 3 p041 M1E10001 FX 1 UKACRL 'G120 10001 10250'
add/tape js0015 js0015 2 p043 M1E10501 FX 1 UKACRL 'G120 10501 10750'
add/tape js0016 js0016 1 p045 M1E11001 FX 1 UKACRL 'G120 11001 11250'
add/tape js0016 js0016 3 p047 M1E11501 FX 1 UKACRL 'G120 11501 11750'
add/tape js0017 js0017 2 p049 M1E12001 FX 1 UKACRL 'G120 12001 12250'
add/tape js0018 js0018 1 p051 M1E12501 FX 1 UKACRL 'G120 12501 12750'
add/tape js0018 js0018 3 p053 M1E13001 FX 1 UKACRL 'G120 13001 13250'
add/tape js0019 js0019 2 p055 M1E13501 FX 1 UKACRL 'G120 13501 13750'
add/tape js0020 js0020 1 p057 M1E14001 FX 1 UKACRL 'G120 14001 14250'
add/tape js0020 js0020 3 p059 M1E14501 FX 1 UKACRL 'G120 14501 14750'
add/tape js0021 js0021 2 p061 M1E15001 FX 1 UKACRL 'G120 15001 15250'
add/tape js0008 js0008 2 p022 M1E05251 FX 1 UKACRL 'G120 5251 5500'
add/tape js0009 js0009 1 p024 M1E05751 FX 1 UKACRL 'G120 5751 6000'
add/tape js0009 js0009 3 p026 M1E06251 FX 1 UKACRL 'G120 6251 6500'
add/tape js0010 js0010 2 p028 M1E06751 FX 1 UKACRL 'G120 6751 7000'
add/tape js0011 js0011 1 p030 M1E07251 FX 1 UKACRL 'G120 7251 7500'
add/tape js0011 js0011 3 p032 M1E07751 FX 1 UKACRL 'G120 7751 8000'
add/tape js0012 js0012 2 p034 M1E08251 FX 1 UKACRL 'G120 8251 8500'
add/tape js0013 js0013 1 p036 M1E08751 FX 1 UKACRL 'G120 8751 9000'
add/tape js0013 js0013 3 p038 M1E09251 FX 1 UKACRL 'G120 9251 9500'
add/tape js0014 js0014 2 p040 M1E09751 FX 1 UKACRL 'G120 9751 10000'
add/tape js0015 js0015 1 p042 M1E10251 FX 1 UKACRL 'G120 10251 10500'
add/tape js0015 js0015 3 p044 M1E10751 FX 1 UKACRL 'G120 10751 11000'
add/tape js0016 js0016 2 p046 M1E11251 FX 1 UKACRL 'G120 11251 11500'
add/tape js0017 js0017 1 p048 M1E11751 FX 1 UKACRL 'G120 11751 12000'
add/tape js0017 js0017 3 p050 M1E12251 FX 1 UKACRL 'G120 12251 12500'
add/tape js0018 js0018 2 p052 M1E12751 FX 1 UKACRL 'G120 12751 13000'
add/tape js0019 js0019 1 p054 M1E13251 FX 1 UKACRL 'G120 13251 13500'
add/tape js0019 js0019 3 p056 M1E13751 FX 1 UKACRL 'G120 13751 14000'
add/tape js0020 js0020 2 p058 M1E14251 FX 1 UKACRL 'G120 14251 14500'
add/tape js0021 js0021 1 p060 M1E14751 FX 1 UKACRL 'G120 14751 15000'
add/tape js0021 js0021 3 p062 M1E15251 FX 1 UKACRL 'G120 15251 15500'