Functions/Subroutines
subroutine	saptre (AM1, G1, BGX1, BGY1, BGZ1, AM2, G2, BGX2, BGY2, BGZ2)

subroutine	sltraf (GA, BGA, EIN, PZIN, EOUT, PZOUT)

subroutine	nucmom

subroutine	fer4m (PFERM, PXT, PYT, PZT, ET, KT)

subroutine	fer4mp (IP, PFERM, PXT, PYT, PZT, ET, KT)

subroutine	fer4mt (IT, PFERM, PXT, PYT, PZT, ET, KT)

subroutine	dfatta (IT, PABS)

subroutine	dfatpr (IP, PABS)

subroutine	flksam

subroutine	flksaa (NN, ECM)

subroutine	flahad (ITYP, IBAR, IF1, IF2, IF3)

subroutine	xksamp (NN, ECM)

subroutine	parhkk

subroutine	hadrkk (NHKKH1, PPN)

subroutine	hadrvv

subroutine	hadrsv

subroutine	hadrss

subroutine	hadrvs

subroutine	hadjet (NHAD, AMCH, PPR, PTA, GAM, BGX, BGY, BGZ, IFB1, IFB2, IFB3, IFB4, I1, I2, NOBAM, NNCH, NORIG)

subroutine	lortrp (N, NAUX, GAM, BGX, BGY, BGZ)

subroutine	cobcma (IF1, IF2, IF3, IJNCH, NNCH, IREJ, AMCH, AMCHN, IKET)

subroutine	comcma (IFQ, IFAQ, IJNCH, NNCH, IREJ, AMCH, AMCHN)

subroutine	comcm2 (IQ1, IQ2, IAQ1, IAQ2, NNCH, IREJ, AMCH)

subroutine	cormom (AMCH1, AMCH2, AMCH1N, AMCH2N, PQ1X, PQ1Y, PQ1Z, PQ1E, PA1X, PA1Y, PA1Z, PA1E, PQ2X, PQ2Y, PQ2Z, PQ2E, PA2X, PA2Y, PA2Z, PA2E, PXCH1, PYCH1, PZCH1, ECH1, PXCH2, PYCH2, PZCH2, ECH2, IREJ)

subroutine	selpt4 (PTXSQ1, PTYSQ1, PLQ1, EQ1, PTXSA1, PTYSA1, PLAQ1, EAQ1, PTXSQ2, PTYSQ2, PLQ2, EQ2, PTXSA2, PTYSA2, PLAQ2, EAQ2, AMCH1, AMCH2, IREJ, IKVALA, PTTQ1, PTTA1, NSELPT)

subroutine	selpt (PTXSQ1, PTYSQ1, PLQ1, EQ1, PTXSA1, PTYSA1, PLAQ1, EAQ1, PTXSQ2, PTYSQ2, PLQ2, EQ2, PTXSA2, PTYSA2, PLAQ2, EAQ2, AMCH1, AMCH2, IREJ, IKVALA, PTTQ1, PTTA1, PTTQ2, PTTA2, NSELPT)

subroutine	dechkk (NHKKH1)

subroutine	dtrafo (GAM, BGAM, CX, CY, CZ, COD, COF, SIF, P, ECM, PL, CXL, CYL, CZL, EL)

subroutine	sttran (XO, YO, ZO, CDE, SDE, SFE, CFE, X, Y, Z)

subroutine	lortmo (N, GAM, BGX, BGY, BGZ)

subroutine	evtest (IREJ)

subroutine	corval (AMMM, IREJ, AMCH1, AMCH2, QTX1, QTY1, QZ1, QE1, QTX2, QTY2, QZ2, QE2, NORIG)

subroutine	hadrhh

subroutine	hadrzz

subroutine	qinnuc (X, Y)

subroutine	casavs

subroutine	casasv

Function/Subroutine Documentation

subroutine casasv ( )

Definition at line 9447 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine casavs ( )

Definition at line 9163 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine cobcma	(	IF1,
		IF2,
		IF3,
		IJNCH,
		NNCH,
		IREJ,
		AMCH,
		AMCHN,
		IKET
	)

Definition at line 6049 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine comcm2	(	IQ1,
		IQ2,
		IAQ1,
		IAQ2,
		NNCH,
		IREJ,
		AMCH
	)

Definition at line 6218 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine comcma	(	IFQ,
		IFAQ,
		IJNCH,
		NNCH,
		IREJ,
		AMCH,
		AMCHN
	)

Definition at line 6135 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine cormom	(	AMCH1,
		AMCH2,
		AMCH1N,
		AMCH2N,
		PQ1X,
		PQ1Y,
		PQ1Z,
		PQ1E,
		PA1X,
		PA1Y,
		PA1Z,
		PA1E,
		PQ2X,
		PQ2Y,
		PQ2Z,
		PQ2E,
		PA2X,
		PA2Y,
		PA2Z,
		PA2E,
		PXCH1,
		PYCH1,
		PZCH1,
		ECH1,
		PXCH2,
		PYCH2,
		PZCH2,
		ECH2,
		IREJ
	)

Definition at line 6305 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine corval	(	AMMM,
		IREJ,
		AMCH1,
		AMCH2,
		QTX1,
		QTY1,
		QZ1,
		QE1,
		QTX2,
		QTY2,
		QZ2,
		QE2,
		NORIG
	)

Definition at line 8390 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine dechkk ( NHKKH1 )

Definition at line 6992 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine dfatpr	(	IP,
		PABS
	)

Definition at line 571 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine dfatta	(	IT,
		PABS
	)

Definition at line 489 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine dtrafo	(	GAM,
		BGAM,
		CX,
		CY,
		CZ,
		COD,
		COF,
		SIF,
		P,
		ECM,
		PL,
		CXL,
		CYL,
		CZL,
		EL
	)

Definition at line 7346 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine evtest ( IREJ )

Definition at line 7496 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine fer4m	(	PFERM,
		PXT,
		PYT,
		PZT,
		ET,
		KT
	)

Definition at line 320 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine fer4mp	(	IP,
		PFERM,
		PXT,
		PYT,
		PZT,
		ET,
		KT
	)

Definition at line 373 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine fer4mt	(	IT,
		PFERM,
		PXT,
		PYT,
		PZT,
		ET,
		KT
	)

Definition at line 430 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine flahad	(	ITYP,
		IBAR,
		IF1,
		IF2,
		IF3
	)

Definition at line 1194 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine flksaa	(	NN,
		ECM
	)

Definition at line 922 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine flksam ( )

Definition at line 653 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hadjet	(		NHAD,
			AMCH,
		dimension(4)	PPR,
		dimension(4)	PTA,
			GAM,
			BGX,
			BGY,
			BGZ,
			IFB1,
			IFB2,
			IFB3,
			IFB4,
			I1,
			I2,
			NOBAM,
			NNCH,
			NORIG
	)

Definition at line 5651 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hadrhh ( )

Definition at line 8459 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hadrkk	(	NHKKH1,
		PPN
	)

Definition at line 3259 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hadrss ( )

Definition at line 4727 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hadrsv ( )

Definition at line 4279 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hadrvs ( )

Definition at line 5230 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hadrvv ( )

Definition at line 3726 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine hadrzz ( )

Definition at line 8798 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lortmo	(	N,
		GAM,
		BGX,
		BGY,
		BGZ
	)

Definition at line 7420 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lortrp	(	N,
		NAUX,
		GAM,
		BGX,
		BGY,
		BGZ
	)

Definition at line 5983 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine nucmom ( )

Definition at line 83 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine parhkk ( )

Definition at line 2859 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine qinnuc	(	X,
		Y
	)

Definition at line 9129 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine saptre	(	AM1,
		G1,
		BGX1,
		BGY1,
		BGZ1,
		AM2,
		G2,
		BGX2,
		BGY2,
		BGZ2
	)

Definition at line 1 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine selpt	(	PTXSQ1,
		PTYSQ1,
		PLQ1,
		EQ1,
		PTXSA1,
		PTYSA1,
		PLAQ1,
		EAQ1,
		PTXSQ2,
		PTYSQ2,
		PLQ2,
		EQ2,
		PTXSA2,
		PTYSA2,
		PLAQ2,
		EAQ2,
		AMCH1,
		AMCH2,
		IREJ,
		IKVALA,
		PTTQ1,
		PTTA1,
		PTTQ2,
		PTTA2,
		NSELPT
	)

Definition at line 6620 of file dpm25nuc3.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine selpt4	(	PTXSQ1,
		PTYSQ1,
		PLQ1,
		EQ1,
		PTXSA1,
		PTYSA1,
		PLAQ1,
		EAQ1,
		PTXSQ2,
		PTYSQ2,
		PLQ2,
		EQ2,
		PTXSA2,
		PTYSA2,
		PLAQ2,
		EAQ2,
		AMCH1,
		AMCH2,
		IREJ,
		IKVALA,
		PTTQ1,
		PTTA1,
		NSELPT
	)