5 * Revision 1.1.1.1 1996/04/01 15:02:07 mclareni
10 #if !defined(CERNLIB_DOUBLE)
11 SUBROUTINE DBSKA(X,IA,JA,NL,B)
12 #include "gen/imp128.inc"
15 CALL MTLPRT(NAME,'C341',
16 +'not available on this machine - see documentation')
19 ENTRY DEBSKA(X,IA,JA,NL,B)
21 CALL MTLPRT(NAME,'C341',
22 +'not available on this machine - see documentation')