🚀 go-pugleaf

In GNU Emacs 18.57.4 of Wed May  1 1991 on litwin.litwin.com (berkeley-unix)

Invoking fortran-indent-subprogram results in the error:
   Lisp nesting exceeds max-lisp-eval-depth

This error does not occur if the following line is removed from my .emacs
file:
(setq-default tab-width 3)

I invoke emacs as: emacs -i

Then C-x C-f /usr/nets/simul/f_src/f/pchex.f
The next key stroke is M-C-q which invokes fortran-indent-subprogram.
At this point the error occurs.

I will now include the .emacs file, the fortran source, and the Backtrace.

--------------------------------------------------------------------------------
(global-unset-key "\177")
(global-unset-key "\e[")

(global-unset-key "\C-h")
(global-unset-key "\C-t")

(global-unset-key "\eu")
;(global-unset-key "\ev")
(global-unset-key "\ew")

;(global-unset-key "\C-@")

(setq-default tab-width 3)
(setq-default meta-flag 1)
(setq-default display-time-day-and-date 1)
(setq-default scroll-step 1)
(setq-default search-exit-char ?\r)
(setq-default debug-on-error t)
;(setq-default max-specpdl-size 2000)
(display-time)

(define-key global-map "\177" 'delete-char)
(define-key emacs-lisp-mode-map "\177" 'delete-char)
(define-key emacs-lisp-mode-map "\011" 'self-insert-command)
(define-key c-mode-map "\177" 'delete-char)
(define-key c-mode-map "\011" 'self-insert-command)
(global-set-key "\177" 'delete-char)
(global-set-key "\011" 'self-insert-command)

(global-set-key "\C-h" 'delete-backward-char)
(global-set-key "\e[1~" 'beginning-of-line)     ; home
(global-set-key "\e[4~" 'end-of-line)           ; end
(global-set-key "\e[23~" 'scroll-up)             ; page up (f11)
(global-set-key "\e[5~" 'scroll-up)             ; page up
(global-set-key "\e[24~" 'scroll-down)           ; page down (f12)
(global-set-key "\e[6~" 'scroll-down)           ; page down

(global-set-key "\e[11~" 'help-for-help)        ; f1
(global-set-key "\e[12~" 'goto-line)         	; f2
(global-set-key "\e[13~" 'what-line)            ; f3
;(global-set-key "\e[16~" 'name-last-kbd-macro)  ; f5
(global-set-key "\e[17~" 'compile)					; f6
(global-set-key "\e[18~" 'name-last-kbd-macro)  ; f7
(global-set-key "\e[19~" 'call-last-kbd-macro)  ; f8
(global-set-key "\e[20~" 'global-set-key)			; F9
(global-set-key "\e[21~" 'load-file)				; F10

(global-set-key "\e[B" 'next-line)             ; cursor down
(global-set-key "\e[A" 'previous-line)         ; cursor up
(global-set-key "\e[C" 'forward-char)          ; cursor right
(global-set-key "\e[D" 'backward-char)         ; cursor left
(global-set-key "\e[2~" 'yank)                  ; insert
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(global-set-key "\eu"  'advertised-undo)       ; <ALT>u
(global-set-key "\et"  'beginning-of-buffer)   ; <ALT>t
(global-set-key "\eb"  'end-of-buffer)         ; <ALT>b
(global-set-key "\ee"  'find-file)				  ; <ALT>e
(global-set-key "\eq"  'save-buffers-kill-emacs)	; <ALT>q
(global-set-key "\ew"  'save-buffer)				; <ALT>w
(global-set-key "\eo"  'set-visited-file-name)	; <ALT>o
;(global-set-key "\ev"  'kill-region)           ; gray -
;(global-set-key "\ew"  'set-mark-command)      ; gray *
(global-set-key "\e+" 'kill-word)             ; cursor down
(global-set-key "\C-n" 'next-line)
(global-set-key "\eh" 'repeat-complex-command)
;(global-set-key "\ed" 'kill-line)			     ; <ALT>d
;(global-set-key "\es" 'search-forward)     		; <ALT>s
(global-set-key "\e`" 'buffer-menu)		     		; <ALT>grave

;(global-set-key "\C-t" 'search-forward)     	; find
;(global-set-key "\C-n" 'next-error)     			; <CTL>n

(global-set-key "\e/" 'set-mark-command)

;(keypad-default "." 'set-mark-command)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

--------------------------------------------------------------------------------
      subroutine pchex(i_t, i_s, exno, o_t, o_s)
c.    
      include '../h/pchex_type.h'
      include '../h/simcom.h'
cccc	include '../h/ppchex.h'		! to be part of simcom later. DONE
	
c		extype	1: pure counter current
c					2: 1-2 E shell
c		dpc		>0 calculate outlet pressure
c					<0 set inlet pressure
	
	data ns1,isn1 /1,isim3,4*0/
	data ns2,isn2 /1,isim4,4*0/
	strm(isim3) = strm(o_t)
	strm(isim4) = strm(o_s)
	
	dp_t = ppchex(exno).dpc_t * (strm(i_t).flow*molwt(i_t)) **2
	pout = strm(isim3).pres
	strm(isim3) = strm(i_t)
	if ( ppchex(exno).dpc_t .gt. 0. ) then
		strm(isim3).pres = max ( 14.696, (strm(i_t).pres-dp_t) )
	else
		strm(isim3).pres = pout
		strm(i_t).pres = strm(isim3).pres - dp_t
	endif

	dp_s = ppchex(exno).dpc_s * (strm(i_s).flow*molwt(i_s)) **2
	pout = strm(isim4).pres
	strm(isim4) = strm(i_s)
	if ( ppchex(exno).dpc_s .gt. 0. ) then
		strm(isim4).pres = max ( 14.696, (strm(isim4).pres-dp_s) )
	else
		strm(isim4).pres = pout
		strm(i_s).pres = strm(isim4).pres - dp_s
	endif
		
	if ( strm(i_t).flow .le. 0. .or. 
     $    strm(i_s).flow .le. 0. .or. 
$		  strm(i_t).temp .eq. strm(i_s).temp ) then
		pout = strm(isim4).pres
		strm(isim4) = strm(i_s)
		strm(isim4).pres = pout
		pout = strm(isim3).pres
		strm(isim3) = strm(i_t)
		strm(isim3).pres = pout
		goto 99
	endif
	
	strm(isim3).temp = strm(i_s).temp
	call flash (isim3,iscr1,iscr2,fq)
	qmax1 = abs ( strm(isim3).enth - strm(i_t).enth ) * strm(i_t).flow
	strm(isim4).temp = strm(i_t).temp
	call flash (isim4,iscr1,iscr2,fq)
	qmax2 = abs ( strm(isim4).enth - strm(i_s).enth ) * strm(i_s).flow
	qmax = min (qmax1,qmax2)
	qmin = 0.0
	if ( ppchex(exno).q .gt. qmax ) then
		ppchex(exno).q = qmax * 0.75
	endif
	
	do i = 1,25
	
	if ( strm(i_t).temp .gt. strm(i_s) .temp ) then
		strm(isim3).enth = strm(i_t).enth - ppchex(exno).q/strm(i_t).flow
		strm(isim4).enth = strm(i_s).enth + ppchex(exno).q/strm(i_s).flow
	else
		strm(isim3).enth = strm(i_t).enth + ppchex(exno).q/strm(i_t).flow 
		strm(isim4).enth = strm(i_s).enth - ppchex(exno).q/strm(i_s).flow
	endif
	call aflash(ns1,isn1, iscr7,iscr8, 0.,-1)
	strm(isim3).temp = strm(iscr7).temp
	call aflash(ns2,isn2, iscr7,iscr8, 0.,-2)
	strm(isim4).temp = strm(iscr7).temp
	
	if ( strm(i_t).temp .gt. strm(i_s).temp ) then
		dt1 = strm(i_t).temp-strm(isim4).temp
		dt2 = strm(isim3).temp-strm(i_s).temp
	else
		dt1 = strm(isim4).temp-strm(i_t).temp
		dt2 = strm(i_s).temp-strm(isim3).temp
	endif
	lmtd = ( (dt1**(1./3.) + dt2**(1./3.) ) / 2.0 ) **3
      
	f = 1.0
	if ( ppchex(exno).extype .ne. 1 ) then
	 if ( abs (strm(isim3).temp-strm(i_t).temp) .lt. 0.0001 ) then
			f = 1.0
	 else
		pf = ( strm(isim3).temp - strm(i_t).temp ) / 
$			  ( strm(i_s).temp - strm(i_t).temp )
		rf = ( strm(i_s).temp - strm(isim4).temp ) / 
$			  ( strm(isim3).temp - strm(i_t).temp )
		if ( pf .lt. 0.001 ) then
			f = 1.0 
		else
			rfp1rt = abs ( (1.+rf*rf)**0.5 )
			if ( (1.0+rf+rfp1rt) .gt. 2./pf ) then
				f = 0.
			else
				fx1 = 2 - pf * ( 1.+rf-rfp1rt )
				fx2 = 2 - pf * ( 1.+rf+rfp1rt )
				lmdfx = ( ( fx1**(1./3.)+fx2**(1./3.) ) / 2. ) ** 3
				f = abs((strm(i_s).temp-strm(i_t).temp)) * lmdfx / lmtd/2.
			endif
		endif
	 endif
	endif
	
	qcalc = ppchex(exno).ua * lmtd * f

	qerr = qcalc - ppchex(exno).q
	if ( abs(qerr) .lt. 10.0 ) go to 99
	if ( ppchex(exno).q .gt. 0. ) then
		if ( min( abs(qerr),(qmax-qmin) ) .lt. ppchex(exno).q*0.005 )then
			go to 99
		endif
	endif

	if ( qerr .gt. 0. ) then
		qmin = ppchex(exno).q
		ppchex(exno).q = ( min(qcalc,qmax) + qmin ) / 2.0
	else
		qmax = ppchex(exno).q
		ppchex(exno).q = ( max(qmin,qcalc) + qmax ) / 2.0
	endif
				  
	enddo
	
	call time(atime)
	write(*,*)' No convergance in PPCHEX ',exno,' at ',atime
	write(*,*)' Qguess,Qcalc ',ppchex(exno).q,qcalc
	write(*,*)' Last: dt, dt2, lmtd*0.85:', dt1,dt2,lmtd
	write(*,*)' qmin, qmax:', qmin,qmax
	return
	
99	continue
	strm(o_t) = strm(isim3)
	strm(o_s) = strm(isim4)
        return
        end
--------------------------------------------------------------------------------
Signalling: (error "Lisp nesting exceeds max-lisp-eval-depth")
  calculate-fortran-indent()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  byte-code("FG H!ng-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ 	]*$" delete-horizontal-space fortran-comment-hook "\n" forward-char -1 insert-char 0 calculate-fortran-indent] 19)
  fortran-indent-comment()
  byte-code("CD 
  fortran-indent-line()
  funcall(fortran-indent-line)
  byte-code("E?A-marker prefix-numeric-value delete-region skip-chars-forward " 	" indent-to 0] 16)
  indent-region(1 3932 nil)
  byte-code("@
  fortran-indent-subprogram()
  call-interactively(fortran-indent-subprogram)