! Below is an example whereby a network with 2 inputs, 1 output and 
! two hidden layers each with 3 nodes is trained to output the XOR of the two inputs:

! The training files should start with the number of inputs, followed by the number of outputs, each on a new lines. 
! The rest of the data should then follow, with inputs before their outputs. 
! For example, if there are two inputs and one output, the following file suggests that 1 and 0 should result in 1:

! following file suggests that 1 and 0 should result in 1:

use neural

type(network) :: testNet

call neural_init_network(testNet, (/ 2, 3, 3, 1 /))
call neural_train_network_file(testNet, "xor.dat", 10000)

! call neural_save_network(testNet, "network.dat")
! call neural_load_network(testNet, "network.dat")

print *, "1 and 1 = ", neural_use_network(testNet, (/ 1.0d00, 1.0d00 /))
print *, "0 and 1 = ", neural_use_network(testNet, (/ 0.0d00, 1.0d00 /))

End