source: Sophya/trunk/SophyaExt/CodeMinuit/code/mnseti.F@ 2403

Last change on this file since 2403 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: 403 bytes
Line 
1*
2* $Id: mnseti.F,v 1.1.1.1 2003-06-11 14:18:29 cmv Exp $
3*
4* $Log: not supported by cvs2svn $
5* Revision 1.1.1.1 1996/03/07 14:31:31 mclareni
6* Minuit
7*
8*
9#include "minuit/pilot.h"
10 SUBROUTINE MNSETI(TIT)
11#include "minuit/d506dp.inc"
12CC Called by user to set or change title of current task.
13CC
14#include "minuit/d506cm.inc"
15 CHARACTER*(*) TIT
16 CTITL = TIT
17 RETURN
18 END
Note: See TracBrowser for help on using the repository browser.