Hallo, It should be 'intent' in line 2, not 'intend'. Heribert
On Thu, Jun 11, 2015 at 3:32 PM, Ludwig, Stephan < [email protected]> wrote: > Hi, > > I want to optimize a Basis set for As. > > Unfortunately I have proplems to install the optimization programm. > > typing 'make swarm simplex' in 'siesta-3.2-pl-5/Util/Optimizer' I > receive the error message > > i1@QuanQal2:/home/siesta-3.2-pl-5/Util/Optimizer$ sudo make swarm simplex > > f77 -c io.f > io_assign: > Error on line 2: syntax error > Warning on line 13: ignoring text after "end". > Warning on line 13: local variable out never used > Warning on line 13: local variable intend never used > Error on line 13: Declaration error for intend: adjustable dimension on > non-argument > /usr/bin/f77: aborting compilation > make: *** [io.o] Fehler 25 > > The io.f file looks like this > > > > SUBROUTINE io_assign(lun) > integer intend(out) :: lun > logical used > integer iostat > c > c Looks for a free unit and assigns it to lun > c > do lun= 10, 99 > inquire(unit=lun, opened=used, iostat=iostat) > if (iostat .ne. 0) used = .true. > if (.not. used) return > enddo > end SUBROUTINE io_assign > > > > > > Can anybody help me to find the syntax error? > > > > Best regards > > Stephan > > > > >
