Merge pull request #16 from ccdc-opensource/bug_fixing_chiwin_crash

NO_JIRA Correct pointer-to handler - modern compiler uses high precis…

Author: Claudio Bantaloukas

src/Basic_IO.f90

@@ -263,7 +263,7 @@ SUBROUTINE RegisterChildWindow(TheIHANDLE, TheSubroutine)
 #ifdef __G95__
       TYPE(CallbackPointer) ChildWinHandler
 #else
-      INTEGER*4         ChildWinHandler
+      INTEGER*8         ChildWinHandler
 #endif
       LOGICAL                                  ChildWinHandlerSet
       COMMON /ChWinHan/ ChildWinHandler(1:20), ChildWinHandlerSet(1:20)
@@ -297,7 +297,7 @@ SUBROUTINE UnRegisterChildWindow(TheIHANDLE)
 #ifdef __G95__
       TYPE(CallbackPointer) ChildWinHandler
 #else
-      INTEGER*4         ChildWinHandler
+      INTEGER*8         ChildWinHandler
 #endif
       LOGICAL                                  ChildWinHandlerSet
       COMMON /ChWinHan/ ChildWinHandler(1:20), ChildWinHandlerSet(1:20)
@@ -340,7 +340,7 @@ LOGICAL FUNCTION DealWithEvent()
 #ifdef __G95__
       TYPE(CallbackPointer) ChildWinHandler
 #else
-      INTEGER*4         ChildWinHandler
+      INTEGER*8         ChildWinHandler
 #endif
       LOGICAL                                  ChildWinHandlerSet
       COMMON /ChWinHan/ ChildWinHandler(1:20), ChildWinHandlerSet(1:20)
@@ -422,8 +422,8 @@ LOGICAL FUNCTION DealWithEvent()
             Handler => ChildWinHandler(dummy)%p
 	    !CALL Handler         
 #else
-            p = ChildWinHandler(EventInfo%WIN)
-            CALL Handler
+        p = ChildWinHandler(EventInfo%WIN)
+        CALL Handler
 #endif
 
             GOTO 10

src/Initialisation.f90

@@ -422,7 +422,7 @@ SUBROUTINE InitialiseVariables(batch_setting)
       LOGICAL           ChildWinAutoClose
       COMMON /ChWinAC/  ChildWinAutoClose(1:20)
 
-      INTEGER*4         ChildWinHandler
+      INTEGER*8         ChildWinHandler
       LOGICAL                                  ChildWinHandlerSet
       COMMON /ChWinHan/ ChildWinHandler(1:20), ChildWinHandlerSet(1:20)