John,
This works for me:
DATA_SECTION
PARAMETER_SECTION
init_number dum;
objective_function_value f;
random_effects_vector re(1,3);
PROCEDURE_SECTION
df1b2variable x = 2.;
alogit(x);
GLOBALS_SECTION
template <typename SCALAR> SCALAR alogit(const SCALAR& a)
{
SCALAR p = 1.0/(1.0+exp(-a));
return p;
}
// template df1b2variable alogit(const df1b2variable& a);
________________________________
This internet e-mail message, and any files transmitted with it, contains confidential, privileged information that is intended only for the addressee. If you have received this e-mail message in error, please call us at
(206) 634-1838 collect if necessary) and ask to speak to the message sender. Nothing in this e-mail or the act of transmitting it, is to be construed as a waiver of any rights or privileges enjoyed by the sender or the International Pacific Halibut Commission pursuant to the International Organizations Immunities Act, 22 U.S.C. Sec. 288 et seq.