← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/pepsys/libsrc/space.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:
contrib/pepsys/libsrc/space.for
 
1
C @(#)space.for 19.1 (ES0-DMD) 02/25/03 13:28:48
 
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
C  @(#)space.for        19.1  (ESO-IPG)  02/25/03  13:28:48
 
30
      SUBROUTINE SPACE2
 
31
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
32
C.COPYRIGHT (c) European Southern Observatory 1992
 
33
C.IDENT         space.for
 
34
C.MODULE
 
35
C.AUTHOR        Andrew T. Young
 
36
C.KEYWORD
 
37
C.LANGUAGE      FORTRAN 77
 
38
C.PURPOSE       Spaces output.
 
39
C.COMMENTS
 
40
C.VERSION       0.0
 
41
C.RETURNS
 
42
C.ENVIRONMENT
 
43
C.
 
44
C-----------------------------------------------------------------------------
 
45
C
 
46
C
 
47
C       double-spaces output.
 
48
C
 
49
      CALL TV(' ')
 
50
      RETURN
 
51
C
 
52
C
 
53
      ENTRY SPACE
 
54
C
 
55
C        single-spaces output.
 
56
C
 
57
      CALL TVN(' ')
 
58
      RETURN
 
59
      END