9 |
|
!! @author Matthew Meineke |
10 |
|
!! @author Christopher Fennel |
11 |
|
!! @author J. Daniel Gezelter |
12 |
< |
!! @version $Id: calc_sticky_pair.F90,v 1.14 2003-08-27 16:25:11 gezelter Exp $, $Date: 2003-08-27 16:25:11 $, $Name: not supported by cvs2svn $, $Revision: 1.14 $ |
12 |
> |
!! @version $Id: calc_sticky_pair.F90,v 1.15 2003-10-29 20:41:38 mmeineke Exp $, $Date: 2003-10-29 20:41:38 $, $Name: not supported by cvs2svn $, $Revision: 1.15 $ |
13 |
|
|
14 |
|
module sticky_pair |
15 |
|
|
118 |
|
return |
119 |
|
endif |
120 |
|
|
121 |
+ |
|
122 |
|
if ( rij .LE. SSD_rbig ) then |
123 |
|
|
124 |
|
r3 = r2*rij |