← Back to branch summary

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

« back to all changes in this revision

Viewing changes to applic/proc/fitrepf.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/fitrepf.prg
 
1
! @(#)fitrepf.prg       19.1 (ES0-DMD) 02/25/03 13:20:10
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! .IDENTIFICATION
 
5
!
 
6
!  MIDAS Command : FITREPF.PRG
 
7
!  FIT Subsystem
 
8
!
 
9
!  P.DEFERT                ESO - Garching   1 APR 84
 
10
!                                          26 JUN 85
 
11
!  K. Banse     871214
 
12
!  M. Peron     920212    Unix implementation
 
13
!
 
14
! .PURPOSE
 
15
!
 
16
!    implements
 
17
!
 
18
! REPLACE/FUNCTION USER0,...
 
19
! to define the user functions in the fit package
 
20
!
 
21
!
 
22
!
 
23
! ----------------------------------------------------------------------
 
24
!
 
25
IF FITCHAR(1:2) .EQ. "SY" THEN
 
26
  WRITE/OUT No\user\defined\functions\:\\\see\CREATE/FUNCTION\or\\\SET/FIT.
 
27
ELSE
 
28
    IF AUX_MODE(1) .LE. 1 THEN
 
29
       $ @ APP_PROC:fitrepf.com 'P1'  !VMS
 
30
    ELSE
 
31
       $ sh $APP_PROC/fitrepf.sh 'P1' !UNIX
 
32
    ENDIF
 
33
ENDIF