9 |
|
!! @author Matthew Meineke |
10 |
|
!! @author Christopher Fennel |
11 |
|
!! @author J. Daniel Gezelter |
12 |
< |
!! @version $Id: calc_sticky_pair.F90,v 1.3 2003-03-12 15:39:01 gezelter Exp $, $Date: 2003-03-12 15:39:01 $, $Name: not supported by cvs2svn $, $Revision: 1.3 $ |
12 |
> |
!! @version $Id: calc_sticky_pair.F90,v 1.4 2003-03-12 16:38:17 gezelter Exp $, $Date: 2003-03-12 16:38:17 $, $Name: not supported by cvs2svn $, $Revision: 1.4 $ |
13 |
|
|
14 |
|
module sticky_pair |
15 |
|
|
38 |
|
contains |
39 |
|
|
40 |
|
subroutine check_sticky_FF(status) |
41 |
< |
integer :: status = -1 |
42 |
< |
|
41 |
> |
integer :: status |
42 |
> |
status = -1 |
43 |
|
if (sticky_initialized) status = 0 |
44 |
|
return |
45 |
|
end subroutine check_sticky_FF |