Commit 0882134a authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

correction

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 2976
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 15fbcdef
...@@ -10,6 +10,7 @@ c REVISIONS and CHANGES ...@@ -10,6 +10,7 @@ c REVISIONS and CHANGES
c 07/04/98 V1.0 Thomas Forbriger c 07/04/98 V1.0 Thomas Forbriger
c 14/01/99 V1.1 model definition changed (see glq_model.inc) c 14/01/99 V1.1 model definition changed (see glq_model.inc)
c keep track of follow flag c keep track of follow flag
c 11/02/10 V1.2 correction of read statement to skip line
c c
subroutine par_wread(filename) subroutine par_wread(filename)
c c
...@@ -48,7 +49,7 @@ c ...@@ -48,7 +49,7 @@ c
do j=1,glqm_nsec do j=1,glqm_nsec
read(lu, '(/f15.7)', err=98, end=97) para_mdweights(j) read(lu, '(/f15.7)', err=98, end=97) para_mdweights(j)
read(lu, '(1x)', err=98, end=97) read(lu, '(1x)', err=98, end=97)
read(lu, '(1x)', err=98, end=97) comment read(lu, '(1x)', err=98, end=97)
do k=1,glqm_mpol do k=1,glqm_mpol
read(lu, fmt=*, err=98, end=97) read(lu, fmt=*, err=98, end=97)
& (para_mweights(k, l, j), l=1,glqm_mpar) & (para_mweights(k, l, j), l=1,glqm_mpar)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment