
	.section	".text",#alloc,#execinstr
	.align	8
	.skip	16

	! block 0

	.global	nxtimp_
	.type	nxtimp_,2
nxtimp_:
	save	%sp,-96,%sp

	! block 1
.L16:
.L14:

! File nxtimp.f:
!    1	* Thu Oct 24 09:31:40 EDT 1991 /leverrier/h1/ksg/src/test nxtimp.f
!    2	* Thu Apr 27 12:52    EST 1995 kip - added comments in nxtmod explaining
!    3	*                              data loading logic; also corrected the
!    4	*                              logic for electrons where the energy
!    5	*                              window is checked with the maximum
!    6	
!    7	       SUBROUTINE NXTIMP
!    8	       RETURN

	ba	.L13
	nop

	! block 2

!    9	       END

.L13:
.L11:
.L12:
	jmp	%i7+8
	restore
	.size	nxtimp_,(.-nxtimp_)
	.align	8
	.align	8
	.skip	16

	! block 0

	.global	nxtmod_
	.type	nxtmod_,2
nxtmod_:
	save	%sp,-152,%sp
	st	%i5,[%fp+88]
	st	%i4,[%fp+84]
	st	%i3,[%fp+80]
	st	%i2,[%fp+76]
	st	%i1,[%fp+72]
	st	%i0,[%fp+68]

	! block 1
.L120:
	ld	[%fp+72],%l0
	add	%l0,-2,%l0
	st	%l0,[%fp-4]
	ld	[%fp+76],%l0
	add	%l0,-2,%l0
	st	%l0,[%fp-20]
	sethi	%hi(currcom_-4),%l0
	or	%l0,%lo(currcom_-4),%l0
	st	%l0,[%fp-28]
	sethi	%hi(proton_-124),%l0
	or	%l0,%lo(proton_-124),%l0
	st	%l0,[%fp-16]
	sethi	%hi(amber_+636),%l0
	or	%l0,%lo(amber_+636),%l0
	st	%l0,[%fp-36]
	sethi	%hi(amber_-36),%l0
	or	%l0,%lo(amber_-36),%l0
	st	%l0,[%fp-32]
	sethi	%hi(readst_+3588),%l0
	or	%l0,%lo(readst_+3588),%l0
	st	%l0,[%fp-8]
	sethi	%hi(proton_+2788),%l0
	or	%l0,%lo(proton_+2788),%l0
	st	%l0,[%fp-24]

	! block 2
.L20:

! File nxtimp.f:
!   10	      SUBROUTINE NXTMOD (ANS,JTB,JDATA,JNE,LSTAT,JTLMOD,JCLK,TEMPER
!   11	     1   ,IEOD,ITLMP, TPTYPE )
!   12	C
!   13	      INTEGER*2 JTB(6),JNE,JDATA(865),JTLMOD,JCLK
!   14		 COMMON /READST/ IMODE,PROSEL,PROMAT(2,14,26),ELEMAT(168),ITIME(7)
!   15		 COMMON /PROTON/ QPLUS(2,14,26),IPLUS(2,14,26)
!   16		 COMMON /AMBER/ QMINUS(8,21),IMINUS(8,21)
!   17		 REAL IPLUS,IMINUS
!   18		 COMMON /PROC/ JMODE,ICMST,ISTS,IPSEL,ISN,GAMUT(1024)
!   19	c	 COMMON /TIME/ YEAR,DOY,HOUROD,MINUTE,SECOND,MILSOD,SEQCLK
!   20		 common /currcom/ curr(1024), numcur, itlmod
!   21	c	 INTEGER YEAR,DOY,HOUROD,SEQCLK
!   22		 logical leod, startflg
!   23		 integer	ioldd
!   24	c	iold = 1 ==> data remaining
!   25		 data   	ioldd /0/
!   26	*     startflg = 1 ==> haven't gotten to starting data time yet
!   27	         data  startflg /.false./
!   28	
!   29	*     Try to modify the impcor calling so that you just skip processing
!   30	*     until at the time period of interest...  spec.f has been modified
!   31	*     so that jtb(1-4) contains the starting year, day of year, hour, and
!   32	*     minute of interest.
!   33	
!   34	         if (startflg) go to 5

	sethi	%hi(GPB.nxtmod.startflg),%l0
	or	%l0,%lo(GPB.nxtmod.startflg),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L24
	nop

	! block 3
.L25:
	ba	.L26
	nop

	! block 4
.L24:

!   35	         
!   36	*     Make the stupid i*2 variables into i*4 variables...
!   37	
!   38	         impyr = jtb(1)

	ld	[%fp-4],%l0
	add	%l0,2,%l0
	ldsh	[%l0+0],%l0
	sll	%l0,16,%l0
	sra	%l0,16,%l1
	sethi	%hi(GPB.nxtmod.impyr),%l0
	or	%l0,%lo(GPB.nxtmod.impyr),%l0
	st	%l1,[%l0+0]

!   39	         impdoy = jtb(2)

	ld	[%fp-4],%l0
	add	%l0,4,%l0
	ldsh	[%l0+0],%l0
	sll	%l0,16,%l0
	sra	%l0,16,%l1
	sethi	%hi(GPB.nxtmod.impdoy),%l0
	or	%l0,%lo(GPB.nxtmod.impdoy),%l0
	st	%l1,[%l0+0]

!   40	         imphr = jtb(3)

	ld	[%fp-4],%l0
	add	%l0,6,%l0
	ldsh	[%l0+0],%l0
	sll	%l0,16,%l0
	sra	%l0,16,%l1
	sethi	%hi(GPB.nxtmod.imphr),%l0
	or	%l0,%lo(GPB.nxtmod.imphr),%l0
	st	%l1,[%l0+0]

!   41	         impmin = jtb(4)

	ld	[%fp-4],%l0
	add	%l0,8,%l0
	ldsh	[%l0+0],%l0
	sll	%l0,16,%l0
	sra	%l0,16,%l1
	sethi	%hi(GPB.nxtmod.impmin),%l0
	or	%l0,%lo(GPB.nxtmod.impmin),%l0
	st	%l1,[%l0+0]

!   43	         call impcor( leod, impyr, impdoy, imphr, impmin, 0, 0, 5)

	sethi	%hi(GPB.nxtmod.leod),%l0
	or	%l0,%lo(GPB.nxtmod.leod),%l0
	sethi	%hi(GPB.nxtmod.impyr),%l1
	or	%l1,%lo(GPB.nxtmod.impyr),%l1
	sethi	%hi(GPB.nxtmod.impdoy),%l2
	or	%l2,%lo(GPB.nxtmod.impdoy),%l2
	sethi	%hi(GPB.nxtmod.imphr),%l3
	or	%l3,%lo(GPB.nxtmod.imphr),%l3
	sethi	%hi(GPB.nxtmod.impmin),%l5
	or	%l5,%lo(GPB.nxtmod.impmin),%l5
	sethi	%hi(.L_cseg0),%l6
	or	%l6,%lo(.L_cseg0),%l6
	sethi	%hi(.L_cseg0),%l7
	or	%l7,%lo(.L_cseg0),%l7
	sethi	%hi(.L_cseg1),%l4
	or	%l4,%lo(.L_cseg1),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l7,[%sp+92]
	st	%l4,[%sp+96]
	call	impcor_
	nop

!   44	         startflg = .true.

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.startflg),%l0
	or	%l0,%lo(GPB.nxtmod.startflg),%l0
	st	%l1,[%l0+0]

!   46	*     The if statement can be skipped since we know its value is 0 when
!   47	*     the subroutine is first entered.
!   48	
!   49	         go to 20

	ba	.L28
	nop

	! block 5
.L26:

!   51	 5 	 continue


!   52		 if ( ioldd .eq. 0) then

	sethi	%hi(GPB.nxtmod.ioldd),%l0
	or	%l0,%lo(GPB.nxtmod.ioldd),%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L29
	nop

	! block 6
.L30:
.L31:

!   53	 10      continue


!   54	                call impcor( leod, 0, 0, 0, 0, 0, 0, 1)

	sethi	%hi(GPB.nxtmod.leod),%l0
	or	%l0,%lo(GPB.nxtmod.leod),%l0
	sethi	%hi(.L_cseg0),%l1
	or	%l1,%lo(.L_cseg0),%l1
	sethi	%hi(.L_cseg0),%l2
	or	%l2,%lo(.L_cseg0),%l2
	sethi	%hi(.L_cseg0),%l3
	or	%l3,%lo(.L_cseg0),%l3
	sethi	%hi(.L_cseg0),%l5
	or	%l5,%lo(.L_cseg0),%l5
	sethi	%hi(.L_cseg0),%l6
	or	%l6,%lo(.L_cseg0),%l6
	sethi	%hi(.L_cseg0),%l7
	or	%l7,%lo(.L_cseg0),%l7
	sethi	%hi(.L_cseg2),%l4
	or	%l4,%lo(.L_cseg2),%l4
	mov	%l0,%o0
	mov	%l1,%o1
	mov	%l2,%o2
	mov	%l3,%o3
	mov	%l5,%o4
	mov	%l6,%o5
	st	%l7,[%sp+92]
	st	%l4,[%sp+96]
	call	impcor_
	nop

	! block 7
.L28:

!   55	 20             ioldd = 2

	mov	2,%l1
	sethi	%hi(GPB.nxtmod.ioldd),%l0
	or	%l0,%lo(GPB.nxtmod.ioldd),%l0
	st	%l1,[%l0+0]

!   56		 	if ( leod ) then

	sethi	%hi(GPB.nxtmod.leod),%l0
	or	%l0,%lo(GPB.nxtmod.leod),%l0
	ld	[%l0+0],%l0
	cmp	%l0,%g0
	be	.L32
	nop

	! block 8
.L33:

!   57				ieod = 1

	mov	1,%l1
	ld	[%fp+100],%l0
	st	%l1,[%l0+0]

!   58				return

	ba	.L19
	nop

	! block 9

!   59		 	else

	ba	.L34
	nop

	! block 10
.L32:

!   60				ieod = 0

	mov	0,%l1
	ld	[%fp+100],%l0
	st	%l1,[%l0+0]

!   61		 	end if


	! block 11
.L34:

!   62			itype = itime(7)

	ld	[%fp-8],%l0
	add	%l0,28,%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.nxtmod.itype),%l0
	or	%l0,%lo(GPB.nxtmod.itype),%l0
	st	%l1,[%l0+0]

!   63	C	 	if (( itype .le. 0 ) .or. (itype .gt. 4)) go to 10
!   64		 	if (

	sethi	%hi(GPB.nxtmod.itype),%l0
	or	%l0,%lo(GPB.nxtmod.itype),%l0
	ld	[%l0+0],%l0
	cmp	%l0,-4
	bne	.L44
	nop

	! block 12
.L45:
	ba	.L43
	nop

	! block 13
.L44:
	sethi	%hi(GPB.nxtmod.itype),%l0
	or	%l0,%lo(GPB.nxtmod.itype),%l0
	ld	[%l0+0],%l0
	cmp	%l0,1
	bne	.L41
	nop

	! block 14
.L46:
.L43:
	mov	1,%l0
	st	%l0,[%fp-12]
	ba	.L40
	nop

	! block 15
.L41:
	sethi	%hi(GPB.nxtmod.itype),%l0
	or	%l0,%lo(GPB.nxtmod.itype),%l0
	ld	[%l0+0],%l0
	cmp	%l0,3
	bne	.L42
	nop

	! block 16
.L47:
	mov	1,%l0
	st	%l0,[%fp-12]
	ba	.L40
	nop

	! block 17
.L42:
	mov	0,%l0
	st	%l0,[%fp-12]

	! block 18
.L40:
	ld	[%fp-12],%l0
	cmp	%l0,%g0
	be	.L37
	nop

	! block 19
.L38:
	ba	.L36
	nop

	! block 20
.L37:
	ba	.L31
	nop

	! block 21
.L36:

!   65	     |	.not.((itype .eq. -4) .or. (itype .eq. 1) .or. (itype .eq. 3))
!   66	     |	) go to 10
!   67		 	jtb(1) = itime(1)

	ld	[%fp-8],%l0
	add	%l0,4,%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,2,%l0
	sth	%l1,[%l0+0]

!   68		 	jtb(2) = itime(2)

	ld	[%fp-8],%l0
	add	%l0,8,%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,4,%l0
	sth	%l1,[%l0+0]

!   69		 	jtb(3) = itime(3)

	ld	[%fp-8],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,6,%l0
	sth	%l1,[%l0+0]

!   70		 	jtb(4) = itime(4)

	ld	[%fp-8],%l0
	add	%l0,16,%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,8,%l0
	sth	%l1,[%l0+0]

!   71		 	jtb(5) = itime(5)

	ld	[%fp-8],%l0
	add	%l0,20,%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,10,%l0
	sth	%l1,[%l0+0]

!   72		 	jtb(6) = 0

	mov	0,%l1
	ld	[%fp-4],%l0
	add	%l0,12,%l0
	sth	%l1,[%l0+0]

!   73	 		itlmod = 1

	mov	1,%l2
	sethi	%hi(currcom_),%l0
	or	%l0,%lo(currcom_),%l0
	sethi	%hi(4100),%l1
	or	%l1,%lo(4100),%l1
	st	%l2,[%l0+%l1]

!   74	 		jtlmod = 1

	mov	1,%l1
	ld	[%fp+88],%l0
	sth	%l1,[%l0+0]

!   75	 		ioldd  = 1

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.ioldd),%l0
	or	%l0,%lo(GPB.nxtmod.ioldd),%l0
	st	%l1,[%l0+0]

!   77	*     This section of code loads the data, starting at index 1, into the
!   78	*     array so that every energy window is given for each angle window.
!   79	*     Thus, the resulting data panels are each an angle window, with
!   80	*     energy increasing upwards.
!   81	
!   82	 		i = 1

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	st	%l1,[%l0+0]

!   83	 		do 100  iang=1,14

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	st	%l1,[%l0+0]

	! block 22
.L50:

!   84	 			do 90  ieng=1,26

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	st	%l1,[%l0+0]

	! block 23
.L55:

!   85	 				jdata(i) = qplus( 1, iang, ieng) + 0.5

	ld	[%fp-16],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg3),%l0
	or	%l0,%lo(.L_cseg3),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-44]
	ld	[%fp-44],%l3
	ld	[%fp-20],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,1,%l1
	add	%l2,%l1,%l0
	sth	%l3,[%l0+0]

!   86					curr(i)  = iplus( 1, iang, ieng)

	ld	[%fp-24],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-28],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]

!   87	 				i = i+1

	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	st	%l1,[%l0+0]

	! block 24
.L53:

!   88	 90 		continue

	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	cmp	%l0,26
	ble	.L55
	nop

	! block 25
.L62:
.L54:
.L48:

!   89	 100 	continue

	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L50
	nop

	! block 26
.L63:
.L49:

!   91	*     This section of code loads the data, starting at index 400, into
!   92	*     the array so that every angle window is given for each energy 
!   93	*     window.  Thus, the resulting data panels are each an energy
!   94	*     window, with angle increasing upwards.
!   95	
!   96	 		i = 400

	mov	400,%l1
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	st	%l1,[%l0+0]

!   97	 		do 120  ieng=1,26

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	st	%l1,[%l0+0]

	! block 27
.L66:

!   98	 			do 110  iang=1,14

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	st	%l1,[%l0+0]

	! block 28
.L71:

!   99	 				jdata(i) = qplus( 1, iang, ieng) + 0.5

	ld	[%fp-16],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg3),%l0
	or	%l0,%lo(.L_cseg3),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-44]
	ld	[%fp-44],%l3
	ld	[%fp-20],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,1,%l1
	add	%l2,%l1,%l0
	sth	%l3,[%l0+0]

!  100					curr(i)  = iplus( 1, iang, ieng)

	ld	[%fp-24],%l0
	add	%l0,4,%l4
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l3
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	sll	%l0,4,%l2
	sll	%l0,1,%l1
	sub	%l2,%l1,%l1
	add	%l3,%l1,%l0
	sll	%l0,3,%l1
	add	%l4,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-28],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]

!  101	 				i = i+1

	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	st	%l1,[%l0+0]

	! block 29
.L69:

!  102	 110		continue

	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l0
	cmp	%l0,14
	ble	.L71
	nop

	! block 30
.L74:
.L70:
.L64:

!  103	 120 	continue

	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	cmp	%l0,26
	ble	.L66
	nop

	! block 31
.L75:
.L65:

!  104			numcur = i

	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l2
	sethi	%hi(currcom_),%l0
	or	%l0,%lo(currcom_),%l0
	sethi	%hi(4096),%l1
	st	%l2,[%l0+%l1]

!  105	 		return

	ba	.L19
	nop

	! block 32

!  106	 	 else

	ba	.L76
	nop

	! block 33
.L29:

!  107		 	jtb(1) = itime(1)

	ld	[%fp-8],%l0
	add	%l0,4,%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,2,%l0
	sth	%l1,[%l0+0]

!  108		 	jtb(2) = itime(2)

	ld	[%fp-8],%l0
	add	%l0,8,%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,4,%l0
	sth	%l1,[%l0+0]

!  109		 	jtb(3) = itime(3)

	ld	[%fp-8],%l0
	add	%l0,12,%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,6,%l0
	sth	%l1,[%l0+0]

!  110		 	jtb(4) = itime(4)

	ld	[%fp-8],%l0
	add	%l0,16,%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,8,%l0
	sth	%l1,[%l0+0]

!  111		 	jtb(5) = itime(5)

	ld	[%fp-8],%l0
	add	%l0,20,%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,10,%l0
	sth	%l1,[%l0+0]

!  112		 	jtb(6) = 0

	mov	0,%l1
	ld	[%fp-4],%l0
	add	%l0,12,%l0
	sth	%l1,[%l0+0]

!  113	 		itlmod = 2

	mov	2,%l2
	sethi	%hi(currcom_),%l0
	or	%l0,%lo(currcom_),%l0
	sethi	%hi(4100),%l1
	or	%l1,%lo(4100),%l1
	st	%l2,[%l0+%l1]

!  114	 		jtlmod = 2

	mov	2,%l1
	ld	[%fp+88],%l0
	sth	%l1,[%l0+0]

!  115	 		ioldd  = 0

	mov	0,%l1
	sethi	%hi(GPB.nxtmod.ioldd),%l0
	or	%l0,%lo(GPB.nxtmod.ioldd),%l0
	st	%l1,[%l0+0]

!  117	*     Set the maximum energy window number to correspond to that correct
!  118	*     for the given instrument mode.
!  119	
!  120			if ( imode .eq. 2) then

	sethi	%hi(readst_),%l0
	or	%l0,%lo(readst_),%l0
	ld	[%l0+0],%l0
	cmp	%l0,2
	bne	.L77
	nop

	! block 34
.L78:

!  121				iengm = 8

	mov	8,%l1
	sethi	%hi(GPB.nxtmod.iengm),%l0
	or	%l0,%lo(GPB.nxtmod.iengm),%l0
	st	%l1,[%l0+0]

!  123	*     Because, for tracking mode (mode 2), a complete electron spectrum
!  124	*     is only obtained every four proton records, use only those records
!  125	*     (identified by a serial number of 3) to build the electron panels.
!  126	*     This implies that it is reasonable to hold the electron data for
!  127	*     a width of four (4) when plotting them, so that they match better
!  128	*     with the proton data.
!  129	
!  130				if ( isn .ne. 3 ) go to 5

	sethi	%hi(proc_),%l0
	or	%l0,%lo(proc_),%l0
	ld	[%l0+16],%l0
	cmp	%l0,3
	be	.L79
	nop

	! block 35
.L80:
	ba	.L26
	nop

	! block 36
.L79:

!  131			else

	ba	.L81
	nop

	! block 37
.L77:

!  133	*     For acquisition mode spectra, a complete electron spectrum is 
!  134	*     obtained as well, so here you just set the appropriate energy 
!  135	*     window maximum and take whatever's there.
!  136	
!  137				iengm = 21

	mov	21,%l1
	sethi	%hi(GPB.nxtmod.iengm),%l0
	or	%l0,%lo(GPB.nxtmod.iengm),%l0
	st	%l1,[%l0+0]

!  138			end if


	! block 38
.L81:

!  140	*     This section of code loads the data, starting at index 1, into the
!  141	*     array so that every energy window is given for each angle window.
!  142	*     Thus, the resulting data panels are each an angle window, with
!  143	*     energy increasing upwards.  Note that all 21 energy windows are
!  144	*     preserved, making each angle window contain 21 data values, of which
!  145	*     only 8 are useful for tracking mode data.
!  146	
!  147			i = 1

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	st	%l1,[%l0+0]

!  148	 		do 200 iang=1,8

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	st	%l1,[%l0+0]

	! block 39
.L84:

!  149	 			do 190 ieng=1, 21

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	st	%l1,[%l0+0]

	! block 40
.L89:

!  150					if  ( ieng .le. iengm ) then

	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.nxtmod.iengm),%l0
	or	%l0,%lo(GPB.nxtmod.iengm),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bg	.L92
	nop

	! block 41
.L93:

!  151	 					jdata(i) = qminus( iang, ieng) + 0.5

	ld	[%fp-32],%l3
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg3),%l0
	or	%l0,%lo(.L_cseg3),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-44]
	ld	[%fp-44],%l3
	ld	[%fp-20],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,1,%l1
	add	%l2,%l1,%l0
	sth	%l3,[%l0+0]

!  152						curr(i)  = iminus( iang, ieng)

	ld	[%fp-36],%l3
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-28],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]

!  153					else

	ba	.L96
	nop

	! block 42
.L92:

!  154	 					jdata(i) = 0

	mov	0,%l3
	ld	[%fp-20],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,1,%l1
	add	%l2,%l1,%l0
	sth	%l3,[%l0+0]

!  155						curr(i)  = 0

	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	ld	[%l0+0],%f2
	ld	[%fp-28],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]

!  156					end if


	! block 43
.L96:

!  157					i = i+1

	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	st	%l1,[%l0+0]

	! block 44
.L87:

!  158	 190 		continue

	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	cmp	%l0,21
	ble	.L89
	nop

	! block 45
.L97:
.L88:
.L82:

!  159	 200 	continue

	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L84
	nop

	! block 46
.L98:
.L83:

!  161	*     This section of code loads the data, starting at index 400, into
!  162	*     the array so that every angle window is given for each energy 
!  163	*     window.  Thus, the resulting data panels are each an energy
!  164	*     window, with angle increasing upwards.
!  165	
!  166			i = 400

	mov	400,%l1
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	st	%l1,[%l0+0]

!  167	 		do 220 ieng=1, 21

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	st	%l1,[%l0+0]

	! block 47
.L101:

!  168				if  ( ieng .le. iengm ) then

	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l1
	sethi	%hi(GPB.nxtmod.iengm),%l0
	or	%l0,%lo(GPB.nxtmod.iengm),%l0
	ld	[%l0+0],%l0
	cmp	%l1,%l0
	bg	.L104
	nop

	! block 48
.L105:

!  169	 				do 205 iang=1,8

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	st	%l1,[%l0+0]

	! block 49
.L108:

!  170	 					jdata(i) = qminus( iang, ieng) + 0.5

	ld	[%fp-32],%l3
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f3
	sethi	%hi(.L_cseg3),%l0
	or	%l0,%lo(.L_cseg3),%l0
	ld	[%l0+0],%f2
	fadds	%f3,%f2,%f2
	fstoi	%f2,%f2
	st	%f2,[%fp-44]
	ld	[%fp-44],%l3
	ld	[%fp-20],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,1,%l1
	add	%l2,%l1,%l0
	sth	%l3,[%l0+0]

!  171						curr(i)  = iminus( iang, ieng)

	ld	[%fp-36],%l3
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l2
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	sll	%l0,3,%l1
	add	%l2,%l1,%l0
	sll	%l0,2,%l1
	add	%l3,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-28],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]

!  172						i = i+1

	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	st	%l1,[%l0+0]

	! block 50
.L106:

!  173	 205 			continue

	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L108
	nop

	! block 51
.L111:
.L107:

!  174				else

	ba	.L112
	nop

	! block 52
.L104:

!  175	 				do 215 iang=1,8

	mov	1,%l1
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	st	%l1,[%l0+0]

	! block 53
.L115:

!  176	 					jdata(i) = 0

	mov	0,%l3
	ld	[%fp-20],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,1,%l1
	add	%l2,%l1,%l0
	sth	%l3,[%l0+0]

!  177						curr(i)  = 0

	sethi	%hi(.L_cseg0),%l0
	or	%l0,%lo(.L_cseg0),%l0
	ld	[%l0+0],%f2
	ld	[%fp-28],%l2
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]

!  178						i = i+1

	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	st	%l1,[%l0+0]

	! block 54
.L113:

!  179	 215 			continue

	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.nxtmod.iang),%l0
	or	%l0,%lo(GPB.nxtmod.iang),%l0
	ld	[%l0+0],%l0
	cmp	%l0,8
	ble	.L115
	nop

	! block 55
.L118:
.L114:

!  180				end if

.L112:
.L99:

!  181	 220 	continue

	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.nxtmod.ieng),%l0
	or	%l0,%lo(GPB.nxtmod.ieng),%l0
	ld	[%l0+0],%l0
	cmp	%l0,21
	ble	.L101
	nop

	! block 56
.L119:
.L100:

!  182			numcur = i

	sethi	%hi(GPB.nxtmod.i),%l0
	or	%l0,%lo(GPB.nxtmod.i),%l0
	ld	[%l0+0],%l2
	sethi	%hi(currcom_),%l0
	or	%l0,%lo(currcom_),%l0
	sethi	%hi(4096),%l1
	st	%l2,[%l0+%l1]

!  183		 end if


	! block 57
.L76:

!  184		END

.L19:
.L17:
.L18:
	jmp	%i7+8
	restore
	.size	nxtmod_,(.-nxtmod_)
	.align	8
	.align	8
	.skip	16

	! block 0

	.global	kntcur_
	.type	kntcur_,2
kntcur_:
	save	%sp,-120,%sp
	st	%i5,[%fp+88]
	st	%i4,[%fp+84]
	st	%i3,[%fp+80]
	st	%i2,[%fp+76]
	st	%i1,[%fp+72]
	st	%i0,[%fp+68]

	! block 1
.L136:
	ld	[%fp+100],%l0
	add	%l0,-4,%l0
	st	%l0,[%fp-8]
	ld	[%fp+116],%l0
	add	%l0,-4,%l0
	st	%l0,[%fp-12]
	sethi	%hi(currcom_-4),%l0
	or	%l0,%lo(currcom_-4),%l0
	st	%l0,[%fp-4]

	! block 2
.L124:

! File nxtimp.f:
!  185	      SUBROUTINE KNTCUR (ANS,JTB,JDATA,jN0,LSTAT,JTLMOD,JCLK0,TEMP
!  186	     1   ,CURRNT,KSTAT,IXCEL,CNOISE,RMARK)
!  187		 real currnt(775), rmark(3)
!  188		 common /currcom/ curr(1024), numcur, itlmod
!  189		 do 100 i=1,numcur

	sethi	%hi(currcom_),%l0
	or	%l0,%lo(currcom_),%l0
	sethi	%hi(4096),%l1
	ld	[%l0+%l1],%l0
	st	%l0,[%fp-20]
	mov	1,%l1
	sethi	%hi(GPB.kntcur.i),%l0
	or	%l0,%lo(GPB.kntcur.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.kntcur.i),%l0
	or	%l0,%lo(GPB.kntcur.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-20],%l0
	cmp	%l1,%l0
	bg	.L127
	nop

	! block 3
.L131:
.L128:

!  190			currnt(i) = curr(i)

	ld	[%fp-4],%l2
	sethi	%hi(GPB.kntcur.i),%l0
	or	%l0,%lo(GPB.kntcur.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0+0],%f2
	ld	[%fp-8],%l2
	sethi	%hi(GPB.kntcur.i),%l0
	or	%l0,%lo(GPB.kntcur.i),%l0
	ld	[%l0+0],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	st	%f2,[%l0+0]

	! block 4
.L126:

!  191	 100	 continue

	sethi	%hi(GPB.kntcur.i),%l0
	or	%l0,%lo(GPB.kntcur.i),%l0
	ld	[%l0+0],%l0
	add	%l0,1,%l1
	sethi	%hi(GPB.kntcur.i),%l0
	or	%l0,%lo(GPB.kntcur.i),%l0
	st	%l1,[%l0+0]
	sethi	%hi(GPB.kntcur.i),%l0
	or	%l0,%lo(GPB.kntcur.i),%l0
	ld	[%l0+0],%l1
	ld	[%fp-20],%l0
	cmp	%l1,%l0
	ble	.L128
	nop

	! block 5
.L134:
.L127:

!  193	 	 rmark(1) = 4200.

	sethi	%hi(.L_cseg4),%l0
	or	%l0,%lo(.L_cseg4),%l0
	ld	[%l0+0],%f2
	ld	[%fp-12],%l0
	add	%l0,4,%l0
	st	%f2,[%l0+0]

!  194		 rmark(2) = 10000.

	sethi	%hi(.L_cseg5),%l0
	or	%l0,%lo(.L_cseg5),%l0
	ld	[%l0+0],%f2
	ld	[%fp-12],%l0
	add	%l0,8,%l0
	st	%f2,[%l0+0]

!  195		 rmark(3) = 67000.

	sethi	%hi(.L_cseg6),%l0
	or	%l0,%lo(.L_cseg6),%l0
	ld	[%l0+0],%f2
	ld	[%fp-12],%l0
	add	%l0,12,%l0
	st	%f2,[%l0+0]

!  196		 return

	ba	.L123
	nop

	! block 6

!  197		 end

.L123:
.L121:
.L122:
	jmp	%i7+8
	restore
	.size	kntcur_,(.-kntcur_)
	.align	8
	.align	8
	.skip	16

	! block 0

	.global	setbfl_
	.type	setbfl_,2
setbfl_:
	save	%sp,-96,%sp

	! block 1
.L142:
.L140:

! File nxtimp.f:
!  198	      SUBROUTINE  SETBFL
!  199	C
!  200	C   DUMMY ROUTINE; PREVENTS LOADING OF "SETBFL" IN THE SUBROUTINE
!  201	C   "NXTMOD" LOADED IN THE MODULE "NXTMAG".
!  202	C
!  203	      RETURN

	ba	.L139
	nop

	! block 2

!  204	      END

.L139:
.L137:
.L138:
	jmp	%i7+8
	restore
	.size	setbfl_,(.-setbfl_)
	.align	8
	.align	8
	.skip	16

	! block 0

	.global	nxtjout_
	.type	nxtjout_,2
nxtjout_:
	save	%sp,-104,%sp
	st	%i1,[%fp+72]
	st	%i0,[%fp+68]

	! block 1
.L149:
	sethi	%hi(GPB.nxtjout.jtb-2),%l0
	or	%l0,%lo(GPB.nxtjout.jtb-2),%l0
	st	%l0,[%fp-4]

	! block 2
.L146:

! File nxtimp.f:
!  205	        subroutine nxtjout( iiout, iiconv)
!  206	c        real buf
!  207	c        integer iblks,ibufl,ibs,nerr,iln,ilnp,inprec,ipl,iml,ilrec
!  208	c        integer ioff,istd,icrhbl, imod,ist
!  209	c       COMMON  /IO/  UNIT,BUF(10000),IBLKS,IBUFL,IBS ,NERR,
!  210	c     A ILN,ILNP,INPREC,IPL,IML,ILREC,IMOD,IST,IOFF,ISTD,ICRHBL,iout,
!  211	c     | iconv
!  212	        integer*2 jtb(6)
!  213	c       character*4 idtype
!  214	        jtb(1) = iiout

	ld	[%fp+68],%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,2,%l0
	sth	%l1,[%l0+0]

!  215	        jtb(2) = iiconv

	ld	[%fp+72],%l0
	ld	[%l0+0],%l1
	ld	[%fp-4],%l0
	add	%l0,4,%l0
	sth	%l1,[%l0+0]

!  216	        return

	ba	.L145
	nop

	! block 3

!  217	        end

.L145:
.L143:
.L144:
	jmp	%i7+8
	restore
	.size	nxtjout_,(.-nxtjout_)
	.align	8
	.align	8
	.skip	16

	! block 0

	.global	nxtave_
	.type	nxtave_,2
nxtave_:
	save	%sp,-96,%sp
	st	%i0,[%fp+68]

	! block 1
.L155:
.L153:

! File nxtimp.f:
!  218		subroutine nxtave ( iiengve)
!  219		common /cvgrrew/ iu, iout,iconv, iengve
!  220		integer iu,iout,iconv, iengve
!  221		iengve = iiengve

	ld	[%fp+68],%l0
	ld	[%l0+0],%l1
	sethi	%hi(cvgrrew_),%l0
	or	%l0,%lo(cvgrrew_),%l0
	st	%l1,[%l0+12]

!  222		return

	ba	.L152
	nop

	! block 2

!  223		end

.L152:
.L150:
.L151:
	jmp	%i7+8
	restore
	.size	nxtave_,(.-nxtave_)
	.align	8
	.align	8
	.skip	16

	! block 0

	.global	nxtiout_
	.type	nxtiout_,2
nxtiout_:
	save	%sp,-96,%sp
	st	%i1,[%fp+72]
	st	%i0,[%fp+68]

	! block 1
.L161:
.L159:

! File nxtimp.f:
!  224	        subroutine nxtiout( iiout, iiconv)
!  225	c        real buf
!  226	c        integer iblks,ibufl,ibs,nerr,iln,ilnp,inprec,ipl,iml,ilrec
!  227	c        integer ioff,istd,icrhbl, imod,ist
!  228	c       COMMON  /IO/  UNIT,BUF(10000),IBLKS,IBUFL,IBS ,NERR,
!  229	c     A ILN,ILNP,INPREC,IPL,IML,ILREC,IMOD,IST,IOFF,ISTD,ICRHBL,iout,
!  230	c     | iconv
!  231		common /iocom/ iout, iconv
!  232	        integer iout, iconv
!  233	        iout = iiout

	ld	[%fp+68],%l0
	ld	[%l0+0],%l1
	sethi	%hi(iocom_),%l0
	or	%l0,%lo(iocom_),%l0
	st	%l1,[%l0+0]

!  234	        iconv = iiconv

	ld	[%fp+72],%l0
	ld	[%l0+0],%l1
	sethi	%hi(iocom_),%l0
	or	%l0,%lo(iocom_),%l0
	st	%l1,[%l0+4]

!  235	        call  nxtjout( iiout, iiconv)

	ld	[%fp+68],%l0
	ld	[%fp+72],%l1
	mov	%l0,%o0
	mov	%l1,%o1
	call	nxtjout_
	nop

!  236	        return

	ba	.L158
	nop

	! block 2

!  237	       END

.L158:
.L156:
.L157:
	jmp	%i7+8
	restore
	.size	nxtiout_,(.-nxtiout_)
	.align	8
	.align	8
	.skip	16

	! block 0

	.global	setjtl_
	.type	setjtl_,2
setjtl_:
	save	%sp,-96,%sp
	st	%i5,[%fp+88]
	st	%i4,[%fp+84]
	st	%i3,[%fp+80]
	st	%i2,[%fp+76]
	st	%i1,[%fp+72]
	st	%i0,[%fp+68]

	! block 1
.L167:
.L165:

! File nxtimp.f:
!  238	c	  subroutine runbeg
!  239	c	  return
!  240	c	  end
!  241	      SUBROUTINE   SETJTL( JTLMO, JTLOFF, KSTAT, JTB, JTLMOD, JCLK)
!  242		 common /currcom/ curr(1024), numcur, itlmod
!  243		 integer*2 jtlmo,jtlmod,jtloff,jclk
!  244		 jtlmo = itlmod

	sethi	%hi(currcom_),%l0
	or	%l0,%lo(currcom_),%l0
	sethi	%hi(4100),%l1
	or	%l1,%lo(4100),%l1
	ld	[%l0+%l1],%l1
	ld	[%fp+68],%l0
	sth	%l1,[%l0+0]

!  245		  return

	ba	.L164
	nop

	! block 2

!  246		  end

.L164:
.L162:
.L163:
	jmp	%i7+8
	restore
	.size	setjtl_,(.-setjtl_)
	.align	8
	.align	8
	.skip	16

	! block 0

	.global	getjtl_
	.type	getjtl_,2
getjtl_:
	save	%sp,-96,%sp
	st	%i2,[%fp+76]
	st	%i1,[%fp+72]
	st	%i0,[%fp+68]

	! block 1
.L173:
.L171:

! File nxtimp.f:
!  247	      subroutine  GETJTL( JTLMO, JTLOFF, KSTAT)
!  248		 common /currcom/ curr(1024), numcur, itlmod
!  249		 integer*2 jtlmo,jtlmod,jtloff,jclk
!  250		 jtlmo = itlmod

	sethi	%hi(currcom_),%l0
	or	%l0,%lo(currcom_),%l0
	sethi	%hi(4100),%l1
	or	%l1,%lo(4100),%l1
	ld	[%l0+%l1],%l1
	ld	[%fp+68],%l0
	sth	%l1,[%l0+0]

!  251		  return

	ba	.L170
	nop

	! block 2

!  252		  end

.L170:
.L168:
.L169:
	jmp	%i7+8
	restore
	.size	getjtl_,(.-getjtl_)
	.align	8
	.common	readst_,3620,8
	.common	currcom_,4104,8
	.common	proton_,5824,8
	.common	proc_,4116,8
	.common	amber_,1344,8

	.section	".bss",#alloc,#write
	.align	8
GPB.nxtmod.iengm:
	.skip	4
	.type	GPB.nxtmod.iengm,#object
	.size	GPB.nxtmod.iengm,4
	.align	8
GPB.nxtmod.ieng:
	.skip	4
	.type	GPB.nxtmod.ieng,#object
	.size	GPB.nxtmod.ieng,4
	.align	8
GPB.nxtmod.impyr:
	.skip	4
	.type	GPB.nxtmod.impyr,#object
	.size	GPB.nxtmod.impyr,4
	.align	8
GPB.nxtmod.leod:
	.skip	4
	.type	GPB.nxtmod.leod,#object
	.size	GPB.nxtmod.leod,4
	.align	8
GPB.nxtmod.iang:
	.skip	4
	.type	GPB.nxtmod.iang,#object
	.size	GPB.nxtmod.iang,4
	.align	8
GPB.nxtmod.i:
	.skip	4
	.type	GPB.nxtmod.i,#object
	.size	GPB.nxtmod.i,4
	.align	8
GPB.nxtmod.imphr:
	.skip	4
	.type	GPB.nxtmod.imphr,#object
	.size	GPB.nxtmod.imphr,4
	.align	8
GPB.nxtmod.impmin:
	.skip	4
	.type	GPB.nxtmod.impmin,#object
	.size	GPB.nxtmod.impmin,4

	.section	".data",#alloc,#write
	.align	4
GPB.nxtmod.startflg:
	.skip	4
	.type	GPB.nxtmod.startflg,#object
	.size	GPB.nxtmod.startflg,4

	.section	".bss",#alloc,#write
	.align	8
GPB.nxtmod.itype:
	.skip	4
	.type	GPB.nxtmod.itype,#object
	.size	GPB.nxtmod.itype,4

	.section	".data",#alloc,#write
	.align	4
GPB.nxtmod.ioldd:
	.skip	4
	.type	GPB.nxtmod.ioldd,#object
	.size	GPB.nxtmod.ioldd,4

	.section	".bss",#alloc,#write
	.align	8
GPB.nxtmod.impdoy:
	.skip	4
	.type	GPB.nxtmod.impdoy,#object
	.size	GPB.nxtmod.impdoy,4

	.section	".rodata",#alloc
	.align	4
.L_cseg0:
	.skip	4
	.type	.L_cseg0,#object
	.size	.L_cseg0,4
	.align	4
.L_cseg1:
	.word	0x5
	.type	.L_cseg1,#object
	.size	.L_cseg1,4
	.align	4
.L_cseg2:
	.word	0x1
	.type	.L_cseg2,#object
	.size	.L_cseg2,4
	.align	4
.L_cseg3:
	.word	0x3f000000
	.type	.L_cseg3,#object
	.size	.L_cseg3,4

	.section	".bss",#alloc,#write
	.align	8
GPB.kntcur.i:
	.skip	4
	.type	GPB.kntcur.i,#object
	.size	GPB.kntcur.i,4

	.section	".rodata",#alloc
	.align	4
.L_cseg4:
	.word	0x45834000
	.type	.L_cseg4,#object
	.size	.L_cseg4,4
	.align	4
.L_cseg5:
	.word	0x461c4000
	.type	.L_cseg5,#object
	.size	.L_cseg5,4
	.align	4
.L_cseg6:
	.word	0x4782dc00
	.type	.L_cseg6,#object
	.size	.L_cseg6,4

	.section	".bss",#alloc,#write
	.align	8
GPB.nxtjout.jtb:
	.skip	12
	.type	GPB.nxtjout.jtb,#object
	.size	GPB.nxtjout.jtb,12
	.common	cvgrrew_,16,8
	.common	iocom_,8,8

	.file	"nxtimp.f"
	.xstabs	".stab.index","V=3.1;R=3.0",60,0,0,842629719
	.xstabs	".stab.index","/amd/plas5/h1/vgr/src/imp;/opt/SUNWspro/bin/../SC4.0/bin/f77 -sbfast   nxtimp.f",52,0,0,0
	.xstabs	".stab.sbfocus","nxtimp.f.0yRRPm.bd",72,0,0,0
