tools/OAD_support/ad_template.split_non_anonymous.F

c0f596383c Dani*0001       subroutine template()
                0002       use OAD_cp
                0003       use OAD_tape
                0004       use OAD_rev
                0005
                0006 !$TEMPLATE_PRAGMA_DECLARATIONS
                0007
                0008       integer :: cp_loop_variable_1,cp_loop_variable_2,
                0009      +     cp_loop_variable_3,cp_loop_variable_4
                0010
                0011       integer iaddr
                0012       external iaddr
                0013
                0014 #ifdef OAD_DEBUG_SPLIT1
                0015       character*(80):: indentation='
                0016      +                                         '
                0017       our_indent=our_indent+1
                0018
                0019       write(standardmessageunit, '(A,A,A)', ADVANCE='NO')
                0020      +'OAD:',indentation(1:our_indent), 'enter __SRNAME__:'
                0021       call oad_dump_revmod(); call oad_dump_tapestats()
                0022       write(standardmessageunit,*)
                0023 #endif
                0024
                0025       if (our_rev_mode%plain) then
                0026 #ifdef OAD_DEBUG_SPLIT1
                0027         write(standardmessageunit,'(A,A,A)')
                0028      +'OAD:',indentation(1:our_indent),
                0029      +' __SRNAME__: entering plain'
                0030 #endif
                0031 !$PLACEHOLDER_PRAGMA$ id=1
                0032       end if
                0033       if (our_rev_mode%tape) then
                0034 #ifdef OAD_DEBUG_SPLIT1
                0035         write(standardmessageunit,'(A,A,A)')
                0036      +'OAD:',indentation(1:our_indent),
                0037      +' __SRNAME__: entering tape'
                0038 #endif
                0039 !$PLACEHOLDER_PRAGMA$ id=2
                0040       end if
                0041       if (our_rev_mode%adjoint) then
                0042 #ifdef OAD_DEBUG_SPLIT1
                0043          write(standardmessageunit,'(A,A,A)')
                0044      +'OAD:',indentation(1:our_indent),
                0045      +' __SRNAME__: entering adjoint'
                0046 #endif
                0047 !$PLACEHOLDER_PRAGMA$ id=3
                0048       end if
                0049
                0050 #ifdef OAD_DEBUG_SPLIT1
                0051       write(standardmessageunit,'(A,A,A)', ADVANCE='NO')
                0052      +'OAD:',indentation(1:our_indent), 'leave __SRNAME__:'
                0053       call oad_dump_revmod(); call oad_dump_tapestats()
                0054       write(standardmessageunit,*)
                0055
                0056       our_indent=our_indent-1
                0057 #endif
                0058
                0059       end subroutine template