← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to stdred/optopus/proc/precesopto.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:
stdred/optopus/proc/precesopto.prg
 
1
! @(#)precesopto.prg    19.1 (ES0-DMD) 02/25/03 14:27:39
 
2
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!.IDENTIFICATION: precesopto.prg
 
4
!.PURPOSE:        Precess coordinates in table created by CREATE/OPTABLE 
 
5
!                 command.
 
6
!.USE:            @s precess [inp_tab] [equinox1]
 
7
!.AUTHOR:         Alessandra Gemmo, department of Astronomy, Padova
 
8
!.VERSION: 910826 AG Creation
 
9
!------------------------------------------------------------------------------
 
10
DEFINE/PARAM P1 opto1.tbl T "Enter input table [Default=opto1.tbl]: "
 
11
DEFINE/PARAM P2 {EQUINOX(2)} N "Enter new equinox of coordinates: "
 
12
DEFINE/LOCAL  INDX/I/1/1 0
 
13
DEFINE/LOCAL  TABEQUI/D/1/1 1950.
 
14
!
 
15
COMPUTE/KEYW INDX = M$INDEX(P1,".tbl")
 
16
IF INDX .EQ. 0 THEN
 
17
  WRITE/KEYW INPUTFI/C/1/50 'P1'.tbl
 
18
ELSE
 
19
  WRITE/KEYW INPUTFI/C/1/50 'P1'
 
20
ENDIF
 
21
!
 
22
! do some checks
 
23
!
 
24
COPY/DK 'INPUTFI' TABEQUI/D/1/1 TABEQUI/D/1/1
 
25
IF 'TABEQUI(1)' .EQ. 'EQUINOX(2)' THEN
 
26
   WRITE/OUT "*** FATAL: Table has already been precessed !!"
 
27
   RETURN
 
28
ENDIF
 
29
!
 
30
IF 'P2' .LT. 1800. THEN
 
31
   WRITE/OUT "*** FATAL: Value of EQUINOX not allowed !!"
 
32
   RETURN
 
33
ELSEIF 'P2' .GT. 2100. THEN
 
34
   WRITE/OUT "*** FATAL: Value of EQUINOX not allowed !!"
 
35
   RETURN
 
36
ENDIF
 
37
!
 
38
SET/FORMAT F10.5
 
39
IF 'P2' .EQ. {EQUINOX(2)} THEN
 
40
   WRITE/DESCR 'INPUTFI' TABEQUI/D/1/1 'EPOCH(1)'
 
41
ELSE 
 
42
   WRITE/DESCR 'INPUTFI' TABEQUI/D/1/1 'P2'
 
43
   WRITE/KEYW EQUINOX/D/2/1 'P2'
 
44
ENDIF
 
45
!
 
46
RUN STD_EXE:PRECESS
 
47
!
 
48
NAME/COLU 'INPUTFI' :RA :OLDRA
 
49
NAME/COLU 'INPUTFI' :DEC :OLDDEC
 
50
NAME/COLU 'INPUTFI' :PRA :RA
 
51
NAME/COLU 'INPUTFI' :PDEC :DEC