Changeset 32289cd for difang.f


Ignore:
Timestamp:
11/19/09 11:29:41 (14 years ago)
Author:
baerbaer <baerbaer@…>
Branches:
master
Children:
38d77eb
Parents:
6650a56
Message:

Explicitly declare variables.

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • difang.f

    r6650a56 r32289cd  
    2121! ......................................................
    2222
    23       implicit real*8 (a-h,o-z)
    24 
     23      implicit none
     24      double precision pi, pi2, d, a2, a1
    2525      parameter (pi=3.141592653589793d0,
    2626     &           pi2=2.d0*pi)
    … …  
    4747! ......................................................
    4848
    49       implicit real*8 (a-h,o-z)
     49      implicit none
     50      double precision pi, pi2, d, a1, a2
    5051
    5152      parameter (pi=3.141592653589793d0,
Note: See TracChangeset for help on using the changeset viewer.