Changeset f3074b0 for INCL.H


Ignore:
Timestamp:
06/22/08 14:33:25 (16 years ago)
Author:
baerbaer <baerbaer@…>
Branches:
master
Children:
621e10f
Parents:
81c1ffc
Message:
  • INCL.H: Corrected formatting
  • INCL.H: zero and one are doubles not integers
  • smmp.pyf: Replaced mxrs with its value 100

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@6 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:
1 edited

Legend:

Unmodified
Added
Removed

  • INCL.H

    r81c1ffc rf3074b0  
    11      implicit integer*4 (i-n)
    2       implicit real*8 (a-h,o-z) 
     2      implicit real*8 (a-h,o-z)
    33      character*255 version
    44
    55      integer MAX_REPLICA, MAX_PROC, mxml, mxrs, mxat, mxbd, mxath
    66      integer mxvr, mxms, mxvw, mx14, mxvrh, mxtyat, mxhbdo
    7       integer mxhbac, mxtybl, mxtyba, mxtyto, mxrt, mxvrrt, mxrstu,
     7      integer mxhbac, mxtybl, mxtyba, mxtyto, mxrt, mxvrrt, mxrtsu
    88      integer nrsty
    9       double precision pi, pi2, pi4, crd, cdr
    10       integer izero, ione, zero, one
     9      double precision pi, pi2, pi4, crd, cdr, zero, one
     10      integer izero, ione
    1111
    1212      parameter(MAX_PROC=2048)
Note: See TracChangeset for help on using the changeset viewer.