File DIRK3.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

2I?C3M?M3N& 7DSAA*M2I	D3M;E3S?I3N& +PA*22)3IWS/T&(2)&,3CSO/EF(*8&02,;N.(J12):,/CF("26)2JRI3IWM3N	S+OCN7DSA/AF(*22)7NON*(23*52)7NOC*(23*52)7DSA/SN(*,&52,SI3AGT.(B8"06)2JRI/OF 20& *=21"3*M2I?D. F1. 7J.1V,"M&J7NON*(3I/J6)"0*M2ION3S&(*,	J"=60.JF 21RI7AOT*(3I/
6)"06.2JRI/OF 20* *=21"2*M2I?D. B1. 7K.1J,"M&J3J	K2=&(*-&1**.4*(7J*1*)22.+"M&J+NN3J	K.)B="M&J+NC3J	K.)B=.MFJ20RI3AGT2(/J/I6)"06.2J&I+PA.16)"-612J&I+PA.26)"0*M2I?D* B1/IF=",69"J&13IWS3T&(2)&="M&J+DCO22& *=21.1B8.MJJ2IOI3OWD*(	I*=7I"1*M2IGC+LCL3SGRN7D6JJI3E
A*(21.2B06)SI+O3N3I?T+F3F3IWD3L&,7TWO3T&,3R;A.MJJ"0&07FKO7MSA.(WI")*M2I?D* B3/IF=6,KIA7N"J&33J&=3R;A/DB(")*M2IWN/X7T"0*M2I?D. B86 ON*=21"3*M2IGC+LCL7SWH+F"13I?C+D3E.1F,*820"16)"J	S3CGL.;F6.3.23TSA. J(.1B0.;F6.3.23TSA* 6(.1R4.;F6"3632JRI/OJ 20: *=21.1B8"M&
3C3A7LN 3H[U21&(7SSE*,21.9F,")*M2I?N2=OI3OWD*(	N"M&J/I61+N?O"9602J:I3O:=3O&-.1&*"0*M.IKI2=?N./V4"M&J/N7O+N7O+I*2"4652J&I23:=/OF/"5*M2I	I23&="3*M.IOI.=OI**.2"1*M2I[I.(KI.)F2.,F2.,J2*MBJ"2&2/N7O+N7O*1*5/IOI"M&J/I64+N?O.(V1./OI.)F+.MJJ21NI7OSN7IWNE*M.IGI.=GI
+612J&I22&=.2F+"M&J+GCO+TO*223*2&4.,GI.MJJ23&I7TOE3T&=+PA+I&2"M&J+GCO+TCO"169.JR26ISI7ESS6=OI+ET+I.3"16)2J&I3F&(.2J-.)&1.,"2.,&1.MJJ28&I7TOE3T&=7SSE.(SI")*M"1&93C;O3T;IU7E"J	S.6R1.1F;.0B0.;.122R;+CCA7S[AE61"J	S.6N1"5*M7S^I+WB,.6N165N;+MCA3CGL2;7J7P^ W*M2I
D. F1*0B03I	I*=21I632J*I6=OI+ET3I	I")*M2I?D. B1*5B0/KF=6,SIO7N"J	S7JOM6 	S/N/C7JOM2 SO7W.JF .0B52I?C3N	T3NWU"M&J+DCO.1Z020. *=213I?TF7F"J	S7JOM6 	SN7C.JF .0B62I?C3N	T3NWU*MBJ.1B120NI7OSN7IWNE*M2I?D. F1*5B0/KF=2,SIE7L"J	S7JOM6 	SN7C.JF .1B52I?C3N	T3NWU"M&J
J&=7TOET*M/SZI.3R1"M&J+DCO.1B220. *=213I?TU7T"J	S7JOM6 	S/N/C7JOM2 SO7W"J	S.6F3"6*M7SNIZ7A"J	S7JCM2 WRS7P.JF .2B02I?C3N	T3NWU"M&J3IWR/S7P"-612J2I/A7T3I?TU7T2J^I7OR /OF .3B06MNJ2IWR+S3P2 GT+D" .-B1"060"J	S3SGZ2 3C3A&;/A/C3DGC2 	\7ROEP*M2IGL3T.=*MBJ.1B320NI
OSN7IWNE*M/SZI.1F4.;F66MNJ2IGS/VGE",60"J	S"2*M2I/K6=SI3I2-A7T2JRI/OF .4B0. 7K21.,K*M3S*I+MCS3S;YC*M. R1"0&03C;O3T;IU7E2J^I7OR /OF .5B06MNJ*I3R"0*M7SNI7H
O",60"J	S3CGL2 3C7LR;+ACD/\/J3R3A2;GT3DF 7D
P7SR;+ACD.(F-2;OD/AF "0*M7SRI+ACD/IF 20R;+CCA/PGW2;GT3D& . B12;OD7AB /W.2.6R1.1Z;.1N;"764"J	S.1Z7"0*M7SBI+W21"0*M/SFI.7B66MNJ6I
P.2B,6MNJ.I.23CGL2 3C3L*;+MCP7IN 7H
O6MNJ6I	S+N3C"0*M3SNI/L/A.6N165N;+PCA3CGL2;3HT*M7S^I*1B,. F6"365"J	S3SGM2 3C3A*;+MCPW61"J	S7JCM* CI3S;YC*M3SFI7D
P7SB,W7S"J	S.4R0*IJ/*-B"7POW6MNJ.IB4"4*M7SBI+W3S. J1"1&2./6"6"B W7S"J	S.1F2"2*M/SJI.1F0.;^1*7>I*"J16MNJ.IV4.2.3.2V1"1*M/SRI.1J2.;Z2"561"J	S.2F4.4R;"767"J	S.5^1.2Z;"561"J	S.1B5.6R;.2V26MNJ.IR4.4.3.6V0"0*M/SVI.1Z2.;Z2"561"J	S.5J1.0N;.6F5*IJ/"96".JV1"0&03W	R
TE.1F,*0&03N&,21&,22&,23&,24&,7ROE3P2,A7T.JB120ZI3O7R+AT+I23+I22.3GI.,KI.,WI")*M2IWN/X7T7NE/TF+"M&J3IGD+TA7NE/T6)3I?C+DE+N.).1F+.0B06*KI7ECS"M&J7NE3T:=7ESX"+612J&I7DSA3A:(7ESX2)2=A7T2J&I3F:(/SF-.)B3.,F3.,B3*MBJ"3&1+ICF*(7N*4&0. B2*,29"260.JN 20&I23&=.3J/"
612J&I/J7K.(GI*-&1**.4.(KI*-&1**.2I632J:I3N&(+J	K2=;N2(+I+K.)"1*M2I[I6(KI7ECS*+61+I&2*220*324"260.JN 24:I3C&(+J	K2=ON2(+I+K.)"1*M2IGD+TA3I/J2)R=3AGT2(+I+K.)3F?L+AT7LSA")*M2I[I*(*2+I.1+I62.6J).0N,.5J,"0*M. V32I;N3S&(23&,.46)7NON.(OI.,SI.)F+"M&J+IF3IWR+S/P2
&-.2J).0N,.6J,"0*M"3&67NOC.(OI.,SI2):=+CS+I23+I&4"+612JRI7AOT.(OI.,SI2)R=7AOT.(OI.,SI2)Z+3LGO3T2(+A	T.MJJ20NI7OSN7IWNE*M" &97PWAS7E.J" 20NI3A3L6 COE7N2JRI/OV 20& *=21"2*M2I?D. B5. 7J.1J,"M&J+DCO*5B0/KF=",632J&I/J7K*(7I*1*)*4"+/JF-.)J*"+7K.JB52IGD+TA3I/J2)
=3AGT2(+I+K>)3F?L+AT+NC3I/J")6)2JRI/OV 21& *=21"3*M2I	I*=+I.2F-"M&J+DCO*5B1/JF=2,	I*MBJ"5&17DSA3S&(*,	J2=GD+TS3I*,2)Z/3LGO3T:(+CS3I*,")6)6J^I7RSI/EF(.,F120:)3CR,3AGT*,"(7NOC*(3I+J2)/JF=*,&5.,7I.1N,")*M6IKW3IWT*(21.1N1*)"(7DSA3S&(*,	J.,7J.1V,2)&,*=21"36).J
 "1&37FKO7MSA*(>/.3V(/FB1*.>0")6).JF "1&07FKO7MSA*("4.3GI*0&/./R/2(Z3*1:0*0&/*/>/.3V(/IB1*/>)*/"3.5GF.0B.*/&)"M&J3W	R+TE.1F,*1&1*MBJ.1F12I?F3RGM+T>(2/V	3NWT3RJ 3LOO+KN 6,V 7NSI* 212 ?T2 GS+VCE7DSA+A&	"M&J3RGE/DF(.,F122&)3B/L*MBJ.1J12I?F3RGM3T&("46)"J	S3TS
2 	\3B/L2;GT+D" .4B020R;+CCA3IKN/LGK2;GT3D& 3N3B/K.13IOA2;OD3A& 3N3BK62"J	S3TSA2 ;I3B/L22&;/A/C3DGC2 ;I3B/L63R;+ACD3IKN/LOK2;GI3CR;+CCA3IKN/LSK6MNJ.IF6.4.1.6R46MNJ.IF7*4B;3IKN/LGK",60"J	S.7R12;& 3N3B+K22"0*M/S^I.1.42 ;I3B/L.3B,6MNJ.IF7*4B;3IKN/LSK",60"J	S
2N;+LCA3C3L"M&J3S?TP*M2I;ED*MBLBZ

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search