jacobwilliams / powellopt Goto Github PK

 + gfortran -c ././src/cobyla.f90   -O3 -funroll-loops -Wimplicit-interface -fPIC -fmax-errors=1 -fcoarray=single -fimplicit-none -Werror=implicit-interface -ffree-form -J build/gfortran_2654F75F5833692A -Ibuild/gfortran_2654F75F5833692A -o build/gfortran_2654F75F5833692A/PowellOpt/src_cobyla.f90.o
././src/cobyla.f90:138:24:

  138 |     subroutine cobylb (n, m, mpp, x, rhobeg, rhoend, iprint, maxfun, con, sim, simi, &
      |                        1
Error: Symbol 'n' at (1) has no IMPLICIT type
compilation terminated due to -fmax-errors=1.
[ 25%]                     cobyla.f90  done.

././src/cobyla.f90:138:24:

  138 |     subroutine cobylb (n, m, mpp, x, rhobeg, rhoend, iprint, maxfun, con, sim, simi, &
      |                        1
Error: Symbol 'n' at (1) has no IMPLICIT type
compilation terminated due to -fmax-errors=1.
<ERROR> Compilation failed for object " src_cobyla.f90.o "
<ERROR> stopping due to failed compilation
STOP 1

kind_module.f90:6:2:

    6 |         module kind_module
      |         1
Warning: Nonconforming tab character at (1) [-Wtabs]
kind_module.f90:8:2:

    8 |         use iso_fortran_env
      |         1
Warning: Nonconforming tab character at (1) [-Wtabs]
kind_module.f90:10:2:

   10 |         implicit none
      |         1
Warning: Nonconforming tab character at (1) [-Wtabs]
kind_module.f90:12:2:

   12 |         private
      |         1
Warning: Nonconforming tab character at (1) [-Wtabs]
kind_module.f90:17:2:

   17 |         integer,parameter,public :: wp = real64    !! double precision [default]
      |         1
Warning: Nonconforming tab character at (1) [-Wtabs]
kind_module.f90:20:2:

   20 |         end module kind_module
      |         1
Warning: Nonconforming tab character at (1) [-Wtabs]
lincoa.f90:71:27:

   71 |         real(wp),dimension(ia,*),intent(in) :: a       !! a matrix whose columns are the constraint gradients, which are
      |                           1
Error: GNU Extension: Symbol 'ia' is used before it is typed at (1)
lincoa.f90:1133:34:

 1133 |         go to (50, 60, 280), iflag
      |                                  1
Warning: Obsolescent feature: Computed GOTO at (1)
lincoa.f90:60:35:

   60 |     subroutine lincoa (n, npt, m, a, ia, b, x, rhobeg, rhoend, iprint, maxfun, calfun)
      |                                   1
Error: Symbol 'a' at (1) has no IMPLICIT type
lincoa.f90:2290:76:

 2290 |             call lincoa(n,npt,m,a,ia,b,x,rhobeg,rhoend,iprint,maxfun,calfun)
      |                                                                            1
Error: Type mismatch in argument 'a' at (1); passed REAL(8) to UNKNOWN
lincoa.f90:156:33:

  156 |                     sum = sum + a (i, j) * x (i)
      |                                 1
Error: Function 'a' at (1) has no IMPLICIT type
lincoa.f90:157:35:

  157 |                     temp = temp + a (i, j) ** 2
      |                                   1
Error: Function 'a' at (1) has no IMPLICIT type
lincoa.f90:170:30:

  170 |                     w (iw) = a (i, j) / temp
      |                              1
Error: Function 'a' at (1) has no IMPLICIT type
powellopt.f90:9:9:

    9 |     use lincoa_module
      |         1
Fatal Error: Cannot open module file 'lincoa_module.mod' for reading at (1): No such file or directory
compilation terminated.

    abstract interface
    subroutine func (n, x, f)  !! calfun interface
        import :: wp
        implicit none
        integer  , intent(in)  :: n
        real (wp), intent(in)  :: x (*)
        real (wp), intent(out) :: f
    end subroutine func
    end interface