RE: How to obtain the function of "INDLST"?

Dear Hantao

I don't know anything about the INDLST function, but I have solved this
problem by writing a bash script which does this process for me. I usually
batch submit my jobs to our super cluster so I may have up to 80 nodes
running the same job broken down into smaller units. This produces of course
80 detector output files to combine with usxsuw/usbsuw, per each fortran
unit/detector. So a generalised version of the script (located and run from
$MYFLUKA) I use is as follows:

----------------
#!/bin/sh
# Combines all output files

if [ -z $1 ]; then
        echo 'Input file name:'
        read FLUKAINP
else
        FLUKAINP=$1
fi

if [ -z $2 ]; then
        echo 'Fortran unit number:'
        read unit
else
        unit=$2
fi

until [ -z $unit ]; do

## Use usbsuw/usxsuw as appropriate

$FLUPRO/flutil/usbsuw << EOF
`find *.$unit`

comb.bin
EOF

## Convert binary to ascii

$FLUPRO/flutil/usbrea << EOF
comb.bin
${FLUKAINP}.out_${unit}
EOF

echo 'Combine another unit? (enter unit or leave blank to exit)'
read unit

done

echo 'Done'

--------------

I call this script 'comb', so you can run it like this:

$> comb [input] [fortran unit]

Or pass these variables after just running 'comb'.

Some notes:
- This is for use in a BASH shell only!
- If you have lots of different jobs' outputs together in $MYFLUKA, it will
pick them all up - but presumably you'll keep jobs in separate sub
directories otherwise it is messy!
- There may be more elegant solutions, but I'm not an expert and this works
for me!

I hope this helps with your particular problem...

Dan

-----Original Message-----
From: owner-fluka-discuss_at_mi.infn.it [mailto:owner-fluka-discuss_at_mi.infn.it]
On Behalf Of Hantao Jing
Sent: 11 March 2009 15:28
To: fluka-discuss_at_fluka.org
Subject: How to obtain the function of "INDLST"?

Dear Fluka experts,
      When I calculate the neutron production from a W target impinged
by the proton beam, many files of the results obtained by USRBDX
detector produce. If I use the usxsuw to read the unformatted files, it
is very inconvenient and inefficient by inputting the files one by one.
So I hope that the computer can read all these files automatically if I
make some changes for the code of usxsuw.f. At present, I just know that
the GETFILEINFOQQ functions can read files in some folders in Compaq
Visual Fortran. When I try to compile the usxsuw.f by Compaq Visual
Fortran in windows operating system. There are linking error happening,
namely,

--------------------Configuration: usxsuw - Win32 Debug--------------------
Linking...
usxsuw.obj : error LNK2001: unresolved external symbol _INDLST_at_16
Debug/usxsuw.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

This message tell me that the undlst function can't be found.
Could you tell me something about the undlst function? Or how can read
the output files automatically in Linux?
thank you very much!

               Hantao Jing
               2009-3-11
Received on Wed Mar 11 2009 - 23:47:11 CET