phynexis-deps/arpack-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert "Move init debug common block from debug_icb.f90 to debug.h : this way you"

Browse Source 
This reverts commit 22d1b3b0b5.
This commit is contained in:
Franck HOUSSEN
2018-04-07 17:21:38 +02:00
parent 22d1b3b0b5
commit be538c87c2
2 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
debug.h
-13
View File
@@ -14,16 +14,3 @@
msaupd, msaup2, msaitr, mseigt, msapps, msgets, mseupd,& msaupd, msaup2, msaitr, mseigt, msapps, msgets, mseupd,&
mnaupd, mnaup2, mnaitr, mneigh, mnapps, mngets, mneupd,& mnaupd, mnaup2, mnaitr, mneigh, mnapps, mngets, mneupd,&
mcaupd, mcaup2, mcaitr, mceigh, mcapps, mcgets, mceupd mcaupd, mcaup2, mcaitr, mceigh, mcapps, mcgets, mceupd
! Initialisation of the debug common block to "no debug".
block data init
common /debug/ logfil, ndigit, mgetv0, &
msaupd, msaup2, msaitr, mseigt, msapps, msgets, mseupd,&
mnaupd, mnaup2, mnaitr, mneigh, mnapps, mngets, mneupd,&
mcaupd, mcaup2, mcaitr, mceigh, mcapps, mcgets, mceupd
data logfil, ndigit, mgetv0, &
msaupd, msaup2, msaitr, mseigt, msapps, msgets, mseupd,&
mnaupd, mnaup2, mnaitr, mneigh, mnapps, mngets, mneupd,&
mcaupd, mcaup2, mcaitr, mceigh, mcapps, mcgets, mceupd &
/ 6, -3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
end
debug_icb.f90
+13
View File
@@ -37,3 +37,16 @@ subroutine debug_c(logfil_c, ndigit_c, mgetv0_c,
mcgets = mcgets_c mcgets = mcgets_c
mceupd = mceupd_c mceupd = mceupd_c
end subroutine debug_c end subroutine debug_c
! Initialisation of the debug common block to "no debug".
block data init
common /debug/ logfil, ndigit, mgetv0, &
msaupd, msaup2, msaitr, mseigt, msapps, msgets, mseupd,&
mnaupd, mnaup2, mnaitr, mneigh, mnapps, mngets, mneupd,&
mcaupd, mcaup2, mcaitr, mceigh, mcapps, mcgets, mceupd
data logfil, ndigit, mgetv0, &
msaupd, msaup2, msaitr, mseigt, msapps, msgets, mseupd,&
mnaupd, mnaup2, mnaitr, mneigh, mnapps, mngets, mneupd,&
mcaupd, mcaup2, mcaitr, mceigh, mcapps, mcgets, mceupd &
/ 6, -3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /
end