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 lead to compile errors:

lines 110,111

               read(line,'(43x,i7,err=111)') nkpt               ! <
invalid character in format list
               goto 112                                                
       ! < 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