PROGRAM main

        USE input

        IMPLICIT NONE

        CALL GetData()
        
        WRITE (*,'("NUMsphe = ",i4," NUModds = ",i4," NUMsupd = ",i4," NUMmono = ",i4,&
       &            " NUMdipo = ",i4," NUMtwop = ",I4," NUMdvpn = ",i4," NUMterm = ",I4," NUMdefo = ",i4," NUMqpSH = ",i4)') &
       &             NUMsphe,NUModds,NUMsupd,NUMmono,NUMdipo,NUMtwop,NUMdvpn,NUMterm,NUMdefo,NUMqpSH

        CALL PrintData()

        STOP
	
END PROGRAM main