Prev

Next

Index-> contents reference index search external

Up-> cppad_swig library vector vector_size vector_size_xam.pm

cppad_swig-> testing swig_xam.i library whats_new_2018

library-> module a_double vector a_fun sparse error xam.m4

vector-> vector_ctor vector_size vector_set_get

vector_size-> vector_size_xam.cpp vector_size_xam.m vector_size_xam.pm vector_size_xam.py

vector_size_xam.pm

Headings

package vector_size_xam;
sub vector_size_xam() {
     # check for standard perl programming conventions
     use strict;
     use warnings;
     #
     # load the Cppad Swig library
     use pm_cppad;
     #
     # initilaize return variable
     my $ok = 1;
     # ---------------------------------------------------------------------
     # create vectors
     my $bv = new pm_cppad::vec_bool();
     my $iv = new pm_cppad::vec_int(1);
     my $dv = new pm_cppad::vec_double(2);
     my $av = new pm_cppad::vec_a_double(3);
     #
     # check size of vectors
     $ok = $ok && $bv->size() == 0 ;
     $ok = $ok && $iv->size() == 1 ;
     $ok = $ok && $dv->size() == 2 ;
     $ok = $ok && $av->size() == 3 ;
     #
     return( $ok );
}