Reorder common declaration to fix f2c compilation 59/15059/1
Bruno JOFRET [Thu, 21 Aug 2014 12:43:03 +0000 (14:43 +0200)]
Change-Id: I41ba91dceaae5e3da683db293e69bb0677682eb4

scilab/modules/differential_equations/src/fortran/ddaskr.f

index 6ea48fc..db0c3c1 100644 (file)
       DIMENSION WM(*),IWM(*), RPAR(*),IPAR(*)
       DIMENSION PHI(NEQ,*),GAMMA(*)
       EXTERNAL  RES, JACD
+      COMMON /ierode/ierror
 C
       PARAMETER (LNRE=12, LNJE=13)
 C
       SAVE MULDEL, MAXIT, XRATE
       DATA MULDEL/1/, MAXIT/4/, XRATE/0.25D0/
 C
-      COMMON /ierode/ierror
 C
 C
 C     Verify that this is the correct subroutine.
       DIMENSION WM(*),IWM(*)
       DIMENSION GAMMA(*),RPAR(*),IPAR(*)
       EXTERNAL  RES, JACK, PSOL
+      COMMON /ierode/ierror
 C
       PARAMETER (LNRE=12, LNJE=13, LLOCWP=29, LLCIWP=30)
 C
       SAVE MULDEL, MAXIT, XRATE
       DATA MULDEL/0/, MAXIT/4/, XRATE/0.25D0/
 C
-      COMMON /ierode/ierror
 C
 C
 C     Verify that this is the correct subroutine.