.\" Copyright (c) 1983 Regents of the University of California.
.\" All rights reserved.  The Berkeley software License Agreement
.\" specifies the terms and conditions for redistribution.
.\"
.\"	@(#)fpr.1	6.2 (Berkeley) %G%
.\"
.TH FPR 1 ""
.UC 5
.ds f. fpr.tbl
.SH NAME
fpr \- print Fortran file
.SH SYNOPSIS
.B fpr
.SH DESCRIPTION
.I Fpr
is a filter that transforms files formatted according to
Fortran's carriage control conventions into files formatted
according to UNIX line printer conventions.
.PP
.I Fpr
copies its input onto its output, replacing the carriage
control characters with characters that will produce the intended
effects when printed using
.IR lpr (1).
The first character of each line determines the vertical spacing as follows:

.if t \{\
.\"	tbl input for vertical spacing table
.\"	.TS
.\"	center box;
.\"	c | l.
.\"	Character	Vertical Space Before Printing
.\"	_
.\"	Blank	One line
.\"	0	Two lines
.\"	1	To first line of next page
.\"	+	No advance
.\"	.TE
.\"	end of tbl input for vertical spacing table
.\"	tbl output for vertical spacing table
.TS
.if \n+(b.=1 .nr d. \n(.c-\n(c.-1
.de 35
.ps \n(.s
.vs \n(.vu
.in \n(.iu
.if \n(.u .fi
.if \n(.j .ad
.if \n(.j=0 .na
..
.nf
.nr #~ 0
.if n .nr #~ 0.6n
.ds #d .d
.if \(ts\n(.z\(ts\(ts .ds #d nl
.fc
.nr 33 \n(.s
.rm 80 81
.nr 80 0
.nr 38 \wCharacter
.if \n(80<\n(38 .nr 80 \n(38
.nr 38 \wBlank
.if \n(80<\n(38 .nr 80 \n(38
.nr 38 \w0
.if \n(80<\n(38 .nr 80 \n(38
.nr 38 \w1
.if \n(80<\n(38 .nr 80 \n(38
.nr 38 \w+
.if \n(80<\n(38 .nr 80 \n(38
.80
.rm 80
.nr 81 0
.nr 38 \wVertical Space Before Printing
.if \n(81<\n(38 .nr 81 \n(38
.nr 38 \wOne line
.if \n(81<\n(38 .nr 81 \n(38
.nr 38 \wTwo lines
.if \n(81<\n(38 .nr 81 \n(38
.nr 38 \wTo first line of next page
.if \n(81<\n(38 .nr 81 \n(38
.nr 38 \wNo advance
.if \n(81<\n(38 .nr 81 \n(38
.81
.rm 81
.nr 38 1n
.nr 79 0
.nr 40 \n(79+(1*\n(38)
.nr 80 +\n(40
.nr 41 \n(80+(3*\n(38)
.nr 81 +\n(41
.nr TW \n(81
.nr TW +1*\n(38
.if t .if (\n(TW+\n(.o)>7.65i .tm Table at line 45 file fpr.tbl is too wide - \n(TW units
.ne 5v+2p
.nr #I \n(.i
.in +(\n(.lu-\n(TWu-\n(.iu)/2u
.fc  
.nr #T 0-1
.nr #a 0-1
.nr #a 0-1
.eo
.de T#
.ds #d .d
.if \(ts\n(.z\(ts\(ts .ds #d nl
.mk ##
.nr ## -1v
.ls 1
.if \n(#T>=0 .nr #a \n(#T
.if \n(T. .vs \n(.vu-\n(.sp
.if \n(T. \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0
.if \n(T. .vs
.if \n(#a>=0 .sp -1
.if \n(#a>=0 \h'|0'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v'\h'|\n(TWu'
.if \n(#a>=0 .sp -1
.if \n(#a>=0 \h'(|\n(41u+|\n(80u)/2u'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v'\h'|\n(TWu'
.if \n(#a>=0 .sp -1
.if \n(#a>=0 \h'|\n(TWu'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v'
.ls
..
.ec
.nr 36 \n(.v
.vs \n(.vu-\n(.sp
\h'|0'\s\n(33\l'|\n(TWu\(ul'\s0
.vs \n(36u
.mk #a
.ta \n(80u \n(81u 
.nr 31 \n(.f
.nr 35 1m
\&\h'|\n(40u'Character\h'|\n(41u'Vertical Space Before Printing
.nr 36 \n(.v
.vs \n(.vu-\n(.sp
\h'|0'\s\n(33\l'|\n(TWu\(ul'\s0
.vs \n(36u
.ta \n(80u \n(81u 
.nr 31 \n(.f
.nr 35 1m
\&\h'|\n(40u'Blank\h'|\n(41u'One line
.ta \n(80u \n(81u 
.nr 31 \n(.f
.nr 35 1m
\&\h'|\n(40u'0\h'|\n(41u'Two lines
.ta \n(80u \n(81u 
.nr 31 \n(.f
.nr 35 1m
\&\h'|\n(40u'1\h'|\n(41u'To first line of next page
.ta \n(80u \n(81u 
.nr 31 \n(.f
.nr 35 1m
\&\h'|\n(40u'+\h'|\n(41u'No advance
.fc
.nr T. 1
.T# 1
.in \n(#Iu
.35
.nr #a 0
.TE
.if \n-(b.=0 .nr c. \n(.c-\n(d.-9
.\"	end of tbl output for vertical spacing table
.\}
.if n \{\
.nf
    +---------------+--------------------------------+
    |   Character   | Vertical Space Before Printing |
    |---------------+--------------------------------|
    |     Blank     | One line                       |
    |       0       | Two lines                      |
    |       1       | To first line of next page     |
    |       +       | No advance                     |
    +---------------+--------------------------------+
.fi
.\}

.PP
A blank line is treated as if its first
character is a blank. A blank that appears as a carriage control
character is deleted. A zero is changed to a newline.  A one is
changed to a form feed. The effects of a "+" are simulated using
backspaces.
.SH EXAMPLES
a.out | fpr | lpr
.PP
fpr < f77.output | lpr
.SH BUGS
Results are undefined for input lines longer than 170 characters.