Get set network parameters

[milancurcic]

Opening this in favor of #107 by @jvo203. It should be easier to review. I made some small cosmetic changes.

• Implementation
• Example
• Tests

Closes #103.

[milancurcic]

I made layer % get_num_params elemental so now net % layers % get_num_params() returns an array of integers, each element corresponding to the size of parameters in each of the layers.

[jvo203]

Neat, with get_num_params being elemental there is no need for calling it inside the do loop for each layer, just one call before do and the rest is reading each array entry corresponding to each layer. Plus a sum() to get the total number of parameters.

[milancurcic]

I added a few more checks, completed the minimal test suite, and tidied up the example. @jvo203 please let me know if you think any more changes are needed. If not, I'll merge it tomorrow. Thanks again for all your help.

[jvo203]

As long as there is no problem with floating-point comparisons in get_set_network_params.f90 I am happy with it. The == in test_get_set_network_params.f90 compares integer values (stored in a real array) so there should not be any rounding errors etc.