[mesa-users] Install error

[Guido M. L. <gui...@gm...>]

mesa/diffusion has been made, tested, and exported.

************************************************

/home/guido/mesa/sample
building sample package.

*
*
*

/usr/bin/gfortran -fno-range-check  -fopenmp  -I../public -I../private -I../../include -Wunused-value -Werror -W -fimplicit-none   -O2 -c -ffree-form -I/home/guido/mesa/utils/mesasdk/include -x f95-cpp-input -D/usr/bin/gfortran ../private/solve_mix.f
<command-line>:2:0: error: macro names must be identifiers
../private/solve_mix.f:58.17:

         real (XL), pointer, dimension(:) :: du, d, dl
                 1
Error: Symbol 'xl' at (1) has no IMPLICIT type
../private/solve_mix.f:82.18:

         allocate(du(nz), d(nz), dl(nz), x(nz,species), &
                  1
Error: Allocate-object at (1) is not a nonprocedure pointer or an allocatable variable
../private/solve_mix.f:239.25:

            deallocate(du, d, dl, x, b, init_avg_x)
                         1
Error: Allocate-object at (1) is not a nonprocedure pointer or an allocatable variable
../private/solve_mix.f:244.20:

            real (XL), dimension(:) :: du, d, dl
                    1
Error: Symbol 'xl' at (1) has no IMPLICIT type
../private/solve_mix.f:246.20:

            real (XL) :: dtdm, dtsig00dm, dtsigp1dm, dt_ps, dm, sig
                    1
Error: Symbol 'xl' at (1) has no IMPLICIT type
../private/solve_mix.f:247.20:

            real (XL), parameter :: xl0 = 0, xl1 = 1
                    1
Error: Symbol 'xl' at (1) has no IMPLICIT type
../private/solve_mix.f:256.18:

                  dl(k-1) = -dtsig00dm
                  1
Error: Unclassifiable statement at (1)
../private/solve_mix.f:261.18:

                  du(k) = -dtsigp1dm
                  1
Error: Unclassifiable statement at (1)
../private/solve_mix.f:265.15:

               d(k) = xl1 + dtsig00dm + dtsigp1dm
               1
Error: Unclassifiable statement at (1)
../private/solve_mix.f:285.17:

         real (XL), dimension(n), intent(in) :: sup, diag, sub
                 1
Error: Symbol 'xl' at (1) has no IMPLICIT type
../private/solve_mix.f:290.17:

         real (XL), dimension(:), pointer :: bp, vp, xp
                 1
Error: Symbol 'xl' at (1) has no IMPLICIT type
../private/solve_mix.f:291.17:

         real (XL) :: m
                 1
Error: Symbol 'xl' at (1) has no IMPLICIT type
../private/solve_mix.f:295.18:

         allocate(bp(n), vp(n), xp(n), stat=ierr)
                  1
Error: Allocate-object at (1) is not a nonprocedure pointer or an allocatable variable
../private/solve_mix.f:298.9:

         bp(1) = diag(1)
         1
Error: Unclassifiable statement at (1)
../private/solve_mix.f:299.9:

         vp(1) = rhs(1)
         1
Error: Unclassifiable statement at (1)
../private/solve_mix.f:303.40:

            bp(i) = diag(i) - m*sup(i-1)
                                        1
Error: Unexpected STATEMENT FUNCTION statement at (1)
../private/solve_mix.f:304.20:

            vp(i) = rhs(i) - m*vp(i-1)
                    1
Error: Statement function at (1) is recursive
../private/solve_mix.f:307.28:

         xp(n) = vp(n)/bp(n)
                            1
Error: Unexpected STATEMENT FUNCTION statement at (1)
../private/solve_mix.f:310.20:

            xp(i) = (vp(i) - sup(i)*xp(i+1))/bp(i)
                    1
Error: Statement function at (1) is recursive
../private/solve_mix.f:314.22:

         deallocate(bp, vp, xp)
                      1
Error: 'bp' at (1) is not a variable
../private/solve_mix.f:275.49:

      subroutine solve_high_precision_tridiag(sub, diag, sup, rhs, x, n, ierr)
                                                 1
Error: Symbol 'sub' at (1) has no IMPLICIT type
../private/solve_mix.f:275.55:

      subroutine solve_high_precision_tridiag(sub, diag, sup, rhs, x, n, ierr)
                                                       1
Error: Symbol 'diag' at (1) has no IMPLICIT type
../private/solve_mix.f:275.60:

      subroutine solve_high_precision_tridiag(sub, diag, sup, rhs, x, n, ierr)
                                                            1
Error: Symbol 'sup' at (1) has no IMPLICIT type
../private/solve_mix.f:302.13:

            m = sub(i-1)/bp(i-1)
             1
Error: Symbol 'm' at (1) has no IMPLICIT type
../private/solve_mix.f:243.36:

         subroutine create_matrix(du, d, dl)
                                    1
Error: Symbol 'du' at (1) has no IMPLICIT type
Fatal Error: Error count reached limit of 25.
make: *** [solve_mix.o] Error 1

/home/guido/mesa/star/make
FAILED


/home/guido/mesa/star
./build_and_test FAILED

root@Terminus:~/mesa#