| |
| | [No title] (Site not responding. Last check: 2007-10-30) |
 | | if (akal.ne.0.) rkal=delfc/akal if (rkal.lt.0..or.rkal.gt.1.) 1 call mess('fndar1','kalbach r is unreasonable',' ') return end c subroutine fndar2(akal,rkal,fbcm,ffcm,emu1,emu2,ee,ep) c ****************************************************************** c this subroutine finds the kalbach angular distribution parameters c akal and rkal from tabulated angular distributions using the lang c =11--13 options. |
 | | 1 (mt.eq.19.or.mt.eq.20.or.mt.eq.21.or.mt.eq.38)) go to 260 *d acer.1565 if (mt19.eq.1.and.mt.eq.18) go to 105 if (mt19.eq.0.and. |
 | | * *d wimsr.92 common/wunits/ngendf,nout,nscr0,nscr1,nscr2,nscr3,nscr4 *d wimsr.94 *d wimsr.96,97 common/wim1/ngnd,nfg,nrg,igref,iprint, 1 ntemp,nsigz,ntmax,tempr(10),nwscr *d wimsr.99,103 common/wim3/nfid,rdfid common/wim4/iu,nfiss,isof,jfiss common/wim6/mat,iznum,awr,sgrf,sigp,mti,mtc,ip1opt,inorf,ires common/burnup/yield(50),ifisp(50) dimension z(15) *d wimsr.108,112 10 format(/' wimsr...create data for wims',40x,f8.1,1hs) ntmax=10 nwscr=7500 namax=100000 *i wimsr.115 nscr0=10 nscr1=11 nscr2=12 nscr3=13 nscr4=14 *d wimsr.118 *d wimsr.126,129 if (ntty.gt.0) write(ntty, 1 '(/'' enter iprint[0], iverw[4], igroup[0]'')') nz=3 *i wimsr.131 z(3)=0. |
| t2.lanl.gov /codes/njoy91/up118 (1691 words) |
|