Much time cost when using source.f for particle spectrum

Source Definition
1

Versions

Please provide the used software versions.

FLUKA:4.5.0
Flair:3.4.0

Description

The primary particles have a energy distribution, so the source.f file is used, the key codes are:
open(unit=20,
& file=‘/home/llh/Fluka/Patent/UsrTrack/neutron_spectrum.txt’,
& iostat=ios)

 do i=1,4
      read(10,*)
      write(*,'(A)')tempstr
  end do
  do i=1,EnergyNumber
      read(20,*)Data1(i),Data2(i,1),Data2(i,2),Data2(i,3),Data2(i,4),
 & Data2(i,5),Data2(i,6)
  end do  
  close(20)

the application runs well, but much time cost, because every primary particle read the file “neutron_spectrum.txt” once, so how to only read the file “neutron_spectrum.txt” one time?

Input files

Please upload all relevant files. (FLUKA input file, Flair project file, user routines, and data files)

2

Dear Siyuan,

Please have a look at slide 17 of this lecture:

Cheers,

David

3

@horvathd, thank you very much!