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