
      INTEGER NPROCS

      CALL AD_INIT_ADLIB(NPROCS)
      CALL AD_INIT_MAIN(NPROCS)

      CALL AD_MAIN()

      CALL AD_FINALIZE_ADLIB()

      END

