← Back to branch summary

~ubuntu-branches/ubuntu/saucy/nwchem/saucy

« back to all changes in this revision

Viewing changes to src/tools/ga-4-3/tcgmsg/farg.h

  • Committer: Package Import Robot
  • Author(s): Michael Banck, Michael Banck, Daniel Leidert
  • Date: 2012-02-09 20:02:41 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20120209200241-jgk03qfsphal4ug2
Tags: 6.1-1
http://bugs.debian.org/632611
https://launchpad.net/bugs/791308
* New upstream release.

[ Michael Banck ]
* debian/patches/02_makefile_flags.patch: Updated.
* debian/patches/02_makefile_flags.patch: Use internal blas and lapack code.
* debian/patches/02_makefile_flags.patch: Define GCC4 for LINUX and LINUX64
  (Closes: #632611 and LP: #791308).
* debian/control (Build-Depends): Added openssh-client.
* debian/rules (USE_SCALAPACK, SCALAPACK): Removed variables (Closes:
  #654658).
* debian/rules (LIBDIR, USE_MPIF4, ARMCI_NETWORK): New variables.
* debian/TODO: New file.
* debian/control (Build-Depends): Removed libblas-dev, liblapack-dev and
  libscalapack-mpi-dev.
* debian/patches/04_show_testsuite_diff_output.patch: New patch, shows the
  diff output for failed tests.
* debian/patches/series: Adjusted.
* debian/testsuite: Optionally run all tests if "all" is passed as option.
* debian/rules: Run debian/testsuite with "all" if DEB_BUILD_OPTIONS
  contains "checkall".

[ Daniel Leidert ]
* debian/control: Used wrap-and-sort. Added Vcs-Svn and Vcs-Browser fields.
  (Priority): Moved to extra according to policy section 2.5.
  (Standards-Version): Bumped to 3.9.2.
  (Description): Fixed a typo.
* debian/watch: Added.
* debian/patches/03_hurd-i386_define_path_max.patch: Added.
  - Define MAX_PATH if not defines to fix FTBFS on hurd.
* debian/patches/series: Adjusted.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/tools/ga-4-3/tcgmsg/farg.h
 
1
/* $Header: /tmp/hpctools/ga/tcgmsg-mpi/farg.h,v 1.14 2005-11-24 01:14:27 manoj Exp $ */
 
2
/*
 
3
  This include file defines ARGC_ and ARGV_ which are the appropriate
 
4
  global variables to get at the command argument list in the
 
5
  FORTRAN runtime environment. 
 
6
  This will need to be modified for each new machine (try using nm or 
 
7
  generating a full load map). 
 
8
*/
 
9
 
 
10
/* Used to be SEQUENT here but charged to _X_argv */
 
11
#if defined(SUN) || defined(ALLIANT) || defined(ENCORE) || defined(CONVEX) || \
 
12
  defined(KSR)
 
13
#   define ARGC_ xargc
 
14
#   define ARGV_ xargv
 
15
#endif
 
16
 
 
17
#if defined(ARDENT)
 
18
#   define ARGC_ _UT_argc
 
19
#   define ARGV_ _UT_argv
 
20
#endif
 
21
 
 
22
#if (defined(SGI) || defined(ULTRIX))
 
23
#   define ARGC_ f77argc
 
24
#   define ARGV_ f77argv
 
25
#endif
 
26
 
 
27
#if defined(DECOSF)
 
28
#   define ARGC_ __Argc
 
29
#   define ARGV_ __Argv
 
30
#endif
 
31
 
 
32
#if defined(AIX)
 
33
#   define ARGC_ p_xargc
 
34
#   define ARGV_ p_xargv
 
35
#endif
 
36
 
 
37
#if defined(CRAY) 
 
38
#   define ARGC_ _argc
 
39
#   define ARGV_ _argv
 
40
#endif
 
41
 
 
42
#if defined(GFORTRAN)
 
43
#   ifdef EXT_INT
 
44
#       define getarg_ _gfortran_getarg_i8
 
45
#   else
 
46
#       define getarg_ _gfortran_getarg_i4
 
47
#   endif
 
48
#   define iargc_  _gfortran_iargc
 
49
#endif
 
50
 
 
51
#if defined(PGLINUX) /* PGI compilers on Linux */
 
52
#   define ARGC_ __argc_save
 
53
#   define ARGV_ __argv_save
 
54
#elif defined(IFCLINUX)
 
55
#   ifdef IFCV8
 
56
#       define ARGC_ for__l_argc
 
57
#       define ARGV_ for__a_argv
 
58
#   else
 
59
#       define ARGC_ xargc
 
60
#       define ARGV_ xargv
 
61
#   endif
 
62
#elif defined(SGILINUX)
 
63
#   define ARGC_ _f90argc
 
64
#   define ARGV_ _f90argv
 
65
#elif defined(MACX) && defined(XLFMAC)
 
66
#   define ARGC_ NXArgc
 
67
#   define ARGV_ NXArgv
 
68
#else
 
69
/* g77/gcc fortran argc/argv interface on linux is unstable */
 
70
#   if defined(LINUX) || defined(INTERIX) || defined(CYGWIN) || defined(MACX)
 
71
#       if ((__GNUC__ > 2) || ((__GNUC__ == 2) && (__GNUC_MINOR__ > 90)))
 
72
#           define ARGC_ f__xargc
 
73
#           define ARGV_ f__xargv
 
74
#       else
 
75
#           define ARGC_ xargc
 
76
#           define ARGV_ xargv
 
77
#       endif
 
78
#   endif
 
79
#endif
 
80
 
 
81
#ifdef SEQUENT
 
82
#   define ARGC_ _X_argc
 
83
#   define ARGV_ _X_argv
 
84
#endif
 
85
 
 
86
#if defined(NEXT)
 
87
#   define ARGC_ _NXArgc
 
88
#   define ARGV_ _NXArgv
 
89
#endif
 
90
 
 
91
#if defined(HPUX)
 
92
    /* ARGC_ and ARGV_ are allocated and constructed in pbeginf */
 
93
#else
 
94
    extern int ARGC_;
 
95
    extern char **ARGV_;
 
96
#endif
 
97
 
 
98
#if defined(HPUX)    || defined(SUN)       || defined(SOLARIS)  || \
 
99
    defined(PARAGON) || defined(FUJITSU)   || defined(WIN32)    || \
 
100
    defined(LINUX64) || defined(NEC)       || defined(LINUX)    || \
 
101
    defined(HITACHI) || defined(__crayx1)  || defined(BGL)      || \
 
102
    defined (XLFMAC) || defined(ABSOFTMAC) || defined(GFORTRAN) || \
 
103
   (defined(MACX) && defined(GFORTRAN))    || \
 
104
   (defined(LINUX64) && defined(__alpha__))|| \
 
105
   defined(BGP)
 
106
#   define HAS_GETARG 1
 
107
#endif
 
108
 
 
109
#ifndef WIN32
 
110
#   define FATR 
 
111
#endif
 
112
 
 
113
#ifdef WIN32
 
114
#   define getarg_ GETARG
 
115
#   define iargc_  IARGC
 
116
#   include <windows.h>
 
117
#   include "winutil.h"
 
118
#   define NTYPE short
 
119
    extern int  FATR iargc_(void);
 
120
    extern void FATR getarg_( NTYPE *, char*, int, NTYPE*);
 
121
#elif defined(HPUX)
 
122
#   ifndef EXTNAME
 
123
#       define hpargv_ hpargv
 
124
#       define hpargc_ hpargc
 
125
#   endif
 
126
    extern int hpargv_();
 
127
    extern int hpargc_();
 
128
#else /* ALL OTHER PLATFORMS */
 
129
    extern int iargc_();
 
130
    extern void getarg_();
 
131
#endif
 
132
 
 
133
#if defined(__crayx1) 
 
134
#   define getarg_  pxfgetarg_
 
135
#   define IARGC  ipxfargc_
 
136
#   define NTYPE  int 
 
137
    extern void FATR getarg_( NTYPE *, char*, NTYPE*, NTYPE*, int);
 
138
#endif
 
139
 
 
140
/* Eample use
 
141
 
 
142
static void PrintCommandArgList()
 
143
{
 
144
  int i;
 
145
 
 
146
  for (i=0; i<ARGC_; i++)
 
147
    (void) printf("argv(%d)=%s\n", i, ARGV_[i]);
 
148
}
 
149
 
 
150
*/
 
151