[mesa-users] create_zams errors
Chris Peacock
1chris.peacock at gmail.com
Wed Jun 17 16:49:30 EDT 2015
I am attempting to create a main sequence star of a specific metallicity,
and therefore I have turned to the module create_zams as my first step.
When I attempted to "./mk" to make sure the code compiled, I received this
set of errors:
gfortran -fno-range-check -fmax-errors=100 -fprotect-parens -fno-sign-zero
-fopenmp -fbounds-check -Wuninitialized -Warray-bounds -g -ffree-form -x
f95-cpp-input -I../../../../include -I/Applications/mesasdk/include -c
../src/run_star_extras.f
standard_run_star_extras.inc:179.41:
Included at ../src/run_star_extras.f:458:
integer function extras_check_model(s, id, id_extra)
1
standard_run_star_extras.inc:34.41:
Included at ../src/run_star_extras.f:458:
integer function extras_check_model(id, id_extra)
2
Error: Procedure 'extras_check_model' at (1) is already defined at (2)
standard_run_star_extras.inc:179.58:
Included at ../src/run_star_extras.f:458:
integer function extras_check_model(s, id, id_extra)
1
Error: Symbol 'extras_check_model' at (1) already has basic type of INTEGER
standard_run_star_extras.inc:181.58:
Included at ../src/run_star_extras.f:458:
use chem_def, only : i_burn_ne, category_name
1
Error: Unexpected USE statement in CONTAINS section at (1)
standard_run_star_extras.inc:183.39:
Included at ../src/run_star_extras.f:458:
type (star_info), pointer :: s
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:184.44:
Included at ../src/run_star_extras.f:458:
integer, intent(in) :: id, id_extra
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:185.30:
Included at ../src/run_star_extras.f:458:
integer :: i_burn_max
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:186.27:
Included at ../src/run_star_extras.f:458:
extras_check_model = keep_going
1
Error: Symbol 'extras_check_model' at (1) has already been host associated
standard_run_star_extras.inc:197.33:
Included at ../src/run_star_extras.f:458:
i_burn_max = maxloc(s% L_by_category,1)
1
Error: Symbol 's' at (1) has no IMPLICIT type
standard_run_star_extras.inc:200.47:
Included at ../src/run_star_extras.f:458:
if ( i_burn_max .eq. i_burn_ne) then
1
Error: Unexpected block IF statement in CONTAINS section at (1)
standard_run_star_extras.inc:201.32:
Included at ../src/run_star_extras.f:458:
extras_check_model = terminate
1
Error: Symbol 'extras_check_model' at (1) has already been host associated
standard_run_star_extras.inc:202.10:
Included at ../src/run_star_extras.f:458:
s% termination_code = t_xtra1
1
Error: Symbol 's' at (1) has no IMPLICIT type
standard_run_star_extras.inc:203.66:
Included at ../src/run_star_extras.f:458:
termination_code_str(t_xtra1) = 'neon burning is dominant'
1
Error: Unexpected STATEMENT FUNCTION statement in CONTAINS section at (1)
standard_run_star_extras.inc:204.14:
Included at ../src/run_star_extras.f:458:
return
1
Error: Unexpected RETURN statement in CONTAINS section at (1)
standard_run_star_extras.inc:205.12:
Included at ../src/run_star_extras.f:458:
end if
1
Error: Expecting END MODULE statement at (1)
standard_run_star_extras.inc:208.37:
Included at ../src/run_star_extras.f:458:
if (extras_check_model == terminate) s% termination_code =
t_extr
1
Error: Function 'extras_check_model' requires an argument list at (1)
standard_run_star_extras.inc:210.4:
Included at ../src/run_star_extras.f:458:
end function extras_check_model
1
Error: Expecting END MODULE statement at (1)
standard_run_star_extras.inc:321.88:
Included at ../src/run_star_extras.f:458:
id, k, T, log10_T, Rho, log10_Rho, abar, zbar, z2bar, log10_Tlim, flags, &
los
1
Error: Invalid character in name at (1)
standard_run_star_extras.inc:322.32:
Included at ../src/run_star_extras.f:458:
use neu_lib, only: neu_get
1
Error: Unexpected USE statement in CONTAINS section at (1)
standard_run_star_extras.inc:323.17:
Included at ../src/run_star_extras.f:458:
use neu_def
1
Error: Unexpected USE statement in CONTAINS section at (1)
standard_run_star_extras.inc:324.45:
Included at ../src/run_star_extras.f:458:
integer, intent(in) :: id ! id for star
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:325.78:
Included at ../src/run_star_extras.f:458:
integer, intent(in) :: k ! cell number or 0 if not for a particular cell
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:326.45:
Included at ../src/run_star_extras.f:458:
real(dp), intent(in) :: T ! temperature
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:327.60:
Included at ../src/run_star_extras.f:458:
real(dp), intent(in) :: log10_T ! log10 of temperature
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:328.43:
Included at ../src/run_star_extras.f:458:
real(dp), intent(in) :: Rho ! density
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:329.58:
Included at ../src/run_star_extras.f:458:
real(dp), intent(in) :: log10_Rho ! log10 of density
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:330.55:
Included at ../src/run_star_extras.f:458:
real(dp), intent(in) :: abar ! mean atomic weight
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:331.48:
Included at ../src/run_star_extras.f:458:
real(dp), intent(in) :: zbar ! mean charge
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:332.57:
Included at ../src/run_star_extras.f:458:
real(dp), intent(in) :: z2bar ! mean charge squared
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:333.40:
Included at ../src/run_star_extras.f:458:
real(dp), intent(in) :: log10_Tlim
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:334.94:
Included at ../src/run_star_extras.f:458:
nt(inout) :: flags(num_neu_types) ! true if should include the type of loss
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:335.73:
Included at ../src/run_star_extras.f:458:
real(dp), intent(out) :: loss(num_neu_rvs) ! total from all sources
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:336.66:
Included at ../src/run_star_extras.f:458:
real(dp), intent(out) :: sources(num_neu_types, num_neu_rvs)
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:337.34:
Included at ../src/run_star_extras.f:458:
integer, intent(out) :: ierr
1
Error: Unexpected data declaration statement in CONTAINS section at (1)
standard_run_star_extras.inc:340.34:
Included at ../src/run_star_extras.f:458:
loss, sources, ierr)
1
Error: Unexpected CALL statement in CONTAINS section at (1)
standard_run_star_extras.inc:341.30:
Included at ../src/run_star_extras.f:458:
end subroutine null_other_neu
1
Error: Expected label 'move_extra_info' for END SUBROUTINE statement at (1)
make: *** [run_star_extras.o] Error 1
FAILED
(Sorry for the huge list, I included the lot of it for completion). If
anyone has any ideas of what is wrong with my run_star_extras.f file, or
whether I am missing something obvious, any advice would be appreciated.
Thanks,
Chris
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.mesastar.org/pipermail/mesa-users/attachments/20150617/00e5b632/attachment.html>
More information about the Mesa-users
mailing list