Changeset 3250 for branches

Show
Ignore:
Timestamp:
01/26/12 21:06:22 (4 months ago)
Author:
erkn
Message:

FermiChopper?: fixed an invalid STATE parameter line that caused p=0

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/mcxtrace-1.0/nlib/optics/FermiChopper.comp

    r3020 r3250  
    9696  curvature=0,time=0) 
    9797OUTPUT PARAMETERS(FCVars) 
    98 STATE PARAMETERS (x,y,z,vx,vy,vz,t,sx,sy,p) 
     98STATE PARAMETERS (x,y,z,vx,vy,vz,t,sx,sy,sz,p) 
    9999SHARE 
    100100%{ 
    … …  
    803803 
    804804    if (!FCVars.sum_N_pass) 
    805     printf("FermiChopper: %s: No neutron can pass the chopper.\n", NAME_CURRENT_COMP); 
     805      printf("FermiChopper: %s: No neutron can pass the chopper.\n", NAME_CURRENT_COMP); 
    806806    if (!FCVars.sum_N_pass || verbose) 
    807     printf("FermiChopper: %s\n" 
     807      printf("FermiChopper: %s\n" 
    808808           "              Mean velocity     v     = %g [m/s]\n" 
    809809           "              Mean wavelength   lambda= %g [Angs]\n" 
    … …  
    858858    } 
    859859 
     860  } else { 
     861    printf("FermiChopper: %s: No neutron can reach the chopper.\n", NAME_CURRENT_COMP); 
    860862  } 
    861863%}