← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/spec/libsrc/dblsub.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:
stdred/spec/libsrc/dblsub.for
 
1
C @(#)dblsub.for        19.1 (ES0-DMD) 02/25/03 14:29:00
 
2
C===========================================================================
 
3
C Copyright (C) 1995 European Southern Observatory (ESO)
 
4
C
 
5
C This program is free software; you can redistribute it and/or 
 
6
C modify it under the terms of the GNU General Public License as 
 
7
C published by the Free Software Foundation; either version 2 of 
 
8
C the License, or (at your option) any later version.
 
9
C
 
10
C This program is distributed in the hope that it will be useful,
 
11
C but WITHOUT ANY WARRANTY; without even the implied warranty of
 
12
C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
13
C GNU General Public License for more details.
 
14
C
 
15
C You should have received a copy of the GNU General Public 
 
16
C License along with this program; if not, write to the Free 
 
17
C Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
 
18
C MA 02139, USA.
 
19
C
 
20
C Corresponding concerning ESO-MIDAS should be addressed as follows:
 
21
C       Internet e-mail: midas@eso.org
 
22
C       Postal address: European Southern Observatory
 
23
C                       Data Management Division 
 
24
C                       Karl-Schwarzschild-Strasse 2
 
25
C                       D 85748 Garching bei Muenchen 
 
26
C                       GERMANY
 
27
C===========================================================================
 
28
C
 
29
        subroutine read1d(IN,NPIX,DATA)
 
30
 
 
31
        implicit none
 
32
 
 
33
        INTEGER  NPIX
 
34
        REAL     IN(NPIX)
 
35
        REAL     DATA(NPIX)
 
36
 
 
37
        INTEGER  II
 
38
 
 
39
        do  II = 1,NPIX
 
40
          DATA(II) = IN(II)
 
41
        end do
 
42
 
 
43
        return
 
44
        end
 
45
 
 
46
 
 
47
        subroutine read2d(IN,NPIX,DATA,NDATA)
 
48
 
 
49
        implicit none
 
50
 
 
51
        INTEGER  NPIX(2)
 
52
        REAL     IN(1)
 
53
        INTEGER  NDATA
 
54
        REAL     DATA(NDATA)
 
55
        character*80  STRING
 
56
        INTEGER  STAT
 
57
 
 
58
        INTEGER  II,JJ,KK
 
59
 
 
60
C        STRING = ' NPIX = '
 
61
C        write (STRING(9:80),101) (NPIX(II),II=1,2)
 
62
C        call sttput(STRING,STAT)
 
63
 101        format(2I4)
 
64
 
 
65
C        STRING = ' IN = '
 
66
C        write (STRING(7:80),102) (IN(1,II),II=1,10)
 
67
C        call sttput(STRING,STAT)
 
68
 102        format(10F5.0)
 
69
 
 
70
        KK = 0
 
71
        do  JJ = 1,NPIX(2)
 
72
          do  II = 1,NPIX(1)
 
73
            KK = KK+1
 
74
            DATA(KK) = IN(KK)
 
75
            if (DATA(KK).eq.0) then
 
76
              STRING = ' zero data value read in at pixel '
 
77
              write (STRING(35:80),100) KK
 
78
              call sttput(STRING,STAT)
 
79
            end if
 
80
          end do
 
81
        end do
 
82
 
 
83
 100        format(I2)
 
84
 
 
85
        return
 
86
        end
 
87
 
 
88