[mesa-users] create_zams errors
Robert FARMER
rjfarmer at asu.edu
Wed Jun 17 17:25:53 EDT 2015
So i just did a checkout of that version and it works for me. I would
suggest trying a new copy of the zip folder and trying again.
Also what does
gfortran -v
say?
Rob
On Wed, Jun 17, 2015 at 2:07 PM, Chris Peacock <1chris.peacock at gmail.com>
wrote:
> I am using mesa 7503; I tried "./mk" with the default settings of the
> inlists shortly after my edited versions failed, and it produced similarly
> disappointing results. I used the zip files to download mesa; I am
> working with osx 10.9.4, if it makes any difference...
>
> Thanks for the consideration
>
> Chris
>
> On Wed, Jun 17, 2015 at 4:56 PM, Robert FARMER <rjfarmer at asu.edu> wrote:
>
>> 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/71056949/attachment.html>
More information about the Mesa-users
mailing list