Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.1 by heimbach, Sat Dec 27 05:39:56 2014 UTC | revision 1.2 by heimbach, Sat Dec 27 20:37:57 2014 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | ! $Header$ | |
| 2 | ! $Name$ | |
| 3 | ||
| 4 | #include "OPENAD_OPTIONS.h" | |
| 5 | ||
| 6 | subroutine template() | subroutine template() |
| 7 | C !FUNCTIONS | C !FUNCTIONS |
| 8 | use OAD_tape | use OAD_tape |
| # | Line 27 C !FUNCTIONS | Line 32 C !FUNCTIONS |
| 32 | INTEGER ILNBLNK | INTEGER ILNBLNK |
| 33 | EXTERNAL ILNBLNK | EXTERNAL ILNBLNK |
| 34 | ||
| 35 | #ifdef ALLOW_OPENAD_ACTIVE_FILE | |
| 36 | ||
| 37 | myNr = 1 | myNr = 1 |
| 38 | useCurrentDir = .FALSE. | useCurrentDir = .FALSE. |
| 39 | ||
| # | Line 90 C !FUNCTIONS | Line 97 C !FUNCTIONS |
| 97 | active_var%d = active_var_p | active_var%d = active_var_p |
| 98 | end if | end if |
| 99 | ||
| 100 | #endif /* ALLOW_OPENAD_ACTIVE_FILE */ | |
| 101 | ||
| 102 | end | end |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |