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