Additional information for “PETFAB”

Additional information for “PETFAB”

Letters to the Editor 414 Source Llsttn~ of OXeN SUBROUTINE OXAN (CARD,RFNO,RKNO,WPT) CHARACTER CARD*80, IFWP*6, IFRK*4,1FRF*q INTEGER RFNO,RKNO, I...

29KB Sizes 2 Downloads 139 Views

Letters to the Editor

414

Source Llsttn~ of OXeN SUBROUTINE OXAN (CARD,RFNO,RKNO,WPT)

CHARACTER CARD*80, IFWP*6, IFRK*4,1FRF*q INTEGER RFNO,RKNO, I,J,K REAL WPT(1) DATA IFWP/'(F~.2)'/, IFRK/'{IS)'/,IFRF/'(I2)'/ 10

J11 I-O II," 1 K- J+ 3 READ (CkRD(J:K),IFWP) NPT(I) J - K* 1 I F ( £ . L T . 1 4 ) GO TO 10 READ (CARD(8.'9),ZFRF) RFNO READ (CARD(73:76),IFRK) RKNO RETURN END

Chairman of Working Group C Department of Geology Parkville, Victoria 3052 Australia

ROGERLR MAITRE

ADDITIONAL I N F O R M A T I O N FOR "PETFAB" Griffis, R. A., Gustafson, S. J., and Adams, H. G., 1985, Computers Geosciences, v. 11, no. 4, p. 369--408. I would like to suggest that a particularly appropriate reference is missing from the paper by Griffis, R.A., Gustafson, S.J. and Adams, H.G., 1 9 8 5 (PETFAB: User-considerate FORTRAN 77 program for the generation and statistical evaluation of fabric diagrams, Computers & Geosciences v. I I, no. 4, p. 369--408); namely a reference to the paper by Starkey, J.,

1970, A computer programme to prepare orientation diagrams, in Experimental and natural rock deformation, edited by Paulitsch, P. Springer-Verlag, Berlin, p. 51-74.

Department of Geology University of Western Ontario London. Canada N6A 587

JOHN STARKEY