Context Navigation

← Previous Revision
Next Revision →
Blame
Revision Log

compare.f90

Last change on this file was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.

Property copyright set to
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

File size: 24.6 KB

Line
1	module compare_m
2
3	use prt_cmp_m, only: prt_cmp
4	use avg_mag_m, only: avg_mag
5
6	implicit none
7
8	interface compare
9	! Makes a numerical comparison between two arrays of rank 1 to 4,
10	! of types real or double precision.
11	module procedure compare1, compare1_dble, compare2, compare2_dble, &
12	compare3, compare3_dble, compare4, compare4_dble
13	end interface
14
15	character(len=*), parameter:: dashes &
16	= "---------------------------------------------"
17
18	private
19	public compare
20
21	contains
22
23	subroutine compare1(data_old, data_new, tag, comp_mag, report_id, quiet)
24
25	! Rank 1, real
26
27	use nr_util, only: assert_eq
28
29	real, intent(in):: data_old(:), data_new(:)
30	character(len=*), intent(in):: tag
31	logical, intent(in):: comp_mag
32	logical, intent(in):: report_id ! report identical variables
33	logical, intent(in):: quiet
34
35	! Variables local to the subprogram:
36
37	logical zero(size(data_old))
38
39	real rel_diff(size(data_old))
40	! (absolute value of relative difference)
41
42	real abs_diff(size(data_old))
43	! (absolute value of absolute difference)
44
45	integer data_size
46	integer location(1)
47	character(len=len(dashes)+len(tag)+20) tag_fmt
48
49	!------------------------------------------------------
50
51	data_size = assert_eq(size(data_old), size(data_new), &
52	"compare1: sizes differ -- " // tag)
53	if (quiet) then
54	tag_fmt = '(a, ":")'
55	else
56	tag_fmt = '(/, "' // dashes // '", /, a, ":")'
57	end if
58
59	if (data_size == 0) then
60	print tag_fmt, tag
61	print *, "Zero-sized array"
62	else
63	if (all(data_old == data_new)) then
64	if (report_id) then
65	write(unit=*, fmt=tag_fmt, advance="no") tag
66	print *, "arrays are identical."
67	end if
68	else
69	if (quiet) then
70	write(unit=*, fmt=tag_fmt, advance="no") tag
71	print *, "arrays are different."
72	else
73	zero = data_old == 0. .or. data_new == 0.
74	where (.not. zero) rel_diff = abs(data_new / data_old - 1.)
75	abs_diff = abs(data_new - data_old)
76
77	print tag_fmt, tag
78
79	if (comp_mag) then
80	print *
81	print '("Average value of log10(abs(data_old)): ", 1pg8.1)', &
82	avg_mag(data_old)
83	end if
84
85	if (any(.not. zero)) then
86	print *
87	print *, 'Relative difference for non-zero values:'
88	location = maxloc(rel_diff, mask=.not. zero)
89	call prt_cmp(data_old(location(1)), data_new(location(1)), &
90	rel_diff(location(1)), location)
91	end if
92
93	if (any(zero)) then
94	print *
95	print *, 'Absolute difference when there is a zero:'
96	location = maxloc(abs_diff, mask=zero)
97	call prt_cmp(data_old(location(1)), data_new(location(1)), &
98	abs_diff(location(1)), location)
99	end if
100
101	print *
102	print *, 'Absolute difference:'
103	location = maxloc(abs_diff)
104	call prt_cmp(data_old(location(1)), data_new(location(1)), &
105	abs_diff(location(1)), location)
106	end if
107	end if
108	end if
109
110	end subroutine compare1
111
112	!***********************************************************
113
114	subroutine compare1_dble(data_old, data_new, tag, comp_mag, report_id, quiet)
115
116	! Rank 1, double precision
117
118	use nr_util, only: assert_eq
119
120	double precision, intent(in):: data_old(:), data_new(:)
121	character(len=*), intent(in):: tag
122	logical, intent(in):: comp_mag
123	logical, intent(in):: report_id ! report identical variables
124	logical, intent(in):: quiet
125
126	! Variables local to the subprogram:
127
128	logical zero(size(data_old))
129
130	double precision rel_diff(size(data_old))
131	! (absolute value of relative difference)
132
133	double precision abs_diff(size(data_old))
134	! (absolute value of absolute difference)
135
136	integer data_size
137	integer location(1)
138	character(len=len(dashes)+len(tag)+20) tag_fmt
139
140	!------------------------------------------------------
141
142	data_size = assert_eq(size(data_old), size(data_new), &
143	"compare1_dble: sizes differ -- " // tag)
144	if (quiet) then
145	tag_fmt = '(a, ":")'
146	else
147	tag_fmt = '(/, "' // dashes // '", /, a, ":")'
148	end if
149
150	if (data_size == 0) then
151	print tag_fmt, tag
152	print *, "Zero-sized array"
153	else
154	if (all(data_old == data_new)) then
155	if (report_id) then
156	write(unit=*, fmt=tag_fmt, advance="no") tag
157	print *, "arrays are identical."
158	end if
159	else
160	if (quiet) then
161	write(unit=*, fmt=tag_fmt, advance="no") tag
162	print *, "arrays are different."
163	else
164	zero = data_old == 0d0 .or. data_new == 0d0
165	where (.not. zero) rel_diff = abs(data_new / data_old - 1d0)
166	abs_diff = abs(data_new - data_old)
167
168	print tag_fmt, tag
169
170	if (comp_mag) then
171	print *
172	print '("Average value of log10(abs(data_old)): ", 1pg8.1)', &
173	avg_mag(data_old)
174	end if
175
176	if (any(.not. zero)) then
177	print *
178	print *, 'Relative difference for non-zero values:'
179	location = maxloc(rel_diff, mask=.not. zero)
180	call prt_cmp(data_old(location(1)), data_new(location(1)), &
181	rel_diff(location(1)), location)
182	end if
183
184	if (any(zero)) then
185	print *
186	print *, 'Absolute difference when there is a zero:'
187	location = maxloc(abs_diff, mask=zero)
188	call prt_cmp(data_old(location(1)), data_new(location(1)), &
189	abs_diff(location(1)), location)
190	end if
191
192	print *
193	print *, 'Absolute difference:'
194	location = maxloc(abs_diff)
195	call prt_cmp(data_old(location(1)), data_new(location(1)), &
196	abs_diff(location(1)), location)
197	end if
198	end if
199	end if
200
201	end subroutine compare1_dble
202
203	!***********************************************************
204
205	subroutine compare2(data_old, data_new, tag, comp_mag, report_id, quiet)
206
207	! Rank 2, real
208
209	use nr_util, only: assert
210	use point_m, only: point
211
212	real, intent(in):: data_old(:,:), data_new(:,:)
213	character(len=*), intent(in):: tag
214	logical, intent(in):: comp_mag
215	logical, intent(in):: report_id ! report identical variables
216	logical, intent(in):: quiet
217
218	! Variables local to the subprogram:
219
220	logical zero(size(data_old,1), size(data_old,2))
221
222	real rel_diff(size(data_old,1), size(data_old,2))
223	! (absolute value of relative difference)
224
225	real abs_diff(size(data_old,1), size(data_old,2))
226	! (absolute value of absolute difference)
227
228	integer location(2)
229	character(len=len(dashes)+len(tag)+20) tag_fmt
230
231	!------------------------------------------------------
232
233	call assert(shape(data_old) == shape(data_new), &
234	"compare2: shapes differ -- " // tag)
235	if (quiet) then
236	tag_fmt = '(a, ":")'
237	else
238	tag_fmt = '(/, "' // dashes // '", /, a, ":")'
239	end if
240
241	if (size(data_old) == 0) then
242	print tag_fmt, tag
243	print *, "Zero-sized array"
244	else
245	if (all(data_old == data_new)) then
246	if (report_id) then
247	write(unit=*, fmt=tag_fmt, advance="no") tag
248	print *, "arrays are identical."
249	end if
250	else
251	if (quiet) then
252	write(unit=*, fmt=tag_fmt, advance="no") tag
253	print *, "arrays are different."
254	else
255	zero = data_old == 0. .or. data_new == 0.
256	where (.not. zero) rel_diff = abs(data_new / data_old - 1.)
257	abs_diff = abs(data_new - data_old)
258
259	print tag_fmt, tag
260
261	if (comp_mag) then
262	print *
263	print '("Average value of log10(abs(data_old)): ", 1pg8.1)', &
264	avg_mag(data_old)
265	end if
266
267	if (any(.not. zero)) then
268	print *
269	print *, 'Relative difference for non-zero values:'
270	location = maxloc(rel_diff, mask=.not. zero)
271	call prt_cmp(point(data_old, location), &
272	point(data_new, location), point(rel_diff, location), &
273	location)
274	end if
275
276	if (any(zero)) then
277	print *
278	print *, 'Absolute difference when there is a zero:'
279	location = maxloc(abs_diff, mask=zero)
280	call prt_cmp(point(data_old, location), &
281	point(data_new, location), point(abs_diff, location), &
282	location)
283	end if
284
285	print *
286	print *, 'Absolute difference:'
287	location = maxloc(abs_diff)
288	call prt_cmp(point(data_old, location), &
289	point(data_new, location), point(abs_diff, location), &
290	location)
291	end if
292	end if
293	end if
294
295	end subroutine compare2
296
297	!***********************************************************
298
299	subroutine compare2_dble(data_old, data_new, tag, comp_mag, report_id, quiet)
300
301	! Rank 2, double precision
302
303	use nr_util, only: assert
304	use point_m, only: point
305
306	double precision, intent(in):: data_old(:,:), data_new(:,:)
307	character(len=*), intent(in):: tag
308	logical, intent(in):: comp_mag
309	logical, intent(in):: report_id ! report identical variables
310	logical, intent(in):: quiet
311
312	! Variables local to the subprogram:
313
314	logical zero(size(data_old,1), size(data_old,2))
315
316	double precision rel_diff(size(data_old,1), size(data_old,2))
317	! (absolute value of relative difference)
318
319	double precision abs_diff(size(data_old,1), size(data_old,2))
320	! (absolute value of absolute difference)
321
322	integer location(2)
323	character(len=len(dashes)+len(tag)+20) tag_fmt
324
325	!------------------------------------------------------
326
327	call assert(shape(data_old) == shape(data_new), &
328	"compare2_dble: shapes differ -- " // tag)
329	if (quiet) then
330	tag_fmt = '(a, ":")'
331	else
332	tag_fmt = '(/, "' // dashes // '", /, a, ":")'
333	end if
334
335	if (size(data_old) == 0) then
336	print tag_fmt, tag
337	print *, "Zero-sized array"
338	else
339	if (all(data_old == data_new)) then
340	if (report_id) then
341	write(unit=*, fmt=tag_fmt, advance="no") tag
342	print *, "arrays are identical."
343	end if
344	else
345	if (quiet) then
346	write(unit=*, fmt=tag_fmt, advance="no") tag
347	print *, "arrays are different."
348	else
349	zero = data_old == 0d0 .or. data_new == 0d0
350	where (.not. zero) rel_diff = abs(data_new / data_old - 1d0)
351	abs_diff = abs(data_new - data_old)
352
353	print tag_fmt, tag
354
355	if (comp_mag) then
356	print *
357	print '("Average value of log10(abs(data_old)): ", 1pg8.1)', &
358	avg_mag(data_old)
359	end if
360
361	if (any(.not. zero)) then
362	print *
363	print *, 'Relative difference for non-zero values:'
364	location = maxloc(rel_diff, mask=.not. zero)
365	call prt_cmp(point(data_old, location), &
366	point(data_new, location), point(rel_diff, location), &
367	location)
368	end if
369
370	if (any(zero)) then
371	print *
372	print *, 'Absolute difference when there is a zero:'
373	location = maxloc(abs_diff, mask=zero)
374	call prt_cmp(point(data_old, location), &
375	point(data_new, location), point(abs_diff, location), &
376	location)
377	end if
378
379	print *
380	print *, 'Absolute difference:'
381	location = maxloc(abs_diff)
382	call prt_cmp(point(data_old, location), &
383	point(data_new, location), point(abs_diff, location), &
384	location)
385	end if
386	end if
387	end if
388
389	end subroutine compare2_dble
390
391	!***********************************************************
392
393	subroutine compare3(data_old, data_new, tag, comp_mag, report_id, quiet)
394
395	! Rank 3, real
396
397	use nr_util, only: assert
398	use point_m, only: point
399
400	real, intent(in):: data_old(:, :, :), data_new(:, : ,:)
401	character(len=*), intent(in):: tag
402	logical, intent(in):: comp_mag
403	logical, intent(in):: report_id ! report identical variables
404	logical, intent(in):: quiet
405
406	! Variables local to the subprogram:
407
408	logical zero(size(data_old,1), size(data_old,2), size(data_old,3))
409
410	real rel_diff(size(data_old,1), size(data_old,2), size(data_old,3))
411	! (absolute value of relative difference)
412
413	real abs_diff(size(data_old,1), size(data_old,2), size(data_old,3))
414	! (absolute value of absolute difference)
415
416	integer location(3)
417	character(len=len(dashes)+len(tag)+20) tag_fmt
418
419	!------------------------------------------------------
420
421	call assert(shape(data_old) == shape(data_new), &
422	"compare3: shapes differ -- " // tag)
423	if (quiet) then
424	tag_fmt = '(a, ":")'
425	else
426	tag_fmt = '(/, "' // dashes // '", /, a, ":")'
427	end if
428
429	if (size(data_old) == 0) then
430	print tag_fmt, tag
431	print *, "Zero-sized array"
432	else
433	if (all(data_old == data_new)) then
434	if (report_id) then
435	write(unit=*, fmt=tag_fmt, advance="no") tag
436	print *, "arrays are identical."
437	end if
438	else
439	if (quiet) then
440	write(unit=*, fmt=tag_fmt, advance="no") tag
441	print *, "arrays are different."
442	else
443	zero = data_old == 0. .or. data_new == 0.
444	where (.not. zero) rel_diff = abs(data_new / data_old - 1.)
445	abs_diff = abs(data_new - data_old)
446
447	print tag_fmt, tag
448
449	if (comp_mag) then
450	print *
451	print '("Average value of log10(abs(data_old)): ", 1pg8.1)', &
452	avg_mag(data_old)
453	end if
454
455	if (any(.not. zero)) then
456	print *
457	print *, 'Relative difference for non-zero values:'
458	location = maxloc(rel_diff, mask=.not. zero)
459	call prt_cmp(point(data_old, location), &
460	point(data_new, location), point(rel_diff, location), &
461	location)
462	end if
463
464	if (any(zero)) then
465	print *
466	print *, 'Absolute difference when there is a zero:'
467	location = maxloc(abs_diff, mask=zero)
468	call prt_cmp(point(data_old, location), &
469	point(data_new, location), point(abs_diff, location), &
470	location)
471	end if
472
473	print *
474	print *, 'Absolute difference:'
475	location = maxloc(abs_diff)
476	call prt_cmp(point(data_old, location), &
477	point(data_new, location), point(abs_diff, location), &
478	location)
479	end if
480	end if
481	end if
482
483	end subroutine compare3
484
485	!***********************************************************
486
487	subroutine compare3_dble(data_old, data_new, tag, comp_mag, report_id, quiet)
488
489	! Rank 3, double precision
490
491	use nr_util, only: assert
492	use point_m, only: point
493
494	double precision, intent(in):: data_old(:, :, :), data_new(:, : ,:)
495	character(len=*), intent(in):: tag
496	logical, intent(in):: comp_mag
497	logical, intent(in):: report_id ! report identical variables
498	logical, intent(in):: quiet
499
500	! Variables local to the subprogram:
501
502	logical zero(size(data_old,1), size(data_old,2), size(data_old,3))
503
504	double precision rel_diff(size(data_old,1), size(data_old,2), &
505	size(data_old,3))
506	! (absolute value of relative difference)
507
508	double precision abs_diff(size(data_old,1), size(data_old,2), &
509	size(data_old,3))
510	! (absolute value of absolute difference)
511
512	integer location(3)
513	character(len=len(dashes)+len(tag)+20) tag_fmt
514
515	!------------------------------------------------------
516
517	call assert(shape(data_old) == shape(data_new), &
518	"compare3_dble: shapes differ -- " // tag)
519	if (quiet) then
520	tag_fmt = '(a, ":")'
521	else
522	tag_fmt = '(/, "' // dashes // '", /, a, ":")'
523	end if
524
525	if (size(data_old) == 0) then
526	print tag_fmt, tag
527	print *, "Zero-sized array"
528	else
529	if (all(data_old == data_new)) then
530	if (report_id) then
531	write(unit=*, fmt=tag_fmt, advance="no") tag
532	print *, "arrays are identical."
533	end if
534	else
535	if (quiet) then
536	write(unit=*, fmt=tag_fmt, advance="no") tag
537	print *, "arrays are different."
538	else
539	zero = data_old == 0. .or. data_new == 0.
540	where (.not. zero) rel_diff = abs(data_new / data_old - 1.)
541	abs_diff = abs(data_new - data_old)
542
543	print tag_fmt, tag
544
545	if (comp_mag) then
546	print *
547	print '("Average value of log10(abs(data_old)): ", 1pg8.1)', &
548	avg_mag(data_old)
549	end if
550
551	if (any(.not. zero)) then
552	print *
553	print *, 'Relative difference for non-zero values:'
554	location = maxloc(rel_diff, mask=.not. zero)
555	call prt_cmp(point(data_old, location), &
556	point(data_new, location), point(rel_diff, location), &
557	location)
558	end if
559
560	if (any(zero)) then
561	print *
562	print *, 'Absolute difference when there is a zero:'
563	location = maxloc(abs_diff, mask=zero)
564	call prt_cmp(point(data_old, location), &
565	point(data_new, location), point(abs_diff, location), &
566	location)
567	end if
568
569	print *
570	print *, 'Absolute difference:'
571	location = maxloc(abs_diff)
572	call prt_cmp(point(data_old, location), &
573	point(data_new, location), point(abs_diff, location), &
574	location)
575	end if
576	end if
577	end if
578
579	end subroutine compare3_dble
580
581	!***********************************************************
582
583	subroutine compare4(data_old, data_new, tag, comp_mag, report_id, quiet)
584
585	! Rank 4, real
586
587	use nr_util, only: assert
588	use point_m, only: point
589
590	real, intent(in):: data_old(:, :, :, :), data_new(:, : ,:, :)
591	character(len=*), intent(in):: tag
592	logical, intent(in):: comp_mag
593	logical, intent(in):: report_id ! report identical variables
594	logical, intent(in):: quiet
595
596	! Variables local to the subprogram:
597
598	logical zero(size(data_old,1), size(data_old,2), size(data_old,3), &
599	size(data_old,4))
600
601	real rel_diff(size(data_old,1), size(data_old,2), size(data_old,3), &
602	size(data_old,4))
603	! (absolute value of relative difference)
604
605	real abs_diff(size(data_old,1), size(data_old,2), size(data_old,3), &
606	size(data_old,4))
607	! (absolute value of absolute difference)
608
609	integer location(4)
610	character(len=len(dashes)+len(tag)+20) tag_fmt
611
612	!------------------------------------------------------
613
614	call assert(shape(data_old) == shape(data_new), &
615	"compare4: shapes differ -- " // tag)
616	if (quiet) then
617	tag_fmt = '(a, ":")'
618	else
619	tag_fmt = '(/, "' // dashes // '", /, a, ":")'
620	end if
621
622	if (size(data_old) == 0) then
623	print tag_fmt, tag
624	print *, "Zero-sized array"
625	else
626	if (all(data_old == data_new)) then
627	if (report_id) then
628	write(unit=*, fmt=tag_fmt, advance="no") tag
629	print *, "arrays are identical."
630	end if
631	else
632	if (quiet) then
633	write(unit=*, fmt=tag_fmt, advance="no") tag
634	print *, "arrays are different."
635	else
636	zero = data_old == 0. .or. data_new == 0.
637	where (.not. zero) rel_diff = abs(data_new / data_old - 1.)
638	abs_diff = abs(data_new - data_old)
639
640	print tag_fmt, tag
641
642	if (comp_mag) then
643	print *
644	print '("Average value of log10(abs(data_old)): ", 1pg8.1)', &
645	avg_mag(data_old)
646	end if
647
648	if (any(.not. zero)) then
649	print *
650	print *, 'Relative difference for non-zero values:'
651	location = maxloc(rel_diff, mask=.not. zero)
652	call prt_cmp(point(data_old, location), &
653	point(data_new, location), point(rel_diff, location), &
654	location)
655	end if
656
657	if (any(zero)) then
658	print *
659	print *, 'Absolute difference when there is a zero:'
660	location = maxloc(abs_diff, mask=zero)
661	call prt_cmp(point(data_old, location), &
662	point(data_new, location), point(abs_diff, location), &
663	location)
664	end if
665
666	print *
667	print *, 'Absolute difference:'
668	location = maxloc(abs_diff)
669	call prt_cmp(point(data_old, location), &
670	point(data_new, location), point(abs_diff, location), &
671	location)
672	end if
673	end if
674	end if
675
676	end subroutine compare4
677
678	!***********************************************************
679
680	subroutine compare4_dble(data_old, data_new, tag, comp_mag, report_id, quiet)
681
682	! Rank 4, double precision
683
684	use nr_util, only: assert
685	use point_m, only: point
686
687	double precision, intent(in):: data_old(:, :, :, :), data_new(:, : ,:, :)
688	character(len=*), intent(in):: tag
689	logical, intent(in):: comp_mag
690	logical, intent(in):: report_id ! report identical variables
691	logical, intent(in):: quiet
692
693	! Variables local to the subprogram:
694
695	logical zero(size(data_old,1), size(data_old,2), size(data_old,3), &
696	size(data_old,4))
697
698	double precision rel_diff(size(data_old,1), size(data_old,2), &
699	size(data_old,3), size(data_old,4))
700	! (absolute value of relative difference)
701
702	double precision abs_diff(size(data_old,1), size(data_old,2), &
703	size(data_old,3), size(data_old,4))
704	! (absolute value of absolute difference)
705
706	integer location(4)
707	character(len=len(dashes)+len(tag)+20) tag_fmt
708
709	!------------------------------------------------------
710
711	call assert(shape(data_old) == shape(data_new), &
712	"compare4_dble: shapes differ -- " // tag)
713	if (quiet) then
714	tag_fmt = '(a, ":")'
715	else
716	tag_fmt = '(/, "' // dashes // '", /, a, ":")'
717	end if
718
719	if (size(data_old) == 0) then
720	print tag_fmt, tag
721	print *, "Zero-sized array"
722	else
723	if (all(data_old == data_new)) then
724	if (report_id) then
725	write(unit=*, fmt=tag_fmt, advance="no") tag
726	print *, "arrays are identical."
727	end if
728	else
729	if (quiet) then
730	write(unit=*, fmt=tag_fmt, advance="no") tag
731	print *, "arrays are different."
732	else
733	zero = data_old == 0. .or. data_new == 0.
734	where (.not. zero) rel_diff = abs(data_new / data_old - 1.)
735	abs_diff = abs(data_new - data_old)
736
737	print tag_fmt, tag
738
739	if (comp_mag) then
740	print *
741	print '("Average value of log10(abs(data_old)): ", 1pg8.1)', &
742	avg_mag(data_old)
743	end if
744
745	if (any(.not. zero)) then
746	print *
747	print *, 'Relative difference for non-zero values:'
748	location = maxloc(rel_diff, mask=.not. zero)
749	call prt_cmp(point(data_old, location), &
750	point(data_new, location), point(rel_diff, location), &
751	location)
752	end if
753
754	if (any(zero)) then
755	print *
756	print *, 'Absolute difference when there is a zero:'
757	location = maxloc(abs_diff, mask=zero)
758	call prt_cmp(point(data_old, location), &
759	point(data_new, location), point(abs_diff, location), &
760	location)
761	end if
762
763	print *
764	print *, 'Absolute difference:'
765	location = maxloc(abs_diff)
766	call prt_cmp(point(data_old, location), &
767	point(data_new, location), point(abs_diff, location), &
768	location)
769	end if
770	end if
771	end if
772
773	end subroutine compare4_dble
774
775	end module compare_m

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format