SPheno Read Routine
Posted: 11. Jun 2016, 09:22
When SPheno reads a matrix, it expect to always have a comment (or something) at the end of the line. That is, it expects:
and the following will fails:
This is because when it reads the matrix, it has
and if there is no comment, read_line globs in the next index.
Code: Select all
BLOCK YUKAWA
1 1 0.3 #
1 2 0.01 #
1 3 0.01 #
2 1 0.01 #
2 2 0.3 #
2 3 0.01 #
3 1 0.01 #
3 2 0.01 #
3 3 0.3 #
Code: Select all
BLOCK YUKAWA
1 1 0.3
1 2 0.01
1 3 0.01
2 1 0.01
2 2 0.3
2 3 0.01
3 1 0.01
3 2 0.01
3 3 0.3
Code: Select all
Read(io,*) i1, i2, wert, read_line