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