.\" Copyright (c) 1989 The Regents of the University of California.
.\" All rights reserved.
.\"
.\" This code is derived from software contributed to Berkeley by
.\" Robert Corbett.
.\"
.\" Redistribution and use in source and binary forms are permitted
.\" provided that the above copyright notice and this paragraph are
.\" duplicated in all such forms and that any documentation,
.\" advertising materials, and other materials related to such
.\" distribution and use acknowledge that the software was developed
.\" by the University of California, Berkeley.  The name of the
.\" University may not be used to endorse or promote products derived
.\" from this software without specific prior written permission.
.\" THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
.\" IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
.\" WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
.\"
.\"	@(#)fpr.1	6.4 (Berkeley) 06/11/90
.\"
.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.