[Mesa-users] The last beyond inlist (extending MESA) tutorial

[Warrick Ball]

Hi again,

Following Aaron's email I realised I am also guilty of not specifying a 
version.  I had a look in r10398, the latest public release.

W

------------
Warrick Ball
Postdoc, School of Physics and Astronomy
University of Birmingham, Edgbaston, Birmingham B15 2TT
W.H.Ball at bham.ac.uk
+44 (0)121 414 4552


On Tue, 9 Oct 2018, mesa-users at lists.mesastar.org wrote:

> Hi Koushik,
>
> It's been a while since I looked at the "Beyond inlists" material but in this 
> case I think the compiler error has told you exactly what's wrong. Your 
> `tutorial_other_neu` routine has
>
>     real(dp), intent(out) :: loss(num_neu_rvs) ! total from all sources
>     real(dp), intent(out) :: sources(num_neu_types, num_neu_rvs)
>
> whereas star/other/other_neu.f90 has
>
>     real(dp), intent(inout) :: loss(num_neu_rvs) ! total from all sources
>     real(dp), intent(inout) :: sources(num_neu_types, num_neu_rvs)
>
> So where you have `intent(out)`, the template has `intent(inout)`.  See if 
> that change allows you to compile your code.
>
> Cheers,
> Warrick
>
>
>
> ------------
> Warrick Ball
> Postdoc, School of Physics and Astronomy
> University of Birmingham, Edgbaston, Birmingham B15 2TT
> W.H.Ball at bham.ac.uk
> +44 (0)121 414 4552
>
>
> On Tue, 9 Oct 2018, mesa-users at lists.mesastar.org wrote:
>
>>  Hi everyone,
>>
>>  I am following the steps to introduce a user defined use_other_neu
>>  subroutine to model nuetrino losses as given in the website but I am
>>  running into this error when doing ./mk
>> 
>> !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
>>  koushik at koushik-Inspiron-5767:~/code/mesa/star/tutorial$ ./mk
>>  gfortran -Wno-uninitialized -fno-range-check -fmax-errors=12\A0
>>  -fprotect-parens -fno-sign-zero -fbacktrace -ggdb -finit-real=snan
>>  -fopenmp -fbounds-check -Wuninitialized -Warray-bounds\A0 -ffree-form -x
>>  f95-cpp-input -I/home/koushik/code/mesa/include
>>  -I/home/koushik/code/mesasdk/include -c ../src/run_star_extras.f
>>  ../src/run_star_extras.f:89:25:
>>
>>  \A0\A0\A0\A0\A0\A0\A0\A0\A0 s% other_neu => tutorial_other_neu
>>  \A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0\A0 \A0 \A0 \A0 \A0 \A0 1
>>  Error: Interface mismatch in procedure pointer assignment at (1): INTENT
>>  mismatch in argument 'loss'
>>  /home/koushik/code/mesa/star/work_standard_makefile:38: recipe for target
>>  'run_star_extras.o' failed
>>  make: *** [run_star_extras.o] Error 1
>>
>>  FAILED
>> !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
>>
>>  I have attached the inslist and run_star_extras.f file with the mail.
>>
>>  Note: when I am commenting out the s% other_neu => tutorial_other_neu the
>>  code is compiling but including that line, the code isn't.
>>
>>  Yours faithfully,
>>  Koushik
>> 
>> 
> _______________________________________________
> mesa-users at lists.mesastar.org
> https://lists.mesastar.org/mailman/listinfo/mesa-users
>
>