TRANSX patches

The following two patches have to be applied to TRANSX code in order to assure  correct processing of the FENDL/MG-2.0 library.

Patch 1. to increase the insufficient array size (2 lines)

*d up14.4
maxds=5+12*(nl+1)
	

Patch 2.  to allow for simultaneous processing of  MG files for different materials out of which some contain thermal scattering data and others do not (30 lines)

*/ 1998/08/10
*/ modify for processing the matxs files with different ntypes
*i transx.674
ntypes=0
*d transx.707,708
if (ntypes.eq.0) then
ntypes=ntype
do 235 i=1,ntype
235 htypnm(i)=ha(l1h-1+npart+i)
elseif (ntype.ne.ntypes) then
do 236 i=1,min(ntype,ntypes)
236 if (htypnm(i).ne.ha(l1h-1+npart+i)) call error(
& 'inconsistent hollerith identification for data type')
if (ntype.gt.ntypes) then
do 237 i=ntypes+1,ntype
237 htypnm(i)=ha(l1h-1+npart+i)
ntypes=ntype
endif
endif
nwds=(npart+20+nmat)*mult+npart+2*20+2*nmat
*i up10.91
nwds=6
irec=2
call reed(nin,irec,a(l1),nwds,0)
ntype=ia(l1+1)
*i up10.122
nwds=6
irec=2
call reed(nin,irec,a(l1),nwds,0)
ntype=ia(l1+1)
	

How to apply patches:

The TRANSX code is being installed using the update program "upd". The input file for the "upd" program  is "trx.upn". The two patches can be implanted in TRANSX by executing   "upd" with the modified "trx.upn". Please do the following:

1. open the "trx.upn" file with an editor, and add both patches (2 + 30 lines).
2. at prompt type: make transx

This will run the "upd" program and create new executable TRANSX including the patches.

This patches were created by Mr. Kazuaki KOSAKO, Sumitomo Atomic Energy Industries, Ltd., Japan.