PROGRAM main
  !    Main program

  use prec_const 
  IMPLICIT NONE

  CALL control

END PROGRAM main