rearrange subroutine call arguments to stay within 72 char limit

ralna · Apr 11, 2024 · 25ecf22 · 25ecf22
1 parent 68b6c01
commit 25ecf22
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 12 deletions.
diff --git a/src/external/hsl/ma27/ma27r.f b/src/external/hsl/ma27/ma27r.f
@@ -8,8 +8,8 @@
 !  Copyright reserved
 !  February 13th 1995
 
-      SUBROUTINE MA27AR( n, nz, IRN, ICN, IW, liw, IKEEP, IW1,
-     *                   nsteps, iflag, ICNTL, CNTL, INFO, ops )
+      SUBROUTINE MA27AR( n, nz, IRN, ICN, IW, liw, IKEEP,
+     *                   IW1, nsteps, iflag, ICNTL, CNTL, INFO, ops )
 
       USE HSL_KINDS_real, ONLY: ip_, rp_
 
@@ -53,8 +53,8 @@ SUBROUTINE MA27AR( n, nz, IRN, ICN, IW, liw, IKEEP, IW1,
 
       END SUBROUTINE MA27AR
 
-      SUBROUTINE MA27BR( n, nz, IRN, ICN, A, la, IW, liw, IKEEP,
-     *                   nsteps, maxfrt, IW1, ICNTL, CNTL, INFO )
+      SUBROUTINE MA27BR( n, nz, IRN, ICN, A, la, IW, liw,
+     *                   IKEEP, nsteps, maxfrt, IW1, ICNTL, CNTL, INFO )
 
       USE HSL_KINDS_real, ONLY: ip_, rp_
 
@@ -97,8 +97,8 @@ SUBROUTINE MA27BR( n, nz, IRN, ICN, A, la, IW, liw, IKEEP,
 
       END SUBROUTINE MA27BR
 
-      SUBROUTINE MA27CR( n, A, la, IW, liw, W, maxfrt, RHS, IW1,
-     *                   nsteps, ICNTL, INFO )
+      SUBROUTINE MA27CR( n, A, la, IW, liw, W, maxfrt, RHS, 
+     *                   IW1, nsteps, ICNTL, INFO )
 
       USE HSL_KINDS_real, ONLY: ip_, rp_
 
@@ -174,8 +174,8 @@ SUBROUTINE MA27IR( ICNTL, CNTL )
 
       END SUBROUTINE MA27IR
 
-      SUBROUTINE MA27QR( n, A, la, IW, liw, W, maxfnt, RHS, IW2,
-     *                   nblk, latop, ICNTL )
+      SUBROUTINE MA27QR( n, A, la, IW, liw, W, maxfnt, RHS,
+     *                   IW2, nblk, latop, ICNTL )
 
       USE HSL_KINDS_real, ONLY: ip_, rp_
 

diff --git a/src/external/hsl/ma33/ma33r.f b/src/external/hsl/ma33/ma33r.f
@@ -8,8 +8,8 @@
 !  Copyright reserved
 !  April 10th 2006
 
-      SUBROUTINE MA33AR( n, ICN, A, licn, LENR, LENRL, IDISP,
-     *                   IP, IQ, IRN, lirn, LENC, IFIRST, LASTR,
+      SUBROUTINE MA33AR( n, ICN, A, licn, LENR, LENRL, 
+     *                   IDISP, IP, IQ, IRN, lirn, LENC, IFIRST, LASTR,
      *                   NEXTR, LASTC, NEXTC, IPTR, IPC, u, iflag,
      *                   ICNTL, CNTL, INFO, RINFO )
 
@@ -66,8 +66,8 @@ SUBROUTINE MA33AR( n, ICN, A, licn, LENR, LENRL, IDISP,
 
       END SUBROUTINE MA33AR
 
-      SUBROUTINE MA33CR( n, ICN, A, licn, LENR, LENRL, LENOFF,
-     *                   IDISP, IP, IQ, X, W, mtype, RINFO )
+      SUBROUTINE MA33CR( n, ICN, A, licn, LENR, LENRL,
+     *                   LENOFF, IDISP, IP, IQ, X, W, mtype, RINFO )
 
       USE HSL_KINDS_real, ONLY: ip_, rp_