1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Index: aces3-3.0.8/src/main/beta.F
===================================================================
--- aces3-3.0.8.orig/src/main/beta.F
+++ aces3-3.0.8/src/main/beta.F
@@ -82,6 +82,7 @@ c subroutine beta()
logical is_file_open
logical*8 l8false
integer jodadone
+ integer jodadone_saved
logical first
logical instab
logical really_ignore_dropmo
@@ -1035,7 +1036,9 @@ C
C Explicitly correlated contribution
c
istg=0
+ jodadone_saved = jodadone
call getrec(1,'JOBARC', 'STGF12', 1, istg)
+ jodadone = jodadone_saved
if(istg.eq.1) then
write(6,*)
& 'Explicitly-correlated calculation
|
