src/ness/ness_com.inc

Fortran project RESTRAX, source module src/ness/ness_com.inc.

Source module last modified on Wed, 13 Jul 2005, 16:20;
HTML image of Fortran source automatically generated by for2html on Mon, 29 May 2006, 15:06.


      integer*4 crnd      
      parameter(crnd=16)
     
#// NEUTRON contains phase space coordinates (R,K), time-of-flight (T),
#// spin state (S) and precession phase (PHI)
      STRUCTURE /NEUTRON/
          real*8 r(3),k(3),t,s,p,phi
      end structure