1***************************** -*- Mode: Fortran -*- ********************
2*
3* bcs_sp.f -- Interface routines for single precision BCSLIB.
4*
5* Copyright (C) 1994-95  K. Scott Hunziker.
6*
7* See the file COPYING for license, warranty, and permission details.
8*
9* The BCSLIB routines have the unfortunate convention of passing
10* character strings to specify options.  This makes it difficult to make
11* portable calls to BCSLIB from C routines.  Fortunately, the BCSLIB
12* convention is that only the first character is significant.  The
13* routines below simply call their corresponding BCSLIB routines, but
14* they take integers in place of the character strings.  The integers
15* specify the ASCII value of the characters to be passed on to BCSLIB.
16*
17* $Id: bcs_sp.f,v 1.1.1.1 1996/04/17 05:56:15 ksh Exp $
18*
19************************************************************************
20*
21      SUBROUTINE HXSLIN( NEQNS, MTXTYP, MSGLVL, IPU,
22     1                   SQFILE, WAFIL1, WAFIL2, HOLD, NHOLD, IER )
23*
24      INTEGER NEQNS, MSGLVL, IPU,
25     1        NHOLD, SQFILE, WAFIL1, WAFIL2, IER, MTXTYP
26      COMPLEX*16 HOLD(*)
27*
28      CALL HCSLIN( NEQNS, CHAR(MTXTYP), MSGLVL, IPU,
29     1             SQFILE, WAFIL1, WAFIL2, HOLD, NHOLD, IER )
30*
31      RETURN
32      END
33*
34************************************************************************
35*
36      SUBROUTINE HRSLIN( NEQNS, MTXTYP, MSGLVL, IPU,
37     1                   SQFILE, WAFIL1, WAFIL2, HOLD, NHOLD, IER )
38*
39      INTEGER NEQNS, MSGLVL, IPU,
40     1        NHOLD, SQFILE, WAFIL1, WAFIL2, IER, MTXTYP
41      DOUBLE PRECISION HOLD(*)
42*
43      CALL HSSLIN( NEQNS, CHAR(MTXTYP), MSGLVL, IPU,
44     1             SQFILE, WAFIL1, WAFIL2, HOLD, NHOLD, IER )
45*
46      RETURN
47      END
48