SUBROUTINE AXES(X,Y,IBCO,NC,AXLEN,ANG,DELTIC,FIRSTV,DELVAL,NOEC) 

 C MODIFIED CALCOMP AXIS SUBROUTINE— RANKIN, NOV. 1971 



C X,Y COORDINATES OF STARTING POINT OF AXIS IN INCHES 



C IBCD AXIS TITLE 



C NC NUMBER OF CHARACTERS IN TITLE 



C IF NC IS(-), HEADING AND TICKS ARE BELOW THE AXIS 

 C AXLEN FLOATING POINT AXIS LENGTH IN INCHES 



C ANG ■ ANGLE OF AXIS FROM HORIZONTAL IN DEGREES 



C DELTIC DISTANCE BETWEEN TIC MARKS IN INCHES 



C FIRSTV SCALE VALUE AT FIRST TIC MARK 



C DELVAL SCALE INCREMENT 



C NDEC NUMBER OF DECIMAL PLACES OF TIC ANNOTATION PLOTTED (PUNCH 



C -1 IF ONLY INTEGER(NO DECIMAL POINT) IS DESIRED) 



C -2 IF NO ANNOTATION DESIRED IE. ONLY TICKS 



DIMENSION IBCD(IO) 



A=1.0 



KN=NC 



IF(NC)1,2,2 



1 A=-A 

 KN=-NC 



2 XVAL=FIRSTV 

 STH=ANG*0. 0174533 

 CTH=COS(STH) 

 STH=SIN(STH) 

 DXB=-0.1 

 DYB=0.15*A-0.05 

 XN=X+DXB*CTH-DYB*STH 

 YN=Y+DYB*CTH+DXB*STH 

 NTIC=AXLEN/DELTIC+1.0 

 NT=NTIC/2 



DO 10 I=1,NTIC 



IF(NDEC.EQ.-2) 60 TO 12 

 C CHANGED NUMBER HEIGHT FROM .105 TO .15 



CALL NUMBER(XN,YN,0.15,XVAL,ANG,NDEC) 

 12 XVAL=XVAL+OELVAL 



XN=XN+CTH*DELTIC 



YN=YN+STH*DELTIC 



IF(NT)10,11,10 

 11 Z=KN 



0XB=-0.07*Z+AXLEN*0.5 



DYB=0.325*A-0.075 



XT=X+OXB*CTH-DYB*STH 



YT=Y+DYB*CTH+DXB*STH 

 C CHANGED HEIGHT FROM .14 TO .18 



CALL SYMBOL (XT, YT,0. 18, IBCD(l), ANG, KN) 

 10 NT=NT-1 



CALL PL0T(X+AXLEN*CTH,Y+AXLEN*STH,3) 



IF(NDEC.EQ.-2) GO TO 14 



DXB=-0.07*A*STH 



DYB=0.07*A*CTH 



GO TO 13 

 14 DXB=-0.05*A*STH 



0YB=0.05*A*CTH 



169 



