SUBROUTINE INTIDE
*
*
* Input & scaling for tidal dissipation.
* --------------------------------------
*
INCLUDE 'common6.h'
*
*
* Read parameters for tidal capture simulation.
READ (5,*) RSTAR, IMS, IEV, RMS, REV
*
* Convert radii from S.U. to internal units.
RSTAR = RSTAR/SU
*
WRITE (6,10) RSTAR, IMS, IEV, RMS, REV
10 FORMAT (/,12X,'OLD TIDAL: RSTAR =',1PE8.1,' IMS =',0P,I5,
& ' IEV =',I4,' RMS/R* =',F6.2,' REV/R* =',F6.1)
*
* Assign individual radii for main-sequence and evolved stars.
DO 30 I = 1,N
* Adopt a primitive scheme in case of no stellar evolution.
IF (I.LE.IMS) THEN
RADIUS(I) = RMS*RSTAR
ELSE
RADIUS(I) = REV*RSTAR
END IF
30 CONTINUE
*
* WRITE (6,40) BODY(1), BODY(N), RADIUS(1), RADIUS(N)
* 40 FORMAT (/,12X,'SCALED RADII: M(1) =',F8.4,' M(N) =',F8.4,
* & ' R(1) =',1PE8.1,' R(N) =',E8.1)
*
RETURN
*
END