TWO FORTRAN II PROGRAMS FOR ANALYSIS OF MORPHOMETRY DATA 39 



Listing of FORTRAN II Statements in VPLOT 



C VARIABLE PLOTTING PROGRAM 



C THOMAS R. WALLER, DEPT. OF PALEOBIOLOGY, SMITHSONIAN INSTITUTION 



C FEBRUARY 6, 1967 



C 



C 



C VPLOT (MAIN ROUTINE) 



c 



c 



DIMENSION X(99,100),A(99),B(99),TAG(lOO),n)YVAR(20) , IDXVAR(lO),XA(VMAIN 1 



15),ya(5),fmt(6o),aname(i5),lalcol(6o),lencol(6o) 



read input tape 5,37,nvar,ntag 



read input tape 5,32, (tag(j), j=1,ntag) 



1 read input tape 5,32,aname 



IF (ANAME(i)-(+6HFINISH))2,40,2 



2 II = 



READ INPUT TAPE 5,37,NS 



MIN = NS + 1 



NS2 = NS + 2 



NS3 = NS + 3 



K = 



READ INPUT TAPE 5,37,NGROUP 



3 READ INPUT TAPE 5,31,IDYVAR,IDXVAR,NY,NX,NODATA 

 IF (N0DATA)30,4,24 



k READ INPUT TAPE 5,^7,NFMT 

 KK = 12 * NFMT 



READ INPUT TAPE 5,32, (FMT(l), 1=1, KK) 

 READ INPUT TAPE 5,FMT, ( (X(l, j) , J=1,NVAR), 1=1, NS2) 

 READ INPUT TAPE 5,37,LALTER,LENTER 



IF (LALTER)30,6,5 



5 READ INPUT TAPE 5,39, (LALCOL(j), J=1,LALTER) 



6 IF (LENTER)30,4l,7 



7 READ INPUT TAPE 5,39, (LENCOL(j), J=1,LENTER) 



NVAR1 = NVAR + 1 



NVAR2 = NVAR + LENTER 

 »+l IF (LALTER + LENTER)30,8,^5 

 1^5 READ INPUT TAPE 5,U2, (X(NS3, J), J=l, NVAR) 



IF (LALTER)30,l8,13 



13 DO k-3 JL=1, LALTER 

 J = LALCOL(JL) 



DO 16 1=1, NS2 



IF (X(I,J))30,15A 1 + 



14 X(I,J) = L0G10F(X(I,J)) 

 GO TO 16 



15 X(I,J) = X(NS3,J) 



16 CONTINUE 

 43 CONTINUE 



