include/ntuple/ftnprn.F

0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.3  1996/07/03 13:33:06  couet
0006 * - The format was wrong for VAX. 1X was missing
0007 *
0008 * Revision 1.2  1996/06/17 12:34:10  couet
0009 * - A printout of more than 132 characters was done on VAX
0010 *
0011 * Revision 1.1  1996/03/19 14:12:45  maartenb
0012 * - nt/scan now obeys the setting of the output lun.
0013 *
0014 * - Profile histograms get booked with the right option.
0015 *
0016 * - Cache gets flushed when qp_execute() is not succesfull !!
0017 *
0018       subroutine FTNPRN( chmess )
0019       character*(*) chmess
0020 #include "paw/pilot.h"
0021 #include "hbook/hcunit.inc"
0022       ilen = min(len(chmess),131)
0023       write( lout, 1000 ) chmess(1:ilen)
0024 #if defined(CERNLIB_VAX)
0025  1000 format(1x,a)
0026 #endif
0027 #if !defined(CERNLIB_VAX)
0028  1000 format(a)
0029 #endif
0030       end