PROGRAM Test_Network
      USE Precision
      USE Error_Handling
      USE System_Monitors
      USE Initialization_Termination
      USE Random_Numbers
      USE Network_Data_Structures
      USE Lattice_Geometry
      USE Network_Geometry
      USE Network_Graphics
      USE Cost_Parameters
      IMPLICIT NONE
      
      INTEGER(KIND=i_wp)::arc,node
      
      CALL StartProgram
      CALL InitializeLattice
      CALL InitializeNetwork
      CALL InitializeCostParameters
      
      CALL CreateNetworkProblem
      
      CALL DestroyCostParameters
      CALL DestroyNetwork
      CALL DestroyLatticeNetwork
      
      CALL EndProgram
      
      CONTAINS
      
      SUBROUTINE CreateNetworkProblem()
      
      CALL StartTimer(1)
      CALL StartTimer(10)
      CALL CreateLatticeNetwork
      CALL StopTimer(10)
      CALL StartTimer(11)
      CALL CreateNetwork(20)
      CALL StopTimer(11)
      CALL StartTimer(12)
      CALL CreateCostParameters
      CALL StopTimer(12)
      CALL StopTimer(1)
      WRITE(message_log_unit,"(A,F10.3)")"Creating the NO problem took (s) :",ReadTimer(1)
      WRITE(message_log_unit,"(A)")"Composition:____________________________________"
      WRITE(message_log_unit,"(A,F10.3)")"            Lattice creation:",ReadTimer(10)
      WRITE(message_log_unit,"(A,F10.3)")"            Network creation:",ReadTimer(11)
      WRITE(message_log_unit,"(A,F10.3)")"            ______Reordering:",ReadTimer(20)
      WRITE(message_log_unit,"(A,F10.3)")"            Costs creation  :",ReadTimer(12)
      WRITE(message_log_unit,"(A)")"________________________________________________"
      
      END SUBROUTINE CreateNetworkProblem
      
      END PROGRAM Test_Network