19 lines
365 B
Fortran
19 lines
365 B
Fortran
SUBROUTINE START
|
|
C ================
|
|
C
|
|
C General input and initialization procedure
|
|
C
|
|
INCLUDE 'IMPLIC.FOR'
|
|
INCLUDE 'BASICS.FOR'
|
|
common/hediff/ hcmass,radstr
|
|
C
|
|
read(1,*,end=10,err=10) idisk
|
|
10 continue
|
|
call initia
|
|
if(hcmass.gt.0.) call hedif
|
|
nn0=nn
|
|
CALL COMSET
|
|
call prdini
|
|
return
|
|
end
|