Context Navigation

mninpu.F@ 3452

Visit:

Last change on this file since 3452 was 2403, checked in by cmv, 22 years ago
Creation du module de code source de MINUIT (CERNLIB) extrait par CMV cmv 11/06/2003
File size: 1.3 KB

Rev	Line
[2403]	1	*
	2	* $Id: mninpu.F,v 1.1.1.1 2003-06-11 14:18:28 cmv Exp $
	3	*
	4	* $Log: not supported by cvs2svn $
	5	* Revision 1.1.1.1 1996/03/07 14:31:30 mclareni
	6	* Minuit
	7	*
	8	*
	9	#include "minuit/pilot.h"
	10	SUBROUTINE MNINPU(IUNIT,IERR)
	11	#include "minuit/d506dp.inc"
	12	CC called by the user to SET INPUT to IUNIT,
	13	CC an alternative to MNSTIN where the user can specify just
	14	CC a logical unit number and he is not interrogated about
	15	CC open files and rewinding, all that is the responsibility
	16	CC of the user and cannot be fixed interactively.
	17	#include "minuit/d506cm.inc"
	18	C
	19	IERR = 0
	20	C IUNIT = 0, revert to previous input file
	21	IF (IUNIT .EQ. 0) THEN
	22	IF (NSTKRD .EQ. 0) THEN
	23	WRITE (ISYSWR, '(A)') ' CALL TO MNINPU(0) IGNORED'
	24	WRITE (ISYSWR, '(A)') ' ALREADY READING FROM PRIMARY INPUT'
	25	ELSE
	26	ISYSRD = ISTKRD(NSTKRD)
	27	NSTKRD = NSTKRD - 1
	28	ENDIF
	29	C
	30	C new input file
	31	ELSE
	32	IF (NSTKRD .GE. MAXSTK) THEN
	33	WRITE (ISYSWR, '(A)') ' INPUT FILE STACK SIZE EXCEEDED.'
	34	GO TO 800
	35	ENDIF
	36	NSTKRD = NSTKRD + 1
	37	ISTKRD(NSTKRD) = ISYSRD
	38	ISYSRD = IUNIT
	39	ENDIF
	40	C
	41	RETURN
	42	800 IERR = 1
	43	RETURN
	44	END

Note: See TracBrowser for help on using the repository browser.