FIX: Move back functions to fb_extel.c and eliminate duplicate

Author: schwicke

src/libphigs/f_binding/fb_el.c

@@ -271,23 +271,6 @@ FTN_SUBROUTINE(psici)(
   pset_int_colr_ind(colr_ind);
 }
 
-/*******************************************************************************
- * psbici
- *
- * DESCR:   set back interior colour index
- * RETURNS:   N/A
- */
-FTN_SUBROUTINE(psbici)(
-                      FTN_INTEGER(coli)
-                      )
-{
-  Pint colr_ind = FTN_INTEGER_GET(coli);
-#ifdef DEBUG
-  printf("DEBUG: pset back interior color index set to %d\n", colr_ind);
-#endif
-  pset_back_int_colr_ind(colr_ind);
-}
-
 /*******************************************************************************
  * psis
  *
@@ -305,23 +288,6 @@ FTN_SUBROUTINE(psis)(
   pset_int_style(interior_style);
 }
 
-/*******************************************************************************
- * pbsi
- *
- * DESCR:   set back interior style
- * RETURNS:   N/A
- */
-FTN_SUBROUTINE(pbsi)(
-                     FTN_INTEGER(ints)
-                     )
-{
-  Pint_style interior_style = (Pint_style) FTN_INTEGER_GET(ints);
-#ifdef DEBUG
-  printf("DEBUG: PSBIS back interior style called to %d\n", (int)interior_style);
-#endif
-  pset_back_int_style(interior_style);
-}
-
 /*******************************************************************************
  * pschup
  *

src/libphigs/f_binding/fb_extel.c

@@ -902,6 +902,23 @@ FTN_SUBROUTINE(psbici)(
   pset_back_int_colr_ind(colr_ind);
 }
 
+/*******************************************************************************
+ * pbsi
+ *
+ * DESCR:   set back interior style
+ * RETURNS:   N/A
+ */
+FTN_SUBROUTINE(pbsi)(
+                     FTN_INTEGER(ints)
+                     )
+{
+  Pint_style interior_style = (Pint_style) FTN_INTEGER_GET(ints);
+#ifdef DEBUG
+  printf("DEBUG: PSBIS back interior style called to %d\n", (int)interior_style);
+#endif
+  pset_back_int_style(interior_style);
+}
+
 /*******************************************************************************
  * psbisi
  *