| 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 |
