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