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

[Koushik Sen]

Hi Warrick,

I am using the latest Mesa release. The change you asked me to do has
worked, the code is running again. Thanks a lot for your help!

Yours faithfully,
Koushik


On Tue, 9 Oct 2018, 7:53 p.m. Warrick Ball, <W.H.Ball at bham.ac.uk> 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
> -fprotect-parens -fno-sign-zero -fbacktrace -ggdb -finit-real=snan -fopenmp
> -fbounds-check -Wuninitialized -Warray-bounds  -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:
> >
> >           s% other_neu => tutorial_other_neu
> >                                   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
> >
> >
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.mesastar.org/pipermail/mesa-users/attachments/20181009/389990ba/attachment.html>