C
C $Id: setdef.F,v 1.2 1998/07/16 16:40:41 jjv5 Exp arjan $
C
C------------------------------------------------------------------------
      SUBROUTINE SETDEF
C
C     ASSIGNS DEFAULT SETTINGS FOR PROGRAM PARAMETERS THAT HAVE NOT BEEN
C     SPECIFIED IN THE KEYWORDS.
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
#include "divcon.dim"
#include "divcon.h"
C
C-RDC       WRITE(IOUT,
C-RDC      .     '(//" DEFAULT SETTINGS FOR CALCULATION",
C-RDC      .              /" --------------------------------"/)')
      IF(INDEX(KEYWRD,'TEMPK=').EQ.0)THEN
        TEMPK = 1000.0D0
C-RDC         WRITE(IOUT,
C-RDC      .       '(" - D&C TEMPERATURE OF ",F7.2," K WILL BE",
C-RDC      .            " USED")') TEMPK
      ENDIF
      IF(INDEX(KEYWRD,'TMAX=').EQ.0)THEN
        TMAX = 1.0D20
C-RDC         WRITE(IOUT,
C-RDC      .       '(" - NO TIME LIMIT ON CALCULATION")')
      ENDIF
C-RDC       WRITE(IOUT,'("")')
      RETURN
      END