← Back to branch summary

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

« back to all changes in this revision

Viewing changes to incl/ftoc_commb.h

  • 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:
incl/ftoc_commb.h
 
1
/* @(#)ftoc_commb.h     19.1 (ESO-IPG) 02/25/03 13:49:32 */
 
2
/*++++++++++++++
 
3
.IDENTIFICATION ftoc_commb.h
 
4
.LANGUAGE       C
 
5
.AUTHOR         Francois Ochsenbein
 
6
.ENVIRONMENT    
 
7
.KEYWORDS       
 
8
.VERSION  1.0   12-Dec-1990
 
9
.COMMENTS       Here there is the definition of the COMMON used
 
10
                for address passing between FORTRAN routines (replaces %LOC)
 
11
                Only Apollo is currently using this definition
 
12
---------------*/
 
13
 
 
14
#ifndef VMR_DEF
 
15
#define VMR_DEF         0       /* To avoid redefinitions */
 
16
 
 
17
                /* structure for COMMON in main Fortran programs  */
 
18
/*typedef struct { int addr; } vmmidas; */
 
19
/*vmmidas         vmr     #attribute[section(vmr)]; */
 
20
 
 
21
struct { int addr;}    vmr     #attribute[section(vmr)]; 
 
22
 
 
23
                /* translate address into FORTRAN index in VMR common */
 
24
#define COMMON_INDEX(a)         (int *)a - (int *)&((&(vmr.addr))[-1])
 
25
#endif