source: Sophya/trunk/SophyaExt/CodeMinuit/code/mninpu.F@ 3892

Last change on this file since 3892 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
Line 
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"
12CC called by the user to SET INPUT to IUNIT,
13CC an alternative to MNSTIN where the user can specify just
14CC a logical unit number and he is not interrogated about
15CC open files and rewinding, all that is the responsibility
16CC of the user and cannot be fixed interactively.
17#include "minuit/d506cm.inc"
18C
19 IERR = 0
20C 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
29C
30C 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
40C
41 RETURN
42 800 IERR = 1
43 RETURN
44 END
Note: See TracBrowser for help on using the repository browser.