cbst0.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cbst0 (init, gb, p, po)

Function/Subroutine Documentation

cbst0()

subroutine cbst0	(	integer	init,
		type(fmom)	gb,
		type(ptcl)	p,
		type(ptcl)	po
	)

Definition at line 25 of file cbst0.f.

References clorep().

Referenced by cbst1(), cs2lp(), and outresulc().

         implicit none

#include  "Zptcl.h"
         type(fmom):: gb
         type(ptcl):: p, po
         integer init
!
         type(fmom):: ig
#ifdef  USESAVE
         save ig
#endif
!

         if(init .eq. 1) then
            ig%p(1) = -gb%p(1)
            ig%p(2) = -gb%p(2)
            ig%p(3) = -gb%p(3)
            ig%p(4) =  gb%p(4)
         endif
         po = p
         call clorep(init, ig, p, po)

Here is the call graph for this function:

Here is the caller graph for this function: