← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to applic/proc/tcreatb1.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
applic/proc/tcreatb1.prg
 
1
! @(#)tcreatb1.prg      19.1 (ES0-DMD) 02/25/03 13:20:21
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! .IDENTIFICATION
 
5
!  MIDAS Command : tcreatb1.prg
 
6
!
 
7
!  J.D.Ponz 820405               ESO - Garching 
 
8
!  KB  910104
 
9
!
 
10
! .PURPOSE
 
11
!    implements
 
12
!  FIT/IMA       [iter[,chisq[,relax]]] [image[,error] [fit_name]
 
13
!  FIT/TAB       [iter[,chisq[,relax]]] [table] [depvar] [indvar] [fit_name]
 
14
!  READ/FIT      [fit_name]
 
15
!  PRINT/FIT     [fit_name]
 
16
!
 
17
! ----------------------------------------------------------------------
 
18
!
 
19
WRITE/KEYW HISTORY "'MID$CMND(1:4)'/'MID$CMND(11:14)' "
 
20
! 
 
21
IF MID$CMND(1:1) .EQ. "F" THEN
 
22
  IF FITCHAR(15:15) .EQ. "N" THEN
 
23
    DEFINE/PARAM P1 100,0.,-0.1 NUMBER
 
24
    WRITE/KEYW INPUTR/R/1/3 100,0.,-0.1
 
25
    WRITE/KEYW INPUTR/R/1/3 'P1'
 
26
  ELSE
 
27
    DEFINE/PARAM P1 999999.,999999.,999999.,999999.,999999.  NUMBER
 
28
    WRITE/KEYW INPUTR/R/1/5 999999.,999999.,999999.,999999.,999999.
 
29
    WRITE/KEYW INPUTR/R/1/5 'P1'
 
30
  ENDIF
 
31
  IF FITCHAR(1:1) .EQ. "S" THEN
 
32
    RUN APP_EXE:FITIMAG
 
33
  ELSE
 
34
    RUN FITIMAG
 
35
  ENDIF
 
36
! 
 
37
ELSE
 
38
  IF MID$CMND(1:1) .EQ. "P" @ print assign
 
39
  RUN APP_EXE:FITREAD
 
40
  IF MID$CMND(1:1) .EQ. "P" @ print out
 
41
ENDIF