home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / pmtex.lha / pmtex / src / pmtexb.diffs < prev    next >
Encoding:
Text File  |  1995-03-05  |  4.9 KB  |  202 lines
  1. Hello Don Simons,
  2.  
  3. I've finally made it (I got some more problems but solved them for me)
  4. At the end of this text, are the diffs between your file (without the '$')
  5. and my adapted version. f2c has one problem: It can't convert ascii to
  6. integer (and via versa) automatically as the f77 compiler can. So I used
  7. a dummy function (I don't know if there exists a ascii to integer function 
  8. in Fortran) ord and replaced it in the c file through atol. 
  9.  
  10. Reinhard Katzmann
  11.  
  12. diffs between pmtexb2.f and pmtexb.for:
  13. 322c322
  14. <       subroutine getchar(line,iccount,mychar)
  15. ---
  16. >       subroutine getchar(line,iccount,char)
  17. 329c329
  18. <       character*1 mychar,s
  19. ---
  20. >       character*1 char,s 
  21. 338c338
  22. <       mychar = line(iccount:iccount)
  23. ---
  24. >       char = line(iccount:iccount)
  25. 595c595
  26. <       subroutine notex(mynotex,lnote)
  27. ---
  28. >       subroutine notex(notex,lnote)
  29. 600c600
  30. <       character*25 mynotex
  31. ---
  32. >       character*25 notex
  33. 623c623
  34. <               mynotex =s//'ccc'//ud//' '//note
  35. ---
  36. >               notex =s//'ccc'//ud//' '//note
  37. 626c626
  38. <               mynotex =s//'cc'//ud//' '//note
  39. ---
  40. >               notex =s//'cc'//ud//' '//note
  41. 629c629
  42. <               mynotex =s//'c'//ud//' '//note
  43. ---
  44. >               notex =s//'c'//ud//' '//note
  45. 631c631
  46. <               mynotex =s//'q'//ud//' '//note
  47. ---
  48. >               notex =s//'q'//ud//' '//note
  49. 633c633
  50. <               mynotex =s//'h'//ud//' '//note
  51. ---
  52. >               notex =s//'h'//ud//' '//note
  53. 635c635
  54. <               mynotex =s//'wh'//' '//note
  55. ---
  56. >               notex =s//'wh'//' '//note
  57. 640c640
  58. <               mynotex =s//'c'//ud//'p'//' '//note
  59. ---
  60. >               notex =s//'c'//ud//'p'//' '//note
  61. 642c642
  62. <               mynotex =s//'q'//ud//'p'//' '//note
  63. ---
  64. >               notex =s//'q'//ud//'p'//' '//note
  65. 644c644
  66. <               mynotex =s//'h'//ud//'p'//' '//note
  67. ---
  68. >               notex =s//'h'//ud//'p'//' '//note
  69. 646c646
  70. <               mynotex =s//'c'//ud//'p'//' '//note
  71. ---
  72. >               notex =s//'c'//ud//'p'//' '//note
  73. 659c659
  74. <             mynotex = s//'sk'
  75. ---
  76. >             notex = s//'sk'
  77. 661c661
  78. <             mynotex = s//'rlap{'//s//'qsk'//s//'pause}'
  79. ---
  80. >             notex = s//'rlap{'//s//'qsk'//s//'pause}'
  81. 667c667
  82. <             mynotex = s//'ask'
  83. ---
  84. >             notex = s//'ask'
  85. 670c670
  86. <             mynotex =s//'hs'
  87. ---
  88. >             notex =s//'hs'
  89. 672c672
  90. <             mynotex =s//'qs'
  91. ---
  92. >             notex =s//'qs'
  93. 674c674
  94. <             mynotex =s//'ds'
  95. ---
  96. >             notex =s//'ds'
  97. 676c676
  98. <             mynotex =s//'qp'
  99. ---
  100. >             notex =s//'qp'
  101. 678c678
  102. <             mynotex =s//'hpause'
  103. ---
  104. >             notex =s//'hpause'
  105. 681c681
  106. <             mynotex =s//'pause'
  107. ---
  108. >             notex =s//'pause'
  109. 808c808
  110. <       character*25 mynotex
  111. ---
  112. >       character*25 notex
  113. 1091,1092c1091,1092
  114. <               call beamstrt(mynotex,lnote,nornb,ihornb)
  115. <               call addstr(mynotex,lnote,sout,lsout)
  116. ---
  117. >               call beamstrt(notex,lnote,nornb,ihornb)
  118. >               call addstr(notex,lnote,sout,lsout)
  119. 1110c1110
  120. <                 mynotex = s//'pince '
  121. ---
  122. >                 notex = s//'pince '
  123. 1113c1113
  124. <                 mynotex=s//'mordant '
  125. ---
  126. >                 notex=s//'mordant '
  127. 1116c1116
  128. <                 mynotex=s//'mtr '
  129. ---
  130. >                 notex=s//'mtr '
  131. 1119c1119
  132. <               call addstr(mynotex(1:lnote-1)//notef(ihorn),lnote,
  133. ---
  134. >               call addstr(notex(1:lnote-1)//notef(ihorn),lnote,
  135. 1124c1124
  136. <               call beamn1(mynotex,lnote)
  137. ---
  138. >               call beamn1(notex,lnote)
  139. 1129c1129
  140. <               call beamend(mynotex,lnote)
  141. ---
  142. >               call beamend(notex,lnote)
  143. 1135c1135
  144. <               call beamid(mynotex,lnote)
  145. ---
  146. >               call beamid(notex,lnote)
  147. 1138c1138
  148. <               call notex(mynotex,lnote)
  149. ---
  150. >               call notex(notex,lnote)
  151. 1140c1140
  152. <             call addstr(mynotex,lnote,sout,lsout)
  153. ---
  154. >             call addstr(notex,lnote,sout,lsout)
  155. 1215d1214
  156. <       integer tof,tofa
  157. 1219,1220c1218,1219
  158. <         nof = '0'
  159. <         nofa = '-1'
  160. ---
  161. >         nof = 0
  162. >         nofa = -1
  163. 1230,1235c1229,1232
  164. <         tof = ord(nof)
  165. <         nof = char(tof+48)
  166. <         if (tof .gt. 9) then
  167. <          lnof = 2
  168. <          tof = ord(nof)
  169. <          nof = '1'//char(tof-10+48)
  170. ---
  171. >         nof = char(nof+48)
  172. >         if (nof .gt. 9) then
  173. >           lnof = 2
  174. >           nof = '1'//char(nof-10+48)
  175. 1237,1238c1234
  176. <         tofa=ord(nofa)
  177. <         if (tofa .eq.-1) then
  178. ---
  179. >         if (nofa .eq.-1) then
  180. 1241c1237
  181. <         else if (tofa .lt. 10) then
  182. ---
  183. >         else if (nofa .lt. 10) then
  184. 1243c1239
  185. <           nofa = char(tofa+48)
  186. ---
  187. >           nofa = char(nofa+48)
  188. 1246c1242
  189. <           nofa = '1'//char(tofa+38)
  190. ---
  191. >           nofa = '1'//char(nofa+38)
  192. 1298,1303c1294,1295
  193. <         tof = ord(nof)
  194. <         tof = tof+4
  195. <         nof = char(tof+48)
  196. <         tofa = ord(nofa)
  197. <         tofa = tofa+4  
  198. <         nofa = char(tofa+48)
  199. ---
  200. >         nof = nof+4
  201. >         nofa = nofa+4  
  202.