30 lines
554 B
Fortran
30 lines
554 B
Fortran
subroutine fit_connect(conn)
|
|
! ----------------------------
|
|
|
|
implicit none
|
|
include 'fit.inc'
|
|
character conc*1, conn*(*)
|
|
integer i
|
|
|
|
1002 FORMAT (4X,'Connect lines (Y/N, default:No): ',$)
|
|
|
|
if (conn .eq. ' ') then
|
|
102 WRITE (ISYSWR,1002)
|
|
READ (ISYSRD,'(a1)',ERR=102,END=999) CONC
|
|
else
|
|
conc=conn
|
|
endif
|
|
IF (conc .EQ. 'Y' .OR. conc .EQ.'y' .or.
|
|
1 conc .eq. '1') then
|
|
do i=1,maxset
|
|
styl(i)=mod(styl(i),10)+sign(10,styl(i))
|
|
enddo
|
|
else
|
|
do i=1,maxset
|
|
styl(i)=mod(styl(i),10)
|
|
enddo
|
|
endif
|
|
autostyle=0
|
|
999 end
|
|
|