1.6.056_Plot_Subroutine_for_FORTRAN_with_Format 1.6.056 Plot Subroutine For FORTRAN With Format
1.6.056_Plot_Subroutine_for_FORTRAN_with_Format 1.6.056_Plot_Subroutine_for_FORTRAN_with_Format
User Manual: 1.6.056_Plot_Subroutine_for_FORTRAN_with_Format
Open the PDF directly: View PDF 
.
Page Count: 12
| Download | |
| Open PDF In Browser | View PDF |
W 1620 GENERAL PROGRAM LIBRARY Plot Subroutine for FOR'IRA N with Format 1. 6. 056 --- - ,.I n 1 ************ ~. *********** * IBft * * * * * * * * * * * *~~ * * * * * * * * * * * ************* ************* ************* ************* "")wc-J~ *~)****~)****'** .. o r" DISCLAIMER ~ Although each" program has been tested by its contributor, no warranty, express or implied, is made by the contributor or 1620 USERS Group, as to the accuracy and functioning of the program and related program material, nor shall the fact of distribution constitute any such warranty, and no responsibility is assumed by the contributor or 1620 USERS Group, in connection therewith. 0 Modifications or revisions to this program, as they occur, will be announced in the appropriate Catalog of Programs for IBM Data Processing Systems. When such an announcement occurs, users should order a complete new program from the Program Information Department. o " 1620 USERS GROUP Pl\OORAM REVIEW AND EVALUATION (fill out in typewriter or pencil,' do not use ink) ______________ Program NOe _ _ _ _ _ _ __ " c, Da~ Pro qr am Name:_'__----------------------------___________________________ 1., Does the abstract adequately describe what the program is and what it does? ,Comment~ 0 ______________________________________ ' ~---- - 2. Does the program do what the abstract says? Comment Yes_ No 3. Is the Description clear, understandable, and adequate? Comment' Yes 4. Are'the Operating Instructions understandable and in sufficient detail? Comment Are the Sense Switch options adequately described (if applicable)? Are the mnemonic labels identified or sufficiently understandable? Comment Yes_ No 5. Does the source program compile satisfactorily (if applicable)? Comment Yes_ No 6. Pees the object program run satisfactorily? Comment Yes_ No_ 7. Number of test cases run • Are any restrictions as to data, Size, range, etc. covered adequately in description? Comment Yes_ No_'_ 8. - No - Yes No Yes_ No- - Does the Program Meet the minimal standards of the 1620 Users Group? Comment --------------~------------------------------ 9. Were all necessary parts of the program received? Comment ---------------------------------------------- 10. Please list on the back any suggestions to improve the usefulness of the program. These will be passed onto the author for his consideration. Please return to: o Mr. Richard 1.. Pratt Data Corporation 7500 Old Xenia Pike ) Dayton, Ohio 45432 Your Name Company Address User Group Code______________ THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE 1N THIS EVALUATION. 11/09/64 II o o o o ~ Plot Subroutine for FORTRAN W/Format DECK KEY John H. Reynolds Sprague Electric Company Marshall Street North Adams, Massachusetts 1. Source Deck 2. Sample Problem Deck (Formerly Worcester Polytechnic Institute) August 31, 1962 Direct Inquiries to: Kurt V. Schoeni Senior Mathematician, Sprague Electric Company Marshall Street North Adams, Massachusetts -0- . l6Z0 USERS Group Library Program Abstract TABIB OF COltTDJ.'S Page Abstract o Description of Program 1-2 Operating Instructions 2 Plot Subroutine for FORTRAJf "With Format Title (If subroutine state in Title) - Subject Classification Author; Organization: John H. Reynolds Plot Subroutine 3-4 Sample Problem 5-6 Program Listing 7-8 Core Layout 9 Adding the Subroutine to the System Po~echnic 1.6 SPrague Electric CODIDan.V,· formallY Institute Direct Inquires to: Name lOlrt V. Schoeni 2 Senior Mathematician YB~sha]] St~et, BQ~ Adama. MB&fi~ug~~t§ Addre ssSprague Electric Co. Phone EXtension ~ Purpose/Description: This subroutine produces output on the on line typewriter rapidl.v and in gra,1Jhical form. UD to 0.7'1>. It 1Jlots UD to six functions with an accuracy 9 Mathematical Method: B A. Restrictions, Range: First two statements of soUrce pro~ are apecified. ~ function IIIIlSt be normalized so that· its rarure is "Within. the .number o.f_sD&ces available on the typewriter. Begative numbers are aCCepted but are notlllotted. Storage Requirements: R1? lliritR Equipment Specifications: Memory ZOK l 40K __ 60K __ K __ Automatic Divide: Yes __ No X Indirect Addressing: Yes __ No --X.... Other Special Features Required_ Additional Remarks (Include at author's- descretion: Language; Fixed/Float. Relocatability) (Optional: Running time; Approximate numbers of times run successfully; Programming Hours) T ....nD"lIA .... • SPS (Card) FloatlIu!: Point Relocatable RurininP.: Time· AD1Jraximate~v 2/3 the time reauired for a similar FORTRAN print statement. o c) c o o o -2- -1- Description of Program 'lhe plot subroutine will plot up to six functions of a single independent variable on the on-line typewriter. Tbe independent variable must be challged -by constant increments. 'lhe function must be n0I'lll&1ized so that its range does not exceed the number of spaces in the plot 'lhis places an upper limit of 86. on the normalized function. The function ~ be any negative number. -BUt ~- in this case it will not be plotted. area. Tbe subroutine is called by a statement in the FORTRAJf source program which has the form: The format statement defines the symbols to be plotted. They alphanumeric symbols except the period and close parenthesis. 'lhe be changed after the object program is loaded by using this format input statement. However, this must be done before the first plot is executed. msy be any symbols may in an statement Operating Instructions Tab stops must be set every ten spaces to the :z:oight of the margin of the plot area. Y = PLT(X) 'lhe argument, X, may be anyfioating point constant, variable, or expression. 'lhe subroutine rounds off the argument to its integral value. The symbol associated with this statement is typed If spaces to the right of margin of the plot area. 1f is the rounded off value of the argument. Tbe symbol is chosen by the progranrner. Y is also set equal to X. Several functions may be plotted by the use of multiple plot statements. Each statement is independent of the others. 'lhey may be placed aDYWhere in the program and need not be consecutive. 'lhe arguments do not need to be ordered. Tbe subroutine will round off the argument and store it. If there are further :f'unctions to be plotted, it will return to the next statement. If there are no further functions, the subroutine will plot the entire group in one continuous operation. 'lhe subroutine does not produce a carriage return. Therefore, the last plot statement must be preceeded by a pri:&t -statement. The format of the print statement must produce blank spaces to the right of any numerical output. If no numerical output is required, a statement of the form: FRDIT X, will cause a carriage return. 'lhe first two statements in the source program have the .form: --I n1 M = j ~ where n 1 and n FORMAT(jBS 1S2S ···S j ) 3 are statement numbers. M is a fixed point variable which is 2 set equal to the number of function to be plotted. M may be modified later in the program but, this may not be done within any group of plot statements. rr1n nO :r:~ Z-o OC .--1. O,~ G) -< ~-~ ..... -3Plot SUbrcNtiM ~ ~ i ,,, T S1M8el. ." T OVlPU ---,-- ROil,. 0 on, f.'X t£TOU ~ 'tlp£ ....- . ~OUTPtJT . CLC"R OUTPUT UnoA! SII8 f!OUi'S, 6 ft~It(." 'o~"I~ PftO(;ft'>1I:\ ... o ~ c·· o o ~ " -6- -5- 25.00*R5 2O.00f 19.55 s SalQpl.e Probl.em. I 19.45~5 ENTER S~URCE PR~GRAM, PUSH START l)8300 1 N=1 88324 9 F~RMAT(~HISC) 8354 2 ACCEPT ,~ 08478 8 F~RMAT(F10.1) l)8 00 DUM=PLT(X) l)8424 IF(SENSE SWITCH 1)2,3 l)8444 3 N=3 l)8468 D~ 4 M=1~361jtO 08480 AXIS=PLT 25. l)8504 X=M-1 l)8552 S=PLT(25.*SIN(X*.01745)+25.) l)8636 MPR=M-1 PRINT 7,MPR 08672 08696 7 F~RMAT(15 5X) 08736 4 C=PLT(25.*C~S(X*.01745)+25.} ST~P 08856 08904 END PR~G SW 1 ~NF~R SYMB~L TABLE, PUSH START SW 1 ~FF T~ IGN~RE SUBR~UTINES, PUSH START 9/30/61 1620 F~RTRAN SUBR. PR~CESSING C~MPLETE I· I I 50.00*R5 10.00*R5 -10.00*R-S 25.00*R5 +0 +10 +20 +30 +40 +50 +60 +70 +80 +90 +100 +110 +120 +130 +140 +150 +160 +170 +180 +190 +200 +210 +220 +230 +240 +250 +260 +270 +280 +290 +300 +310 +320 +330 +340 +350. +360 ST~P S I I I I S S I I I I c C C C C C S S C C C C c I S C C S S C S S C S C S S I S S S S S S S S I C C I I C I I I I S S S S S S C C I I I S S c S C C S I I I s S I I I I I I I C C S C C S s I f S C C C C C C c C C ,,- -7Plot SubroIIt1De 01010 01020ENTER 01030 01040 01070REAOIN 01080 01090 01100 01110 01111 01130 01131 01131 01132 01140 01141 01142 01143 01144 01150 01160 01170 01180 01190 01200 02010SETUP 02020 02030 02040 02050 02051 02052 02060 020-70TRANS 02100 02110 02126 02130 02140 02150 02160 03060SUB 03070 03071 03080 O~RG AM TF TF SM TF TFM TOM TOM TFM B TFM BNF SM SF TO CM BL AM SF SM TF BD TFM TR TF TFM SM SM TF BNF B BO SM SF TFM TFM S A A TF SM TF TF BO 5000 X+ 7, 3*12 , 10 O~L~~P,N,O ,N,O O!:L!:!:P,l,01O L~~P 'T~FACI-l,X T:FAC~+6,*+5*12, T: FAC:+l, 9 17 FAO~UT+l,9 FAO~UT+6,*+6*12,17 T~FAC I FAOIN-l ,C:NST, 17 FAOIN,FAC-2 L~:P, 1,010 FAC-3, ,10 *-1,FAC-2,0 *-13,5,010 *+24,,0 FAC-3,1,10 FAC-4 *+18,2,010 XSAVE FAC-3 END-24,DCL!:CP,01 *-18,XSAVE,07 ~UTPUT-2,CLEAR-2.1 O:,N,O *+3*12+",XSAVE,07 0:,1,010 *+23,2,010 XTEMP,XSAVE,07 *+24,XTEMP,01 PR I NT-12" 0 SUB,XTEMP-l,Ol L::P,1,01O X+4,7,210 sUB-6,:UTPUT,07 SUB-l,SYMB:L+XSAVE-2,07 SUB-l,TRANS-3*12-1,Ol *+24+6, XTEMP, 01 *+18,XTEMP,01 :UTPUT,SYMS:L+XSAVE-2 XTEMP.l0,010 *+18,TRANS-3*12-1,01 . XSAVE, XTEMP, 1 SETUP+24,DC.Ol w/Foz:at -8- . o 03090PRINT 03091 03092 03093 03094 03095 03095 03096 03097 03098 03099 03010 03115 03120 03130 03140 03141 03150 03151 03160 03161 03170ENO 03180CLEAR 031900CLCCP 03200LCCP 040100C 04020CCNST 04030X 04050N 04140XTEMP 04060XSAVE 04070CUTPUT 04080TCFACI ·04090TCFACC 04100FADIN 04110FAOCUT 04120FAC 04130SYMBCL 04150 05000 05000 11 19876 00036 05012.~6 05119 19849 05024 26 05371 19849 050~6 T2 05119 00001 050 8 26 0123719869 05060 lb 0130405120 05072 15 01299 00009 05084 15 01195 00009 05096 lb 01200 05168 05108 49 01238 00000 05120 1b 00517 05407 05132 44 00518 000~8 05144 T2 05371 00001 05156 22 00057 00000 05168 25 05167 000~8 05180 T4 05167 000 5 05192 Ii7 05216 01300 05204 11 0005700001 05216 i2 00056 00000 05228 2 05246 00002 05240 26 08344 00057 05252 Ii3' 05756 05119 05264 T6 05246 08344 05276 21 00077 05787 05288 26 05587 19849 05300 16 05347 08344 05312 T2 05587 00001 05324 T2 05347 00002 05336 26 05671 08344 05348 IiIi 05372 05671 05360 Ii2 05516 00000 05372 Ii3 05480 05 610 05384 T2 05371 00001 05396 22 T9873 00007 05408 16 05474 00079 05420 T6 05479 T6686 05432 22 05479 05347 05444 2T 05474 05671 05456 2T 05474 05671 05468 26 0007916686 05480 T2 05671 oooTo 05492 2b0551 0 05347 05504 2b 08344 05671 05516 Ii3' 05312 05587 . BNF TFM BO SM *+15*12,X+4,0 *+23,~UTPUT+17,07 *+36,~UTPUT+17,07 *-1 2,010 *-24,,0 CM *-25,92,07 BNL *+5*12, 0 AM *-4*12-1,3,010 TF *+18,*-5*12-1 01 ~UTPUT+17,~UTPUT+20 TR Bo *+24,LCCP,01 CF· X+4 WATY CUTPUT TR CUTPUT-2,CLEAR-2,1 BNF *+36,X+4,0 TBTY x+4 CF BO SETUP,LCCP,Ol SM X+7,3*12,10 TOM TCFACC+1,2 TOM FAOCUT+l,2 TCFACI B OAC 11 , ~,*-2 ,READ I N+6*12+11 OS os ,TRANS-13 ,PRINT+5*12-1 OS ,TRANS+23 OS OS ,19869 OS ,19849 ,PRINT+12*12-1 OS ,8344 OS OS ,79 OS j 1238 ,1298 OS os ,518 ,1194 OS ,60 OS ,8344 os OEND 5000 B , 05528 1i4 05708 05540 T605563 05552 1+3 05588 05564 T2 05563 05576 1+9 05552 05588 T4 05563 05600 1+6 05660 0561'2 T1 05563 05624 ~ 05642 05636 ~ 00096 05648 3 05672 05660 3319873 05672 3 00079 05684 ~ 00077 05696 4 05732 05708 34 00000 05720 ~ 19873 05732 3 05288 05744 12 19876 0575615 01299 05768 15 01195 05780 49 01238 05789 00011X2 05119 00000 05371 00000 . 05587 00000 05407 00000 19869 00000 19849 00000 05671 00000 08344 00000 00079 .00000 01238 OOOOO~ 01298 00000 00518 00000 01194 00000 00060 00000 08344- 00000 05000 f j -A ~~/J o· 19873 00096 00~~6 000 2 00000 00092 01300 00003 05563 00099 05371 00000 00100 05787 19873 00108 00000 0531' 00036 00002 00002 00000 J'-. o o ~ ~ • -9Core Layout The location of the subroutine is determined by the FOR'l'RAK compiler. The symbols start at location 8343 and continue to higher order locations. The numbers to be plotted are stored in two digit fields starting at location 8342 and continuing to lower order locations. Adding the Subroutine to the System The symbols, TOFACI and TOFACO, in the program list refer respectively to the locations of first executib1e statement and the exit statement of the TOFAC subroutine. FADIN and FADOUT are the locations of the' corresponding statements of the FAD subroutine. The location of these statements in users . system should be determined. X is the location of the address of the argument. formula: It is found from the X = 19989 - 2O(NH - 1) where NN is the plot subroutine number. N is the address of the second item in the symbol table following the subroutine 1iDkages. It is found from the formula: N = 19989 - 20 • MM where MM is the subroutine number of the ~ subroutine in the system. IIIiII_ _ _ _ _ __ j, _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 411 ~ ... Ci o o COMPUTER TECHNOLOGY THE COMPUTER MUSEUM HIST 1111111111111111111111 I111I 111111111111111 ~~~lllrTER 1 026 2031 8
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37 Create Date : 2014:03:06 10:52:45-08:00 Modify Date : 2014:03:06 10:19:57-08:00 Metadata Date : 2014:03:06 10:19:57-08:00 Producer : Adobe Acrobat 9.55 Paper Capture Plug-in Format : application/pdf Document ID : uuid:ac7f7346-2099-c243-8d8d-0da96e021d34 Instance ID : uuid:a077ac70-84d4-864c-9469-b4901eea7551 Page Layout : SinglePage Page Mode : UseNone Page Count : 12EXIF Metadata provided by EXIF.tools