[WIP] Second attempt for arm.

Author: hageboeck

misc/minicern/src/kernlib.f

@@ -88,8 +88,8 @@ SUBROUTINE UBUNCH (MS,MT,NCHP)
 
       FUNCTION LOCF (IVAR)
       IMPLICIT NONE
-      INTEGER :: LOCF, IVAR, NADUPW, LADUPW
-      INTEGER*8 :: J
+      INTEGER :: NADUPW, LADUPW
+      INTEGER*8 :: LOCF, IVAR, J
       DIMENSION    IVAR(9)
       PARAMETER    (NADUPW=4, LADUPW=2)
       J = LOC(IVAR)