C -------------------------------------------------
C     Template code to use ASA:                  
C     Revise MY_TEMPLATE in "asa_user.h" to change  
C     ASA options.                                  
C                            Li Ju. Aug.7, 1998    
C -------------------------------------------------
      PROGRAM TEST_F77
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      PARAMETER (NOP=5, ANNEAL_RATE=500.)
      DOUBLE PRECISION UPPER_BOUND(NOP),LOWER_BOUND(NOP),GUESS(NOP)
      EXTERNAL ASA_MAIN, FE
      DATA LOWER_BOUND /-10, -10, -10, -10, -20/
      DATA UPPER_BOUND /10,  10, 10, 10, 20/
      DATA GUESS       /0, 0, 0, 0, 1.3/
      CALL ASA_MAIN (EMIN, NOP, LOWER_BOUND, UPPER_BOUND, GUESS,
     A               ANNEAL_RATE, MAIN_EXIT_CODE)
      PRINT *, (I, GUESS(I), I=1,NOP)
      STOP
      END

      DOUBLE PRECISION FUNCTION FE (GUESS)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      PARAMETER (NOP=5)
      DIMENSION GUESS(NOP)
      FE = 0.
      DO I=1,NOP
      FE = FE + 10*(GUESS(I)-I)**2
      ENDDO
      RETURN 
      END