Dear Mr Postnikov,

I compiled this version (for gfortran) of sies2xsf without any problems.
Thank You.

Regards,
Malgorzata

16/7/2010, "[email protected]" <[email protected]>
napisaƂ/a:

>Dear Malgorzata
>please try the attached modified Sies2xsf
>and let me know if you encounter any problems.
>The version distributed with the Siesta code is anyway quite old;
>you can check my web page for updates.
>http://www.home.uni-osnabrueck.de/apostnik/download.html
>
>(But the fixes I've just done in eig2bxsf are not yet there).
>
>Best regards
>
>Andrei Postnikov
>
>>
>> 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
>>
>>

Responder a