forked from johannesgerer/jburkardt-f
-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathquote.html
150 lines (129 loc) · 3.58 KB
/
quote.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
<html>
<head>
<title>
QUOTE - Random Quotes
</title>
</head>
<body bgcolor="#EEEEEE" link="#CC0000" alink="#FF3300" vlink="#000055">
<h1 align = "center">
QUOTE <br> Random Quotes
</h1>
<hr>
<p>
<b>QUOTE</b>
is a FORTRAN90 program which
extracts and displays a random "quote" from a file.
</p>
<p>
This can be a cheerful utility to invoke at login time. It's best
used with a file of your favorite quotes, jokes, fortunes or song
lyrics. To produce a quote, the program first examines a file
containing a list of quote files. It selects one of these at random.
Then it opens the selected quote file, and chooses a block of text
at random (delimited by blank lines), and prints it.
</p>
<h3 align = "center">
Licensing:
</h3>
<p>
The computer code and data files described and made available on this web page
are distributed under
<a href = "../../txt/gnu_lgpl.txt">the GNU LGPL license.</a>
</p>
<h3 align = "center">
Source Code:
</h3>
<p>
<ul>
<li>
<a href = "quote.f90">quote.f90</a>, the source code;
</li>
<li>
<a href = "quote.sh">quote.sh</a>, a BASH script to compile the code;
</li>
</ul>
</p>
<h3 align = "center">
Quote Files:
</h3>
<p>
<ul>
<li>
<a href = "quote_files.txt">quote_files.txt</a>,
a file containing a list of the available quote files;
the QUOTE program needs to read this first!
</li>
<li>
<a href = "deep_thoughts.txt">deep_thoughts.txt</a>,
Deep Thoughts;
</li>
<li>
<a href = "music_quotes.txt">music_quotes.txt</a>,
Dave Moses's Music Lyric Quotes;
</li>
<li>
<a href = "my_quotes.txt">my_quotes.txt</a>,
John Burkardt's Quotes of Note;
</li>
<li>
<a href = "plimpton.txt">plimpton.txt</a>,
Steve Plimpton's Sandia Quotebook;
</li>
<li>
<a href = "star_trek.txt">star_trek.txt</a>,
Star Trek Quotes;
</li>
<li>
<a href = "steven_wright.txt">steven_wright.txt</a>,
Steven Wright;
</li>
</ul>
</p>
<h3 align = "center">
List of Routines:
</h3>
<p>
<ul>
<li>
<b>MAIN</b> is the main program for QUOTE.
</li>
<li>
<b>FILE_LINE_COUNT</b> counts the number of lines in a file.
</li>
<li>
<b>FILE_LINE_GET</b> gets a particular line of a file.
</li>
<li>
<b>FILE_PARA_COUNT</b> counts the number of paragraphs in a file.
</li>
<li>
<b>GET_SEED</b> returns a seed for the random number generator.
</li>
<li>
<b>GET_UNIT</b> returns a free FORTRAN unit number.
</li>
<li>
<b>I4_UNIFORM</b> returns a scaled pseudorandom I4.
</li>
<li>
<b>QUOTE_FILE_PRINT</b> prints a given quote from a quote file.
</li>
<li>
<b>TIMESTAMP</b> prints the current YMDHMS date as a time stamp.
</li>
<li>
<b>WORD_NEXT2</b> returns the first word in a string.
</li>
</ul>
</p>
<p>
You can go up one level to <a href = "../f_src.html">
the FORTRAN90 source codes</a>.
</p>
<hr>
<i>
Last revised on 15 December 2008.
</i>
<!-- John Burkardt -->
</body>
</html>