mncomd.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	mncomd (FCN, CRDBIN, ICONDN, FUTIL)

Function/Subroutine Documentation

mncomd()

subroutine mncomd	(	external	FCN,
		character*(*)	CRDBIN,
			ICONDN,
		external	FUTIL
	)

Definition at line 10 of file mncomd.f.

References a, b, c, d, e, f, false, g, h, softenpik::half, i, j, m, maxp, mncrck(), mnexcm(), n, o, p, parameter(), true, up(), x, xs, and z.

Referenced by mnread().

*
* $Id: d506dp.inc,v 1.1.1.1 1996/03/07 14:31:32 mclareni Exp $
*
* $Log: d506dp.inc,v $
* Revision 1.1.1.1  1996/03/07 14:31:32  mclareni
* Minuit
*
*
*
*
* d506dp.inc
*
C ************ DOUBLE PRECISION VERSION *************
      IMPLICIT DOUBLE PRECISION (a-h,o-z)
CC        Called by user.  'Reads' a command string and executes.
CC     Equivalent to MNEXCM except that the command is given as a
CC          character string.
CC
CC     ICONDN = 0: command executed normally
CC              1: command is blank, ignored
CC              2: command line unreadable, ignored
CC              3: unknown command, ignored
CC              4: abnormal termination (e.g., MIGRAD not converged)
CC              5: command is a request to read PARAMETER definitions
CC              6: 'SET INPUT' command
CC              7: 'SET TITLE' command
CC              8: 'SET COVAR' command
CC              9: reserved
CC             10: END command
CC             11: EXIT or STOP command
CC             12: RETURN command
CC
*
* $Id: d506cm.inc,v 1.1.1.1 1996/03/07 14:31:32 mclareni Exp $
*
* $Log: d506cm.inc,v $
* Revision 1.1.1.1  1996/03/07 14:31:32  mclareni
* Minuit
*
*
*
*
* d506cm.inc
*
      parameter(mne=100 , mni=50)
      parameter(mnihl=mni*(mni+1)/2)
      CHARACTER*10 cpnam
      COMMON
     1/mn7nam/ cpnam(mne)
     2/mn7ext/ u(mne)     ,alim(mne)  ,blim(mne)
     3/mn7err/ erp(mni)   ,ern(mni)   ,werr(mni)  ,globcc(mni)
     4/mn7inx/ nvarl(mne) ,niofex(mne),nexofi(mni)
     5/mn7int/ x(mni)     ,xt(mni)    ,dirin(mni)
     6/mn7fx2/ xs(mni)    ,xts(mni)   ,dirins(mni)
     7/mn7der/ grd(mni)   ,g2(mni)    ,gstep(mni) ,gin(mne) ,dgrd(mni)
     8/mn7fx3/ grds(mni)  ,g2s(mni)   ,gsteps(mni)
     9/mn7fx1/ ipfix(mni) ,npfix
     a/mn7var/ vhmat(mnihl)
     b/mn7vat/ vthmat(mnihl)
     c/mn7sim/ p(mni,mni+1),pstar(mni),pstst(mni) ,pbar(mni),prho(mni)
C
      parameter(maxdbg=10, maxstk=10, maxcwd=20, maxp=30, maxcpt=101)
      parameter(zero=0.0,  one=1.0,   half=0.5)
      COMMON
     d/mn7npr/ maxint ,npar   ,maxext ,nu
     e/mn7iou/ isysrd ,isyswr ,isyssa ,npagwd ,npagln ,newpag
     e/mn7io2/ istkrd(maxstk) ,nstkrd ,istkwr(maxstk) ,nstkwr
     f/mn7tit/ cfrom  ,cstatu ,ctitl  ,cword  ,cundef ,cvrsn ,covmes
     g/mn7flg/ isw(7) ,idbg(0:maxdbg) ,nblock ,icomnd
     h/mn7min/ amin   ,up     ,edm    ,fval3  ,epsi   ,apsi  ,dcovar
     i/mn7cnv/ nfcn   ,nfcnmx ,nfcnlc ,nfcnfr ,itaur,istrat,nwrmes(2)
     j/mn7arg/ word7(maxp)
     k/mn7log/ lwarn  ,lrepor ,limset ,lnolim ,lnewmn ,lphead
     l/mn7cns/ epsmac ,epsma2 ,vlimlo ,vlimhi ,undefi ,bigedm,updflt
     m/mn7rpt/ xpt(maxcpt)    ,ypt(maxcpt)
     n/mn7cpt/ chpt(maxcpt)
     o/mn7xcr/ xmidcr ,ymidcr ,xdircr ,ydircr ,ke1cr  ,ke2cr
      CHARACTER ctitl*50, cword*(maxcwd), cundef*10, cfrom*8,
     +          cvrsn*6,  covmes(0:3)*22, cstatu*10, chpt*1
      LOGICAL   lwarn, lrepor, limset, lnolim, lnewmn, lphead
      dimension plist(maxp)
      CHARACTER comand*(maxcwd)
      CHARACTER clower*26, cupper*26
      LOGICAL leader
C
      EXTERNAL fcn,futil
      CHARACTER*(*) crdbin
      CHARACTER*100 crdbuf
      DATA clower/'abcdefghijklmnopqrstuvwxyz'/
      DATA cupper/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
C
      lenbuf = len(crdbin)
      crdbuf = crdbin
      icondn = 0
C     record not case-sensitive, get upper case, strip leading blanks
      leader = .true.
      ipos = 1
         DO 110 i= 1, min(maxcwd,lenbuf)
         IF (crdbuf(i:i) .EQ. '''') GO TO 111
         IF (crdbuf(i:i) .EQ. ' ')  THEN
           IF (leader) ipos = ipos + 1
           GO TO 110
         ENDIF
         leader = .false.
           DO 108 ic= 1, 26
           IF (crdbuf(i:i) .EQ. clower(ic:ic)) crdbuf(i:i)=cupper(ic:ic)
  108      CONTINUE
  110    CONTINUE
  111 CONTINUE
C                     blank or null command
      IF (ipos .GT. lenbuf)  THEN
         WRITE (isyswr,'(A)') ' BLANK COMMAND IGNORED.'
         icondn = 1
         GO TO 900
      ENDIF
C                                           . .   preemptive commands
C               if command is 'PARAMETER'
      IF (crdbuf(ipos:ipos+2) .EQ. 'PAR')    THEN
         icondn = 5
         lphead = .true.
         GO TO 900
         ENDIF
C               if command is 'SET INPUT'
      IF (crdbuf(ipos:ipos+6) .EQ. 'SET INP')  THEN
         icondn = 6
         lphead = .true.
         GO TO 900
         ENDIF
C              if command is 'SET TITLE'
      IF (crdbuf(ipos:ipos+6) .EQ. 'SET TIT')  THEN
         icondn = 7
         lphead = .true.
         GO TO 900
         ENDIF
C               if command is 'SET COVARIANCE'
      IF (crdbuf(ipos:ipos+6) .EQ. 'SET COV')   THEN
         icondn = 8
         lphead = .true.
         GO TO 900
         ENDIF
C               crack the command . . . . . . . . . . . . . . . .
      CALL mncrck(crdbuf(ipos:lenbuf),maxcwd,comand,lnc,
     +                            maxp,  plist, llist, ierr,isyswr)
      IF (ierr .GT. 0) THEN
            WRITE (isyswr,'(A)') ' COMMAND CANNOT BE INTERPRETED'
            icondn = 2
            GO TO 900
      ENDIF
C
      CALL mnexcm(fcn,comand(1:lnc),plist,llist,ierr,futil)
      icondn = ierr
  900 RETURN

Here is the call graph for this function:

Here is the caller graph for this function: