My previous email was rather misshaped by the mail client. I hope you
can read this one more clearly. Please apologize.

In $WIENROOT/SRC_kgen there is a file wn_readbakgen.f which may be
compiled in order to substitute the corresponding executable in the
XCrySDen distribution ($XCRYSDEN_TOPDIR/bin/wn_readbakgen).

However the file supplied in SRC_kgen leads to compile errors:

lines 110,111

            read(line,'(43x,i7,err=111)') nkpt
                                   /error: invalid character in format list/
            goto 112                                                
                                    /error: label is not defined/
 111        read(line,'(44x,i6)') nkpt     ! old format

With the following slight modifications, compilation and execution works:

            read(line,'(43x,i7)',err=111) nkpt !/modified line 110//
/            goto 112
 111        read(line,'(44x,i6)') nkpt     ! old format
 112        continue                           ! /added line/

Best regards,

Ulrich

-- 
-----------------------------------------------------------------
Dr. Ulrich Wedig                              Tel. 0711/6891535
Max-Planck-Institut fuer Festkoerperforschung FAX  0711/6891502
Heisenbergstr. 1
70569 Stuttgart                               u.we...@fkf.mpg.de
-----------------------------------------------------------------

_______________________________________________
Wien mailing list
Wien@zeus.theochem.tuwien.ac.at
http://zeus.theochem.tuwien.ac.at/mailman/listinfo/wien
SEARCH the MAILING-LIST at:  
http://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/index.html

Reply via email to