translate.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	atmncobptcl
subroutine	translate_aline (lread, k1, r1, p1, k100)

Function/Subroutine Documentation

atmncobptcl()

program atmncobptcl

(

)

Definition at line 1 of file translate.f.

References a, b, catmnctcos(), ctranscoord2(), false, h, i, kelec, kneue, kneumu, o, translate_aline(), true, and z.

Here is the call graph for this function:

translate_aline()

subroutine translate_aline	(	dimension(9)	lread,
			k1,
		dimension(5)	r1,
		dimension(5)	p1,
			k100
	)

Definition at line 108 of file translate.f.

References a, d, d0, h, o, and z.

Referenced by atmncobptcl().

      implicit doubleprecision (a-h, o-z)
! masses of particles
      include '../src3/include/atmnc-particle-mass2.inc'

      dimension r1(5), p1(5)
      dimension lread(9)

      kk   = lread(1)
      k100 = int(kk/100)
      k1   = kk - 100 * k100
!      write(*,*) lread(1), k100, k1

      pp = 10.d0**(1.d-6*lread(2))
      rr = 0.
      do k     = 1, 3
         r1(k) =        lread(2+k)
         p1(k) = 1.d-9 * lread(6+k)*pp
         rr    = rr + r1(k)**2
      enddo
      rr = sqrt(rr)

      r1(4) = 10.d0**(1.d-6*real(lread(6)))
      r1(5) = rr

      p1(5) = am(k1)
      p1(4) = sqrt(pp**2 + p1(5)**2)

Here is the caller graph for this function: