Hello Siesta users,
I'm trying to compile sies2xsf program but with no success.
I've changed the compilation options in Makefile for Sies2xsf as for
Siesta's arch.make (f95)
but I got:
f95 -g -c -o eig2bxsf.o eig2bxsf.f
eig2bxsf.f:151.72:
if (ndiv(1,ikp).ne.itry1) goto 12
1
eig2bxsf.f:156.72:
12 enddo
2
Warning: Deleted feature: GOTO at (1) jumps to END of construct at (2)
eig2bxsf.f:152.72:
if (ndiv(2,ikp).ne.itry2) goto 12
1
eig2bxsf.f:156.72:
12 enddo
2
Warning: Deleted feature: GOTO at (1) jumps to END of construct at (2)
eig2bxsf.f:153.72:
if (ndiv(3,ikp).ne.itry3) goto 12
1
eig2bxsf.f:156.72:
12 enddo
2
Warning: Deleted feature: GOTO at (1) jumps to END of construct at (2)
eig2bxsf.f:162.72:
if (ndiv(1,ikp).ne.itry1) goto 13
1
eig2bxsf.f:167.72:
13 enddo
2
Warning: Deleted feature: GOTO at (1) jumps to END of construct at (2)
eig2bxsf.f:163.72:
if (ndiv(2,ikp).ne.itry2) goto 13
1
eig2bxsf.f:167.72:
13 enddo
2
Warning: Deleted feature: GOTO at (1) jumps to END of construct at (2)
eig2bxsf.f:164.72:
if (ndiv(3,ikp).ne.itry3) goto 13
1
eig2bxsf.f:167.72:
13 enddo
2
Warning: Deleted feature: GOTO at (1) jumps to END of construct at (2)
f95 -g -c -o inver3.o inver3.f
f95 -g -c -o opnout.o opnout.f
f95 -g -o eig2bxsf eig2bxsf.o inver3.o opnout.o
f95 -g -c -o xv2xsf.o xv2xsf.f
f95 -g -o xv2xsf xv2xsf.o opnout.o
f95 -g -c -o md2axsf.o md2axsf.f
f95 -g -c -o makebox.o makebox.f
f95 -g -c -o fillbox.o fillbox.f
f95 -g -c -o hit.o hit.f
f95 -g -c -o test_ani.o test_ani.f
f95 -g -c -o test_md.o test_md.f
f95 -g -c -o wraxsf1.o wraxsf1.f
wraxsf1.f:30.72:
open (is1, file='tmpfil',form='formatted',status='scratch')
1
Error: The STATUS specified in OPEN statement at (1) cannot have the
value SCRATCH if a FILE specifier is present
make: *** [wraxsf1.o] Error 1
Any suggestions?
Regards,
Malgorzata
