Dear Mihaela
the issue is related with the OPEN statement on unit 1 in the input file
colliding with the unit 1 in the RANDOMIZ card for reading the random
number.
Since you are (correctly) opening the file in the source routine using
OAUXFI, there is no need for the OPEN statement.
You can comment/delete it:
*OPEN 1. OLD
*parametrizare.txt
and then the input works. It is also safer in the source routine to close
unit=lunrdb (which is unit 1 by the way) after you read the file, eg:
...
C Normalizing cumulative spectrum
DO I = 1, NMAX
CUM(I) = CUM(I) / CUM(NMAX)
END DO
CLOSE ( UNIT = LUNRDB )
END IF
Ciao
Alfredo
> Dear Alfredo,
>
> Thank you for your response. No .err file is generated.
> I have attached the files that I am trying to use.
>
> Mihaela
> ________________________________________
> From: alfredo.ferrari_at_mi.infn.it [alfredo.ferrari_at_mi.infn.it]
> Sent: 29 January 2021 09:26
> To: Mihaela Parvu
> Cc: fluka-discuss_at_fluka.org
> Subject: Re: [fluka-discuss]: User source.f not working on the new version
> of Fluka
>
> Dear Mihaela
>
> it is a bit difficult to diagnose your problem without further
> information.
> Are the .out and .err files generated and in case what are the last
> messages they contain?
>
> If you wish more help, please send the input and possible extra files (eg
> the source routine) required to run your problem and we'll try to
> understand what is going wrong.
>
> Alfredo
>
>> Dear experts,
>>
>> I am trying to re-run some old inputs. I am using the user written
>> source.f in which I have already modified
>> LCHFLK (NPFLKA) = .FALSE.
>> DCHFLK (NPFLKA) = ZERZER
>>
>> to
>>
>> KCHFLK (NPFLKA) = 0
>> ECRFLK (NPFLKA) = ZERZER
>>
>> When I compile source I get no error.
>>
>> Unfortunately, when I am running the input I get either Finished ok, but
>> no files were generated, either TIMED-OUT error.
>>
>> Is there any modification that I should be aware of?
>>
>> Best regards,
>> Mihaela
>>
>
>
>
__________________________________________________________________________
You can manage unsubscription from this mailing list at
https://www.fluka.org/fluka.php?id=acc_info
Received on Fri Jan 29 2021 - 23:49:52 CET