epsi
/
msspec_python3
3
0
Fork 0
Code Issues 6 Pull Requests Releases Wiki Activity

In eig_mat_ms.f, moved initialisation of IOUT2 and IOUT3 to before 

the test on JE, otherwise they were not initialised for JE > 1
This commit is contained in:
Kevin Dunseath 2020-03-16 15:45:51 +01:00
parent 3187a4cb32
commit 1f11a61888
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/msspec/spec/fortran/eig/common/eig_mat_ms.f
View File

@ -46,13 +46,19 @@ C
NPRINT=10 NPRINT=10
C C
WRITE(IUO1,5) WRITE(IUO1,5)
CKMD
IOUT2=55
IOUT3=60
CKMD
IF(JE.EQ.1) THEN IF(JE.EQ.1) THEN
C C
C Name of the second output file where all the eigenvalues C Name of the second output file where all the eigenvalues
C will be written C will be written
C C
IOUT2=55 CKMD Moved initialisation of IOUT2 and IOUT3 to before the test on JE,
IOUT3=60 CKMD otherwise they were not initialised for JE > 1
CKMD IOUT2=55
CKMD IOUT3=60
N_DOT=1 N_DOT=1
DO J_CHAR=1,24 DO J_CHAR=1,24
IF(OUTFILE2(J_CHAR:J_CHAR).EQ.'.') GOTO 888 IF(OUTFILE2(J_CHAR:J_CHAR).EQ.'.') GOTO 888