← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/general/libsrc/yextrco-1.for

  • 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:
prim/general/libsrc/yextrco-1.for
 
1
C===========================================================================
 
2
C Copyright (C) 1995 European Southern Observatory (ESO)
 
3
C
 
4
C This program is free software; you can redistribute it and/or 
 
5
C modify it under the terms of the GNU General Public License as 
 
6
C published by the Free Software Foundation; either version 2 of 
 
7
C the License, or (at your option) any later version.
 
8
C
 
9
C This program is distributed in the hope that it will be useful,
 
10
C but WITHOUT ANY WARRANTY; without even the implied warranty of
 
11
C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
12
C GNU General Public License for more details.
 
13
C
 
14
C You should have received a copy of the GNU General Public 
 
15
C License along with this program; if not, write to the Free 
 
16
C Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
 
17
C MA 02139, USA.
 
18
C
 
19
C Correspondence concerning ESO-MIDAS should be addressed as follows:
 
20
C       Internet e-mail: midas@eso.org
 
21
C       Postal address: European Southern Observatory
 
22
C                       Data Management Division 
 
23
C                       Karl-Schwarzschild-Strasse 2
 
24
C                       D 85748 Garching bei Muenchen 
 
25
C                       GERMANY
 
26
C===========================================================================
 
27
 
 
28
C ++++++++++++++++++++++++  YEXTRCO.FOR +++++++++++++++++++++++++++++++++++++++
 
29
C .LANGUAGE Fortran 77
 
30
C .IDENTIFICATION Module YEXTRCO.FOR
 
31
C .COMMENTS
 
32
C Module contains layer between the keyword related FORTRAN STxxxx interfaces
 
33
C and the SC_interfaces written in (hopefully independent) C
 
34
C .AUTHOR         K. Banse        ESO - Garching
 
35
C .KEYWORDS       standard interfaces.
 
36
C .ENVIRONMENT    FORTRAN and C standards
 
37
C .VERSION  [1.00] 871207:  created from SXFTOC.C
 
38
C ......................................................
 
39
C
 
40
C
 
41
C  call as
 
42
C   EXTCOO(IMNO,STRING,PIXDIM,SUBDIM,SUBLO,SUBHI,STAT)
 
43
C   EXTCO1(IMNO,STRING,PIXDIM,SUBDIM,SUBLO,STAT)
 
44
C
 
45
C   input par:
 
46
C   IMNO:      I*4            image no
 
47
C   STRING:    char.exp.      input string of the form [c1,c2,c3:d1,d2,d3]
 
48
C   PIXDIM:    I*4            max. no. of dimensions
 
49
C
 
50
C   output par:
 
51
C   SUBDIM:    I*4            actual dimension of subframe
 
52
C   SUBLO:     I*4 array      low pixels
 
53
C   SUBHI:     I*4 array      high pixels
 
54
C   STAT:      I*4            return status, = 0 o.k., else not o.k.
 
55
C
 
56
C  and
 
57
C 
 
58
C   XEXTC2(IMNO,STRING,PIXDIM,SUBDIM,SUBLO,SUBHI,STAT)
 
59
C   XEXTC1(IMNO,STRING,PIXDIM,SUBDIM,SUBLO,STAT)
 
60
C
 
61
C  all parameters as above, except:
 
62
C   SUBLO:     R*4 array      low pixels    (for fractions of frame pixels)
 
63
C   SUBHI:     R*4 array      high pixels
 
64
C
 
65
C 001218          last modif
 
66
C
 
67
C -------------------------------------------------- 
 
68
C 
 
69
C 
 
70
      SUBROUTINE ARTIMA(FLAG,IMNO,NPIX,STRING,SIZE,RETIMNO,STAT)
 
71
C
 
72
      IMPLICIT NONE
 
73
C
 
74
      CHARACTER*(*)  STRING
 
75
      INTEGER     FLAG, IMNO
 
76
      INTEGER     NPIX, SIZE, RETIMNO, STAT
 
77
C 
 
78
      CALL YEXT1(IMNO,STRING)
 
79
      CALL YART2(FLAG,NPIX,SIZE,RETIMNO,STAT)
 
80
C
 
81
      RETURN
 
82
      END
 
83
C
 
84
      SUBROUTINE EXTCOO(IMNO,STRING,PIXDIM,SUBDIM,SUBLO,SUBHI,STAT)
 
85
C
 
86
      IMPLICIT NONE
 
87
C
 
88
      CHARACTER*(*)  STRING
 
89
      INTEGER     IMNO, PIXDIM
 
90
      INTEGER     SUBDIM,SUBLO,SUBHI,STAT
 
91
C
 
92
      CALL YEXT1(IMNO,STRING)
 
93
      CALL YEXTC1(PIXDIM,SUBDIM,SUBLO,SUBHI,STAT)
 
94
C
 
95
      RETURN
 
96
      END
 
97
C
 
98
      SUBROUTINE XEXTC2(IMNO,STRING,PIXDIM,SUBDIM,SUBLO,SUBHI,STAT)
 
99
C
 
100
      IMPLICIT NONE
 
101
C
 
102
      CHARACTER*(*)  STRING
 
103
      INTEGER     IMNO, PIXDIM
 
104
      INTEGER     SUBDIM,SUBLO,SUBHI,STAT
 
105
C
 
106
      CALL YEXT1(IMNO,STRING)
 
107
      CALL YEXTC2(PIXDIM,SUBDIM,SUBLO,SUBHI,STAT)
 
108
C
 
109
      RETURN
 
110
      END
 
111
C
 
112
      SUBROUTINE EXTCO1(IMNO,STRING,PIXDIM,SUBDIM,SUBLO,STAT)
 
113
C 
 
114
      IMPLICIT NONE
 
115
C
 
116
      CHARACTER*(*)  STRING
 
117
      INTEGER     IMNO, PIXDIM
 
118
      INTEGER     SUBDIM,SUBLO,STAT
 
119
C
 
120
      CALL YEXT1(IMNO,STRING)
 
121
      CALL YEXC1(PIXDIM,SUBDIM,SUBLO,STAT)
 
122
C
 
123
      RETURN
 
124
      END
 
125
C 
 
126
      SUBROUTINE XEXTC1(IMNO,STRING,PIXDIM,SUBDIM,SUBLO,STAT)
 
127
C 
 
128
      IMPLICIT NONE
 
129
C
 
130
      CHARACTER*(*)  STRING
 
131
      INTEGER     IMNO, PIXDIM
 
132
      INTEGER     SUBDIM,SUBLO,STAT
 
133
C
 
134
      CALL YEXT1(IMNO,STRING)
 
135
      CALL YEXC2(PIXDIM,SUBDIM,SUBLO,STAT)
 
136
C
 
137
      RETURN
 
138
      END
 
139
C
 
140
 
 
141