[mesa-users] create_zams errors
Robert FARMER
rjfarmer at asu.edu
Wed Jun 17 16:56:01 EDT 2015
Hi
What mesa version are you using? When i try this with r7637 it compiles
fine. Have you edited the file in anyway? or is it possible that it is left
over from a previous version (ie do you use svn or the zip files?)
Rob
On Wed, Jun 17, 2015 at 1:49 PM, Chris Peacock <1chris.peacock at gmail.com>
wrote:
> 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
>
>
> ------------------------------------------------------------------------------
>
> _______________________________________________
> mesa-users mailing list
> mesa-users at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/mesa-users
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.mesastar.org/pipermail/mesa-users/attachments/20150617/3f20bc5b/attachment.html>
More information about the Mesa-users
mailing list